cgqpro.dpr

一个仓库管理中的子系统－－采购子系统

program cgqPro;

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  Menus,
  Grids,
  DBGrids,
  Db,
  DBTables,
  Buttons,
  StdCtrls,
  ExtCtrls,
  ImgList,
  cgqmainFrm in 'cgqmainFrm.pas' {mainForm},
  sqbinput in 'sqbinput.pas' {sqinputForm},
  sqquery in 'sqquery.pas' {sqcxForm},
  setupfrm1 in 'setupfrm1.pas' {setupForm1},
  Datamodule in 'Datamodule.pas' {DataModule1: TDataModule},
  sccgssb in 'sccgssb.pas' {jhssForm},
  sqbreport in 'sqbreport.pas' {sqbreportForm},
  ssbreport in 'ssbreport.pas' {ssbreportForm},
  bhgsqbreport in 'bhgsqbreport.pas' {bhgsqreportForm},
  ssbqr in 'ssbqr.pas' {ssbqrForm},
  jhydl in 'jhydl.pas' {jhydlForm},
  bhgsqbqr in 'bhgsqbqr.pas' {bhgsqbqrForm},
  TimeRange in 'TimeRange.pas' {TimeRangeForm},
  cghzrycx in 'cghzrycx.pas' {cghzrycxForm},
  cghzbcx in 'cghzbcx.pas' {cghzbForm},
  zdxsxz in 'zdxsxz.pas' {zdxsForm},
  ssbcx in 'ssbcx.pas' {ssbcxForm},
  rycxsz in 'rycxsz.pas' {rycxszForm},
  cpcxsz in 'cpcxsz.pas' {cpcxForm},
  sjcx in 'sjcx.pas' {sjcxForm},
  sqedit in 'sqedit.pas' {sqeditForm},
  sqappend in 'sqappend.pas' {sqappendForm},
  jhyxxcx in 'jhyxxcx.pas' {jhycxForm},
  wzsz in 'wzsz.pas' {wzszForm},
  ssbedit in 'ssbedit.pas' {ssbeditForm},
  jhyrwReport in 'jhyrwReport.pas' {jhyrwreportForm},
  cghzbreport in 'cghzbreport.pas' {cghzReportForm},
  dzbb in 'dzbb.pas' {dzbbForm},
  bhgsqbedit in 'bhgsqbedit.pas' {bhgsqbeditForm},
  cpxxcxsz in 'cpxxcxsz.pas' {wzxxcxForm},
  f_checkpassword_leo in 'f_checkpassword_leo.pas' {frm_checkpassword_leo},
  f_changepassword in 'f_changepassword.pas' {frm_changepassword},
  htgl in 'htgl.pas' {htlrForm},
  htglmk in 'htglmk.pas' {htglForm},
  htcx in 'htcx.pas' {htcxForm},
  htxg in 'htxg.pas' {htxgForm},
  httj in 'httj.pas' {httjForm},
  jfgs in 'jfgs.pas' {jfgsForm},
  cgzxqk in 'cgzxqk.pas' {cgzxqkForm},
  htReport in 'htReport.pas' {htReportForm},
  NeoForm in 'NEOFORM.pas' {zypNeoForm},
  cgzxqk_report in 'cgzxqk_report.pas' {cgzxqk_reportForm},
  jfgs_report in 'jfgs_report.pas' {jfgs_ReportForm},
  jhyxg in 'jhyxg.pas' {jhyxgForm},
  dhqkcx_form in 'dhqkcx_form.pas' {dhqk_Form},
  test_edit_src in 'test_edit_src.pas' {Form2};

{$R *.RES}
var
 flag_checkpassword:boolean=true;

begin
  Application.Initialize;
  Application.Title := '709所产品采购需求计划模块';
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TmainForm, mainForm);
  if flag_checkpassword then
      begin
      Application.CreateForm(Tfrm_checkpassword_leo, frm_checkpassword_leo);
      frm_checkpassword_leo.Showmodal;
      frm_checkpassword_leo.close;
      frm_checkpassword_leo.free;
      if (not ispasschecked) or (isquit<>'') then
        begin
        if (not ispasschecked) and (isquit='') then
          application.MessageBox('请输入正确的用户名和口令。','输入错误',mb_ok+mb_iconstop);
        mainForm.close;
        mainForm.free;
        datamodule1.free;
        application.Terminate;
       exit;
        end;
        end;
  Application.Run;
end.