dm.pas

很好用的一个票据管理系统

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDMData = class(TDataModule)
    ADOConnectionSet: TADOConnection;
    ADOQuerySetshow: TADOQuery;
    ADOConnectiondata: TADOConnection;
    ADOTable_dh: TADOTable;
    ADOTable_year: TADOTable;
    ADOTable_dhcacc: TWideStringField;
    ADOTable_dhcacc_name: TWideStringField;
    ADOTable_dhcacc_path: TWideStringField;
    ADOTable_dhdbegin: TDateTimeField;
    ADOTable_dhstate: TBooleanField;
    ADOTable_dhunc_path: TWideStringField;
    ADOTable_dhComputer: TWideStringField;
    ADOTable_yearAccountNum: TWideStringField;
    ADOTable_yeariYear: TIntegerField;
    ADOTable_yearFullPathName: TWideStringField;
    ADOTable_yearid: TAutoIncField;
    CreateHDADOQuery: TADOQuery;
    CreateUserADOQuery: TADOQuery;
    CreateYearADOQuery: TADOQuery;
    OpenZtADOQuery: TADOQuery;
    ADOTable_User: TADOTable;
    BmDataSource: TDataSource;
    BmADOQuery: TADOQuery;
    BjqlADOQuery: TADOQuery;
    ShowADOQuery: TADOQuery;
    BjqlDataSource: TDataSource;
    QcKqADOQuery: TADOQuery;
    QcKqDataSource: TDataSource;
    BjqlADOTable: TADOTable;
    BmADOTable: TADOTable;
    ADOTable_T_user: TADOTable;
    qqjjADOQuery: TADOQuery;
    qsjzADOQuery: TADOQuery;
    JzADOQuery: TADOQuery;
    openuserADOQuery: TADOQuery;
    GrADOQuery: TADOQuery;
    GrDataSource: TDataSource;
    KqADOQuery: TADOQuery;
    KqDataSource: TDataSource;
    KqMsADOQuery: TADOQuery;
    KqMsDataSource: TDataSource;
    kqeditADOQuery: TADOQuery;
    LyADOQuery: TADOQuery;
    LyDataSource: TDataSource;
    KqqsADOQuery: TADOQuery;
    EditADOQuery: TADOQuery;
    XhADOQuery: TADOQuery;
    XhDataSource: TDataSource;
    thkqADOQuery: TADOQuery;
    thkqDataSource: TDataSource;
    bmthADOQuery: TADOQuery;
    thADOQuery: TADOQuery;
    bmthDataSource: TDataSource;
    thDataSource: TDataSource;
    rqADOQuery: TADOQuery;
    GrQxADOQuery: TADOQuery;
    GrQxDataSource: TDataSource;
    leqxADOQuery: TADOQuery;
    leqxDataSource: TDataSource;
    kqqxADOQuery: TADOQuery;
    kqqxDataSource: TDataSource;
    xhqxADOQuery: TADOQuery;
    xhqxDataSource: TDataSource;
    bmkqqxADOQuery: TADOQuery;
    bmkqqxDataSource: TDataSource;
    ADOTable_Ver: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
      pjlenstr:string;
    pjlen:integer;
  end;

var
  DMData: TDMData;

implementation
uses windows,forms,createdata;
{$R *.dfm}

procedure TDMData.DataModuleCreate(Sender: TObject);
var
  CString,str:AnsiString;
  dir:string;
begin
  CString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
  dir:=ExtractFileDir(Application.ExeName);
  CString:=CString+dir;
  str:='\SetPjdb.mdb;Persist Security Info=False';
  CString:=CString+str;
  DMData.ADOConnectionSet.Connected := false;
  DMData.ADOConnectionSet.ConnectionString := cstring;
  try
   dmdata.ADOConnectionSet.Connected := true;  //启动与数据库服务器的连接
  dmdata.ADOTable_dh.Active:=true;
  dmdata.ADOTable_year.Active:=true;
  if  dmdata.ADOTable_dh.RecordCount< 1 then
  begin
    try              //捕捉异常
        createdataform := Tcreatedataform.Create(Application);  //动态创建数据库服务器配置窗体
        createdataform.ShowModal;
        createdataform.Free;                              //显示数据库服务器配置窗口
        DMData.ADOConnectionSet.Connected := false;
        DMData.ADOConnectionSet.ConnectionString := cstring;
        try
           dmdata.ADOConnectionSet.Connected := true;  //启动与数据库服务器的连接
           dmdata.ADOTable_dh.Active:=true;
           dmdata.ADOTable_year.Active:=true;
        except        //抛出异常
           Application.MessageBox('与数据库服务器连接未成功，请重新配置','警告对话框',MB_OK);
        end;
     except          //抛出异常
        on e:Exception do
       Application.ShowException(e);               //弹出异常对话框
      end;
  end;
  except        //抛出异常
      Application.MessageBox('与数据库服务器连接未成功，请重新配置','警告对话框',MB_OK);
  end;

end;

end.