unitdatamodule.pas

delphi基于工业控制的串口通讯

unit UnitDataModule;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB,Inifiles;

type
  Tfrm_DataModule = class(TDataModule)
    ADO_Connection: TADOConnection;
    ADO_QueryInsert: TADOQuery;
    ADO_QueryDelete: TADOQuery;
    ADO_QueryUpdate: TADOQuery;
    ADO_QuerySearch: TADOQuery;
    DataSource_Insert: TDataSource;
    DataSourceDelete: TDataSource;
    DataSourceUpdate: TDataSource;
    DataSourceSearch: TDataSource;
    ADO_QueryItem: TADOQuery;
    ADO_QueryOpen: TADOQuery;
    ADO_QueryClose: TADOQuery;
    ADO_QueryWarninfo: TADOQuery;
    ADO_QueryLogin: TADOQuery;
    ADO_QueryRight: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
//Const
  //  Connecting='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
var
  frm_DataModule: Tfrm_DataModule;

implementation

uses UnitConnectConfig;

{$R *.dfm}

procedure Tfrm_DataModule.DataModuleCreate(Sender: TObject);
var
    MyIni       : TIniFile;
    DBType      : String;
    DBName      : String;
    ServerName  : String;
    UserName    : String;
    UserPwd     : String;
    MyForm      : Tfrm_ConnectConfig;
begin
    screen.Cursor:=crHourGlass;
    Myini       :=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
    DBType      :=Myini.ReadString('DBConnectSet','DBType','');
    DBName      :=Myini.ReadString('DBConnectSet','DBName','');
    ServerName  :=Myini.ReadString('DBConnectSet','ServerName','');
    UserName    :=Myini.ReadString('DBConnectSet','UserName','');
    UserPwd     :=Myini.ReadString('DBConnectSet','UserPwd','');
    Myini.Free;
    if Trim(DBType)='' then
    begin
        screen.Cursor := crArrow;
        MyForm:=Tfrm_ConnectConfig.Create(self);
        MyForm.ShowModal;
        MyForm.Free;
        Application.Terminate;
    end
    else
    begin
        if Trim(DBType)='mdb' then
        begin
            ADO_Connection.Connected:=False;
            ADO_Connection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+ExtractFileDir(application.Exename)+'\'+DBName+';Persist Security Info=True';
            try
                ADO_Connection.Connected:=True;
            except
                screen.Cursor := crArrow;
                MyForm:=Tfrm_ConnectConfig.Create(self);
                MyForm.ShowModal;
                MyForm.Free;
                Application.Terminate;
            end;
        end
        else if Trim(DBType)='sql' then
        begin
            ADO_Connection.Connected:=False;
            ADO_Connection.ConnectionString:='Provider=SQLOLEDB.1;Password='+ UserPwd +';Persist Security Info=True;User ID='+ UserName +';Initial Catalog='+ DBName +';Data Source='+ServerName;
            try
                ADO_Connection.Connected:=True;
            except
                screen.Cursor := crArrow;
                MyForm:=Tfrm_ConnectConfig.Create(self);
                MyForm.ShowModal;
                MyForm.Free;
                Application.Terminate;
            end;
        end;
    end;
end;

end.