outbom_query.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit Outbom_Query;

interface

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

type
  TForm_Outbom_Query = class(TForm)
    Lbl_emp_id: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Bevel1: TBevel;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Lbl_emp_name: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Lbl_seq_name: TLabel;
    lbl_num: TLabel;
    edt_num: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    lbl_yjnum: TLabel;
    Bevel2: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure edt_numKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Outbom_Query: TForm_Outbom_Query;

implementation
uses sharefun, Outbom_log;

{$R *.dfm}

procedure TForm_Outbom_Query.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TForm_Outbom_Query.FormShow(Sender: TObject);
begin
  Lbl_emp_id.Caption:=inttostr(Form_Outbom_log.tmpempid);
  lbl_emp_name.Caption:=form_outbom_log.tmpempname;
  lbl_seq_name.Caption:=form_outbom_log.seq_name;
  lbl_num.Caption:=inttostr(Form_Outbom_log.cc_number)+'  件';
  lbl_yjnum.Caption:=inttostr(Form_Outbom_log.OLdNS_number)+'  件';
  edt_num.SetFocus;
end;

procedure TForm_Outbom_Query.OKBtnClick(Sender: TObject);
var
  MNS_num:integer;
begin
  try
    form_outbom_log.NowNS_number:=strtoint(edt_num.Text);
  except
    msgErr(handle, '请输入正确的验收数量！');
    edt_num.SetFocus;
    exit;
  end;
  if form_outbom_log.NowNS_number<=0 then
  begin
    msgErr(handle, '请输入正确的验收数量！');
    edt_num.SetFocus;
    exit;
  end;
  MNS_num:=form_outbom_log.cc_number-form_outbom_log.OldNS_number;
  if form_outbom_log.NowNS_number>MNS_num then
  begin
    msgErr(handle, '请输入正确的验收数量！'+#13+#13+'     注意：返料数量 大于 发料数量！');
    edt_num.SetFocus;    
    exit;
  end;
  modalresult:=mrok;
end;

procedure TForm_Outbom_Query.edt_numKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['0'..'9',#13, #8]) then abort;
end;

end.