mc_zhckxx.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_ZHCKXX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables, Buttons, ExtCtrls, DBCtrls;

type
  TZHCKXX = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBText1: TDBText;
    DBText2: TDBText;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZHCKXX: TZHCKXX;

implementation

uses MC_YZXXDJ, MC_MainForm;

{$R *.DFM}

procedure TZHCKXX.FormShow(Sender: TObject);
begin
     MainForm.Data.StartTransaction;
end;

procedure TZHCKXX.BitBtn2Click(Sender: TObject);
begin
     MainForm.Data.Rollback;
     Close;
end;

procedure TZHCKXX.BitBtn1Click(Sender: TObject);
begin
     MainForm.Data.Commit;
     Close;
end;

procedure TZHCKXX.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key=VK_UP) or (key=VK_DOWN) or (key=VK_Insert) then
        begin
             if Query1.FieldbyName('费用科目').AsString='' then
                begin
                     Query1.Cancel;
                     Abort;
                end;
        end;
end;

procedure TZHCKXX.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key=VK_UP) or (key=VK_DOWN) or (key=VK_Insert) then
        begin
             if Query2.FieldbyName('费用科目').AsString='' then
                begin
                     Query1.Cancel;
                     Abort;
                end;
        end;
end;

procedure TZHCKXX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     ZHCKXX.release;
     ZHCKXX:=Nil;
end;

procedure TZHCKXX.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
     if Query2.FieldbyName('费用科目').AsString='' then
                begin
                     Query1.Cancel;
                     Abort;
                end;
end;

procedure TZHCKXX.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
     if Query1.FieldbyName('费用科目').AsString='' then
                begin
                     Query1.Cancel;
                     Abort;
                end;
end;

end.