meirong.dpr

Delphi+ADO+SQLServer 登陆:superuser/密码为空 调试:打开企业管理器附加数据库 第三方控件:无

program MeiRong;

uses
  Forms,
  windows,
  inifiles,
  SysUtils,
  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},
  Unit_DBini in 'Unit_DBini.pas' {frm_DBini};

{$R *.res}
var
  DBFile : Tinifile ;
  DB_DNS,DB_User,DB_Password : string ;
  Frm_Dbini : Tfrm_DBini ;
begin
//  try
  Application.Initialize;
  Application.Title :='美容院管理系统1.0';
  Application.CreateForm(TDMod, DMod);
  Application.CreateForm(Tfrm_main, frm_main);
  Application.CreateForm(Tfrm_login, frm_login);
  DBFile := tinifile.Create(extractfilepath(application.ExeName)+ 'DBConn.ini');
  DB_DNS := DBFile.ReadString('MeiRong','DB_DNS','MeiRong');
  DB_User := DBFile.ReadString('MeiRong','DB_User','sa');
  DB_Password := DBFile.ReadString('MeiRong','DB_Password','1234546');
  DBFile.Free;
  DMod.ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Password=' +
      DB_Password + ';Persist Security Info=True;User ID=' +
      DB_User + ';Initial Catalog=MeiRong;Data Source=' + DB_DNS ;
  try
    DMod.ADOConn.Connected := true ;
  except
  end;
  while not DMod.ADOConn.Connected do
  begin
     if MessageBox(Application.Handle,'联接数据库服务器失败,是否重新配置连接?','提示',MB_YESNO + mb_iconinformation) = 7 then
        break
     else
     begin
       Frm_DBini := TFrm_DBini.Create(nil);
       Frm_DBini.ShowModal;
       Frm_DBini.Free;
       DBFile := tinifile.Create(extractfilepath(application.ExeName)+ 'DBConn.ini');
       DB_DNS := DBFile.ReadString('MeiRong','DB_DNS','MeiRong');
       DB_User := DBFile.ReadString('MeiRong','DB_User','sa');
       DB_Password := DBFile.ReadString('MeiRong','DB_Password','1234546');
       DBFile.Free;
       DMod.ADOConn.ConnectionString := 'Provider=MSDASQL.1;Password=' +
       DB_Password + ';Persist Security Info=True;User ID=' +
       DB_User + ';Data Source=' + DB_DNS ;
       try
       DMod.ADOConn.Connected := true ;
       except
       end;
     end;
  end;
  if DMod.ADOConn.Connected then
  begin
    Application.CreateForm(Tfrm_login, frm_login);
    frm_login.ShowModal;
    if frm_login.logined then Application.Run;
  end ;
//  except
//    MessageBox(Application.Handle,'联接数据库服务器失败,请与管理员联系!','提示',mb_ok+mb_iconinformation);
//  end;
end.