8th CodeGear Developer Camp

Size: px

Start display at page:

Download "8th CodeGear Developer Camp"

きょういちいさし
5 years ago
Views:

1 A4 Delphi テクニカルセッション RAD Studio 2007による Webアプリケーション実装の基本テクニック株式会社ドリームハイブ代表取締役山本悟 1 このセッションはテクニカルセッションですこのセッションではDB 操作に必須となるCRUDを実際に実装します ASP.NET AJAXを少し紹介しますあなたが ASP.NET によって DB を扱うならば最適解では無いかもしれませんが参考になると思います 2

2 アジェンダ Webサイトの構成 CRUDに使うコンポーネント管理サイト作成のデモ : 表示管理サイト作成のデモ : 編集一般サイト作成のデモ ASP.NET AJAXとは ASP.NET AJAXのデモ 3 構成の確認 4

3 Web サイトの構成管理側と公開側管理側とはインターネットを利用する一般ユーザがアクセスできないデータの保守管理を行う側を指す公開側とはインターネットを利用する一般ユーザがアクセス可能な側を指す CRUD とは Create, Read, Update, Deleteの略管理側はCRUD 公開側はRが多い本日作るサイトシナリオ : 企業の更新情報を公開管理するシステムの作成 DB 構成 BlackfishSQL DbxDataSource 5 ( 資料 ) - Web サイトの構成 Web アプリケーションの設定管理ユーザ CRUD Web.config admin_page.aspx 管理側ページ R のみインターネット info_list. aspx 一般側ページ一般ユーザ info_detail. aspx DLL 一般側管理側 Web サーバ Blackfish SQL 6

