datamd_pas.pas

一个考勤管理系统

unit datamd_pas;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADOCommand1: TADOCommand;
    ADOTable_xm: TADOTable;
    ADOTable_yg: TADOTable;
    ADOTable_xmck: TADOTable;
    ADOQuery1: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  user_id,user_name,user_jb,sysdata:string;
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.