datamodule.pas

delphi＋sql编写的医院信息系统

unit DataModule;        //数据模块窗体单元

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection: TADOConnection;
    AT_Assis: TADOTable;
    DS_Assis: TDataSource;
    AQ_Person: TADOQuery;
    AQ_PersonPer_ID: TIntegerField;
    AQ_PersonPer_Name: TWideStringField;
    AQ_PersonPer_Bra: TWideStringField;
    AQ_PersonPer_Duty: TWideStringField;
    AQ_PersonPer_Tel: TWideStringField;
    AQ_PersonWork_Mon: TBooleanField;
    AQ_PersonWork_Tue: TBooleanField;
    AQ_PersonWork_Wen: TBooleanField;
    AQ_PersonWork_Thu: TBooleanField;
    AQ_PersonWork_Fri: TBooleanField;
    AQ_PersonWork_Sat: TBooleanField;
    AQ_PersonWork_Sun: TBooleanField;
    AQ_PersonMon_Name: TStringField;
    AQ_PersonTue_Name: TStringField;
    AQ_PersonWen_Name: TStringField;
    AQ_PersonThu_Name: TStringField;
    AQ_PersonFri_Name: TStringField;
    AQ_PersonSat_Name: TStringField;
    DS_Person: TDataSource;
    AT_Count: TADOTable;
    AT_CountCount_Name: TWideStringField;
    AT_CountCount_Value: TIntegerField;
    DS_Count: TDataSource;
    AT_OFWork: TADOTable;
    DS_OFWork: TDataSource;
    AQ_CDrug: TADOQuery;
    DS_CDrug: TDataSource;
    AQ_SQL: TADOQuery;
    AQ_PInputB: TADOQuery;
    DS_PInputB: TDataSource;
    DS_PInput: TDataSource;
    AQ_PKucun: TADOQuery;
    AQ_PKucunPK_No: TIntegerField;
    AQ_PKucunPK_INumber: TIntegerField;
    AQ_PKucunPK_ONumber: TIntegerField;
    AQ_PKucunPK_TNumber: TIntegerField;
    AQ_PKucunNo_Name: TStringField;
    AQ_PKucunNo_Kind: TStringField;
    AQ_PKucunNo_Unit: TStringField;
    DS_PKucun: TDataSource;
    DS_CReg: TDataSource;
    AT_CReg: TADOTable;
    DS_TCMoney: TDataSource;
    AT_CMoney: TADOTable;
    AT_CMoneyCM_ID: TIntegerField;
    AT_CMoneyCM_Name: TWideStringField;
    AT_CMoneyCM_Num: TIntegerField;
    AT_CMoneyCM_Price: TBCDField;
    AT_CMoneyCM_Tatol: TBCDField;
    DS_CMoney: TDataSource;
    AT_HReg: TADOTable;
    DS_HReg: TDataSource;
    ASP_HMIS: TADOStoredProc;
    AQ_PersonSun_Name: TStringField;
    AT_PInput: TADOTable;
    AT_PInputPIN_ID: TIntegerField;
    AT_PInputPIN_PID: TIntegerField;
    AT_PInputPIN_Name: TIntegerField;
    AT_PInputPIN_Kind: TWideStringField;
    AT_PInputPIN_Unit: TWideStringField;
    AT_PInputPIN_Company: TIntegerField;
    AT_PInputPIN_UPrice: TBCDField;
    AT_PInputPIN_Number: TIntegerField;
    AT_PInputPIN_TPrice: TBCDField;
    AT_PInputComp_Name: TStringField;
    AT_PInputName_Physic: TStringField;
    AT_PInputName_kind: TStringField;
    AT_PInputName_Unit: TStringField;
    AQ_TCMoney: TADOQuery;
    AQ_TCMoneyTCM_ID: TIntegerField;
    AQ_TCMoneyTCM_RID: TIntegerField;
    AQ_TCMoneyTCM_Name: TWideStringField;
    AQ_TCMoneyTCM_Date: TDateTimeField;
    AQ_TCMoneyTHM_Doctor: TWideStringField;
    AQ_TCMoneyTCM_WMDrug: TBCDField;
    AQ_TCMoneyTCM_CMDrug: TBCDField;
    AQ_TCMoneyTCM_HMDrug: TBCDField;
    AQ_TCMoneyTCM_MExam: TBCDField;
    AQ_TCMoneyTCM_MInject: TBCDField;
    AQ_TCMoneyTCM_MEmit: TBCDField;
    AQ_TCMoneyTCM_MDiag: TBCDField;
    AQ_TCMoneyTCM_MChem: TBCDField;
    AQ_TCMoneyTCM_MCure: TBCDField;
    AQ_TCMoneyTCM_MSurgery: TBCDField;
    AQ_TCMoneyTCM_MBlood: TBCDField;
    AQ_TCMoneyTCM_MOxygen: TBCDField;
    AQ_TCMoneyTCM_MOther: TBCDField;
    AQ_TCMoneyTCM_Total: TBCDField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses  Dialogs, Forms, IniFiles, Config, Windows, DatabaseConfig ;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var  {*****数据模块窗体创建事件*****}
    ini,iniW:TIniFile;
    State:boolean;
    CString:AnsiString;
    str,str1:AnsiString;
