jdmis.dpr

河南师范大学餐饮进销存软件,只要控制库存的数据。

program JDMis;

uses
  Forms,
  Controls,
  Windows,
  SysUtils,
  md5 in 'md5.pas',
  u_Login in 'u_Login.pas' {frmLogin},
  u_DataCtrl in 'u_DataCtrl.pas' {frmDataCtrl},
  u_ODBCReg in 'u_ODBCReg.pas' {frmODBCReg},
  u_ShareFun in 'u_ShareFun.pas',
  u_Main in 'u_Main.pas' {frmMain},
  u_Reg in 'u_Reg.pas' {frmReg},
  U_Repass in 'U_Repass.pas' {frmrepass},
  u_UserMain in 'u_UserMain.pas' {frmUserMain},
  u_UserAdd in 'u_UserAdd.pas' {frmUserAdd},
  u_UserEdit in 'u_UserEdit.pas' {frmUserEdit},
  u_ClassAdd in 'u_ClassAdd.pas' {frmClassAdd},
  u_ClassEdit in 'u_ClassEdit.pas' {frmClassEdit},
  u_ClassMain in 'u_ClassMain.pas' {frmClassMain},
  u_CustomerAdd in 'u_CustomerAdd.pas' {frmCustomerAdd},
  u_CustomerEdit in 'u_CustomerEdit.pas' {frmCustomerEdit},
  u_CustomerMain in 'u_CustomerMain.pas' {frmCustomerMain},
  u_GoodsAdd in 'u_GoodsAdd.pas' {frmGoodsAdd},
  u_GoodsEdit in 'u_GoodsEdit.pas' {frmGoodsEdit},
  u_GoodsInfo in 'u_GoodsInfo.pas' {frmGoodsInfo},
  u_Supply in 'u_Supply.pas' {frmSupplyInfo},
  u_SupplyAdd in 'u_SupplyAdd.pas' {frmSupplyAdd},
  u_SupplyEdit in 'u_SupplyEdit.pas' {frmSupplyEdit},
  u_PayMent in 'u_PayMent.pas' {frmPayMent},
  u_SupAlert in 'u_SupAlert.pas' {frmSupAlert},
  u_Charge in 'u_Charge.pas' {frmCharge},
  u_CusAlert in 'u_CusAlert.pas' {frmCusAlert},
  u_OtherCharge in 'u_OtherCharge.pas' {frmOtherCharge},
  u_OtherChargeAdd in 'u_OtherChargeAdd.pas' {frmOtherChargeAdd},
  u_OtherChargeEdit in 'u_OtherChargeEdit.pas' {frmOtherChargeEdit},
  u_InOutClass in 'u_InOutClass.pas' {frmInOutClass},
  u_InOutClassAdd in 'u_InOutClassAdd.pas' {frmInOutClassAdd},
  u_InOutClassEdit in 'u_InOutClassEdit.pas' {frmInOutClassEdit},
  u_StockAccount in 'u_StockAccount.pas' {frmStockAccount},
  u_SupAccount in 'u_SupAccount.pas' {frmSupAccount},
  u_CusAccount in 'u_CusAccount.pas' {frmCusAccount},
  u_ChooseGoodsInfo in 'u_ChooseGoodsInfo.pas' {frmChooseGoodsInfo},
  u_ChooseGoodsOut in 'u_ChooseGoodsOut.pas' {frmChooseGoods},
  u_GoodsInStock in 'u_GoodsInStock.pas' {frmGoodsInStock},
  u_GoodsOutStock in 'u_GoodsOutStock.pas' {frmGoodsOutStock},
  u_OtherChargeQRY in 'u_OtherChargeQRY.pas' {frmOtherChargeQry},
  u_CusMonStat in 'u_CusMonStat.pas' {frmCusMonStat},
  u_SupMonStat in 'u_SupMonStat.pas' {frmSupMonStat},
  u_CusSearch in 'u_CusSearch.pas' {frmCusSearch},
  u_InDetailQRY in 'u_InDetailQRY.pas' {frmInDetailQRY},
  u_OutDetailQRY in 'u_OutDetailQRY.pas' {frmOutDetailQRY},
  u_GoodsStockSearch in 'u_GoodsStockSearch.pas' {frmGoodsStockSearch},
  u_UserGrant in 'u_UserGrant.pas' {frmUserGrant},
  u_CashAccount in 'u_CashAccount.pas' {frmCashAccount},
  u_InMasterStat in 'u_InMasterStat.pas' {frmInMasterStat},
  u_OutMasterStat in 'u_OutMasterStat.pas' {frmOutMasterStat},
  u_GoodsOutRep in 'u_GoodsOutRep.pas' {frmGoodsOutRep},
  u_SupSearch in 'u_SupSearch.pas' {frmSupSearch},
  u_GoodsInRep in 'u_GoodsInRep.pas' {frmGoodsInRep},
  u_GoodsStockRep in 'u_GoodsStockRep.pas' {frmGoodsStockRep},
  u_InStatRep in 'u_InStatRep.pas' {frmInStatRep},
  u_InDetailRep in 'u_InDetailRep.pas' {frmInDetailRep},
  u_OutStatRep in 'u_OutStatRep.pas' {frmOutStatRep},
  u_OutDetailRep in 'u_OutDetailRep.pas' {frmOutDetailRep};

