data.~pas

企业工资管理系统的代码实现主要包括五个功能模块在此不一一列举

unit Data;

interface

uses
  SysUtils, Classes, DB, ADODB,IniFiles;

type
  Tdm = class(TDataModule)
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;
  localstr: string;
  ServerName: string;
  DBName: string;
  UserName: string;
  UserPwd: string;
procedure ReadFromIni(); //读取配置文件信息
procedure LoginInDataBase();
implementation

{$R *.dfm}
uses DBConnect,MainForm;
procedure ReadFromIni();
var
    IniFile: TIniFile;
    FileName: string;
begin
    FileName := GetCurrentDir() + '\DB.ini';
    IniFile := TIniFile.Create(FileName);
    ServerName := IniFile.ReadString('DB', 'ServerName', '');
    DBName := IniFile.ReadString('DB', 'DatabaseName', '');
    UserName := IniFile.ReadString('DB', 'UserName', '');
    UserPwd := IniFile.ReadString('DB', 'Password', '');
    IniFile.Free;
end;

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  //
  LoginInDataBase;
end;
procedure LoginInDataBase();
var
    Connstr: string;
begin
    ReadFromIni;
    dm.ADOConnection1.Connected:=false;
    dm.ADOConnection1.LoginPrompt:=false;
    Connstr := 'Provider=SQLOLEDB.1;Password=' + UserPwd + ';Persist Security Info=True;User ID=';
    Connstr := Connstr + UserName + ';Initial Catalog=' + DBName + ';Data Source='+ ServerName;
    localstr := Connstr;
    dm.ADOConnection1.ConnectionString:=Connstr;
     //dm.adoconnection1.ConnectionString := Connstr;
    try
        dm.adoconnection1.Connected := true;
    except
        begin
          frmConnect := TfrmConnect.Create(nil);
          frmconnect.showmodal;
        end;
    end;

end;
end.