unit6.pas

来自「delphi 考勤系统 没事做写的 在其他地方也能找到」· PAS 代码 · 共 69 行

unit Unit6;

interface

uses
  SysUtils, Classes, DBTables, DB,Forms;

type
  TData1 = class(TDataModule)
    renyuan: TDataSource;
    renyuan1: TTable;
    Query1: TQuery;
    chucai: TTable;
    chucai1: TDataSource;
    qinjia: TTable;
    qinjia1: TDataSource;
    jiaban: TTable;
    jiaban1: TDataSource;
    cqjl1: TDataSource;
    cqjl: TTable;
    DataSource1: TDataSource;
    qinjiaBDEDesigner: TAutoIncField;
    qinjiaBDEDesigner2: TSmallintField;
    qinjiaBDEDesigner3: TDateTimeField;
    qinjiaBDEDesigner4: TDateTimeField;
    qinjiaBDEDesigner5: TStringField;
    jiabanBDEDesigner: TAutoIncField;
    jiabanBDEDesigner2: TSmallintField;
    jiabanBDEDesigner3: TStringField;
    jiabanBDEDesigner4: TDateField;
    cqjlBDEDesigner: TAutoIncField;
    cqjlBDEDesigner2: TSmallintField;
    cqjlBDEDesigner3: TStringField;
    cqjlBDEDesigner4: TDateTimeField;
    chucaiBDEDesigner: TAutoIncField;
    chucaiBDEDesigner2: TSmallintField;
    chucaiBDEDesigner3: TDateField;
    chucaiBDEDesigner4: TDateField;
    renyuan1BDEDesigner: TSmallintField;
    renyuan1BDEDesigner2: TStringField;
    renyuan1BDEDesigner3: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data1: TData1;

implementation

{$R *.dfm}

procedure TData1.DataModuleCreate(Sender: TObject);
Var i:Integer;
begin
  For i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TDBDataSet then
    begin
      (Components[i] as TDBDataSet).DatabaseName:=ExtractFilePath(Application.ExeName);
    end;
  end;
end;

end.