prjhyyj.~dpr

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

(*******************************************************
 * 建立日期：2000年 07月 25日；
 * 作    者：王锡平
 * 最近更新时间：
 *******************************************************
 * 运行该模块所需的文件：
        所有的文件
 * 源程序包含的文件：
 *******************************************************
 * 主要完成功能及如何实现：
        工程文件
 * 详细设计：参见《XXX模块设计说明书》；
   1.先显示Splash窗口.创建数据模块，检查数据库连接，有问题退出并提示
   2.成功的话关闭Splash窗口
   3.创建登录窗口
   4.三次登录成功则关闭登录窗口，进入程序主界面；否则退出并提示

 * 本模块调用方法及调用入口：
 *******************************************************
 * 引用数据表：
 *******************************************************
 * 可推荐的创新技术应用：
 *******************************************************
 * 修改记录
 * =======
 * 修改日期：
 * 修改理由：
 * 被改的过程或函数：
*******************************************************)


program prjHYYJ;

uses
  Windows,
  Forms,
  SysUtils,
  DBTables,
  DB,
  Dialogs,
  uMain in 'uMain.pas' {frmMain},
  dMain in 'dMain.pas' {dfmMain: TDataModule},
  uCommon in 'uCommon.pas',
  uLoading in 'uLoading.pas' {frmLoading},
  uBaseTemp in '..\模板\uBaseTemp.pas' {frmBaseTemp},
  uInputTemp in '..\模板\uInputTemp.pas' {frmInputTemp},
  uCBDWWH in '..\综合管理\uCBDWWH.pas' {frmCBDWWH},
  uSBJGWH in '..\综合管理\uSBJGWH.pas' {frmSBJGWH},
  uLogin in 'uLogin.pas' {frmLogin},
  uEncrypt in 'uEncrypt.pas',
  uZZZGPLLR in '..\系统初始化\uZZZGPLLR.pas' {frmZZZGPLLR},
  uLTXDYPLSH in '..\系统初始化\uLTXDYPLSH.pas' {frmLTXDYPLSH},
  uToExcel in '..\公用模块\uToExcel.pas' {frmToExcel},
  uSimpleTemp in '..\公用模块\uSimpleTemp.pas' {frmSimpleTemp},
  uZZZGZC in '..\征收管理\uZZZGZC.pas' {frmZZZGZC},
  uZZZGSW in '..\征收管理\uZZZGSW.pas' {frmZZZGSW},
  uZZZGTB_XZ in '..\征收管理\uZZZGTB_XZ.pas' {frmZZZGTB_XZ},
  uJFBL in '..\系统初始化\uJFBL.pas' {frmJFBL},
  uDYTZWH in '..\待遇调整\uDYTZWH.pas' {frmDYTZWH},
  uCSDM in '..\系统维护\uCSDM.pas' {frmCSDM},
  uDWPJGZ in '..\系统维护\uDWPJGZ.pas' {frmDWPJGZ},
  uLLB in '..\系统维护\uLLB.pas' {frmLLB},
  uNJNDSBZGZ in '..\系统维护\uNJNDSBZGZ.pas' {frmNJNDSBZGZ},
  uSSPGZB in '..\系统维护\uSSPGZB.pas' {frmSSPGZB},
  uYHJGB in '..\系统维护\uYHJGB.pas' {frmYHJGB},
  uZZZGTB in '..\征收管理\uZZZGTB.pas' {frmZZZGTB},
  uXTCSWH in '..\系统维护\uXTCSWH.pas' {frmXTCSWH},
  uSearchDlg in '..\公用模块\uSearchDlg.pas' {frmSearchDlg},
  uLTXSCZM in '..\待遇审核\uLTXSCZM.pas' {frmLTXSCZM},
  uResultDlg in '..\公用模块\uResultDlg.pas' {frmResultDlg},
  uPrintTemp in '..\模板\uPrintTemp.pas' {frmPrintTemp},
  uYLDYZJTZ in '..\报表模块\uYLDYZJTZ.pas' {frmYLDYZJTZ},
  uZYHZB in '..\报表模块\uZYHZB.pas' {frmZYHZB},
  uZYHZB_1 in '..\报表模块\uZYHZB_1.pas' {frmZYHZB_1},
  uYLBXDYHD_CG in '..\报表模块\uYLBXDYHD_CG.pas' {frmYLBXDYHD_CG},
  uYLBXDYHD_CG_1 in '..\报表模块\uYLBXDYHD_CG_1.pas' {frmYLBXDYHD_CG_1},
  uYLBXDYHD_SW_1 in '..\报表模块\uYLBXDYHD_SW_1.pas' {frmYLBXDYHD_SW_1},
  uYLDYZZD in '..\报表模块\uYLDYZZD.pas' {frmYLDYZZD},
  uZYCXD in '..\报表模块\uZYCXD.pas' {frmZYCXD},
  uZYCXD_1 in '..\报表模块\uZYCXD_1.pas' {frmZYCXD_1},
  uYJCL in '..\综合管理\uYJCL.pas' {frmYJCL},
  uYLDYZZD_1 in '..\报表模块\uYLDYZZD_1.pas' {frmYLDYZZD_1},
  uDWHBBL in '..\系统维护\uDWHBBL.pas' {frmDWHBBL},
  uZYQD_1 in '..\报表模块\uZYQD_1.pas' {frmZYQD_1},
  uZYQD in '..\报表模块\uZYQD.pas' {frmZYQD},
  uSingleTemp in '..\公用模块\uSingleTemp.pas' {frmSingleTemp},
  uYLDYZJTZ_1 in '..\报表模块\uYLDYZJTZ_1.pas' {frmYLDYZJTZ_1},
  uYLDYZJTZ_2 in '..\报表模块\uYLDYZJTZ_2.pas' {frmYLDYZJTZ_2},
  uDYHDTZD in '..\报表模块\uDYHDTZD.pas' {frmDYHDTZD},
  uDYHDTZD_1 in '..\报表模块\uDYHDTZD_1.pas' {frmDYHDTZD_1},
  uZZZGXX in '..\征收管理\uZZZGXX.pas' {frmZZZGXX},
  uJFGL in '..\征收管理\uJFGL.pas' {frmJFGL},
  uZZZGZC_DY in '..\征收管理\uZZZGZC_DY.pas' {frmZZZGZC_DY},
  HTMLHelp_Decl in '..\公用模块\HTMLHELP_Decl.pas',
  uAbout in 'uAbout.pas' {frmAbout},
  uYLDYZZD_2 in '..\报表模块\uYLDYZZD_2.pas' {frmYLDYZZD_2},
  dLTXPLLR in '..\系统初始化\dLTXPLLR.pas' {dfmLTXPLLR: TDataModule},
  uLTXPLLR in '..\系统初始化\uLTXPLLR.pas' {frmLTXPLLR},
  dLTXRYXX in '..\待遇审核\dLTXRYXX.pas' {dfmLTXRYXX: TDataModule},
  uLTXRYXX in '..\待遇审核\uLTXRYXX.pas' {frmLTXRYXX},
  uCheckID in '..\公用模块\uCheckID.pas' {frmCheckID},
  uZZZGPLLR_rpt in '..\系统初始化\uZZZGPLLR_rpt.pas' {qrpZZZGJFXX: TQuickRep},
  uYZXX in '..\综合管理\uYZXX.pas' {frmTZXX},
  uRep_DWZJBD in '..\报表模块\uRep_DWZJBD.pas' {frmRep_DWZJBD},
  uYJTJ in '..\综合管理\uYJTJ.pas' {frmYJTJ},
  uFFDY in '..\综合管理\uFFDY.pas' {frmFFDY},
  uFFXTGL in '..\综合管理\uFFXTGL.pas' {frmFFXTGL},
  uRep_Rydy in '..\综合管理\uRep_Rydy.pas' {frmRep_Rydy},
  uDyhd_LCX in '..\系统初始化\uDyhd_LCX.pas' {frmDyhd_LCX},
  uDyhd in '..\系统初始化\uDyhd.pas' {frmDyhd},
  uDyhy_Dzd in '..\系统初始化\uDyhy_Dzd.pas' {frmDyhd_dzd};

