お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RE:担当者メンテ開発記"

この発言は
#01254 ぺけでび さんのRE:担当者メンテ開発記
に対するコメントです

この発言に対し以下のコメントが寄せられています
#01256 ぺけでび さん RE:担当者メンテ開発記

 コンポーネントをフォームに置いた場合のソースが以下です。 インスペクタの指定はしていますが、まだ何もコードは書いていま せん。  置いたコンポーネントは、テーブルが1つ、ラベルが3つエディ ットが2つです。 DB系のコンポを使わないのは、好みの問題です。 ゆえに、TDataSource は使いません。 FILE:PTANTOU.DPR program PTANTOU; uses Forms, UTANTOU in 'UTANTOU.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.  変わっていないな。 FILE:UTANTOU.DFM object Form1: TForm1 Left = 192 Top = 107 Width = 544 Height = 375 Caption = 'Form1' Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Pゴシック' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 12 object Label1: TLabel Left = 16 Top = 48 Width = 66 Height = 12 Caption = '担当者コード' end object Label2: TLabel Left = 16 Top = 80 Width = 48 Height = 12 Caption = '担当者名' end object Label3: TLabel Left = 96 Top = 16 Width = 4 Height = 12 end object Edit1: TEdit Left = 96 Top = 48 Width = 121 Height = 20 MaxLength = 2 TabOrder = 0 end object Edit2: TEdit Left = 96 Top = 80 Width = 121 Height = 20 MaxLength = 20 TabOrder = 1 end object Table1: TTable Active = True IndexName = 'CODE' TableName = 'TANTOU.DBF' Left = 480 Top = 8 end end  使ったコンポーネントの定義が追加されていますね。 FILE:UTANTOU.PAS unit UTANTOU; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables; type TForm1 = class(TForm) Table1: TTable; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} end.  コンポーネントを置いたせいで、usesの指定が増えていますね、 クラスの中にオブジェクトを参照するための変数も追加されていま すね。 くどいですが、この時点では何もコードを書いていません。  インスペクタで指定したのは、 TTable テーブル名とインデックス名、ActiveをTrueにした TLabel Caption のみ TEdit  Textのみ  Original document by ぺけでび 氏 ID:(YQJ03146)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum