u_dm.pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit U_dm;

interface

uses
  SysUtils, Classes, ImgList, Controls,IniFiles, ADODB,DB,QDialogs;

type
  TDM = class(TDataModule)
    img_btn: TImageList;
    ADOConn: TADOConnection;
    m_clADOQry_Temp: TADOQuery;
    ADOPro: TADOStoredProc;
    ADOQ_MD: TADOQuery;
    ADOQ_SQY: TADOQuery;
    ADOQ_SP: TADOQuery;
    ADOQ_GYS: TADOQuery;
    ADOQ_GP: TADOQuery;
    ADOQ_KHFL: TADOQuery;
    ADOQ_SPYH: TADOQuery;
    ADOConnBD: TADOConnection;
    ADOQ_KHXX: TADOQuery;
    ADOQ_KHXSYQ: TADOQuery;
    ADOQ_JGDHCB: TADOQuery;
    m_clADOQryDB_Temp: TADOQuery;
    ADOQ_CZXSD: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
    Procedure ConnData();
    Procedure InitBtnImage();
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
{$R *.dfm}
uses UsysPub,UsysConst;
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  //连接数据库
  ConnData();
  //加载按钮图片
//  InitBtnImage();
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  AdoConn.Close;
end;
Procedure TDM.ConnData();
var
  MyIniFile: TIniFile;
  StrConnString,StrServerName,StrDataBase,StrUserId,StrPassword:String;
  StrIniPath,StrApplicatePath:String;
begin
  //连接数据库
  StrApplicatePath := GetApplicatePath();
//  AdoConn.ConnectionString:='';
//  AdoConn.Close;
  StrIniPath :=  StrApplicatePath + 'SysParam.ini';
  MyIniFile  := TIniFile.Create(StrIniPath);
  with MyIniFile do
  begin
      StrServerName := ReadString('DataBaseSet', 'ServerName', 'WY');
      StrDataBase   := ReadString('DataBaseSet', 'DataBase', 'WY');
      StrUserId     := ReadString('DataBaseSet', 'UserId', 'WY');
      StrPassword   := ReadString('DataBaseSet','Password', 'WY');
      strCZMD := ReadString('Other','Mdbh', 'WY');
      strCZMDMC := ReadString('Other','Mdmc', 'WY');
  end;
  MyIniFile.Free;
  StrConnString := 'Provider=SQLOLEDB.1; Password=' + StrPassword +
                   ';Persist Security Info=True;User ID='+ StrUserId +
                   ';Initial Catalog=' + StrDataBase +
                   ';Data Source=' + StrServerName;
  AdoConn.ConnectionString := StrConnString;
  Try
    AdoConn.Close;
    AdoConn.Open;
  Except
    ShowMessage('--连接数据库失败！---'+#13+'请查看SysParam.Ini配置是否正确');
    halt;
  End;
End;
Procedure TDM.InitBtnImage();
var
  MyIniFile: TIniFile;
  StrIniPath,StrApplicatePath:String;
  nskin:Integer;
begin
  //连接数据库
  StrApplicatePath := GetApplicatePath();
  StrIniPath :=  StrApplicatePath + 'SysParam.ini';
  MyIniFile  := TIniFile.Create(StrIniPath);
  with MyIniFile do
  begin
     nskin := ReadInteger('DataBaseSet', 'ServerName', 1);
  end;
  StrIniPath := StrIniPath + '\Img\Btn\'+IntToStr(nskin);
  MyIniFile.Free;
End;
end.