examine_verify.pas

适合行业为眼镜业

procedure Tfrm_Examine_Verify.Cmd_OKClick(Sender: TObject);
begin

    try
    CheckData;
    if dmmain.CDSquery.IsEmpty  then
    begin
      dmmain.CDSquery.Insert;
      dmmain.CDSquery.FieldByName('receipt_name').AsString:=Trim(LabeledEdit1.Text);
      dmmain.CDSquery.FieldByName('Level_Count').AsString:=Trim(ComboBox1.Text);
      dmmain.CDSquery.FieldByName('Level_Name1').AsString:=Trim(Edit1.Text);
      dmmain.CDSquery.FieldByName('Examine_Man1').AsString:=Trim(Edit11.Text);
      dmmain.CDSquery.FieldByName('Level_Name2').AsString:=Trim(Edit2.Text);
      dmmain.CDSquery.FieldByName('Examine_Man2').AsString:=Trim(Edit22.Text);
      dmmain.CDSquery.FieldByName('Level_Name3').AsString:=Trim(Edit3.Text);
      dmmain.CDSquery.FieldByName('Examine_Man3').AsString:=Trim(Edit33.Text);
      dmmain.CDSquery.FieldByName('Level_Name4').AsString:=Trim(Edit4.Text);
      dmmain.CDSquery.FieldByName('Examine_Man4').AsString:=Trim(Edit44.Text);
      dmmain.CDSquery.FieldByName('Level_Name5').AsString:=Trim(Edit5.Text);
      dmmain.CDSquery.FieldByName('Examine_Man5').AsString:=Trim(Edit55.Text);
      dmmain.CDSquery.Post;
    end else
    begin
      exit;
    end;
    dmmain.CDSquery.ApplyUpdates(-1);
      Application.MessageBox('该单据的该级［审核］设置操作成功，请确认！',pchar(application.Title),mb_iconwarning);
    except
        Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
end;

procedure Tfrm_Examine_Verify.SPB1Click(Sender: TObject);
begin
    frm_Man_Check:=Tfrm_Man_Check.Create(self);
    man_Select:='';
    Man_Public_Code:='';
    Man_Public_Code:='SH_01';
    LevelName1:='';
    LevelName1:=Trim(Edit1.Text);
    frm_Man_Check.Sno:=trim(edit11.Text);
    frm_Man_Check.ShowModal;
    frm_Man_Check.Free;
end;

procedure Tfrm_Examine_Verify.SPB2Click(Sender: TObject);
begin
    frm_Man_Check:=Tfrm_Man_Check.Create(self);
    man_Select:='';
    Man_Public_Code:='';
    Man_Public_Code:='SH_02';
    frm_Man_Check.Sno:=trim(edit22.Text);
    frm_Man_Check.ShowModal;
    frm_Man_Check.Free;
end;

procedure Tfrm_Examine_Verify.SPB3Click(Sender: TObject);
begin
    frm_Man_Check:=Tfrm_Man_Check.Create(self);
    man_Select:='';
    Man_Public_Code:='';
    Man_Public_Code:='SH_03';
    frm_Man_Check.Sno:=trim(edit33.Text);
    frm_Man_Check.ShowModal;
    frm_Man_Check.Free;
end;

procedure Tfrm_Examine_Verify.SPB4Click(Sender: TObject);
begin
    frm_Man_Check:=Tfrm_Man_Check.Create(self);
    man_Select:='';
    Man_Public_Code:='';
    Man_Public_Code:='SH_04';
    frm_Man_Check.Sno:=trim(edit44.Text);
    frm_Man_Check.ShowModal;
    frm_Man_Check.Free;
end;

procedure Tfrm_Examine_Verify.SPB5Click(Sender: TObject);
begin
    frm_Man_Check:=Tfrm_Man_Check.Create(self);
    man_Select:='';
    Man_Public_Code:='';
    Man_Public_Code:='SH_05';
    frm_Man_Check.Sno:=trim(edit55.Text);
    frm_Man_Check.ShowModal;
    frm_Man_Check.Free;
end;

