inv_oppoinvqry_hint.pas

一个MRPII系统源代码版本

unit Inv_OpPoInvQry_Hint;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Grids, DBGridEh, Db, AdODB, StdCtrls;

Type
  TFrm_Inv_OpPoInvQry_Hint = Class(TFrm_Base_Dialog)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    Label1: TLabel;
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure initform(VendorCode:string;AdoConnection:tAdoConnection);
    { Public declarations }
  end;

var
  Frm_Inv_OpPoInvQry_Hint: TFrm_Inv_OpPoInvQry_Hint;


implementation

{$R *.DFM}
procedure TFrm_Inv_OpPoInvQry_Hint.initform(VendorCode:string;AdoConnection:tAdoConnection);
begin
  AdoQry_tmp.Connection:=AdoConnection;
  AdoQry_tmp.Close;
  AdoQry_tmp.sql.clear;
  AdoQry_tmp.sql.text:=
    ' select pono,podate,poremArk '+
    '  from po '+
    '  where VendorCode='''+VendorCode+''' and '+
    '        poType=1 '+
    ' Order by Podate DESC ';
  AdoQry_tmp.open;
  dataSource1.DataSet :=AdoQry_tmp;
end;

procedure TFrm_Inv_OpPoInvQry_Hint.btn_okClick(Sender: TObject);
begin
  inherited;
  modalResult:=mrok;
end;

procedure TFrm_Inv_OpPoInvQry_Hint.FormActivate(Sender: TObject);
begin
  inherited;
  dbgrideh1.setfocus;
end;

procedure TFrm_Inv_OpPoInvQry_Hint.DBGridEh1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=vk_return then btn_ok.Click;
end;

procedure TFrm_Inv_OpPoInvQry_Hint.DBGridEh1DblClick(Sender: TObject);
begin
  inherited;
  btn_ok.Click;
end;

end.