dm.~pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB,IniFiles,Windows, Messages, Variants,Graphics, Controls, Forms,
  Dialogs, StdCtrls, ahmtlabel, ahmtbackground, ExtCtrls, ahmtpanel,
  Buttons;

type
  TMyDM = class(TDataModule)
    CustQuery: TADOQuery;
    CustSrc: TDataSource;
    PolicyQuery: TADOQuery;
    PolicySrc: TDataSource;
    BillQuery: TADOQuery;
    BillSrc: TDataSource;
    ADOConnection1: TADOConnection;
    UserQuery: TADOQuery;
    InsQuery: TADOQuery;
    BeneQuery: TADOQuery;
    BeneSrc: TDataSource;
    DataSource1: TDataSource;
    ClassQuery: TADOQuery;
    ClassSrc: TDataSource;
    Query: TADOQuery;
    ModeQuery: TADOQuery;
    ModeSrc: TDataSource;
    UserSrc: TDataSource;
    InsSrc: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyDM: TMyDM;

implementation

uses dbset;

{$R *.dfm}

procedure TMyDM.DataModuleCreate(Sender: TObject);
var
    ini,iniW:TIniFile;
    State:boolean;
    CString:AnsiString;
    str,str1:AnsiString;
begin
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini := TIniFile.Create(ChangeFileExt('limis','.INI'));
    State := ini.ReadBool('Database','Connection',false); //读取数据库连接是否成功标志，第一次读
    //或者此项不存在时则返回默认值false赋State变量
    if not State then  //数据库没有连接成功
      try              //捕捉异常
        F_DBSet := TF_DBSet.Create(Application);  //动态创建数据库服务器配置窗体
        F_DBSet.ShowModal;                         //显示数据库服务器配置窗口
      except          //抛出异常
        on e:Exception do
        Application.ShowException(e);               //弹出异常对话框
      end;

    CString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=';  //字符串CString赋值
    str := ini.ReadString('Database','Initial Catalog','LIMIS'); //从配置文件读数据库名
    CString := CString+str;                //追加从配置文件读入的数据库名字符串
    str1 := ini.ReadString('Database','Data Source','JUNX');  //从配置文件读数据库服务器名
    CString := CString+';Data Source=';    //追加字符串到CString
    CString := CString+str1;               //追加从配置文件读入的数据库服务器名字符串
    MyDM.ADOConnection1.Connected := false;

    MyDM.ADOConnection1.ConnectionString := CString;  //数据库连接属性字符串赋新值
    try            //捕捉异常
      MyDM.ADOConnection1.Connected := true;  //启动与数据库服务器的连接
    except        //抛出异常
      ShowMessage('与数据库服务器连接未成功，请重新配置');
    end;

    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    iniW := TIniFile.Create(ChangeFileExt('limis','.INI'));
    State := MyDM.ADOConnection1.Connected;            //取得数据库连接是否成功标志值
    iniW.WriteBool('Database','Connection',State);  //将数据库连接是否成功标志值写入配置文件
end;

end.