yhkc.~dpr

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

program YHKC;

uses
  Forms,
  GQ_UExample in '..\Gen_Query\GQ_UExample.pas' {ExampleForm},
  GQ_UFieldList in '..\Gen_Query\GQ_UFieldList.pas' {GQ_FFieldList},
  GQ_UGroupSort in '..\Gen_Query\GQ_UGroupSort.pas' {GroupSortForm},
  GQ_UHavingForm in '..\Gen_Query\GQ_UHavingForm.pas' {havingform},
  GQ_UInput in '..\Gen_Query\GQ_UInput.pas' {InputDialog},
  GQ_ULocate in '..\Gen_Query\GQ_ULocate.pas' {GQ_FLocate},
  GQ_UOpenView in '..\Gen_Query\GQ_UOpenView.pas' {GQ_FOpenView},
  GQ_UOriput in '..\Gen_Query\GQ_UOriput.pas' {OrinputDialog},
  GQ_UQueryMain in '..\Gen_Query\GQ_UQueryMain.pas' {GQ_FQueryMain},
  GQ_DataModule in '..\Gen_Query\GQ_DataModule.pas' {GQ_FDataModule: TDataModule},
  GQ_USaveView in '..\Gen_Query\GQ_USaveView.pas' {GQ_FSaveView},
  GQ_USelectD_T in '..\Gen_Query\GQ_USelectD_T.pas' {GQ_FSelectD_T},
  RP_PageSetup in '..\Report\RP_PageSetup.pas' {RP_fPageSetup},
  DI_CreateNewTable in '..\Gen_Edit\DI_CreateNewTable.pas' {DI_DfmCreateNewTable},
  DI_DataModul1 in '..\Gen_Edit\DI_DataModul1.pas' {DI_DfmDataModule1: TDataModule},
  DI_DBBlobField in '..\Gen_Edit\DI_DBBlobField.pas' {DI_DfmDBBlobField},
  DI_DBDictionery in '..\Gen_Edit\DI_DBDictionery.pas' {DI_DfmDBDictionery},
  DI_DBMemoField in '..\Gen_Edit\DI_DBMemoField.pas' {DI_DfmDBMemoField},
  DI_FieldCopy in '..\Gen_Edit\DI_FieldCopy.pas' {DI_DfmFieldCopy},
  DI_Main in '..\Gen_Edit\DI_Main.pas' {DI_DfmMain},
  DI_NewTableName in '..\Gen_Edit\DI_NewTableName.pas' {DI_DfmNewTableName},
  wndflash in 'wndflash.pas' {frmflash},
  PublicUnit in 'PublicUnit.pas',
  About in 'about.pas' {AboutBox},
  DB_Main in '..\DBBackup\DB_Main.pas' {DB_DfmMain},
  DB_BackupSchedule in '..\DBBackup\DB_BackupSchedule.pas' {DB_DfmBackupSchedule},
  DB_DataModule1 in '..\DBBackup\DB_DataModule1.pas' {DB_DfmDataModule1: TDataModule},
  DB_DestinationContent in '..\DBBackup\DB_DestinationContent.pas' {DB_DfmDestinationContent},
  DB_BackupDestination in '..\DBBackup\DB_BackupDestination.pas' {DB_DfmBackupDestination},
  DB_SetDestination in '..\DBBackup\DB_SetDestination.pas' {DB_DfmSetDestination},
  DR_AddBackupDevice in '..\DBRestore\DR_AddBackupDevice.pas' {DR_DfmBackupDestination},
  DR_DataModule1 in '..\DBRestore\DR_DataModule1.pas' {DR_DfmDataModule1: TDataModule},
  DR_Main in '..\DBRestore\DR_Main.pas' {DR_DfmMain},
  RC_AboutBox in '..\RightControl\RC_AboutBox.pas' {RC_DfmAboutBox},
  RC_DataModule1 in '..\RightControl\RC_DataModule1.pas' {RC_DfmDataModule1: TDataModule},
  RC_DBAssignManage in '..\RightControl\RC_DBAssignManage.pas' {RC_DfmDBAssignManage},
  RC_DBRecorRightManage in '..\RightControl\RC_DBRecorRightManage.pas' {RC_DfmDBRecordRightManage},
  RC_FunctionResourceManage in '..\RightControl\RC_FunctionResourceManage.pas' {RC_DfmFunctionResouirceManage},
  RC_Main in '..\RightControl\RC_Main.pas' {RC_DfmMain},
  RC_PowerAssignManage in '..\RightControl\RC_PowerAssignManage.pas' {RC_DfmPowerAssignManage},
  RC_UserGroupManage in '..\RightControl\RC_UserGroupManage.pas' {RC_DfmUserGroupManage},
  RC_UserManage in '..\RightControl\RC_UserManage.pas' {RC_DfmUserManage},
  RC_UserToUserGroup in '..\RightControl\RC_UserToUserGroup.pas' {RC_DfmUserToUserGroup},
  RC_ReadRightClass in '..\RightControl\RC_ReadRightClass.pas',
  CJ_DataModule in '..\DataColl\CJ_DataModule.pas' {FrmCJ_DataModule: TDataModule},
  CJ_DM in '..\DataColl\CJ_DM.pas' {DataModule3: TDataModule},
  CJ_SzTime in '..\DataColl\CJ_SzTime.pas' {FrmCJ_SzTime},
  PZ_Sjpz in '..\Config\PZ_Sjpz.pas' {FrmPZ_Sjpz},
  RP_USaveTemplateDlg in '..\Report\RP_USaveTemplateDlg.pas' {FrmRP_ReportTemplate},
  RP_USelectTemplate in '..\Report\RP_USelectTemplate.pas' {FrmRP_SelectTempL},
  main in 'main.pas' {FrmMain},
  UserLogin in 'UserLogin.pas' {DfmUserLogin},
  CJ_Main in '..\DataColl\CJ_Main.pas' {FrmCJ_Main},
  AG_Main in '..\AggQuery\AG_Main.pas' {FrmAG_Main},
  AG_SelDate in '..\AggQuery\AG_SelDate.pas' {FrmAG_SelDate},
  AG_SelChar in '..\AggQuery\AG_SelChar.pas' {FrmAG_SelChar},
  AG_SelTime in '..\AggQuery\AG_SelTime.pas' {FrmAG_SelTime},
  AG_SelNum in '..\AggQuery\AG_SelNum.pas' {FrmAG_SelNum},
  TC_Main in '..\TeeChart\TC_Main.pas' {FrmTC_Main},
  AG_Report in '..\AggQuery\AG_Report.pas',
  AG_HistroyList in '..\AggQuery\AG_HistroyList.pas' {FrmAG_HistroyList},
  Card_DataModule in '..\CardSell\Card_DataModule.pas' {CardSell_DataModule: TDataModule},
  Card_SJXZ in '..\CardSell\Card_SJXZ.pas' {FrmCard_SJXZ},
  SysConfig in 'SysConfig.pas' {FrmSysConfig},
  Card_SellCard in '..\CardSell\Card_SellCard.pas' {FrmCard_SellCard},
  Card_LyCard in '..\CardSell\Card_LyCard.pas' {FrmCard_LyCard},
  Card_IniCard in '..\CardSell\Card_IniCard.pas' {FrmCard_IniCard},
  Card_BackCard in '..\CardSell\Card_BackCard.pas' {FrmCard_BackCard},
  PZ_SpdhDic in '..\Config\PZ_SpdhDic.pas' {FrmPZ_SpdhDic},
  PZ_DmDic in '..\Config\PZ_DmDic.pas' {FrmPZ_DmDic},
  Card_ChangePsw in '..\CardSell\Card_ChangePsw.pas' {FrmCard_ChangePsw},
  Desk in 'Desk.pas' {FrmDesk},
  RP_Page in '..\Report\RP_Page.pas' {FrmRP_Page},
  PZ_RqXz in '..\Config\PZ_RqXz.pas' {FrmPZ_RqXz},
  DI_KHZL in '..\Gen_Edit\DI_KHZL.pas' {FrmDI_KHZL},
  Card_Result in '..\CardSell\Card_Result.pas' {FrmCard_Result},
  Card_ScanXx in '..\CardSell\Card_ScanXx.pas' {FrmCard_ScanXx},
  Card_BackBadCard in '..\CardSell\Card_BackBadCard.pas' {FrmCard_BackBadCard},
  CardHint in '..\CardSell\CardHint.pas' {FrmCardHint},
  DI_DBCalendar in '..\Gen_Edit\DI_DBCalendar.pas' {DI_DfmDBCalendar},
  Card_FirBack in '..\CardSell\Card_FirBack.pas' {FrmCard_FirBack},
  Card_SecSell in '..\CardSell\Card_SecSell.pas' {FrmCard_SecSell};

