Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
IbEmpF.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

Delphi

IbEmpF.pas：Code Content
  1. unit IbEmpF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, IBDatabase,
  8.   IBCustomDataSet, IBQuery, IBSQL;
  10. type
  11.   TFormEmp = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     DBNavigator: TDBNavigator;
  14.     Panel1: TPanel;
  15.     DataSource1: TDataSource;
  16.     Panel2: TPanel;
  17.     IBQuery1: TIBQuery;
  18.     IBDatabase1: TIBDatabase;
  19.     IBTransaction1: TIBTransaction;
  20.     IBQuery1EMP_NO: TIntegerField;
  21.     IBQuery1FIRST_NAME: TIBStringField;
  22.     IBQuery1LAST_NAME: TIBStringField;
  23.     IBQuery1PHONE_EXT: TIBStringField;
  24.     IBQuery1HIRE_DATE: TDateTimeField;
  25.     IBQuery1DEPT_NO: TIBStringField;
  26.     IBQuery1JOB_CODE: TIBStringField;
  27.     IBQuery1JOB_GRADE: TIntegerField;
  28.     IBQuery1JOB_COUNTRY: TIBStringField;
  29.     IBQuery1SALARY: TFloatField;
  30.     IBQuery1FULL_NAME: TIBStringField;
  31.     Label1: TLabel;
  32.     DBEdit1: TDBEdit;
  33.     Label2: TLabel;
  34.     DBEdit2: TDBEdit;
  35.     Label3: TLabel;
  36.     DBEdit3: TDBEdit;
  37.     Label4: TLabel;
  38.     DBEdit4: TDBEdit;
  39.     Label5: TLabel;
  40.     DBEdit5: TDBEdit;
  41.     Label6: TLabel;
  42.     DBEdit6: TDBEdit;
  43.     Label7: TLabel;
  44.     DBEdit7: TDBEdit;
  45.     Label8: TLabel;
  46.     DBEdit8: TDBEdit;
  47.     Label9: TLabel;
  48.     DBEdit9: TDBEdit;
  49.     Label10: TLabel;
  50.     DBEdit10: TDBEdit;
  51.     Label11: TLabel;
  52.     DBEdit11: TDBEdit;
  53.     procedure FormCreate(Sender: TObject);
  54.   private
  55.     { private declarations }
  56.   public
  57.     { public declarations }
  58.   end;
  60. var
  61.   FormEmp: TFormEmp;
  63. implementation
  65. {$R *.DFM}
  67. procedure TFormEmp.FormCreate(Sender: TObject);
  68. begin
  69.   IBQuery1.Open;
  70. end;
  72. end.