{$R *.res}
var
    hMutex:HWND;
    Ret:Integer;
begin
  Application.Initialize;
  Application.Title := '河南师范大学后勤服务集团----餐饮库存管理软件';
  hMutex:=CreateMutex(nil,False,'河南师范大学后勤服务集团----餐饮库存管理软件');
  Ret:=GetLastError;
  If Ret<>ERROR_ALREADY_EXISTS Then  
    begin
      Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmDataCtrl, frmDataCtrl);
  Application.CreateForm(TfrmODBCReg, frmODBCReg);
  Application.CreateForm(TfrmReg, frmReg);
  Application.CreateForm(TfrmUserAdd, frmUserAdd);
  Application.CreateForm(TfrmUserEdit, frmUserEdit);
  Application.CreateForm(TfrmClassAdd, frmClassAdd);
  Application.CreateForm(TfrmClassEdit, frmClassEdit);
  Application.CreateForm(TfrmCustomerAdd, frmCustomerAdd);
  Application.CreateForm(TfrmCustomerEdit, frmCustomerEdit);
  Application.CreateForm(TfrmGoodsAdd, frmGoodsAdd);
  Application.CreateForm(TfrmGoodsEdit, frmGoodsEdit);
  Application.CreateForm(TfrmSupplyAdd, frmSupplyAdd);
  Application.CreateForm(TfrmSupplyEdit, frmSupplyEdit);
  Application.CreateForm(TfrmOtherChargeAdd, frmOtherChargeAdd);
  Application.CreateForm(TfrmOtherChargeEdit, frmOtherChargeEdit);
  Application.CreateForm(TfrmInOutClassAdd, frmInOutClassAdd);
  Application.CreateForm(TfrmInOutClassEdit, frmInOutClassEdit);
  Application.CreateForm(TfrmChooseGoodsInfo, frmChooseGoodsInfo);
  Application.CreateForm(TfrmChooseGoods, frmChooseGoods);
  Application.CreateForm(TfrmCusSearch, frmCusSearch);
  Application.CreateForm(TfrmUserGrant, frmUserGrant);
  Application.CreateForm(TfrmGoodsOutRep, frmGoodsOutRep);
  Application.CreateForm(TfrmSupSearch, frmSupSearch);
  Application.CreateForm(TfrmGoodsInRep, frmGoodsInRep);
  Application.CreateForm(TfrmGoodsStockRep, frmGoodsStockRep);
  Application.CreateForm(TfrmInStatRep, frmInStatRep);
  Application.CreateForm(TfrmInDetailRep, frmInDetailRep);
  Application.CreateForm(TfrmOutStatRep, frmOutStatRep);
  Application.CreateForm(TfrmOutDetailRep, frmOutDetailRep);
  frmLogin := TfrmLogin.Create(Application);
      frmLogin.Hide;
      frmLogin.ShowModal;
      if frmLogin.ModalResult =MrOK then
         begin
           frmLogin.Close;
           Application.Run;
         end
      else
         begin
           frmLogin.Close;
           frmLogin.Free;
           frmLogin:=nil;
           Application.Terminate;
         end;
    end
  Else
    begin
      Application.MessageBox('此程序只允许运行一次！','提示',MB_OK);
      Application.Terminate;
    end;
  ReleaseMutex(hMutex);
end.