examine_verify.pas

delphi的一个开发实例

                begin
                    try
                        with frm_data.ClientDataSet2 do
                        begin
                            Close;
                            CommandText:='';
                            CommandText:='delete [Level_Set] where Receipt_Name='''+Trim(LabeledEdit1.Text)+'''';
                            Execute;
                        end;
                    except
                        Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
                        Exit;
                    end;
                end
                else
                begin
                    Exit;
                end;
            end;
            Close;
            CommandText:='';
            CommandText:='insert into [Level_Set] (Receipt_Name,Level_Count,Level_Name1,Examine_Man1,Level_Name2,Examine_Man2,Level_Name3,Examine_Man3,Level_Name4,Examine_Man4,Level_Name5,Examine_Man5) values ('''+Trim(LabeledEdit1.Text)+''','''+Trim(ComboBox1.Text)+''','''+Trim(Edit1.Text)+''','''+Trim(Edit11.Text)+''','''+Trim(Edit2.Text)+''','''+Trim(Edit22.Text)+''','''+Trim(Edit3.Text)+''','''+Trim(Edit33.Text)+''','''+Trim(Edit4.Text)+''','''+Trim(Edit44.Text)+''','''+Trim(Edit5.Text)+''','''+Trim(Edit55.Text)+''')';
            Execute;
        end;
        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.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.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.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.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.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;

    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.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
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                frm_data.ClientDataSet_Add.CommandText:='';
                CommandText:='Delete [Level_Set] where Receipt_Name='''+Trim(LabeledEdit1.Text)+'''';
                Execute;
                Cmd_OK.Click;
            end;
        except
            Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Examine_Verify.Edit1Change(Sender: TObject);
begin
    Edit11.EditLabel.Caption:=Trim(Edit1.Text)+'审核人员';
end;

procedure Tfrm_Examine_Verify.Edit2Change(Sender: TObject);
begin
    Edit22.EditLabel.Caption:=Trim(Edit2.Text)+'审核人员';
end;

procedure Tfrm_Examine_Verify.Edit3Change(Sender: TObject);
begin
    Edit33.EditLabel.Caption:=Trim(Edit3.Text)+'审核人员';
end;

procedure Tfrm_Examine_Verify.Edit4Change(Sender: TObject);
begin
    Edit44.EditLabel.Caption:=Trim(Edit4.Text)+'审核人员';
end;

procedure Tfrm_Examine_Verify.Edit5Change(Sender: TObject);
begin
    Edit55.EditLabel.Caption:=Trim(Edit5.Text)+'审核人员';
end;

procedure Tfrm_Examine_Verify.Cmd_DeleteClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要删除该单据的审核级别设置吗？'+#13#10+'请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                frm_data.ClientDataSet_Add.CommandText:='';
                CommandText:='Delete [Level_Set] where Receipt_Name='''+Trim(LabeledEdit1.Text)+'''';
                Execute;
                Application.MessageBox('单据的［审核级别设置］删除操作成功，请确认！',pchar(application.Title),mb_iconwarning);
                ComboBox1.ItemIndex:=0;
                ComBoBox_index;;
            except
                Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        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.