⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 datatunit.pas

📁 工资管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    FieldDefs.Add('JL_JJ', ftFloat, 0, False);
    FieldDefs.Add('JL_CE', ftFloat, 0, False);
    FieldDefs.Add('JL_QT', ftFloat, 0, False);
    FieldDefs.Add('JT_XJ', ftFloat, 0, False);
    FieldDefs.Add('JT_GT', ftFloat, 0, False);
    FieldDefs.Add('JT_ZR', ftFloat, 0, False);
    FieldDefs.Add('JT_YB', ftFloat, 0, False);
    FieldDefs.Add('JT_JG', ftFloat, 0, False);
    FieldDefs.Add('JT_ST', ftFloat, 0, False);
    FieldDefs.Add('JT_KL', ftFloat, 0, False);
    FieldDefs.Add('JT_JH', ftFloat, 0, False);
    FieldDefs.Add('JT_GAT', ftFloat, 0, False);
    FieldDefs.Add('JT_7X', ftFloat, 0, False);
    FieldDefs.Add('JT_LY', ftFloat, 0, False);
    FieldDefs.Add('JT_LC', ftFloat, 0, False);
    FieldDefs.Add('JT_LJ', ftFloat, 0, False);
    FieldDefs.Add('JT_B9', ftFloat, 0, False);
    FieldDefs.Add('JT_HZ', ftFloat, 0, False);
    FieldDefs.Add('JT_FT', ftFloat, 0, False);
    FieldDefs.Add('JT_QT', ftFloat, 0, False);
    FieldDefs.Add('QT_JB', ftFloat, 0, False);
    FieldDefs.Add('QT_QT', ftFloat, 0, False);
    FieldDefs.Add('FG_WC', ftFloat, 0, False);
    FieldDefs.Add('FG_BJ', ftFloat, 0, False);
    FieldDefs.Add('YF', ftFloat, 0, False);
    FieldDefs.Add('KK_YL', ftFloat, 0, False);
    FieldDefs.Add('KK_GJ', ftFloat, 0, False);
    FieldDefs.Add('KK_QT1', ftFloat, 0, False);
    FieldDefs.Add('KK_QT2', ftFloat, 0, False);
    FieldDefs.Add('SFE', ftFloat, 0, False);
    FieldDefs.Add('JB_JS_D', ftFloat, 0, False);
    FieldDefs.Add('JB_JJ_D', ftFloat, 0, False);
    FieldDefs.Add('JB_NT_D', ftFloat, 0, False);
    FieldDefs.Add('JB_BJ_D', ftFloat, 0, False);
    FieldDefs.Add('JB_GS_D', ftFloat, 0, False);
    FieldDefs.Add('JB_HC_D', ftFloat, 0, False);
    FieldDefs.Add('JB_PY_D', ftFloat, 0, False);
    FieldDefs.Add('JT_XJ_D', ftFloat, 0, False);
    FieldDefs.Add('JT_YB_D1', ftFloat, 0, False);
    FieldDefs.Add('JB_YB_D2', ftFloat, 0, False);
    FieldDefs.Add('QT_JB_D', ftFloat, 0, False);
    FieldDefs.Add('FG_WC_D', ftFloat, 0, False);
    FieldDefs.Add('TCHJ', ftFloat, 0, False);
    FieldDefs.Add('RYSX', ftString, 20, False);
    FieldDefs.Add('zjjbkk', ftFloat, 0, False);
    FieldDefs.Add('zjsj', ftFloat, 0, False);
    FieldDefs.Add('zjkg', ftFloat, 0, False);
    CreateTable;
    Free;
  end;
end;

 { ************************** Create Procedure for Table unit ************************** }
Procedure CreateUnittable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'unit';
    TableType := ttdbase;
    FieldDefs.Add('UNITNO', ftString, 2, False);
    FieldDefs.Add('UNITNAME', ftString, 20, False);
    IndexDefs.Add('UNITNOIN', 'UNITNO', []);
    IndexDefs.Add('INDEX1', 'UNITNO', [ixUnique]);
    CreateTable;
    Free;
  end;
end;
 
  { ************************** Create Procedure for Table Xxk ************************** }