{$R *.res}

var
  frmflash: Tfrmflash;
  DfmUserLogin: TDfmUserLogin;
  CloseApp: Boolean;
begin
  Application.Initialize;
  Application.Title := '亚惠收银系统';
  PublicUnit.DisplayWidth := PublicUnit.GetScreenWidth;
  PublicUnit.DisplayHeight := PublicUnit.GetScreenHeight;
  //PublicUnit.SetDisplayMode(800,600);
  Application.CreateForm(Tfrmflash, frmflash);
  frmflash.ShowModal;
  frmflash.Free;
  while (True) do
  begin
    DfmUserLogin := TDfmUserLogin.Create(Application);
    DfmUserLogin.ShowModal;
    if DfmUserLogin.ConfirmIdentify = True then
    begin
      PublicUnit.UserName := DfmUserLogin.UserName;
      PublicUnit.UserPass := DfmUserLogin.UserPassword;
      PublicUnit.ServerName := DfmUserLogin.ServerName;
    end;
    CloseApp := DfmUserLogin.CloseApp;
    if not DfmUserLogin.NotYesPSW then
      break;
    DfmUserLogin.Free;
    DfmUserLogin := nil;
    if CloseApp then
    begin
      //PublicUnit.SetDisplayMode(PublicUnit.DisplayWidth,PublicUnit.DisplayHeight);
      Halt(0);
    end;
  end;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmDesk, FrmDesk);
  Application.CreateForm(TCardSell_DataModule, CardSell_DataModule);
  Application.CreateForm(TFrmCJ_DataModule, FrmCJ_DataModule);
  Application.CreateForm(TDataModule3, DataModule3);
  Application.CreateForm(TDB_DfmDataModule1, DB_DfmDataModule1);
  Application.CreateForm(TDR_DfmDataModule1, DR_DfmDataModule1);
  Application.CreateForm(TRC_DfmDataModule1, RC_DfmDataModule1);
  Application.CreateForm(TGQ_FDataModule, GQ_FDataModule);
  Application.CreateForm(TDI_DfmDataModule1, DI_DfmDataModule1);
  Application.Run;
end.