知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス4.0

Size: px

Start display at page:

Download "知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス4.0"

ともみあんさい
6 years ago
Views:

2 アジェンダ 1 RUNQRYをDelphi/400から利用しよう! 2 ファンクションキー/Tabキー入力を制御しよう! 3 ClientDataSetでグループ制御しよう! 4 CSVファイルをTableで読み込もう! 5 ExcelファイルをADOTableで読み込もう! お持ち帰りトピック : 開発で役立つショートカット機能 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 2

6 1 RUNQRY を Delphi/400 から利用しよう! 実行コマンド :RUNQRY Query の実行 RUNQRY QRY( ライブラリ名 /Query 名 ) 結果をファイル出力 OUTTYPE(*OUTFILE) OUTFILE(QTEMP/ 出力ファイル名 *FIRST *RPLFILE) 出力先ファイルの指定上書きできるように *RPLFILE を指定 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 6

8 1 RUNQRY を Delphi/400 から利用しよう! RUNQRY の実行 procedure TfrmT1.Button1Click(Sender: TObject); var LibraryName, QryName, RUNQRY : String; //Library 名, QRY 名, RUNQRY 実行文 begin tblqry.close; // 使用ファイルをClose LibraryName := EdtLIB.Text; // Library 名 QryName := EdtQRY.Text; // QRY 名 //RUNQRY 実行文の編集 //RUNQRYを実行してQTEMPにQRY 名の結果ファイルを作成 RUNQRY := ('RUNQRY QRY(' + LibraryName + '/' + QryName + ') ' + 'OUTTYPE(*OUTFILE) ' + 'OUTFILE(QTEMP/' + QryName + ' *FIRST *RPLFILE)'); //RUNQRYの実行 DMmain.As400.RemoteCmd(RUNQRY); //RUNQRY の実行結果ファイルを Table で取得 tblqry.tablename := 'QTEMP/' + QryName; tblqry.open; end; RUNQRY QRY( ライブラリ名 /Query 名 ) OUTTYPE(*OUTFILE) OUTFILE(QTEMP/ 出力ファイル名 *FIRST *RPLFILE) 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 8

9 1 RUNQRY を Delphi/400 から利用しよう! レコード選択が必要な場合対話で処理できないのでレコード選択の指定を行うことはできません条件が必要な場合は結果ファイルを読み込む際に次の方法で可能です 1 Filter プロパティで絞込む 2 Query コンポーネントなど SQL の条件付きで取得する 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 9

2 ファンクションキー入力を制御しよう! ファンクションキーを画面全体で受け取るには画面全体でファンクションキー入力を受け取るにはFormの OnKeyDownイベントが利用できる OnKeyPressイベントは文字キー入力で発生するのでファンクションキーは取得でません procedure TForm1.

