datatunit.pas

工资管理系统

unit DataTUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDataT = class(TDataModule)
    UnitTable1: TTable;
    D1: TDataSource;
    D2: TDataSource;
    BmTable2: TTable;
    Table3: TTable;
    D3: TDataSource;
    Table4: TTable;
    D4: TDataSource;
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    DataSource2: TDataSource;
    Table5: TTable;
    DataSource3: TDataSource;
    Table6: TTable;
    DataSource4Tzh: TDataSource;
    procedure DataTCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataT: TDataT;

implementation

{$R *.DFM}
{ ************************** Create Procedure for Table printls ************************** }
Procedure CreatePrintlstable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'printls';
    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('zjjbkk', ftFloat, 0, False);
    FieldDefs.Add('zjsj', ftFloat, 0, False);
    FieldDefs.Add('zjkg', ftFloat, 0, False);
    CreateTable;
    Free;
  end;
end;
 { ************************** Create Procedure for Table printtemp ************************** }
Procedure CreatePrinttemptable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin 
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'printtemp';
    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('zjjbkk', ftFloat, 0, False);
    FieldDefs.Add('zjsj', ftFloat, 0, False);
    FieldDefs.Add('zjkg', ftFloat, 0, False);
    CreateTable;
    Free;
  end;
end;

{ ************************** Create Procedure for Table BmK ************************** }
Procedure CreateBmktable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin 
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'BmK';
    TableType := ttdbase;
    FieldDefs.Add('BMNO', ftString, 5, False);
    FieldDefs.Add('BMNAME', ftString, 20, False);
    FieldDefs.Add('UNITNO', ftString, 2, False);
    IndexDefs.Add('INDEX1', 'BMNO', [ixUnique]);
    IndexDefs.Add('BMBMNO', 'BMNO', []);
    IndexDefs.Add('BMUNITNO', 'UNITNO', []);
    CreateTable;
    Free;
  end;
end;

  { ************************** Create Procedure for Table lyk ************************** }
Procedure CreateLyktable(PathToTable : String);
begin
  with TTable.Create(Application) do
  begin 
    Active := False;
    DatabaseName := PathToTable;
    TableName := 'lyk';
    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);