home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / D3TRIAL / INSTALL / DATA.Z / CLSEXM1.PAS < prev    next >
Pascal/Delphi Source File  |  1997-05-07  |  2KB  |  81 lines
  1. unit clsexm1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Mask;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     TabControl1: TTabControl;
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     Table1EmpNo: TIntegerField;
  15.     Table1LastName: TStringField;
  16.     Table1FirstName: TStringField;
  17.     Table1PhoneExt: TStringField;
  18.     Table1HireDate: TDateTimeField;
  19.     Table1Salary: TFloatField;
  20.     Label1: TLabel;
  21.     DBEdit1: TDBEdit;
  22.     Label2: TLabel;
  23.     DBEdit2: TDBEdit;
  24.     Label3: TLabel;
  25.     DBEdit3: TDBEdit;
  26.     Label4: TLabel;
  27.     DBEdit4: TDBEdit;
  28.     Label5: TLabel;
  29.     DBEdit5: TDBEdit;
  30.     Label6: TLabel;
  31.     DBEdit6: TDBEdit;
  32.     DBText1: TDBText;
  33.     Table1FullName: TStringField;
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure TabControl1Change(Sender: TObject);
  36.     procedure Table1CalcFields(DataSet: TDataSet);
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TForm1.FormCreate(Sender: TObject);
  47. begin
  48.   TabControl1.Align := alClient;
  49.   TabControl1.TabHeight := 30;
  50.   with Table1 do
  51.   begin
  52.     Close;
  53.     IndexName := 'ByName';
  54.     Open;
  55.     while not EOF do
  56.     begin
  57.       TabControl1.Tabs.Add(FieldByName('LASTNAME').AsString);
  58.       Next;
  59.     end;
  60.     // ページとテーブルを同期させる
  61.     First;
  62.   end;
  63. end;
  64.  
  65. procedure TForm1.TabControl1Change(Sender: TObject);
  66. begin
  67.   with TabControl1 do
  68.   begin
  69.     if TabIndex <> -1 then
  70.       if not Table1.Locate('LASTNAME', Tabs[TabIndex], []) then
  71.         ShowMessage(Tabs[TabIndex -1] + ' not found.');
  72.   end;
  73. end;
  74.  
  75. procedure TForm1.Table1CalcFields(DataSet: TDataSet);
  76. begin
  77.   DataSet['FullName'] := DataSet['LASTNAME'] + ', ' + DataSet['FIRSTNAME'];
  78. end;
  79.  
  80. end.
  81.