unit_dictionary.pas

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

      ExecSQL;
    end;
  finally
    try
      dmod.Database.Commit ;
    except
      dmod.Database.Rollback ;
      MessageBox(handle,'操作失败，请重试！','提示',mb_ok+mb_iconinformation);
      result:=false;
    end;
  end;
end;
{***********************MemberCardType******************************}

procedure Tfrm_dictionary.sbtn_closeClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_dictionary.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
  frm_dictionary := nil; 
end;

procedure Tfrm_dictionary.sbtn_appendClick(Sender: TObject);
var
  i:integer;
  temp:string;
begin
  {*********************如果新建员工类别**********************}
  if pagecontrol1.ActivePage = sht_EmpType then
  begin
    if (not EmpTypeAppendOrEdit) and (not edt_Emptypeid.Enabled) and (edt_Emptypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveEmpTypeInfo then i:=2;
      if i=2 then exit;
    end;
    EmpTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeEmpTypeEnabled(true);
    ClearEmpTypeInfo();

    sg_EmpType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_EmpTypeid.Text :=GetNo('DBMeirong','EmployeeType','','','type_id',temp,2); //to set value of Empno like '2003101301'
  end
  {**********************//如果新建客户类别************************}
  else if pagecontrol1.ActivePage = sht_CusType then
  begin
    if (not CusTypeAppendOrEdit) and (not edt_Custypeid.Enabled) and (edt_Custypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveCusTypeInfo then i:=2;
      if i=2 then exit;
    end;
    CusTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeCusTypeEnabled(true);
    ClearCusTypeInfo();

    sg_CusType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_CusTypeid.Text :=GetNo('DBMeirong','CustomerType','','','type_id',temp,2); //to set value of Empno like '2003101301'
  end
  {******************************新建服务项目类别***************************}
  else if pagecontrol1.ActivePage = sht_ServiceItemType then
  begin
    if (not SerTypeAppendOrEdit) and (not edt_Sertypeid.Enabled) and (edt_Sertypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceItemTypeInfo then i:=2;
      if i=2 then exit;
    end;
    SerTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeServiceItemTypeEnabled(true);
    ClearServiceItemTypeInfo();

    sg_SerType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_SerTypeid.Text :=GetNo('DBMeirong','ServiceItemType','','','type_id',temp,2); //to set value of Empno like '2003101301'
  end
  {*******************************新建服务项目**********************************}
  else if pagecontrol1.ActivePage = sht_ServiceItem then
  begin
    if (not ItemTypeAppendOrEdit) and (not edt_Itemtypeid.Enabled) and (edt_Itemtypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceItemInfo then i:=2;
      if i=2 then exit;
    end;
    ItemTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeServiceItemEnabled(true);
    ClearServiceItemInfo();

    sg_ItemType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_ItemTypeid.Text :=GetNo('DBMeirong','ServiceItem','','','Item_id',temp,2); //to set value of Empno like '2003101301'
  end
  {*******************************新建服务套餐类型**********************************}
  else if pagecontrol1.ActivePage = sht_ServiceMealType then
  begin
    if (not MealTypeAppendOrEdit) and (not edt_Mealtypeid.Enabled) and (edt_Mealtypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveServiceMealTypeInfo then i:=2;
      if i=2 then exit;
    end;
    MealTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeServiceMealTypeEnabled(true);
    ClearServiceMealTypeInfo();

    sg_MealType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_MealTypeid.Text :=GetNo('DBMeirong','ServiceMealType','','','type_id',temp,2); //to set value of Empno like '2003101301'
  end
  {*******************************新建会员卡类型**********************************}
  else if pagecontrol1.ActivePage = sht_MemberCardType then
  begin
    if (not CardTypeAppendOrEdit) and (not edt_Cardtypeid.Enabled) and (edt_Cardtypeid.Text<>'') then
    begin
      i:=MessageBox(handle,'你要保存操作的数据吗？','询问',mb_yesnocancel+mb_iconquestion);
      if i=6 then
      if not SaveMemberCardTypeInfo then i:=2;
      if i=2 then exit;
    end;
    CardTypeAppendOrEdit:=true;
    sbtn_edit.Enabled :=true;
    MakeMemberCardTypeEnabled(true);
    ClearMemberCardTypeInfo();

    sg_CardType.Enabled :=true;

    temp:=GetDateString('DBMeirong');//to get current datetime such as 2003-10-13 13:37:03
    temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2); //to set value of temp like '20031013'
    edt_CardTypeid.Text :=GetNo('DBMeirong','MemberCardType','','','type_id',temp,2); //to set value of Empno like '2003101301'
  end;
end;

procedure Tfrm_dictionary.sbtn_saveClick(Sender: TObject);
var
  i:integer;
  temp:string;
begin
  {**********************#进行员工类别的保存********************}
  if pagecontrol1.ActivePage = sht_EmpType then
  begin
    if not SaveEmpTypeInfo then exit;
    if EmpTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Emptype);
      i:=1;
    end else i:=sg_Emptype.Row;
    with sg_Emptype do
    begin
      cells[0,i] := trim(edt_EmpTypeid.Text );
      cells[1,i] := trim(edt_EmpTypename.Text );
      cells[2,i] := trim(edt_EmpTyperemark.Text );
    end;
    if EmpTypeAppendOrEdit then
    begin
      ClearEmpTypeInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_EmpTypeid.Text :=GetNo('DBMeiRong','EmployeeType','','','type_id',temp,2);
      if sg_EmpType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
    MakeEmpTypeEnabled(false);
    ClearEmpTypeInfo();
    sg_EmpType.Enabled:=true;
    sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end
  {**********************#进行客户类别的保存********************}
  else if pagecontrol1.ActivePage = sht_CusType then
  begin 
    if not SaveCusTypeInfo then exit;
    if CusTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Custype);
      i:=1;
    end else i:=sg_Custype.Row;
    with sg_Custype do
    begin
      cells[0,i] := trim(edt_CusTypeid.Text );
      cells[1,i] := trim(edt_CusTypename.Text );
      cells[2,i] := trim(edt_CusTyperemark.Text );
    end;
    if CusTypeAppendOrEdit then
    begin
      ClearCusTypeInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_CusTypeid.Text :=GetNo('DBMeiRong','CustomerType','','','type_id',temp,2);
      if sg_CusType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
    MakeCusTypeEnabled(false);
    ClearCusTypeInfo();
    sg_CusType.Enabled:=true;
    sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end
  {**********************#进行服务类别的保存********************}
  else if pagecontrol1.ActivePage = sht_ServiceItemType then
  begin
    if not SaveServiceItemTypeInfo then exit;
    if SerTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Sertype);
      i:=1;
    end else i:=sg_Sertype.Row;
    with sg_Sertype do
    begin
      cells[0,i] := trim(edt_SerTypeid.Text );
      cells[1,i] := trim(edt_SerTypename.Text );
      cells[2,i] := trim(edt_SerTyperemark.Text );
    end;
    if SerTypeAppendOrEdit then
    begin
      ClearServiceItemTypeInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_SerTypeid.Text :=GetNo('DBMeiRong','ServiceItemType','','','type_id',temp,2);
      if sg_SerType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
      MakeServiceItemTypeEnabled(false);
      ClearServiceItemTypeInfo();
      sg_SerType.Enabled:=true;
      sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end
  {**********************#进行服务项目的保存********************}
  else if pagecontrol1.ActivePage = sht_ServiceItem then
  begin
    if not SaveServiceItemInfo then exit;
    if ItemTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Itemtype);
      i:=1;
    end else i:=sg_Itemtype.Row;
    with sg_Itemtype do
    begin
      cells[0,i] := trim(edt_ItemTypeid.Text );
      cells[1,i] := trim(edt_ItemTypename.Text );
      cells[2,i] := trim(cbb_SerType.Text );
      cells[3,i] := trim(edt_ItemTypePrice.Text);
      cells[4,i] := trim(edt_ItemTyperemark.Text );
    end;
    if ItemTypeAppendOrEdit then
    begin
      ClearServiceItemInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_ItemTypeid.Text :=GetNo('DBMeiRong','ServiceItem','','','item_id',temp,2);
      if sg_ItemType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
      MakeServiceItemEnabled(false);
      ClearServiceItemInfo();
      sg_ItemType.Enabled:=true;
      sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end
  {**********************#进行服务套餐类型的保存********************}
  else if pagecontrol1.ActivePage = sht_ServiceMealType then
  begin
    if not SaveServiceMealTypeInfo then exit;
    if MealTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Mealtype);
      i:=1;
    end else i:=sg_MealType.Row;
    with sg_Mealtype do
    begin
      cells[0,i] := trim(edt_MealTypeid.Text );
      cells[1,i] := trim(edt_MealTypename.Text );
      cells[2,i] := trim(edt_MealTyperemark.Text );
    end;
    if MealTypeAppendOrEdit then
    begin
      ClearServiceMealTypeInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_MealTypeid.Text :=GetNo('DBMeiRong','ServiceMealType','','','type_id',temp,2);
      if sg_MealType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
      MakeServiceMealTypeEnabled(false);
      ClearServiceMealTypeInfo();
      sg_MealType.Enabled:=true;
      sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end
  {**********************#进行服务套餐的保存********************}
  else if pagecontrol1.ActivePage = sht_ServiceMeal then
  begin
    if not SaveServiceMealInfo() then exit;
    sbtn_save.Enabled :=false;
  end
  {**********************#进行会员卡类型的保存********************}
  else if pagecontrol1.ActivePage = sht_MemberCardtype then
  begin
    if not SaveMemberCardTypeInfo then exit;
    if CardTypeAppendOrEdit then
    begin
      StringGridInsert(sg_Cardtype);
      i:=1;
    end else i:=sg_Cardtype.Row;
    with sg_Cardtype do
    begin
      cells[0,i] := trim(edt_cardTypeid.Text );
      cells[1,i] := trim(edt_CardTypename.Text );
      cells[2,i] := trim(edt_Mincost.Text );
      cells[3,i] := trim(edt_discount.Text);
      cells[4,i] := trim(edt_CardTyperemark.Text );
    end;
    if CardTypeAppendOrEdit then
    begin
      ClearMemberCardTypeInfo();
      temp:=GetDateString('DBMeiRong');
      temp:=copy(temp,1,4)+copy(temp,6,2)+copy(temp,9,2);
      edt_CardTypeid.Text :=GetNo('DBMeiRong','MemberCardType','','','type_id',temp,2);
      if sg_CardType.rowcount>3 then sbtn_Back.Enabled:=true;
    end
    else begin
      MakeMemberCardTypeEnabled(false);
      ClearMemberCardTypeInfo();
      sg_CardType.Enabled:=true;
      sbtn_save.Enabled :=false;
    end;
    sbtn_delete.enabled:=true;
    sbtn_edit.Enabled :=true;
  end;

end;

procedure Tfrm_dictionary.sbtn_backClick(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 > sg_EmpType.RowCount -2 then
    begin
      sbtn_back.Enabled :=false;
      exit;
    end;
    sbtn_front.Enabled :=true;
    sbtn_edit.Enabled  :=true;