sfc_mooutqry_hint.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 69 行

unit Sfc_MoOutQry_Hint;

Interface

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

Type
  TFrm_Sfc_MoOutQry_Hint = Class(TFrm_Base_Dialog)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    procedure btn_okClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure InitFrom(DBConnect:TAdoConnection;DeptCode :String);
    { Public declarations }
  end;

var
  Frm_Sfc_MoOutQry_Hint: TFrm_Sfc_MoOutQry_Hint;

implementation

{$R *.DFM}

{ TFrm_Sfc_MoOutQry_Hint }

procedure TFrm_Sfc_MoOutQry_Hint.InitFrom(DBConnect: TAdoConnection;
  DeptCode: String);
begin
  AdoQry_Tmp.Connection:=DBConnect;
  With AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select MoNo,MoDate,MoRemArk From Mo '+
                       '  Where DeptCode='+quotedstr(copy(DeptCode,1,2))+
                       ' or DeptCode='+quotedstr(DeptCode)+
                       '  Order By MoDate DESC ');
    Open;                   
  end;
end;

procedure TFrm_Sfc_MoOutQry_Hint.btn_okClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrOk;
end;

procedure TFrm_Sfc_MoOutQry_Hint.DBGridEh1DblClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrOk;
end;

procedure TFrm_Sfc_MoOutQry_Hint.DBGridEh1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=vk_return then ModalResult:=mrOk;
end;

end.