( 資料 ) テーブル構成テーブルスキーマ CREATE TABLE INFORMATION( ID INTEGER AUTOINCREMENT NOT NULL, INFO_TYPE SMALLINT DEFAULT 0 NOT NULL, RELEASE_DATE DATE, TITLE VARCHAR(128) NOT NULL, NOTE VARCHAR(1024), VISIBLE

4 ( 資料 ) テーブル構成テーブルスキーマ CREATE TABLE INFORMATION( ID INTEGER AUTOINCREMENT NOT NULL, INFO_TYPE SMALLINT DEFAULT 0 NOT NULL, RELEASE_DATE DATE, TITLE VARCHAR(128) NOT NULL, NOTE VARCHAR(1024), VISIBLE BOOLEAN DEFAULT TRUE NOT NULL, CONSTRAINT information_pk PRIMARY KEY (ID) ); CREATE TABLE INFO_CATEGORY( ID INTEGER NOT NULL, TITLE VARCHAR(128) NOT NULL, CONSTRAINT info_category_pk PRIMARY KEY (ID) ); サンプルデータ INSERT INTO information (info_type,release_date,title,note,visible) VALUES(0,{D ' '},' タイトル 1',' ノート1',TRUE); INSERT INTO information (info_type,release_date,title,note,visible) VALUES(1,{D ' '},' タイトル 2',' ノート2',TRUE); INSERT INTO information (info_type,release_date,title,note,visible) VALUES(0,{D ' '},' タイトル 3',' ノート3',TRUE);... INSERT INTO info_category (id,title) VALUES(0,' 最新情報 '); INSERT INTO info_category (id,title) VALUES(1,' お知らせ '); 7 CRUD に使うコンポーネント DB のデータ表示用のコントロール GridView コントロールデータソースから取得した複数のレコードの値を表として表示するコントロール DetailsView コントロールデータソースから取得した単一のレコードの値を表として表示するコントロール FormView コントロールユーザー定義のテンプレートを使用してデータソースから単一レコードの値を表示するコントロール Repeater コントロールユーザー定義のテンプレートを使用してデータソースから取得した複数のレコードの値を繰り返し表示するコントロール入力の検証用のコントロール ~Validator コントロール ErrorMessageとText Display ValidationSummaryコントロール Page.IsValid 8

5 ( 資料 ) - DB とデータソースとコントロールの関係データバインディングが可能なコントロール ~DataSource SELECT INSERT UPDATE DELETE 等のデータアクセス用 Command オブジェクトを含むデータベース 9 管理サイト作成のデモ : 表示 Web.Config データエクスプローラから Web.Configに追加 Web.Config 内のConnectionStringにデータソースへの接続文字列を定義することで複数のWebフォームから共通で利用することができる一覧と詳細ページング項目の並べ替え追加削除 LinkButtonコントロールなどのCommandNameプロパティで操作を指定 "Cancel" "Delete" "Edit" "Insert" "New" "Page" "Select" "Sort" "Update データバインドコントロールは特定のコマンド名を認識するとそのコントロールの適切なイベントを自動的に発生させて処理しますただしすべてのデータバインドコントロールがすべてのコマンド名を認識するわけではありません 10

( 資料 ) 管理ページ SQL GridView 用 DbxDataSource の SELECT 文 Select I.ID, I.INFO_TYPE, IC.TITLE As ICTITLE, I.RELEASE_DATE, I.TITLE, I.NOTE, I.VISIBLE From INFORMATION I Inner Join INFO_CATEGORY IC On I.

6 ( 資料 ) 管理ページ SQL GridView 用 DbxDataSource の SELECT 文 Select I.ID, I.INFO_TYPE, IC.TITLE As ICTITLE, I.RELEASE_DATE, I.TITLE, I.NOTE, I.VISIBLE From INFORMATION I Inner Join INFO_CATEGORY IC On I.INFO_TYPE = IC.ID FormView 用 DbxDataSource の SELECT 文 Select I.ID, I.INFO_TYPE, IC.TITLE As ICTITLE, I.RELEASE_DATE, I.TITLE, I.NOTE, I.VISIBLE From INFORMATION I Inner Join INFO_CATEGORY IC On I.INFO_TYPE = IC.ID Where (I.ID =?) パラメータ ID=GridView1.SelectedValue 11 管理サイト作成のデモ : 表示項目の装飾 DataFormatString 日付のフォーマット :{0:yyyy/MM/dd} 数値がパラメータ番号を : 以降がフォーマットテンプレート機能多くのデータ表示コントロールはテンプレートによってカスタマイズが出来る Label コントロールの追加と DataBinding の編集による Boolean 項目の表現 <asp:label id="label1" runat="server" visible='<%# Eval("VISIBLE") %>'> 表示する </asp:label> Public function は Eval の装飾に利用できる admin_page.pas function Tadmin_page.ReturnToBr(s: &Object): string; begin // 結果が NULL の場合は空文字列を返す if s is System.DBNull then begin Result := ''; Exit; end; // 改行を <BR /> に変更するキャスト NULL のハンドリング Result := (s as String).Replace(#13#10, '<br />' + #13#10).ToString; end; 利用 admin_page.aspx <asp:label id="notelabel" runat="server" text='<%# ReturnToBr(Eval("NOTE")) %>'></asp:label> 12

7 管理サイト作成のデモ : 編集検証コントロールの追加一般的に必要とされる検証の 9 割をカバーするが足りない分は CustomValidator で自作する必要がある複数のコントロールを組み合わせて利用する例 ) 必須 (RequiredValidator) と入力値検証 (RegularExpressionValidator) 例 ) 日付のフォーマット : d{4}/ d{1,2}/ d{1,2} 編集にマスタテーブルの情報を利用する DropDownList コントロールで情報を参照する DropDownList 用 DbxDataSource の SELECT 文 Select INFO_CATEGORY.ID, INFO_CATEGORY.TITLE From INFO_CATEGORY DropDownList のプロパティ ( テーブル定義参照 ) 値に利用するフィールド :DataValueField="ID" 表示に利用するフィールド :DataTextField="TITLE 選択されるフィールド :SelectedValue='<%# Bind("INFO_TYPE") %>' 削除の確認 OnClientClick プロパティに JavaScript を記述することで実装例 ) DeleteButton.OnClientClick= return confirm( 削除しますか?')" 13 一般サイト作成のデモ一覧 Repeater によるデザイン例 : リンクカテゴリによるフィルタリングの追加 DropDownList コントロールを利用カテゴリに全てを追加 DropDownList.AppendDataBoundItems IsNull Select I.ID, IC.TITLE, I.RELEASE_DATE, I.TITLE From INFORMATION I Inner Join INFO_CATEGORY IC On IC.ID = I.INFO_TYPE Where I.INFO_TYPE=IsNull(?, I.INFO_TYPE)) And I.VISIBLE Blackfish SQLにはIFNULLがあるが Where 句で動作しない CASE Blackfish SQLでCASE 文によるフィルタリング Select I.ID, IC.TITLE, I.RELEASE_DATE, I.TITLE From INFORMATION I Inner Join INFO_CATEGORY IC On IC.ID = I.INFO_TYPE Where (I.INFO_TYPE= CASE? WHEN 0 THEN 0 WHEN 1 THEN 1 ELSE I.INFO_TYPE END) And I.VISIBLE 14

