dmfrom.pas

来自「人事管理系统 开发工具是VB+access 比较简单」· PAS 代码 · 共 53 行

unit DMFrom;

interface

uses
  SysUtils, Classes, DB, ADODB,forms;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    self: TADOTable;
    ds_self: TDataSource;
    stu: TADOTable;
    da_stu: TDataSource;
    work: TADOTable;
    da_work: TDataSource;
    pa: TADOTable;
    da_pa: TDataSource;
    jc: TADOTable;
    da_jc: TDataSource;
    fz: TADOTable;
    da_fz: TDataSource;
    temp: TADOQuery;
    da_adosel: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
    procedure tempAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
uses JBZLFrom,count;
{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var i:integer;
begin
ADOConnection1.ConnectionString := 'Data Source=' + ExtractFilePath(Application.ExeName) + 'db1.Mdb';
ADOConnection1.Connected:=true;
end;

procedure TDM.tempAfterOpen(DataSet: TDataSet);
begin
//count.Form2.Label51.Caption:=dm.temp.FieldValues['birthday'];
end;

end.