meirong.dpr

用delphi开发的美容院管理系统

program MeiRong;

uses
  Forms,
  windows,
  PublicFunOrPro in 'PublicFunOrPro.pas',
  unit_about in 'unit_about.pas' {frm_about},
  Unit_AttendConfig in 'Unit_AttendConfig.pas' {frm_attendconfig},
  Unit_AttendManager in 'Unit_AttendManager.pas' {frm_attendmanager},
  Unit_Attenstat in 'Unit_Attenstat.pas' {frm_attendstat},
  Unit_CardManager in 'Unit_CardManager.pas' {frm_cardmanager},
  Unit_CardTrack in 'Unit_CardTrack.pas' {frm_cardtrack},
  Unit_ChooseEmployee in 'Unit_ChooseEmployee.pas' {frm_chooseemployee},
  Unit_CreateCard in 'Unit_CreateCard.pas' {frm_createcard},
  Unit_Customer in 'Unit_Customer.pas' {frm_customer},
  Unit_DataModule in 'Unit_DataModule.pas' {DMod: TDataModule},
  Unit_Dictionary in 'Unit_Dictionary.pas' {frm_dictionary},
  Unit_Empattendance in 'Unit_Empattendance.pas' {frm_empattend},
  Unit_FrontCheck in 'Unit_FrontCheck.pas' {frm_frontcheck},
  unit_login in 'Unit_Login.pas' {frm_login},
  Unit_Main in 'Unit_Main.pas' {frm_main},
  unit_operator in 'unit_operator.pas' {frm_operator},
  unit_power in 'unit_power.pas' {frm_power},
  Unit_PublicFunction in 'Unit_PublicFunction.pas',
  Unit_SelectReason in 'Unit_SelectReason.pas' {frm_selectreason},
  Unit_ServiceBooking in 'Unit_ServiceBooking.pas' {frm_servicebooking},
  Unit_ServiceItem in 'Unit_ServiceItem.pas' {frm_ServiceItem},
  Unit_ServiceMeal in 'Unit_ServiceMeal.pas' {frm_servicemeal},
  Unit_SpecialAttend in 'Unit_SpecialAttend.pas' {frm_specialattend},
  Unit_TotalPublic in 'Unit_TotalPublic.pas',
  unit_unit in 'unit_unit.pas' {frm_unit},
  unit_editpassword in 'unit_editpassword.pas' {frm_editpassword},
  Unit_BasicSalary in 'Unit_BasicSalary.pas' {frm_basicsalary},
  Unit_SalaryItem in 'Unit_SalaryItem.pas' {frm_salaryitem},
  Unit_ServiceItemExtra in 'Unit_ServiceItemExtra.pas' {frm_serviceitemextra},
  Unit_DayStatistic in 'Unit_DayStatistic.pas' {frm_daystatistic},
  Unit_MonthStatistic in 'Unit_MonthStatistic.pas' {frm_monthstatistic},
  Unit_SysInitial in 'Unit_SysInitial.pas' {frm_SysInitial},
  Unit_SalaryManager in 'Unit_SalaryManager.pas' {frm_salarymanager},
  Unit_ServiceMealExtra in 'Unit_ServiceMealExtra.pas' {frm_servicemealextra},
  Unit_ChooseCustomer in 'Unit_ChooseCustomer.pas' {frm_choosecustomer},
  preview in 'PREVIEW.PAS' {myprevform},
  Unit_ReportCustomer in 'Unit_ReportCustomer.pas' {frm_ReportCustomer},
  Unit_ReportEmployee in 'Unit_ReportEmployee.pas' {frm_reportemployee},
  Unit_Employee in 'Unit_Employee.pas' {frm_employee},
  Unit_ReportBasicSalary in 'Unit_ReportBasicSalary.pas' {frm_reportbasicsalary},
  Unit_ReportAttendStatistic in 'Unit_ReportAttendStatistic.pas' {frm_reportattendstatistic},
  Unit_ReportCustomerCard in 'Unit_ReportCustomerCard.pas' {frm_reportCustomerCard},
  Unit_ReportServiceBooking in 'Unit_ReportServiceBooking.pas' {frm_ReportServiceBooking},
  Unit_ReportDayStatistic in 'Unit_ReportDayStatistic.pas' {frm_ReportDayStatistic},
  Unit_ReportMonthStatistic in 'Unit_ReportMonthStatistic.pas' {frm_ReportMonthStatistic},
  Unit_ReportReceipt in 'Unit_ReportReceipt.pas' {frm_ReportReceipt},
  Unit_ReportSalary in 'Unit_ReportSalary.pas' {frm_ReportSalary},
  Unit_CustomerRegister in 'Unit_CustomerRegister.pas' {frm_CustomerRegister};

{$R *.res}

begin
  try
  Application.Initialize;
  Application.Title :='美容院管理系统1.0';
  Application.CreateForm(TDMod, DMod);
  Application.CreateForm(Tfrm_main, frm_main);
  Application.CreateForm(Tfrm_login, frm_login);
  frm_login.ShowModal;
  if frm_login.logined then Application.Run;
  except
    MessageBox(Application.Handle,'联接数据库服务器失败,请与管理员联系!','提示',mb_ok+mb_iconinformation);
  end;
end.