unit_dictionary.pas

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

    sg_EmpType.Row :=sg_EmpType.Row +1;
  end
  {*********************客户类别向后移动*****************************}
  else if pagecontrol1.ActivePage = sht_CusType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
     begin
       i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
       if i=6 then
       if not SaveCusTypeInfo then i:=2;
       if i=2 then exit;
       if i=7 then begin ClearCusTypeInfo(); sg_CusType.Enabled:=true;MakeCusTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true;end;
    end;
    if sg_CusType.Row > sg_CusType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;
    sg_CusType.Row :=sg_CusType.Row +1;
  end
  {*********************服务项目类别向后移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceItemType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
     begin
       i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
       if i=6 then
       if not SaveServiceItemTypeInfo then i:=2;
       if i=2 then exit;
       if i=7 then begin ClearServiceItemTypeInfo(); sg_SerType.Enabled:=true;MakeServiceItemTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true;end;
    end;
    if sg_SerType.Row > sg_SerType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;
    sg_SerType.Row :=sg_SerType.Row +1;
  end
  {*********************服务项目向后移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceItem then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
     begin
       i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
       if i=6 then
       if not SaveServiceItemInfo then i:=2;
       if i=2 then exit;
       if i=7 then begin ClearServiceItemInfo(); sg_ItemType.Enabled:=true;MakeServiceItemEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true;end;
    end;
    if sg_ItemType.Row > sg_ItemType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;
    sg_ItemType.Row :=sg_ItemType.Row +1;
  end
  {*********************服务套餐类型向后移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceMealType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
     begin
       i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
       if i=6 then
       if not SaveServiceMealTypeInfo then i:=2;
       if i=2 then exit;
       if i=7 then begin ClearServiceMealTypeInfo(); sg_MealType.Enabled:=true;MakeServiceMealTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true;end;
    end;
    if sg_MealType.Row > sg_MealType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;
    sg_MealType.Row :=sg_MealType.Row +1;
  end
  {*********************会员卡类型向后移动*****************************}
  else if pagecontrol1.ActivePage = sht_MemberCardtype then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
     begin
       i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
       if i=6 then
       if not SaveMemberCardTypeInfo then i:=2;
       if i=2 then exit;
       if i=7 then begin ClearMemberCardTypeInfo(); sg_CardType.Enabled:=true;MakeMemberCardTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true;end;
    end;
    if sg_CardType.Row > sg_CardType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;
    sg_CardType.Row :=sg_CardType.Row +1;
  end;
  
end;

procedure Tfrm_dictionary.sbtn_frontClick(Sender: TObject);
var
  i:integer;
begin
  {*************************员工类别向前移动*****************************}
  if pagecontrol1.ActivePage = sht_EmpType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveEmpTypeInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearEmpTypeInfo();sg_EmpType.Enabled:=true;MakeEmpTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_EmpType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_EmpType.Row :=sg_EmpType.Row -1;
  end
  {*************************客户类别向前移动*****************************}
  else if pagecontrol1.ActivePage = sht_CusType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveCusTypeInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearCusTypeInfo();sg_CusType.Enabled:=true;MakeCusTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_CusType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_CusType.Row :=sg_CusType.Row -1;
  end
  {*************************服务项目类别向前移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceItemType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceItemTypeInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearServiceItemTypeInfo();sg_SerType.Enabled:=true;MakeServiceItemTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_SerType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_SerType.Row :=sg_SerType.Row -1;
  end
  {*************************服务项目向前移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceItem then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceItemInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearServiceItemInfo();sg_ItemType.Enabled:=true;MakeServiceItemEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_ItemType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_ItemType.Row :=sg_ItemType.Row -1;
  end
  {*********************服务套餐类型向前移动*****************************}
  else if pagecontrol1.ActivePage = sht_ServiceMealType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceMealTypeInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearServiceMealTypeInfo();sg_MealType.Enabled:=true;MakeServiceMealTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_MealType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_MealType.Row :=sg_MealType.Row -1;
  end
  {*********************会员卡类型向前移动*****************************}
  else if pagecontrol1.ActivePage = sht_MemberCardType then
  begin
    if sbtn_save.Enabled and sbtn_append.Enabled then
    begin
      i := MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveMemberCardTypeInfo then i:=2;
      if i=2 then exit;
      if i=7 then begin ClearMemberCardTypeInfo();sg_ItemType.Enabled:=true;MakeMemberCardTypeEnabled(false);sbtn_save.Enabled :=false;sbtn_delete.Enabled :=true; end;
    end;
    if sg_CardType.Row =1 then
    begin
      sbtn_front.Enabled:=false;
      exit;
    end;
    sbtn_back.Enabled :=true;
    sbtn_edit.Enabled :=true;
    sg_CardType.Row :=sg_CardType.Row -1;
  end;
end;

procedure Tfrm_dictionary.sbtn_deleteClick(Sender: TObject);
var
   i,j:integer;
   temp_type_id,temp_item_id:string;
begin
  {******************进行员工类别的删除*************************}
  if pagecontrol1.ActivePage = sht_EmpType then
  begin
    if sg_EmpType.Cells[0,sg_EmpType.Row]='' then exit;
    if MessageBox(handle,'你确定要删除该员工类别信息吗？','询问',mb_yesno+mb_iconquestion)<> IDYes then exit;
    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'delete from EmployeeType where type_id='+#39+sg_EmpType.Cells[0,sg_EmpType.Row]+#39;
      ExecSQL;
    end;
    StringGridDelete(sg_EmpType,sg_EmpType.Row);
    if sg_EmpType.Row = sg_EmpType.RowCount - 1 then
    begin
      if sg_EmpType.RowCount > 2 then
        sg_EmpType.Row := sg_EmpType.Row - 1
      else
        sbtn_back.Enabled := false;
    end;
    if sg_EmpType.Row = 1 then sbtn_front.Enabled := false;
    if sg_EmpType.Row = sg_EmpType.RowCount - 2 then sbtn_back.Enabled := false;
  end
  {******************进行客户类别的删除*************************}
  else if pagecontrol1.ActivePage = sht_CusType then
  begin
    if sg_CusType.Cells[0,sg_CusType.Row]='' then exit;
    if MessageBox(handle,'你确定要删除该员工类别信息吗？','询问',mb_yesno+mb_iconquestion)<> IDYes then exit;
    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'delete from CustomerType where type_id='+#39+sg_CusType.Cells[0,sg_CusType.Row]+#39;
      ExecSQL;
    end;
    StringGridDelete(sg_CusType,sg_CusType.Row);
    if sg_CusType.Row = sg_CusType.RowCount - 1 then
    begin
      if sg_CusType.RowCount > 2 then
        sg_CusType.Row := sg_CusType.Row - 1
      else
        sbtn_back.Enabled := false;
    end;
    if sg_CusType.Row = 1 then sbtn_front.Enabled := false;
    if sg_CusType.Row = sg_CusType.RowCount - 2 then sbtn_back.Enabled := false;
  end
  {******************进行服务项目类别的删除*************************}
  else if pagecontrol1.ActivePage = sht_ServiceItemType then
  begin
    if sg_SerType.Cells[0,sg_SerType.Row]='' then exit;
    if MessageBox(handle,'你确定要删除该服务项目类别信息吗？','询问',mb_yesno+mb_iconquestion)<> IDYes then exit;

    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'select service_type_id from ServiceItem where service_type_id='+#39+sg_SerType.Cells[0,sg_SerType.Row]+#39;
      Open;
      if not eof then
      begin
        MessageBox(self.handle,'无法删除该服务项目类型，请先删除属于该类型的服务项目再重试!','提示',mb_ok+mb_iconinformation);
        exit;
      end;
    end;

    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'delete from ServiceItemType where type_id='+#39+sg_SerType.Cells[0,sg_SerType.Row]+#39;
      ExecSQL;
    end;
    StringGridDelete(sg_SerType,sg_SerType.Row);
    if sg_SerType.Row = sg_SerType.RowCount - 1 then
    begin
      if sg_SerType.RowCount > 2 then
        sg_SerType.Row := sg_SerType.Row - 1
      else
        sbtn_back.Enabled := false;
    end;
    if sg_SerType.Row = 1 then sbtn_front.Enabled := false;
    if sg_SerType.Row = sg_SerType.RowCount - 2 then sbtn_back.Enabled := false;
  end
  {******************进行服务项目的删除*************************}
  else if pagecontrol1.ActivePage = sht_ServiceItem then
  begin
    if sg_ItemType.Cells[0,sg_ItemType.Row]='' then exit;
    if MessageBox(handle,'你确定要删除该服务项目信息吗？','询问',mb_yesno+mb_iconquestion)<> IDYes then exit;
    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'delete from ServiceItem where item_id='+#39+sg_ItemType.Cells[0,sg_ItemType.Row]+#39;
      ExecSQL;
    end;
    StringGridDelete(sg_ItemType,sg_ItemType.Row);
    if sg_ItemType.Row = sg_ItemType.RowCount - 1 then
    begin
      if sg_ItemType.RowCount > 2 then
        sg_ItemType.Row := sg_ItemType.Row - 1
      else
        sbtn_back.Enabled := false;
    end;
    if sg_ItemType.Row = 1 then sbtn_front.Enabled := false;
    if sg_ItemType.Row = sg_ItemType.RowCount - 2 then sbtn_back.Enabled := false;
  end
  {******************进行服务套餐类型的删除*************************}
  else if pagecontrol1.ActivePage = sht_ServiceMealType then
  begin
    if sg_MealType.Cells[0,sg_MealType.Row]='' then exit;
    if MessageBox(handle,'你确定要删除该服务套餐类别信息吗？','询问',mb_yesno+mb_iconquestion)<> IDYes then exit;

    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'select type_id from ServiceMeal where type_id='+#39+sg_MealType.Cells[0,sg_MealType.Row]+#39;
      Open;
      if not eof then
      begin
        MessageBox(self.handle,'无法删除该服务套餐类型，请先删除属于该类型的服务套餐再重试!','提示',mb_ok+mb_iconinformation);
        exit;
      end;
    end;
    
    with dmod.qrydata do
    begin
      close;
      SQL.Text := 'delete from ServiceMealType where type_id='+#39+sg_MealType.Cells[0,sg_MealType.Row]+#39;
      ExecSQL;
    end;
    StringGridDelete(sg_MealType,sg_MealType.Row);
    if sg_MealType.Row = sg_MealType.RowCount - 1 then
    begin
      if sg_MealType.RowCount > 2 then
        sg_MealType.Row := sg_MealType.Row - 1
      else
        sbtn_back.Enabled := false;
    end;
    if sg_MealType.Row = 1 then sbtn_front.Enabled := false;
    if sg_MealType.Row = sg_MealType.RowCount - 2 then sbtn_back.Enabled := false;
  end
  {******************进行服务项目的删除*************************}
  else if pagecontrol1.ActivePage = sht_ServiceMeal then
  begin
   //提示删除的具体内容
   i:=MessageBox(handle,'删除服务套餐选择[Y]，删除服务套餐选项选择[N]!','提示',mb_yesnocancel+mb_iconinformation);
   //删除服务套餐
   if i=6 then
   begin
      if MessageBox(handle,'确认删除所选服务套餐吗？','询问',mb_yesno+mb_iconquestion)=IDYes then
      begin
         temp_type_id:=sg_MealType2.Cells[0,sg_MealType2.Row];

         if temp_type_id='' then
         begin
           MessageBox(handle,'请先选择一个服务套餐再重试!','提示',mb_ok+mb_iconinformatio