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

この発言に対し以下のコメントが寄せられています

#01256　ぺけでび        さん　RE:担当者メンテ開発記




　コンポーネントをフォームに置いた場合のソースが以下です。
インスペクタの指定はしていますが、まだ何もコードは書いていま
せん。

　置いたコンポーネントは、テーブルが１つ、ラベルが３つエディ
ットが２つです。　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 = 'ＭＳ Ｐゴシック'
  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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。