bargain.dpr

书籍类别（种类编号

program bargain;

uses
  Forms,
  Dialogs,
  Controls,
  Registry,
  Windows,
  main in 'main.pas' {MainForm},
  login in 'login.pas' {LoginForm},
  ConBrowse in 'ConBrowse.pas' {ConForm},
  DBM in 'DBM.pas' {DM: TDataModule},
  inc in 'inc.pas',
  conf in 'conf.pas' {ConfigForm},
  SystemLog in 'SystemLog.pas' {SystemForm},
  ConstructUnit in 'ConstructUnit.pas' {construct},
  AddConForm in 'AddConForm.pas' {AddContract},
  SetPass in 'SetPass.pas' {SetPassForm},
  banben in 'banben.pas' {bbForm},
  SetConClass in 'SetConClass.pas' {SetConForm},
  wait in 'wait.pas' {waitForm},
  printf in 'printf.pas' {PrintForm},
  WaitPas1 in 'WaitPas1.pas',
  excel in 'excel.pas' {setexcel},
  vRegistry in 'vRegistry.pas' {vRegForm},
  progress in 'progress.pas' {ProgressForm},
  HZUnit in 'HZUnit.pas',
  am_dz_cxs in 'am_dz_cxs.pas' {am_dz_cx};

{$R *.res}

var
  //定义注册表对象变量
  vReg:TRegistry;
begin
  //创建注册表对象实例
  vReg:=TRegistry.Create;
  //获取注册表的列项
  vReg.RootKey :=HKEY_LOCAL_MACHINE;
  //打开指定的目录，如果没有该目录，不允许创建
  vReg.OpenKey('SoftWare\Microsoft\Microsoft Access',False);
  //判断指定的变量名是否存在
  if vReg.ValueExists('scllong') then
    //获取该键值
    ConnStr:=vReg.ReadString('scllong')
     else
     ConnStr:='';
    // ConnStr:='Provider=SQLOLEDB.1;Password=usa911;Persist Security Info=True;User ID=sa;Initial Catalog=bargain;Data Source=ZY-XR9BVLFMQCWX\SERVER';

  //初始化应用程序
  Application.Initialize;
  //设置应用程序的标题
  Application.Title :=' 合同管理';
  //创建主程序窗体，即多文档窗体的父窗体
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TwaitForm, waitForm);
  Application.CreateForm(TvRegForm, vRegForm);
  Application.CreateForm(TProgressForm, ProgressForm);
  if ConnStr='' then begin
    //创建配置数据库窗体
    ConfigForm:=TConfigForm.Create(Application);
    //打开该窗体，并以模态窗体显示
    ConfigForm.ShowModal;
  end;
  //判断连接的字符串是否为空
  if ConnStr='' then begin
    //该系统停止执行
    Application.Terminate;
    //退出该系统
    Application.Run;
  end;
  if ConnStr<>'' then
  try
    //创建数据模块窗体，尝试与数据库服务器的连接
    Application.CreateForm(TDM,DM);
  except
    //失败时，提示出错信息
    MessageDlg('对不起，在创建数据库或数据表过程中出现错误，请与本软件开发人员联系。', mtInformation,[mbOk], 0);
    //清空变量
    ConnStr:='';
    //往注册表写信息
    vReg.WriteString('scllong',ConnStr);
    //关闭注册表对象
    vReg.CloseKey;
    //释放该对象
    vReg.Free;
    //系统停止运行
    Application.Terminate;
    //退出系统
    Application.Run;
  end;
  //数据连接字符串不为空时
  if ConnStr<>'' then begin
    //创建用户身份验证窗体
   loginForm:=TloginForm.Create(Application);
    //打开身份验证窗体，并以模态方式显示该窗体
   RegOrNot;//试用办
   loginForm.ShowModal;
    //判断用户的ID是否为空
     if UserName='' then begin
      Application.Terminate;
      Application.Run;
      end;
    end;

  vReg.CloseKey;
  //释放该对象
  vReg.Free;
  //执行应用程序
  Application.Run;
end.