spxx2.pas

《仓库管理系统》 开发语言：Delphi7.0 数据库：SQLServer2000 数据库文件：仓库管理系统_Data.MDF,仓库管理系统_Log.LDF(mingrisoft仓库管理系统Da

unit spxx2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids;

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

var
  Form15: TForm15;

implementation
  uses rkthxt,Datamodal, rkglxt;
{$R *.dfm}

procedure TForm15.DBGrid1DblClick(Sender: TObject);
begin
  Form14.StringGrid1.Cells[5,Form14.StringGrid1.RowCount-1]:= Data.ADOQuery2.FieldByName('供应商编号').AsString;
  Form14.StringGrid1.Cells[6,Form14.StringGrid1.RowCount-1]:= Data.ADOQuery2.FieldByName('供应商全称').AsString;
  Self.Close;
end;

procedure TForm15.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    DBGrid1.OnDblClick(Sender);
end;

procedure TForm15.FormShow(Sender: TObject);
begin
  DBGrid1.SetFocus;
end;

end.