rateset.pas

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

unit RateSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Mask, DBCtrlsEh, ImgList, ADODB, ComCtrls,
  ToolWin, Grids, DBGridEh, ExtCtrls;

type
  TRateSetFrm = class(TForm)
    Splitter1: TSplitter;
    Panel_Left: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Grid: TDBGridEh;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BtnNew: TToolButton;
    BtnSave: TToolButton;
    BtnEdit: TToolButton;
    BtnUndo: TToolButton;
    BtnDelete: TToolButton;
    ToolButton2: TToolButton;
    BtnExit: TToolButton;
    _RateSet: TDataSource;
    RateSet: TADOQuery;
    ImgList: TImageList;
    Label3: TLabel;
    Label4: TLabel;
    Rate1: TDBNumberEditEh;
    Rate2: TDBNumberEditEh;
    Rate3: TDBNumberEditEh;
    Rate4: TDBNumberEditEh;
    RateSetDSDesigner: TFloatField;
    RateSetDSDesigner2: TFloatField;
    RateSetDSDesigner3: TFloatField;
    RateSetDSDesigner4: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnUndoClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RateSetFrm: TRateSetFrm;

implementation

uses Link;

{$R *.dfm}

procedure TRateSetFrm.FormCreate(Sender: TObject);
begin
RateSet.Connection:=LinkSQL.PubLink;
RateSet.Active:=True;
RateSet.Recordset.Properties['Update Criteria'].Value:=0;//adCriteriaKey;

end;

procedure TRateSetFrm.BtnNewClick(Sender: TObject);
begin
RateSet.Insert
end;

procedure TRateSetFrm.BtnUndoClick(Sender: TObject);
begin
RateSet.CancelBatch
end;

procedure TRateSetFrm.BtnSaveClick(Sender: TObject);
begin
If Rate1.Value+(Rate2.Value)*(Rate4.Value-1) +Rate3.Value<>100 Then
Begin
Application.MessageBox('比例之和不等于100,不能保存', '提示',MB_ICONSTOP);
Exit
End;
try
LinkSQL.PubLink.BeginTrans;
RateSet.UpdateBatch ;
LinkSQL.PubLink.CommitTrans;
except on E: Exception do
begin
LinkSQL.PubLink.RollbackTrans;
Application.MessageBox(PChar('操作已被取消，错误描述如下：'#13#10 + E.Message), '提示',MB_ICONSTOP);

End
End
end;

procedure TRateSetFrm.BtnDeleteClick(Sender: TObject);
begin
try
LinkSQL.PubLink.BeginTrans;
If Application.MessageBox('该删除操作将不可返回,确定删除吗？','系统提示',MB_OKCancel+MB_ICONQuestion)<>IDOK then
Exit;
RateSet.Delete;
RateSet.UpdateBatch ;
LinkSQL.PubLink.CommitTrans;
except on E: Exception do
begin
LinkSQL.PubLink.RollbackTrans;
Application.MessageBox(PChar('操作已被取消，错误描述如下：'#13#10 + E.Message), '提示',MB_ICONSTOP);

End
End
end;

procedure TRateSetFrm.BtnEditClick(Sender: TObject);
begin
RateSet.Edit;
end;

procedure TRateSetFrm.BtnExitClick(Sender: TObject);
begin
Close
end;

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

end.