begin
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    Application.HelpFile :=  ExtractFilePath(Application.ExeName)+'Help\HELP_HMIS.HLP';  //帮助文件位置赋值
    ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    State := ini.ReadBool('Database','Connection',false); //读取数据库连接是否成功标志，第一次读或者此项不存在时则返回默认值false赋State变量
    if not State then  //数据库没有连接成功
      try              //捕捉异常
//        Application.MessageBox('您需要重新配置数据库服务器，点击确定进行配置操作', '提示', MB_ICONINFORMATION + MB_OK);
        if F_Config = nil then
          F_Config := TF_Config.Create(Application);  //动态创建数据库服务器配置窗体
        F_Config.ShowModal;                         //显示数据库服务器配置窗口
//        Application.MessageBox('你已经配置了数据库服务器，点击确定关闭本系统后，请重新运行', '提示', MB_ICONINFORMATION + MB_OK);
//        Application.Terminate;
      except          //抛出异常
        Application.MessageBox('打开数据库服务器配置窗口出错，请与软件供应商联系', '错误', MB_ICONERROR + MB_OK);               //弹出异常对话框
        Application.Terminate;        
      end;
    CString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=';  //字符串CString赋值
    str := ini.ReadString('Database','Initial Catalog','HMIS'); //从配置文件读数据库名
    CString := CString+str;                //追加从配置文件读入的数据库名字符串
    str1 := ini.ReadString('Database','Data Source','FLYYCS');  //从配置文件读数据库服务器名
    CString := CString+';Data Source=';    //追加字符串到CString
    CString := CString+str1;               //追加从配置文件读入的数据库服务器名字符串
    DM.ADOConnection.Connected := false;
    DM.ADOConnection.ConnectionString := CString;  //数据库连接属性字符串赋新值
    try            //捕捉异常
      DM.ADOConnection.Connected := true;  //启动与数据库服务器的连接
//      AT_Assis.Active := true;          //激活各个数据表与服务器的连接
      AT_Count.Active := true;  //计数表
      AT_OFWork.Active := true;  //工作、休息代码表
      AT_PInput.Active := true;
      AT_CReg.Active := true;
      AT_CMoney.Active := true;
      AT_HReg.Active := true;
      AQ_CDrug.Active := true;
      AQ_Person.Active := true;
      AQ_PInputB.Active := true;
      AQ_PKucun.Active := true;
      AQ_TCMoney.Active := true;
    except        //抛出异常
      ShowMessage('与数据库服务器连接未成功，请重新配置');
    end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    iniW := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    State := DM.ADOConnection.Connected;            //取得数据库连接是否成功标志值
    iniW.WriteBool('Database','Connection',State);  //将数据库连接是否成功标志值写入配置文件
    if State = false then
      Application.Terminate;
end;

end.