datarsgl.pas

毕业设计时候开发的人事管理系统

unit datarsgl;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdmrsgl = class(TDataModule)
    adorsgl: TADOConnection;
    companyqry: TADOQuery;
    userqry: TADOQuery;
    ygjbzlqry: TADOQuery;
    ygsjgzzlqry: TADOQuery;
    ygkqtbqry: TADOQuery;
    kqsettimeqry: TADOQuery;
    adorsgl1: TADOConnection;
    ygbmqry: TADOQuery;
    ygmovetbqry: TADOQuery;
    ygwptbqry: TADOQuery;
    ygcttbqry: TADOQuery;
    ygkqywtbqry: TADOQuery;
    ADOqry_duteinfo: TADOQuery;
    adogzffbzqry: TADOQuery;
    adtxtimeqry: TADOQuery;
    ygmonthgzqry: TADOQuery;
    yeargztbqry: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmrsgl: Tdmrsgl;

implementation

{$R *.dfm}

procedure Tdmrsgl.DataModuleCreate(Sender: TObject);
var mypath:string;
begin
adorsgl.Connected:=False;
adorsgl.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;'+
'Data Source='+ExtractFilePath(paramstr(0))+'database\rsgl.mdb;';
adorsgl.Connected:=True;
end;

end.