📄 data.pas
字号:
unit Data;
interface
uses
SysUtils, Classes, DB, DBTables, ADODB;
type
TDataModule1 = class(TDataModule)
DataSource1: TDataSource;
Table1: TTable;
DataSource2: TDataSource;
DataSource5: TDataSource;
Table5: TTable;
DataSource6: TDataSource;
Table6: TTable;
DataSource7: TDataSource;
Table6EMPID: TStringField;
Table6StartDate: TDateField;
Table6EndDate: TDateField;
Table6ACHIEVESUVEY: TStringField;
Table6ENCOURAGE: TStringField;
Table6DEALSTATION: TStringField;
Table6ACHIEVENAME: TStringField;
Table6EMPNAME: TStringField;
Table5HTNUMBER: TStringField;
Table5HTTIMELIMIT: TStringField;
Table5StartDate: TDateField;
Table5VISEDate: TDateField;
Table5EndDate: TDateField;
Table5STOPREASON: TStringField;
Table5STOPBYDEPT: TStringField;
Table5STOPDate: TDateField;
Table1EMPID: TStringField;
Table1SEX: TStringField;
Table1BIRTHDAY: TDateField;
Table1IDCARD: TStringField;
Table1NATIVE: TStringField;
Table1JOBFROM: TDateField;
Table1JOBYEAR: TStringField;
Table1HOMEADDRESS: TStringField;
Table1TECHTITLE: TStringField;
Table1POSITIONTITLE: TStringField;
Table1MARRIAGE: TStringField;
Table1EDU: TStringField;
Table1POLITY: TStringField;
Table1NATION: TStringField;
Table1DEGREE: TStringField;
Table1ADMINPOSITION: TStringField;
Table1JOBKIND: TStringField;
Table1HEALTH: TStringField;
Table1JOBTYPE: TStringField;
Table1EMPSTATE: TStringField;
Table1POSTCLASS: TStringField;
Table1ADMINSIGN: TStringField;
Table1SPECIALITY: TStringField;
Table1CLANDATE: TDateField;
Table1FOREIGNLANGUAGE: TStringField;
Table1FOREIGNGRADE: TStringField;
Table1PHONE: TStringField;
Table1EMAIL: TStringField;
Table1OFFICE: TStringField;
Table1EMPNAME: TStringField;
Table1MOBILEPHONE: TStringField;
Table1ZIP: TStringField;
Table5EMPID: TStringField;
Table5EMPDEPT: TStringField;
Table5EMPNAME: TStringField;
Table6EMPDEPT: TStringField;
Table2: TTable;
Table2EMPID: TStringField;
Table2EDUDEGREE: TStringField;
Table2SPECIALITY: TStringField;
Table2SCHOOL: TStringField;
Table2GRADUATEDate: TDateField;
Table2SPECIALITY2: TStringField;
Table2SCHOOL2: TStringField;
Table2GRADUATEDate2: TDateField;
Table2EMPNAME: TStringField;
Table2EMPDEPT: TStringField;
Table1EMPDEPT: TStringField;
Table1ENTERDATE: TDateField;
Table1PHOTO: TStringField;
Table7: TTable;
Table7EMPID: TStringField;
Table7EMPNAME: TStringField;
Table7EMPDEPT: TStringField;
Table7PHOTO: TGraphicField;
Table4: TTable;
Table4StartDate: TDateField;
Table4EndDate: TDateField;
Table4TECHGRADE: TStringField;
Table4TECHPOSITION: TStringField;
Table4ADMINGRADE: TStringField;
Table4ADMINPOSITION: TStringField;
Table4JOBPOSITION: TStringField;
Table4JOBTYPE: TStringField;
Table4EMPID: TStringField;
Table4EMPNAME: TStringField;
Table4INDEPT: TStringField;
Table4INCORP: TStringField;
DataSource4: TDataSource;
Table3: TTable;
DataSource3: TDataSource;
Table3ManagerName: TStringField;
Table3PassWord: TStringField;
Table3UseDate: TDateField;
Table3UseTime: TTimeField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -