datamod.pas

delpi数据可例子生产企业人力资源管理系统.rar 生产企业人力资源管理系统.rar

unit datamod;

interface

uses
  SysUtils, Classes, DB, ADODB, Windows;

type
  TDataModule1 = class(TDataModule)
    ADO_User: TADOTable;
    Data_office: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQ_office: TADOQuery;
    Data_chejian: TDataSource;
    ADOQ_chejian: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure Data_officeDataChange(Sender: TObject; Field: TField);
    procedure Data_chejianDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;
  Myname, Mypass, company:string;
implementation

{$R *.dfm}

uses main, office, chejian;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
                             +'datbase\rlzybase.dat;Persist Security Info=False';
  ado_user.TableName:='sys_user';
  try
    ado_user.Open;
  except
    MessageBox(0,'无法打开数据库','错误',MB_OK);
  end;
  Myname:=ado_user.Fields[1].AsString;
  Mypass:=ado_user.Fields[2].AsString;
  company:=ado_user.Fields[3].AsString;
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  ado_user.Close;
end;

procedure TDataModule1.Data_officeDataChange(Sender: TObject;
  Field: TField);
begin
  office_form.Label3.Caption:='当前记录：'+IntToStr(data_office.DataSet.RecNo);
  office_form.Label4.Caption:='记录总数：'+IntToStr(data_office.DataSet.RecordCount);
end;

procedure TDataModule1.Data_chejianDataChange(Sender: TObject;
  Field: TField);
begin
  chejian_form.Label3.Caption:='当前记录：'+IntToStr(data_chejian.DataSet.RecNo);
  chejian_form.Label4.Caption:='记录总数：'+IntToStr(data_chejian.DataSet.RecordCount);
end;

end.