Procedure CreateXxktable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin 
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'Xxk';
    TableType := ttdbase;
    FieldDefs.Add('CODE', ftString, 5, False);
    FieldDefs.Add('GJM', ftString, 6, False);
    FieldDefs.Add('NAME', ftString, 20, False);
    FieldDefs.Add('XMDM', ftString, 10, False);
    FieldDefs.Add('TJ', ftString, 20, False);
    FieldDefs.Add('ZHICHENGLB', ftString, 4, False);
    FieldDefs.Add('BMNO', ftString, 5, False);
    FieldDefs.Add('JGKS', ftString, 4, False);
    FieldDefs.Add('SEX', ftString, 2, False);
    FieldDefs.Add('RIQI', ftString, 7, False);
    FieldDefs.Add('BZ_HJ', ftFloat, 0, False);
    FieldDefs.Add('BZ_GW', ftFloat, 0, False);
    FieldDefs.Add('BZ_JN', ftFloat, 0, False);
    FieldDefs.Add('JB_JS', ftFloat, 0, False);
    FieldDefs.Add('JB_JJ', ftFloat, 0, False);
    FieldDefs.Add('JB_JC', ftFloat, 0, False);
    FieldDefs.Add('JB_NT', ftFloat, 0, False);
    FieldDefs.Add('JB_BJ', ftFloat, 0, False);
    FieldDefs.Add('JB_GS', ftFloat, 0, False);
    FieldDefs.Add('JB_HC', ftFloat, 0, False);
    FieldDefs.Add('JB_BY', ftFloat, 0, False);
    FieldDefs.Add('JB_QT', ftFloat, 0, False);
    FieldDefs.Add('JL_JJ', ftFloat, 0, False);
    FieldDefs.Add('JL_CE', ftFloat, 0, False);
    FieldDefs.Add('JL_QT', ftFloat, 0, False);
    FieldDefs.Add('JT_XJ', ftFloat, 0, False);
    FieldDefs.Add('JT_GT', ftFloat, 0, False);
    FieldDefs.Add('JT_ZR', ftFloat, 0, False);
    FieldDefs.Add('JT_YB', ftFloat, 0, False);
    FieldDefs.Add('JT_JG', ftFloat, 0, False);
    FieldDefs.Add('JT_ST', ftFloat, 0, False);
    FieldDefs.Add('JT_KL', ftFloat, 0, False);
    FieldDefs.Add('JT_JH', ftFloat, 0, False);
    FieldDefs.Add('JT_GAT', ftFloat, 0, False);
    FieldDefs.Add('JT_7X', ftFloat, 0, False);
    FieldDefs.Add('JT_LY', ftFloat, 0, False);
    FieldDefs.Add('JT_LC', ftFloat, 0, False);
    FieldDefs.Add('JT_LJ', ftFloat, 0, False);
    FieldDefs.Add('JT_B9', ftFloat, 0, False);
    FieldDefs.Add('JT_HZ', ftFloat, 0, False);
    FieldDefs.Add('JT_FT', ftFloat, 0, False);
    FieldDefs.Add('JT_QT', ftFloat, 0, False);
    FieldDefs.Add('QT_JB', ftFloat, 0, False);
    FieldDefs.Add('QT_QT', ftFloat, 0, False);
    FieldDefs.Add('FG_WC', ftFloat, 0, False);
    FieldDefs.Add('FG_BJ', ftFloat, 0, False);
    FieldDefs.Add('YF', ftFloat, 0, False);
    FieldDefs.Add('KK_YL', ftFloat, 0, False);
    FieldDefs.Add('KK_GJ', ftFloat, 0, False);
    FieldDefs.Add('KK_QT1', ftFloat, 0, False);
    FieldDefs.Add('KK_QT2', ftFloat, 0, False);
    FieldDefs.Add('SFE', ftFloat, 0, False);
    FieldDefs.Add('JB_JS_D', ftFloat, 0, False);
    FieldDefs.Add('JB_JJ_D', ftFloat, 0, False);
    FieldDefs.Add('JB_NT_D', ftFloat, 0, False);
    FieldDefs.Add('JB_BJ_D', ftFloat, 0, False);
    FieldDefs.Add('JB_GS_D', ftFloat, 0, False);
    FieldDefs.Add('JB_HC_D', ftFloat, 0, False);
    FieldDefs.Add('JB_PY_D', ftFloat, 0, False);
    FieldDefs.Add('JT_XJ_D', ftFloat, 0, False);
    FieldDefs.Add('JT_YB_D1', ftFloat, 0, False);
    FieldDefs.Add('JB_YB_D2', ftFloat, 0, False);
    FieldDefs.Add('QT_JB_D', ftFloat, 0, False);
    FieldDefs.Add('FG_WC_D', ftFloat, 0, False);
    FieldDefs.Add('TCHJ', ftFloat, 0, False);
    FieldDefs.Add('RYSX', ftString, 20, False);
    FieldDefs.Add('GW', ftFloat, 0, False);
    FieldDefs.Add('JN', ftFloat, 0, False);
    CreateTable;
    Free;
  end;
end;