{$R *.RES}

var
  qryTemp: TQuery;
  isLogin: Boolean;
  i: integer;

begin
  Application.Initialize;

  //  gfLogRecord('开始运行');
  Application.Title := '行业社保系统';
  //先显示Spalsh屏幕
  frmLoading := TfrmLoading.Create(nil);
  try
    //显示连接数据库状态
    frmLoading.Show;
    //刷新窗口，否则无法显示字符或图片
    frmLoading.Update;

    //接着创建数据模块，并连接数据库
    Application.CreateForm(TdfmMain, dfmMain);
  try
      //      dfmMain.dbsMain.Params.Values['PASSWORD'] := 'si2000';

      if not dfmMain.dbsMain.Connected then
        dfmMain.dbsMain.Connected := True;

    except
      on E: EDatabaseError do
      begin
        //如果没有连接成功,先关闭装载窗口。
        frmLoading.Close;
        //显示出错信息
  //        gfLogRecord(E.Message);
        gfShowError('数据库无法连接,请检查网络设置。');
        //并关闭
        Exit; //Application.Terminate;
      end;
    end;
  finally
    //最后必须关闭Loading 窗口
    //释放资源
    frmLoading.Free;
  end;

  qryTemp := TQuery.Create(nil);
  try
    //显示登录
    qryTemp.DataBaseName := dfmMain.dbsMain.DataBaseName;
    //月结
{
    qryTemp.SQL.Add('SELECT yjbz FROM tYLBXCS');
    qryTemp.Open;
    if qryTemp.FieldByName('yjbz').AsInteger <> 0 then
    begin
      gfShowError('数据库正在月结，暂时不能登录。请稍后进入...');
      Exit;
    end;
}
    qryTemp.Close;
    qryTemp.SQL.Clear;
    qryTemp.SQL.Add('Select * from tYHJBXX where DLM=:DLM');
    qryTemp.ParamByName('DLM').DataType := ftString;
    qryTemp.ParamByName('DLM').ParamType := ptInput;
    //显示窗口
    isLogin := False;
    i := 1;

    frmLogin := TfrmLogin.Create(nil);
    try
      while not isLogin do
        if i <= 3 then
        begin
          if frmLogin.ShowModal = IDOK then
          begin
            qryTemp.UnPrepare;
            qryTemp.ParamByName('DLM').AsString := Trim(frmLogin.edtName.Text);
            qryTemp.Prepare;
            qryTemp.Open;
            Inc(i);
            if qryTemp.RecordCount <> 0 then
            begin
            //如果用户被禁用
              if qryTemp.FieldByName('XB').AsInteger = 0 then
              begin
                frmLogin.Hide;
                gfShowError('用户已被禁用,请与系统管理员联系');
                Exit;
              end;

            //如果加密值与数据库中的密码相等的话,OK
              if (qryTemp.FieldByName('MM').AsString =
                Encrypt(frmLogin.edtPassword.Text))
                and (not qryTemp.EOF) then
              begin
                gsLoginName := frmLogin.edtName.Text;
                gsUserName := qryTemp.FieldByName('XM').AsString;
                gsZW := qryTemp.FieldByName('ZW').AsString;
                isLogin := True;
              end
              else
                frmLogin.lblResult.Caption := '错误的用户名或密码';
            end
            else
              frmLogin.lblResult.Caption := '错误的用户名或密码';

            qryTemp.Close;
          end
          else
            Exit;
        end
        else
          exit;
    finally
      frmLogin.Free;
    end;
  finally
    qryTemp.Free;
  end;


  if isLogin then
  begin
    //登录成功，显示窗口，并运行程序。
    Application.CreateForm(TfrmMain, frmMain);
    Application.Run;
  end
  else
  begin
    gfShowError(PChar('无法登录' + sPROGRAMTITLE + '!'));
    Exit;
  end;
  //  gfLogRecord('运行结束');
end.