sal_enter_passsalecontract_c.pas

一个MRPII系统源代码版本

unit Sal_Enter_PassSaleContract_C;

Interface

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

Type
  TFrm_Sal_Enter_PassSaleContract_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    edt_CustomerCode: TEdit;
    edt_CustomerName: TEdit;
    cmb_Status: TComboBox;
    Label3: TLabel;
    procedure edt_CustomerCodeExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Sal_Enter_PassSaleContract_C: TFrm_Sal_Enter_PassSaleContract_C;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Sal_Enter_PassSaleContract_C.edt_CustomerCodeExit(Sender: TObject);
var sqltext:string;
begin
  inherited;
  sqltext:='select customerName from customer where customerCode='+quotedstr(Trim(edt_CustomerCode.text));
  Executesql(AdoQry_tmp,sqltext,0);
  edt_CustomerName.Text:=AdoQry_tmp.fieldbyname('customerName').asstring;  
end;


procedure TFrm_Sal_Enter_PassSaleContract_C.btn_okClick(Sender: TObject);
var sqltext:string;
begin
   if not (Trim(edt_CustomerCode.text)='') then
    begin
       sqltext:='select * from customer where customerCode='+quotedstr(Trim(edt_CustomerCode.text));
       Executesql(AdoQry_tmp,sqltext,0);
       if AdoQry_tmp.RecordCount=0 then
        begin
         DispInfo('客户代码错误！',3);
         edt_CustomerCode.SetFocus;
         modalResult:=mrnone;
         abort;
        end;
    end;
  inherited;

end;

procedure TFrm_Sal_Enter_PassSaleContract_C.FormCreate(Sender: TObject);
begin
  inherited;
  cmb_Status.ItemIndex:=0;
end;

end.