procedure Tfrm_Examine_Verify.SpeedButton2Click(Sender: TObject);
begin
    if Edit11.Visible=true then
    begin
        if Trim(Edit11.Text)='' then
        begin
            //Application.MessageBox('操作失败！请为［'+Edit11.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！',pchar(application.Title),mb_iconwarning);
            ShowMessage('操作失败！请为［'+Edit11.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！');
            Exit;
        end;
    end;
    if Edit22.Visible=true then
    begin
        if Trim(Edit11.Text)='' then
        begin
            //Application.MessageBox('操作失败,［请选择审核人员］请确认！',pchar(application.Title),mb_iconwarning);
            ShowMessage('操作失败！请为［'+Edit22.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！');
            Exit;
        end;
    end;
    if Edit33.Visible=true then
    begin
        if Trim(Edit11.Text)='' then
        begin
            //Application.MessageBox('操作失败,［请选择审核人员］请确认！',pchar(application.Title),mb_iconwarning);
            ShowMessage('操作失败！请为［'+Edit33.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！');
            Exit;
        end;
    end;
    if Edit44.Visible=true then
    begin
        if Trim(Edit11.Text)='' then
        begin
            //Application.MessageBox('操作失败,［请选择审核人员］请确认！',pchar(application.Title),mb_iconwarning);
            ShowMessage('操作失败！请为［'+Edit44.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！');
            Exit;
        end;
    end;
    if Edit55.Visible=true then
    begin
        if Trim(Edit11.Text)='' then
        begin
            //Application.MessageBox('操作失败,［请选择审核人员］请确认！',pchar(application.Title),mb_iconwarning);
            ShowMessage('操作失败！请为［'+Edit55.EditLabel.Caption+'］'+#13#10+'选择审核人员，请确认！');
            Exit;
        end;
    end;

    dmmain.CDSquery.Active:=False;
    dmmain.CDSquery.Close;
    Close;
end;

procedure Tfrm_Examine_Verify.Cmd_EditClick(Sender: TObject);
begin
    if Application.MessageBox('注意：修改该单据的审核级别设置，'+#13#10+'只能修改级别名称和级别名称所对应的审核人员的选择，'+#13#10+'确定需要修改该单据审核设置吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
      try
        if not dmmain.CDSquery.IsEmpty  then
        begin
          dmmain.CDSquery.edit;
          dmmain.CDSquery.FieldByName('receipt_name').AsString:=Trim(LabeledEdit1.Text);
          dmmain.CDSquery.FieldByName('Level_Count').AsString:=Trim(ComboBox1.Text);
          dmmain.CDSquery.FieldByName('Level_Name1').AsString:=Trim(Edit1.Text);
          dmmain.CDSquery.FieldByName('Examine_Man1').AsString:=Trim(Edit11.Text);
          dmmain.CDSquery.FieldByName('Level_Name2').AsString:=Trim(Edit2.Text);
          dmmain.CDSquery.FieldByName('Examine_Man2').AsString:=Trim(Edit22.Text);
          dmmain.CDSquery.FieldByName('Level_Name3').AsString:=Trim(Edit3.Text);
          dmmain.CDSquery.FieldByName('Examine_Man3').AsString:=Trim(Edit33.Text);
          dmmain.CDSquery.FieldByName('Level_Name4').AsString:=Trim(Edit4.Text);
          dmmain.CDSquery.FieldByName('Examine_Man4').AsString:=Trim(Edit44.Text);
          dmmain.CDSquery.FieldByName('Level_Name5').AsString:=Trim(Edit5.Text);
          dmmain.CDSquery.FieldByName('Examine_Man5').AsString:=Trim(Edit55.Text);
          dmmain.CDSquery.Post;
        end else
        begin
          exit;
        end;
        dmmain.CDSquery.ApplyUpdates(-1);
      except
          Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
          Exit;
      end;
    end;
end;

procedure Tfrm_Examine_Verify.Cmd_DeleteClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要删除该单据的审核级别设置吗？'+#13#10+'请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
      try
        dmmain.CDSquery.Delete;
        dmmain.CDSquery.ApplyUpdates(-1);
        Application.MessageBox('单据的［审核级别设置］删除操作成功，请确认！',pchar(application.Title),mb_iconwarning);
        ComboBox1.ItemIndex:=0;
        ComBoBox_index;;
      except
          Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
          Exit;
      end;
    end;
end;

procedure Tfrm_Examine_Verify.Cmd_NoClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Examine_Verify.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=cafree;
end;

end.