{ ************************** Create Procedure for Table Tzhk ************************** }
Procedure CreateTzhktable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin 
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'Tzhk';
    TableType := ttdbase;
    FieldDefs.Add('CODE', ftString, 5, False);
    FieldDefs.Add('GJM', ftString, 6, False);
    FieldDefs.Add('NAME', ftString, 20, False);
    FieldDefs.Add('XMDM', ftString, 10, False);
    FieldDefs.Add('TJ', ftString, 20, False);
    FieldDefs.Add('ZHICHENGLB', ftString, 4, False);
    FieldDefs.Add('BMNO', ftString, 5, False);
    FieldDefs.Add('JGKS', ftString, 4, False);
    FieldDefs.Add('SEX', ftString, 2, False);
    FieldDefs.Add('RYSX', ftString, 20, False);
    FieldDefs.Add('T_YEAR', ftString, 7, False);
    FieldDefs.Add('HJ', ftFloat, 0, False);
    FieldDefs.Add('GZZE', ftFloat, 0, False);
    FieldDefs.Add('JJZE', ftFloat, 0, False);
    FieldDefs.Add('WCZE', ftFloat, 0, False);
    FieldDefs.Add('GZ1', ftFloat, 0, False);
    FieldDefs.Add('GZ2', ftFloat, 0, False);
    FieldDefs.Add('GZ3', ftFloat, 0, False);
    FieldDefs.Add('GZ4', ftFloat, 0, False);
    FieldDefs.Add('GZ5', ftFloat, 0, False);
    FieldDefs.Add('GZ6', ftFloat, 0, False);
    FieldDefs.Add('GZ7', ftFloat, 0, False);
    FieldDefs.Add('GZ8', ftFloat, 0, False);
    FieldDefs.Add('GZ9', ftFloat, 0, False);
    FieldDefs.Add('GZ10', ftFloat, 0, False);
    FieldDefs.Add('GZ11', ftFloat, 0, False);
    FieldDefs.Add('GZ12', ftFloat, 0, False);
    FieldDefs.Add('JJ1', ftFloat, 0, False);
    FieldDefs.Add('JJ2', ftFloat, 0, False);
    FieldDefs.Add('JJ3', ftFloat, 0, False);
    FieldDefs.Add('JJ4', ftFloat, 0, False);
    FieldDefs.Add('JJ5', ftFloat, 0, False);
    FieldDefs.Add('JJ6', ftFloat, 0, False);
    FieldDefs.Add('JJ7', ftFloat, 0, False);
    FieldDefs.Add('JJ8', ftFloat, 0, False);
    FieldDefs.Add('JJ9', ftFloat, 0, False);
    FieldDefs.Add('JJ10', ftFloat, 0, False);
    FieldDefs.Add('JJ11', ftFloat, 0, False);
    FieldDefs.Add('JJ12', ftFloat, 0, False);
    FieldDefs.Add('WC0', ftFloat, 0, False);
    FieldDefs.Add('WC1', ftFloat, 0, False);
    FieldDefs.Add('WC2', ftFloat, 0, False);
    FieldDefs.Add('WC3', ftFloat, 0, False);
    FieldDefs.Add('WC4', ftFloat, 0, False);
    FieldDefs.Add('WC5', ftFloat, 0, False);
    FieldDefs.Add('WC6', ftFloat, 0, False);
    FieldDefs.Add('WC7', ftFloat, 0, False);
    FieldDefs.Add('WC8', ftFloat, 0, False);
    FieldDefs.Add('WC9', ftFloat, 0, False);
    FieldDefs.Add('WC10', ftFloat, 0, False);
    FieldDefs.Add('WC11', ftFloat, 0, False);
    FieldDefs.Add('WC12', ftFloat, 0, False);
    CreateTable;
    Free;
  end;
end;




procedure TDataT.DataTCreate(Sender: TObject);
begin
if not (fileexists(ExtractFileDir(Application.EXEName)+'\printls.dbf')) then
     Createprintlstable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\printtemp.dbf')) then
    Createprinttemptable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\xxk.dbf')) then
     Createxxktable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\lyk.dbf')) then
    Createlyktable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\unit.dbf')) then
//ShowMessage(ExtractFileDir(Application.EXEName)+'\unit.dbf');
     Createunittable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\bmk.dbf')) then
    Createbmktable(ExtractFileDir(Application.EXEName));
if not (fileexists(ExtractFileDir(Application.EXEName)+'\tzhk.dbf')) then
    Createtzhktable(ExtractFileDir(Application.EXEName));


   unittable1.DatabaseName:=ExtractFileDir(Application.EXEName);
   bmtable2.DatabaseName:=ExtractFileDir(Application.EXEName);
   table1.DatabaseName:=ExtractFileDir(Application.EXEName);
   table2.DatabaseName:=ExtractFileDir(Application.EXEName);
   table3.DatabaseName:=ExtractFileDir(Application.EXEName);
   table4.DatabaseName:=ExtractFileDir(Application.EXEName);
   table5.DatabaseName:=ExtractFileDir(Application.EXEName);
   table6.DatabaseName:=ExtractFileDir(Application.EXEName);



  end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -