pro_enterprise.dpr

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

program Pro_Enterprise;

uses
  Forms,
  Controls,
  Windows,
  QDialogs,
  Main in 'Main.pas' {Form_main},
  Sflash in 'Sflash.pas' {Form_Sflash},
  Logon in 'Logon.pas' {Form_Logon},
  sharevar in 'sharevar.pas',
  sharefun in 'sharefun.pas',
  DATA in 'DATA.pas' {DataMod: TDataModule},
  About in 'About.pas' {Form_About},
  DBConfig in 'DBConfig.pas' {Form_DBConfig},
  order_info in 'order_info.pas' {Form_order_info},
  Absent_BOM in 'Absent_BOM.pas' {Form_Absent_BOM},
  Employee in 'Employee.pas' {Form_employee},
  Role in 'Role.pas' {Form_Role},
  SysFlag in 'SysFlag.pas' {Form_SysFlag},
  AdminEdit in 'AdminEdit.pas' {Form_AdminEdit},
  Admin in 'Admin.pas' {Form_Admin},
  ChangeKey in 'ChangeKey.pas' {Form_ChangeKey},
  Material_RK in 'Material_RK.pas' {Form_Material_RK},
  Material_KC in 'Material_KC.pas' {Form_Material_KC},
  Material_CK in 'Material_CK.pas' {Form_Material_CK},
  Fin_Product_RK in 'Fin_Product_RK.pas' {Form_Fin_Product_RK},
  Fin_Product_CK in 'Fin_Product_CK.pas' {Form_Fin_Product_CK},
  Fin_Product_KC in 'Fin_Product_KC.pas' {Form_Fin_Product_KC},
  Fin_Product_XS in 'Fin_Product_XS.pas' {Form_Fin_Product_XS},
  FinPro_XS_Query in 'FinPro_XS_Query.pas' {Form_FinPro_XS_Query},
  Payout in 'Payout.pas' {Form_Payout},
  Earning in 'Earning.pas' {Form_Earning},
  Borrow in 'Borrow.pas' {Form_Borrow},
  Search_orderSL in 'Search_orderSL.pas' {Frm_Search_orderSL},
  ColorSetup in 'ColorSetup.pas' {FrmColorSetup},
  CaiCangDan in 'CaiCangDan.pas' {FrmCaiCangDan},
  Earn in 'Earn.pas' {FrmFJEarn},
  Etp_Month_ACC in 'Etp_Month_ACC.pas' {Form_Etp_Month_ACC},
  Outbom_log in 'Outbom_log.pas' {Form_Outbom_log},
  Emp_Pay in 'Emp_Pay.pas' {Form_Emp_Pay},
  Sequence_price in 'Sequence_price.pas' {Form_seq_price},
  Outbom_Query in 'Outbom_Query.pas' {Form_Outbom_Query},
  material_info in 'material_info.pas' {Form_Material_info},
  EMPTJ_SHOUZHI_ALL in 'EMPTJ_SHOUZHI_ALL.pas' {FrmEMPTJ_SHOUZHI_ALL},
  EMPTJ_SHOUZHI_month in 'EMPTJ_SHOUZHI_month.pas' {FrmEMPTJ_SHOUZHI_month},
  Sysdata_manage in 'Sysdata_manage.pas' {frmSysdata_manage},
  PersonMainShouLU in 'PersonMainShouLU.pas' {FrmPersonMainShouLU},
  search_orderSL_detail in 'search_orderSL_detail.pas' {Frmsearch_orderSL_detail},
  EmpPay_Out in 'EmpPay_Out.pas' {Form_EmpPay_Out},
  Employee_Backup in 'Employee_Backup.pas' {Form_employee_Backup},
  ShareApi in 'ShareApi.PAS',
  Base_info in 'Base_info.pas' {Form_Base_info};

{$R *.res}
var
HWndHelp:HWND;
conHelpTitle:string;
CloseMe:boolean;

begin
  Application.Initialize;
  Form_Sflash:=TForm_Sflash.Create(Application);
  Form_Sflash.show;
  application.ProcessMessages;
  CloseMe:=false;
  conHelpTitle:='服装厂管理系统[D&&N Time SoftWare]';
  HWndHelp:=FindWindow(nil,pchar(conHelpTitle));
  if HwndHelp<>0 then
  begin
        SendMessage(HwndHelp,SW_SHOWNORMAL,0,0);
        application.Terminate; exit;
  end;
  Application.Title := '服装厂管理系统[D&&N Time SoftWare]';
  Application.CreateForm(TDataMod, DataMod);
  Application.CreateForm(TForm_Main, Form_Main);
  Application.CreateForm(TForm_Base_info, Form_Base_info);
  if Not datamod.OpenDatabase then
  begin
        Form_DBConfig:=TForm_DBConfig.Create(Application);
        if Form_DBConfig.ShowModal=mrCancel then
        begin
                Form_Sflash.Close;
                datamod.ADOCon.Close;
                CloseMe:=true;
                Application.Terminate;
        end
        else
        if Not datamod.OpenDatabase then
        begin
                Form_Sflash.Close;
                datamod.ADOCon.Close;
                CloseMe:=true;
                Application.Terminate;
        end;
  end;
  if not CloseMe then
  begin
    //取使用单位信息
    if not datamod.GetComPanyInf() then
    begin
        Form_Sflash.Close;
        datamod.ADOCon.Close;
        CloseMe:=true;
        Application.Terminate;
    end;  
    if not CloseMe then
    begin
      Form_Sflash.Close;
      Form_Logon:=TForm_Logon.Create(nil); 
      if Form_Logon.ShowModal=MrCancel then
      Application.Terminate;
    end;
  end;
  Application.Run;
end.