13 2 ファンクションキー入力を制御しよう! ファンクションキーを画面全体で受け取るには画面全体でファンクションキー入力を受け取るにはFormの OnKeyDownイベントが利用できる OnKeyPressイベントは文字キー入力で発生するのでファンクションキーは取得でません procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage( Form でファンクションキーが押下されました '); end; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 13

15 2 ファンクションキー入力を制御しよう! これは次のようにフォーカスを持つ Edit 側で OnKeyDwon イベントを取得しているため procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage('Edit でファンクションキーが押下されました '); end; Form:OnKeyDown イベント発生なしキーが取得できない Edit:OnKeyDown イベント発生キーが取得できた 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 15

16 2 ファンクションキー入力を制御しよう! ただし画面のコンポーネントごとに入力キーの制御を組み込むと画面のコンポーネントごとに制御したい場合有効画面全体で同じ動作の場合プログラムが煩雑になるファンクションキー取得のイベントを一箇所に集約するためには次の手法があります 1Form の KeyPreview プロパティを True に設定する 2ActionList コンポーネントを利用する 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 16

キーボードイベントはアクティブコントロールで発生する前にフォームで発生する両方で発生するので順番に注意 (Form が先に発生 )

17 2 ファンクションキー入力を制御しよう! 手法 1 Form の KeyPreview プロパティ KeyPreview プロパティが True の場合キーボードイベントはアクティブコントロールで発生する前にフォームで発生する両方で発生するので順番に注意 (Form が先に発生 ) Form:OnKeyDown 1 イベント発生キーが取得できた Edit:OnKeyDown 2 イベント発生キーが取得できた 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 17

18 2 ファンクションキー入力を制御しよう! 入力されたファンクションキーを判断する仮想キー (VK_XX) を使用して押されたキーを判断すると便利 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin // 仮想キー (VK_XX) で判断 case Key of VK_F1:begin //F1 で実行したい処理を記述 ShowMessage('F1 キーが押下されました '); end; VK_F2:begin //F2 で実行したい処理を記述 ShowMessage('F2 キーが押下されました '); end; end; // 同様に使用したいキー判断を追記する end; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 18

19 2 ファンクションキー入力を制御しよう! 手法 2 ActionList コンポーネントを利用する ActionList コンポーネントを使うとユーザー操作に対する応答を一元化できる TActionList このリストにアクション (TAction) を追加する Form に配置してダブルクリックアクションの追加削除 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 19

21 2 ファンクションキー入力を制御しよう! Action でファンクションキーを設定 procedure TForm1.Action1Execute(Sender: TObject); begin //F1 で実行したい処理を記述 ShowMessage('F1 キーが押下されました ( アクション )'); end; Action:OnExecute イベント発生 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 21

22 2 Tab キー入力を制御しよう! Tab キーを取得するにはファンクションキー同様に手法 1 で考えると仮想キーで判断して処理できそうですが procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin // 仮想キー (VK_XX) で判断 case Key of VK_TAB:begin //TAB で実行したい処理を記述 ShowMessage( TAB キーが押下されました '); end; end; // 同様に使用したいキー判断を追記する end; イベント自体が発生しない 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 22

24 2 Tab キー入力を制御しよう! Tab キーのメッセージを未処理にする宣言部 private { Private declarations } public { Public declarations } protected procedure CMDialogKey(var msg: TCMDialogKey); Message CM_DIALOGKEY; protected として宣言実行部 procedure TForm1.CMDialogKey(var msg: TCMDialogKey); begin if (msg.charcode = VK_TAB) then begin // ここに直接 Tab 処理を書く場合は msg.result は 1( 処理済 ) に設定 msg.result := 0; // メッセージを処理したか 0: 未処理 1: 処理済 end else inherited; //Tab 以外は通常の処理 end; msg.result を 0( 未処理 ) にすることで OnKeyDown イベントが発生する 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 24

30 3 ClientDataSet でグループ制御しよう! ClientDataSet のグループ設定を使った算出 2Aggregate のプロパティを設定する Active を True に設定 AggeregateName を任意で設定 Expression に集計公式を設定 ( ここでは SUM で集計 ) 集計公式で使えるのは SUM: 合計 MIN : 最小値 MAX: 最大値 AVG: 平均 COUNT: カウント 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 30

31 3 ClientDataSet でグループ制御しよう! ClientDataSet のグループ設定を使った算出 3OnUpdate イベントで集計ロジックを記述する procedure TForm1.ClientDataSet1Aggregates0Update(Agg: TAggregate); Begin // 集計表示項目に Agg の Value を転送 LabelSUM.Caption := FormatFloat('#,#',Agg.Value); end; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 31

を作成するグループになるキー項目を IndexDef に設定するダブルクリックアイテムを追加 (IndexDef)

34 3 ClientDataSet でグループ制御しよう! ClientDataSet のグループ設定を使った表示制御 1ClientDataSet の IndexDef を作成するグループになるキー項目を IndexDef に設定するダブルクリックアイテムを追加 (IndexDef) Fields: グループ化する為のキー項目を設定 Grouplevel:1 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 34

作成した IndexDef を IndexName プロパティに設定するダブルクリックアイテムを追加 (Aggregate)

36 3 ClientDataSet でグループ制御しよう! ClientDataSet のグループ設定を使った表示制御 3 Aggregates プロパティで Aggregate を追加し作成した IndexDef を IndexName プロパティに設定するダブルクリックアイテムを追加 (Aggregate) Active:Ture Grouplevel:1 IndexName: 1 で作成した IndexDef 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 36

37 3 ClientDataSet でグループ制御しよう! ClientDataSet のグループ設定を使った表示制御 4ClientDataSet の対象のフィールドの OnGetText イベントでロジックを記述する procedure TForm1.ClientDataSet1COMPANYGetText(Sender: TField; var Text: string;displaytext: Boolean); begin inherited; // グループ初回 (gbfirst) だけ値を表示 if gbfirst in ClientDataSet1.GetGroupState(1) then Text := Sender.Value else Text := ''; end; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 37

40 4 CSV ファイルを Table で読み込もう! CSV ファイルを Table で読み込むには CSV ファイルを Table コンポーネントで読み込むには以下のようにプロパティを設定する DataBaseName: CSV ファイルのパス TableName: CSV ファイル名 TableType: ttascii 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 40

41 4 CSVファイルをTableで読み込もう! 例えば [ 地域店舗名住所電話番号 ] のデータを持つCSVファイルをそのまま読み込んでみる Sample.csv 北海道, 店, 札幌市区 1-1,xxx-xxx-xxxx 北海道, 店, 札幌市区 2-2,xxx-xxx-xxxx 北海道, 店, 札幌市区 3-3,xxx-xxx-xxxx 北海道, 店, 札幌市区 2-1,xxx-xxx-xxxx 北海道, 店, 札幌市区 1-4,xxx-xxx-xxxx 北海道, 店, 札幌市区 3-2,xxx-xxx-xxxx 北海道, 店, 札幌市区 1-1,xxx-xxx-xxxx 北海道, 店, 旭川市 1-2,xxx-xxx-xxxx 北海道, 店, 旭川市 4-2,xxx-xxx-xxxx 北海道, 店, 小樽市 3-3,xxx-xxx-xxxx 北海道, 店, 北見市 4-4,xxx-xxx-xxxx 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 41

42 4 CSV ファイルを Table で読み込もう! 問題点 CSV ファイルには DDS のようなフィールド定義がないので項目を正しく区分けして読み込めない CSV ファイル内容のフィールドを定義したスキーマファイルを用意する必要があるスキーマファイルとは,ASCII テーブルと DB との間でデータをやり取りする場合に使用し, テーブルの構造とその項目のデータ型に関する情報が入ったテキストファイル拡張子 SCH 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 42

43 4 CSV ファイルを Table で読み込もう! スキーマファイルの構造例 [SAMPLE] // ファイル名 ( 拡張子なし ) FILETYPE = Delimited // 形式 :Delimited または Fixed CHARSET = ascii // 言語ドライバ名 DELIMITER = // 文字項目の囲み文字 ( 省略可 ) SEPARATOR =, // 項目間の区切り文字 Field1 = REGION,CHAR,12,0,0 // 以下項目 ( フィールド ) 情報 Field2 = STORE,CHAR,10,0,13 Field3 = ADDR,CHAR,40,0,24 Field4 = TELNO,CHAR,12,0,65 スキーマファイル内の情報は, 大文字と小文字を区別する 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 43

44 4 CSV ファイルを Table で読み込もう! スキーマファイルの設定詳細 FILETYPE テキストファイルの形式として, Fixed ( 固定長テキスト ) または Delimited( カンマ付きテキスト ) のどちらかを指定 CHARSET 使用する言語ドライバの名前を指定 DELIMITER 各文字フィールド ( 英数字または文字 ) を囲む半角一文字を指定 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 44

45 4 CSV ファイルを Table で読み込もう! スキーマファイルの設定詳細 SEPARATOR 各項目を区切る半角の文字を一文字指定項目情報スキーマファイル概要 Field ( = 項目名, データ型, 文字数, 小数点以下桁数, 開始位置 ) テーブルの項目 ( 列 ) の属性を指定各行は FieldX = で開始ここで X は項目番号 (Field1,Field2 など ) 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 45

46 4 CSV ファイルを Table で読み込もう! スキーマファイルで使用できるデータ型 CHAR 文字 NUMBER BOOL LONGINT DATE TIME TIMESTAMP 64 ビット浮動小数点数論理値 (T または F) 32 ビット倍長整数日付型項目時刻型項目日付 + 時刻型項目 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 46

47 4 CSV ファイルを Table で読み込もう! スキーマファイルを CSV ファイルと同じパスに配置すると正しくフィールドを区切って読み込める Sample.csv 北海道, 店, 札幌市区 1-1,xxx-xxx-xxxx 北海道, 店, 札幌市区 2-2,xxx-xxx-xxxx 北海道, 店, 札幌市区 3-3,xxx-xxx-xxxx 北海道, 店, 札幌市区 2-1,xxx-xxx-xxxx 北海道, 店, 札幌市区 1-4,xxx-xxx-xxxx Sample.SCH 北海道, 店, 札幌市区 3-2,xxx-xxx-xxxx 北海道, 店, 札幌市区 1-1,xxx-xxx-xxxx 北海道 [Sample], 店, 旭川市 1-2,xxx-xxx-xxxx 北海道 FILETYPE, = 店 Delimited, 旭川市 4-2,xxx-xxx-xxxx 北海道 CHARSET, = 店 ascii, 小樽市 3-3,xxx-xxx-xxxx 北海道 SEPARATOR, 店, = 北見市, 4-4,xxx-xxx-xxxx Field1 = REGION,CHAR,12,0,0 Field2 = STORE,CHAR,10,0,13 Field3 = ADDR,CHAR,40,0,24 Field4 = TELNO,CHAR,12,0,65 CSV ファイルを DB ファイルとして読み込み 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 47

49 5 Excel ファイルを ADOTable で読み込もう! 同じように Excel を Table で読み込むことはできないか Excel を Table で読み込むためにはクライアントごとに PC 上の ODBC で設定が必要になるので ADO 接続を利用すると簡単に実現できる 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 49

5 Excel ファイルを ADOTable で読み込もう! プロバイダタブで [Microsoft Jet 4.

55 5 Excel ファイルを ADOTable で読み込もう! Sample$ のままアクセスするとエラーになるので Sheet 名を [] で囲って指定する例 )[Sample$] 接続設定が完成すると TableName プロパティに xls のシートがリスト表示されるようになる例 )Sample$ 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 55

