unit_totalpublic.pas

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

    frm_cardmanager.Top  :=0;
    frm_cardmanager.cardmanager_ref ;
    frm_cardmanager.Show ;
  end else frm_cardmanager.BringToFront ;
end;

procedure DoCardTrack;
begin
  if frm_cardtrack = nil then
  begin
    frm_cardtrack := Tfrm_cardtrack.Create(nil);
    frm_cardtrack.Left :=0;
    frm_cardtrack.Top  :=0;
    frm_cardtrack.cardtrack_ref ;
    frm_cardtrack.Show ;
  end else frm_cardtrack.BringToFront ;
end;

procedure DoServiceBooking;
begin
  if frm_ServiceBooking = nil then
  begin
    frm_ServiceBooking := Tfrm_ServiceBooking.Create(nil);
    frm_ServiceBooking.Left :=0;
    frm_ServiceBooking.Top  :=0;
    frm_ServiceBooking.ServiceBooking_ref ;
    frm_ServiceBooking.Show ;
  end else frm_ServiceBooking.BringToFront ;
end;

procedure DoFrontCheck;
begin
  if frm_frontcheck = nil then
  begin
    frm_frontcheck := Tfrm_frontcheck.Create(nil);
    frm_frontcheck.Left :=0;
    frm_frontcheck.Top  :=0;
    frm_frontcheck.frontcheck_ref ;
    frm_frontcheck.Show ;
  end else frm_frontcheck.BringToFront ;
end;

procedure DoServiceItem;
begin
  if frm_serviceitem = nil then
  begin
    frm_serviceitem := Tfrm_serviceitem.Create(nil);
    frm_serviceitem.Left :=0;
    frm_serviceitem.Top  :=0;
    frm_serviceitem.serviceitem_ref ;
    frm_serviceitem.Show ;
  end else frm_serviceitem.BringToFront ;
end;

procedure DoServiceMeal;
begin
  if frm_servicemeal = nil then
  begin
    frm_servicemeal := Tfrm_servicemeal.Create(nil);
    frm_servicemeal.Left :=0;
    frm_servicemeal.Top  :=0;
    frm_servicemeal.servicemeal_ref ;
    frm_servicemeal.Show ;
  end else frm_servicemeal.BringToFront ;
end;

procedure DoChooseEmployee(isattend:String);
begin
  if frm_chooseemployee = nil then
  begin
    frm_chooseemployee := Tfrm_chooseemployee.Create(nil);
    frm_chooseemployee.Left :=0;
    frm_chooseemployee.Top  :=0;
    frm_chooseemployee.chooseemployee_ref ;
    frm_chooseemployee.isattend := isattend;
    frm_chooseemployee.Show ;
  end else frm_chooseemployee.BringToFront ;
end;

procedure DoChooseCustomer;
begin
  if frm_chooseCustomer = nil then
  begin
    frm_chooseCustomer := Tfrm_chooseCustomer.Create(nil);
    frm_chooseCustomer.Left :=0;
    frm_chooseCustomer.Top  :=0;
    frm_chooseCustomer.choosecustomer_ref ;
    frm_chooseCustomer.Show ;
  end else frm_chooseCustomer.BringToFront ;
end;

procedure DoUnit;
begin
  if frm_unit=nil then
  begin
    frm_unit:=Tfrm_unit.create(nil);
    frm_unit.ref;
    frm_unit.show;
  end else frm_unit.BringToFront;
end;

procedure DoOperator;
begin
  if frm_operator=nil then
  begin
    frm_operator:=Tfrm_operator.create(nil);
    frm_operator.Left:=0;
    frm_operator.Top:=0;
    frm_operator.show;
  end else frm_operator.BringToFront;
end;

procedure DoRelogin;
begin
  try
    frm_login := Tfrm_login.Create(nil);
    frm_login.Left:=0;
    frm_login.Top:=0;
    frm_Login.ShowModal;
  finally
    frm_login.Free;
    frm_login:=nil;
  end;
end;

procedure DoEditPassword;
begin
  try
    frm_EditPassword:=Tfrm_EditPassword.create(nil);
    frm_EditPassword.Left:=0;
    frm_EditPassword.Top:=0;
    frm_EditPassword.password_ref;
    frm_EditPassword.ShowModal;
  finally
    frm_EditPassword.Free;
    frm_EditPassword:=nil;
  end;
end;

procedure DoBasicSalary;
begin
  if frm_basicSalary=nil then
  begin
    frm_basicSalary:=Tfrm_basicSalary.create(nil);
    frm_basicSalary.Left:=0;
    frm_basicSalary.Top:=0;
    frm_basicSalary.basicSalary_ref;
    frm_basicSalary.Show;
  end else  frm_basicSalary.BringToFront ;
end;

procedure DoSalaryItem;
begin
  if frm_SalaryItem=nil then
  begin
    frm_SalaryItem:=Tfrm_SalaryItem.create(nil);
    frm_SalaryItem.Left:=0;
    frm_SalaryItem.Top:=0;
    frm_SalaryItem.SalaryItem_ref;
    frm_SalaryItem.Show;
  end else  frm_SalaryItem.BringToFront ;
end;

