judge.pas

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

unit Judge;

interface

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

  
type
  TJudgeFrm = 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;
    BtnPrevious: TToolButton;
    BtnNext: TToolButton;
    BtnExit: TToolButton;
    _EmpData: TDataSource;
    EmpData: TADOQuery;
    ImgList: TImageList;
    Label4: TLabel;
    EValide: TDBCheckBox;
    Male: TDBRadioGroup;
    ENumber: TDBEdit;
    EName: TDBEdit;
    EIDNumber: TDBEdit;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    EWorkmate: TDBCheckBox;
    procedure BtnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnUndoClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure ENumberKeyPress(Sender: TObject; var Key: Char);
    procedure ENameEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JudgeFrm: TJudgeFrm;

implementation

{$R *.dfm}
Uses Link;
procedure TJudgeFrm.BtnExitClick(Sender: TObject);
begin
Close
end;

procedure TJudgeFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree
end;

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


end;

procedure TJudgeFrm.BtnNewClick(Sender: TObject);
begin
EmpData.Append;
Male.ItemIndex:=0;
EValide.Checked:=True;
ENumber.SetFocus;
end;

procedure TJudgeFrm.BtnUndoClick(Sender: TObject);
begin
EmpData.CancelBatch
end;

procedure TJudgeFrm.BtnSaveClick(Sender: TObject);
begin
try
LinkSQL.PubLink.BeginTrans;
EmpData.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 TJudgeFrm.BtnDeleteClick(Sender: TObject);
begin
try
LinkSQL.PubLink.BeginTrans;
If Application.MessageBox('该删除操作将不可返回,确定删除吗？','系统提示',MB_OKCancel+MB_ICONQuestion)<>IDOK then
Exit;
EmpData.Delete;
EmpData.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 TJudgeFrm.ENumberKeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 Then
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);

end;

procedure TJudgeFrm.ENameEnter(Sender: TObject);
begin
ToChinese(0,True)
end;

end.