mrp_qry_analyzermo7_c.pas

一个MRPII系统源代码版本

unit Mrp_Qry_AnalyzerMo7_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, Mask;

Type
  TFrm_Mrp_Qry_AnalyzerMo7_C = Class(TFrm_Base_Condition)
    Label2: TLabel;
    Label6: TLabel;
    edtItemCodes: TEdit;
    edtItemCodee: TEdit;
    Label13: TLabel;
    cmbstatus: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure edtItemCodesKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_AnalyzerMo7_C: TFrm_Mrp_Qry_AnalyzerMo7_C;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Mrp_Qry_AnalyzerMo7_C.FormCreate(Sender: TObject);
begin
  inherited;
     edtItemCodes.Text:='0';
     edtItemCodee.Text:='ZZZZZ';
     cmbstatus.ItemIndex:=1;

end;

procedure TFrm_Mrp_Qry_AnalyzerMo7_C.edtItemCodesKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
 If key=120 Then
  CommOnHint(Sender,AdoQry_Tmp,'ItemName','物料描述','ItemCode',
             '物料代码',' Item ',' PmCode In (0,3) and ItemUsable=1 ');
end;

end.