procedure DoServiceItemExtra;
begin
  if frm_ServiceItemExtra=nil then
  begin
    frm_ServiceItemExtra:=Tfrm_ServiceItemExtra.create(nil);
    frm_ServiceItemExtra.Left:=0;
    frm_ServiceItemExtra.Top:=0;
    frm_ServiceItemExtra.ServiceItemExtra_ref;
    frm_ServiceItemExtra.Show;
  end else  frm_ServiceItemExtra.BringToFront ;
end;

procedure DoServiceMealExtra;
begin
  if frm_ServiceMealExtra=nil then
  begin
    frm_ServiceMealExtra:=Tfrm_ServiceMealExtra.create(nil);
    frm_ServiceMealExtra.Left:=0;
    frm_ServiceMealExtra.Top:=0;
    frm_ServiceMealExtra.ServiceMealExtra_ref;
    frm_ServiceMealExtra.Show;
  end else  frm_ServiceMealExtra.BringToFront ;
end;

procedure DoDayStatistic;
begin
  if frm_DayStatistic=nil then
  begin
    frm_DayStatistic:=Tfrm_DayStatistic.create(nil);
    frm_DayStatistic.Left:=0;
    frm_DayStatistic.Top:=0;
    frm_DayStatistic.DayStatistic_ref;
    frm_DayStatistic.Show;
  end else  frm_DayStatistic.BringToFront ;
end;

procedure DoMonthStatistic;
begin
  if frm_MonthStatistic=nil then
  begin
    frm_MonthStatistic:=Tfrm_MonthStatistic.create(nil);
    frm_MonthStatistic.Left:=0;
    frm_MonthStatistic.Top:=0;
    frm_MonthStatistic.MonthStatistic_ref;
    frm_MonthStatistic.Show;
  end else  frm_MonthStatistic.BringToFront ;
end;

procedure DoSysInitial;
begin
  if frm_SysInitial=nil then
  begin
    frm_SysInitial:=Tfrm_SysInitial.create(nil);
    frm_SysInitial.Left:=0;
    frm_SysInitial.Top:=0;
    frm_SysInitial.ref;
    frm_SysInitial.Show;
  end else  frm_SysInitial.BringToFront ;
end;

procedure DoSalaryManager;
begin
  if frm_SalaryManager=nil then
  begin
    frm_SalaryManager:=Tfrm_SalaryManager.create(nil);
    frm_SalaryManager.Left:=0;
    frm_SalaryManager.Top:=0;
    frm_SalaryManager.SalaryManager_ref;
    frm_SalaryManager.Show;
  end else  frm_SalaryManager.BringToFront ;
end;

procedure DoCustomerRegister;
begin
  if frm_CustomerRegister=nil then
  begin
    frm_CustomerRegister:=Tfrm_CustomerRegister.create(nil);
    frm_CustomerRegister.Left:=0;
    frm_CustomerRegister.Top:=0;
    frm_CustomerRegister.CustomerRegister_ref;
    frm_CustomerRegister.Show;
  end else  frm_CustomerRegister.BringToFront ;
end;

procedure DoReportCustomer;
begin
  frm_ReportCustomer:=Tfrm_ReportCustomer.Create(nil);
  frm_ReportCustomer.ref;
  frm_ReportCustomer.QuickRep1.Preview;
end;

procedure DoReportEmployee;
begin
  frm_ReportEmployee:=Tfrm_ReportEmployee.Create(nil);
  frm_ReportEmployee.ref;
  frm_ReportEmployee.QuickRep1.Preview;
end;

procedure DoReportBasicSalary;
begin
  frm_reportbasicsalary:=Tfrm_reportbasicsalary.Create(nil);
  frm_reportbasicsalary.Ref;
  frm_reportbasicsalary.QuickRep1.Preview ;
end;

procedure DoReportAttendStatistic;
begin
  frm_ReportAttendStatistic:=Tfrm_ReportAttendStatistic.Create(nil);
  frm_ReportAttendStatistic.Ref;
  frm_ReportAttendStatistic.QuickRep1.Preview ;
end;

procedure DoReportCustomerCard;
begin
  frm_ReportCustomerCard:=Tfrm_ReportCustomerCard.Create(nil);
  frm_ReportCustomerCard.Ref;
  frm_ReportCustomerCard.QuickRep1.Preview ;
end;

procedure DoReportServiceBooking;
begin
  frm_ReportServiceBooking:=Tfrm_ReportServiceBooking.Create(nil);
  frm_ReportServiceBooking.Ref;
  frm_ReportServiceBooking.QuickRep1.Preview ;
end;

procedure DoReportDayStatistic;
begin
  frm_ReportDayStatistic:=Tfrm_ReportDayStatistic.Create(nil);
  frm_ReportDayStatistic.Ref;
  frm_ReportDayStatistic.QuickRep1.Preview ;
end;

procedure DoReportMonthStatistic;
begin
  frm_ReportMonthStatistic:=Tfrm_ReportMonthStatistic.Create(nil);
  frm_ReportMonthStatistic.Ref;
  frm_ReportMonthStatistic.QuickRep1.Preview ;
end;

procedure DoReportReceipt;
begin
  frm_ReportReceipt:=Tfrm_ReportReceipt.Create(nil);
  frm_ReportReceipt.Ref;
  frm_ReportReceipt.QuickRep1.Preview ;
end;

procedure DoReportSalary;
begin
  frm_ReportSalary:=Tfrm_ReportSalary.Create(nil);
  frm_ReportSalary.Ref;
  frm_ReportSalary.QuickRep1.Preview ;
end;
end.