gysjcxx.~pas

帮助学校更快捷方便的完成考试

unit gysjcxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids,Model,SPXXGL;

type
  TForm8 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.DBGrid1DblClick(Sender: TObject);
begin
  Form4.Edit12.Text := Trim(data.ADOQuery4.FieldByName('供应商编号').Value);
  Form4.Edit10.SetFocus;
  Close;
end;

procedure TForm8.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_Up then
    if Not data.ADOQuery4.Bof then
      data.ADOQuery4.Prior;
  if Key = VK_Down then
    if Not data.ADOQuery4.Eof then
      data.ADOQuery4.Next;
  if Key = VK_ReTurn then
    DBGrid1.OnDblClick(Sender);
end;

end.