8 ASP.NET AJAX とは ASP.NET から AJAX を手軽に利用するためのライブラリ群 ASP.NET 2.0 AJAX Extensions 1.0: コアライブラリ ASP.NET AJAX Futures: 周辺ライブラリ ASP.NET AJAX Control Toolkit: 便利な部品群からダウンロード RAD Studio 2007 への組み込みは DLL をコピーし参照設定するだけ CodePlex 上で開発されるコミュニティベースのサポートのみ AJAX の部品はほとんどここにある Microsoft の製品としてサポートが提供される範囲 15 ASP.NET AJAX のデモ ToolkitScriptManager の追加ロケールの設定 EnableScriptGlobalization=True EnableScriptLocalization=True Web.configの修正 AJAX 利用のための設定を追加 Ajax 対応 ASP.NET Web アプリケーションでプロジェクトを作成した場合にはあらかじめ追加されている CalendarExtenderの追加ポップアップカレンダーを生成するエクステンダカレンダーを表示するトリガとなるコントロール :PopupButtonId カレンダーの値を入れるコントロール :TargetControlId カレンダーの入力フォーマット :SelectDate 16

9 ( 資料 ) - ASP.NET AJAX のための Web.config 設定 4つのセクションをsystem.webセクションに追加する Ajax 対応 ASP.NET Web アプリケーションでプロジェクトを <<contsystem.web> 作成した場合にはあらかじめ追加されています <pages> rols> <add tagprefix="asp" namespace="system.web.ui" assembly="system.web.extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> </controls> </pages> <compilation defaultlanguage="c#" debug="true"> <assemblies> <add assembly="system.web.extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> </assemblies> </compilation> <httphandlers> <remove verb="*" path="*.asmx"/> <add verb="*" path="*.asmx" validate="false" type="system.web.script.services.scripthandlerfactory, System.Web.Extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> <add verb="*" path="*_appservice.axd" validate="false" type="system.web.script.services.scripthandlerfactory, System.Web.Extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> <add verb="get,head" path="scriptresource.axd" type="system.web.handlers.scriptresourcehandler, System.Web.Extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/> </httphandlers> <httpmodules> <add name="scriptmodule" type="system.web.handlers.scriptmodule, System.Web.Extensions, Version= , Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> </httpmodules> </system.web> 17 18

会社紹介商号設立株式会社ドリームハイブ 2001 年 12 月 4 日ミッション在り方約束モノ創りをし皆で共有するシステムソリューションカンパニーお客様とともに夢を実現します中小企業が抱える IT 関連の負荷を軽減し仕事を楽にするサービスを提供する会社 19 スピーカープロフィール山本悟 :: 略歴 :: 17 歳からコンピュータ関係にはまり

10 会社紹介商号設立株式会社ドリームハイブ 2001 年 12 月 4 日ミッション在り方約束モノ創りをし皆で共有するシステムソリューションカンパニーお客様とともに夢を実現します中小企業が抱える IT 関連の負荷を軽減し仕事を楽にするサービスを提供する会社 19 スピーカープロフィール山本悟 :: 略歴 :: 17 歳からコンピュータ関係にはまりプログラミング言語で一番最初に触ったのはTurbo C++ でした大学卒業後そのまま起業しましたが今でも自分勝手に創るのが一番好きです現在の開発案件では主に.NETとPHPを利用しています案件が少ないせいもあり JAVAが苦手なのですが加えてUNIXも苦手です Delphiとは1.0の頃から出会いバイト先のゲーム会社のサポートプログラムを作成したりしていました現在もちょっとしたプログラムであればDelphiで作ることが多いですし次のスライドでご紹介するDH-APPLIももちろんDelphi 製です現在はPM 系や言語系といったIT 系のトレーニングを多くやっていますが昔テレビ埼玉でパソコンの先生をしていたこともあります 20

11 公開アプリの紹介アプリ DH-APPLI M シンプルなメモツール Change! お手軽名前変更ツール GrepReplace 複数行一括置換 PlacesBar ダイアログを便利に! ColorPicker 色情報取得ツールその他 VALUE-DOMAIN 専用 DNS 更新ツールアプリが目指すものアプリの配布先累計 60,000 件以上のダウンロード! 自社 Web Vector son/an html 窓の杜 /filesearch/grprplc.html 21

5th CodeGear Developer Camp [A5]

5th CodeGear Developer Camp [A5] A5 Delphi テクニカルケーススタディ Delphi によるビジネスロジックのリサイクル一粒で二度おいしいプロトタイプ転用術株式会社ドリームハイブ代表取締役山本悟 1 会社紹介商号設立株式会社ドリームハイブ 2001 年 12 月 4 日ミッションモノ創りをし皆で共有する在り方システムソリューションカンパニー約束お客様とともに夢を実現します 2 事業内容 ( ドリームハイブとは?)