easygas_banks.pas

来自「EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空」· PAS 代码 · 共 48 行

unit EASYGAS_BANKS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EASY_GASMAIN, Grids, DBGridEh, ExtCtrls, DBCtrls, DB, ADODB,
  StdCtrls, Buttons;

type
  TBANKDLG = class(TForm)
    BANKS: TADODataSet;
    BANKSS: TDataSource;
    DBNavigator1: TDBNavigator;
    DBG: TDBGridEh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure DBGKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BANKDLG: TBANKDLG;

implementation

{$R *.dfm}

procedure TBANKDLG.DBGKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then PostMessage(DBG.Handle,WM_KEYDOWN,VK_TAB,0);
end;

procedure TBANKDLG.DBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  GridTitleClick(DBG,ACol,Column);
end;

end.