お持ち帰りトピック開発で役立つショートカット機能知っているとコーディング効率が上がるショートカットをピックアップ

60 お持ち帰りトピック開発で役立つショートカット機能編集系ショートカット動作 Ctrl+/ 選択行に //( コメント ) 追加解除 (Delphi2005 以降で有効 ) Ctrl+I タブ文字を挿入 Ctrl+N 改行を挿入 Ctrl+Y 選択行を削除 Ctrl+Shift+I 選択されたブロックをインデント Ctrl+Shift+U 選択されたブロックのインデント解除 [Alt]+[Backspace] 元に戻す [Alt]+[Shift]+[Backspace] やり直し 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 60

61 お持ち帰りトピック開発で役立つショートカット機能移動系ショートカット Ctrl+ クリック Ctrl+Shift+ Ctrl+Shift+ Ctrl+ 数字キー (0~9 指定 ) Ctrl+Shift+ 数字キー (0~9 指定 ) Ctrl+PgDn Ctrl+PgUp 動作宣言部に移動宣言実装に相互移動宣言実装に相互移動ブックマーク位置に移動カーソル位置にブックマークを設定画面の最下部に移動画面の最上部に移動 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 61

62 お持ち帰りトピック開発で役立つショートカット機能その他ショートカット F1 F12 Ctrl+Shift+Enter Ctrl+Enter Ctrl+J Ctrl+F12 Ctrl+Shift+C Ctrl+Space 動作選択箇所のヘルプ検索フォームとその関連するユニットを切り替える選択内容の使用箇所を検索カーソル位置のファイルを開くテンプレートメニューを開くユニットのリストを表示クラス宣言に対応するクラス補完コード補完を開く 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 62

Embarcadero Developer Camp

Embarcadero Developer Camp T6 Delphi テクニカルセッション知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス 4.0 株式会社ミガロ. RAD 事業部技術支援課課長吉原泰介アジェンダミガロ. についてよくある問合せQ&A Q1. WEBサービスを利用するには? Q2. ガントチャートを実装するには? Q3. EXE 間でパラメータを受渡しするには? Q4. CSVファイルをTTableで読み込むには?