method.pas

来自「仲裁委仲裁案件计酬程序.有基础资料设置、分级设置」· PAS 代码 · 共 116 行

unit Method;

interface

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

type
  TMethodFrm = class(TForm)
    Splitter1: TSplitter;
    Panel_Left: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    EName: TDBEdit;
    Grid: TDBGridEh;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BtnNew: TToolButton;
    BtnSave: TToolButton;
    BtnEdit: TToolButton;
    BtnUndo: TToolButton;
    BtnDelete: TToolButton;
    BtnPrevious: TToolButton;
    BtnNext: TToolButton;
    BtnExit: TToolButton;
    _MethodData: TDataSource;
    MethodData: TADOQuery;
    ImgList: TImageList;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh3: TDBNumberEditEh;
    DBNumberEditEh4: TDBNumberEditEh;
    Label7: TLabel;
    DBNumberEditEh5: TDBNumberEditEh;
    Label8: TLabel;
    DBNumberEditEh6: TDBNumberEditEh;
    Label9: TLabel;
    DBNumberEditEh7: TDBNumberEditEh;
    Label10: TLabel;
    DBNumberEditEh8: TDBNumberEditEh;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure ENameEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MethodFrm: TMethodFrm;

implementation

uses Link;

{$R *.dfm}

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

end;

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

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

procedure TMethodFrm.BtnNewClick(Sender: TObject);
begin
MethodData.Append ;
EName.SetFocus ;
end;

procedure TMethodFrm.BtnSaveClick(Sender: TObject);
begin
try
LinkSQL.PubLink.BeginTrans;
MethodData.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 TMethodFrm.ENameEnter(Sender: TObject);
begin
ToChinese(0,True)
end;

end.