purs00_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

unit PurS00_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, Menus, StdCtrls, Buttons, ComCtrls, DB, ADODB;

type
  TPurS00_01Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    gbPrice: TGroupBox;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    cbPrice: TCheckBox;
    cbDiscount: TCheckBox;
    cbPlace: TCheckBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtCust: TEdit;
    sbCust: TSpeedButton;
    edtCustName: TEdit;
    lblAddress: TLabel;
    edtAddress: TEdit;
    qryOrd150: TADOQuery;
    qryOrd150O150_001: TAutoIncField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd150O150_004: TWideStringField;
    qryOrd150O150_005: TWideStringField;
    qryOrd150O150_006: TWideStringField;
    qryOrd150O150_012: TWideStringField;
    qryOrd150O151_002: TWideStringField;
    qryOrd150O151_003: TWideStringField;
    qryOrd150O151_004: TWideStringField;
    qryOrd150O120_002: TWideStringField;
    qryOrd150O150_011: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure sbCustClick(Sender: TObject);
    procedure edtCustExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure SetInterface;
  public
    { Public declarations }
  end;

var
  PurS00_01Form: TPurS00_01Form;

implementation

uses CommFun, HwSelData;

{$R *.dfm}

procedure TPurS00_01Form.SetInterface;
var
  S:String;
begin
  Caption:=GetDBString('PURS0001001');  //采购管理参数
  TabSheet1.Caption:=GetDBString('PURS0001002');  //参数设置
  gbPrice.Caption:=GetDBString('PURS0001003');  //价格参数
  cbPrice.Caption:=GetDBString('PURS0001004');  //允许手工修改采购定单中的产品的价格
  cbDiscount.Caption:=GetDBString('PURS0001005');  //允许手工修改采购定单中的产品折扣金额
  bbtnOk.Caption:=GetDBString('PURS0001006');  //确定(&O)
  bbtnExit.Caption:=GetDBString('PURS0001007');  //退出(&X)
  //允许手工修改采购定单中的产品的价格
  cbPrice.Checked:=GetSysParams('PUR0001')='Y';
  //允许手工修改采购定单中的产品折扣金额
  cbDiscount.Checked:=GetSysParams('PUR0002')='Y';
  //允许同一张采购定单中选择多个交货地址
  cbPlace.Checked:=GetSysParams('PUR0003')='Y';
  //缺省的交货地址
  S:=GetSysParams('PUR0004');
  if S='' then S:='0';
  if qryOrd150.Locate('O150_001',S,[]) then
  begin
    edtCust.Text:=qryOrd150.FieldByName('O150_002').AsString;
    edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString;
  end;
  PageControl1.ActivePageIndex:=0;
end;

procedure TPurS00_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  qryOrd150.Open;
  SetInterface;
end;

procedure TPurS00_01Form.bbtnOkClick(Sender: TObject);
var
  S:String;
begin
  inherited;
//确定(&O)
  Screen.Cursor:=crHourGlass;
  //允许手工修改采购定单中的产品的价格
  if cbPrice.Checked then S:='Y' else S:='N';
  SetSysParams('PUR0001',S);
  //允许手工修改采购定单中的产品折扣金额
  if cbDiscount.Checked then S:='Y' else S:='N';
  SetSysParams('PUR0002',S);
  //允许同一张采购定单中选择多个交货地址
  if cbPlace.Checked then S:='Y' else S:='N';
  SetSysParams('PUR0003',S);
  //缺省的交货地址
  qryOrd150.Locate('O150_002',edtCust.Text,[]);
  S:=qryOrd150.FieldByName('O150_001').AsString;
  SetSysParams('PUR0004',S);
  Screen.Cursor:=crDefault;
  ShowMsg('UMS10000051');   //系统参数设置成功
  Close;
end;

procedure TPurS00_01Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出(&X)
  Close;
end;

procedure TPurS00_01Form.sbCustClick(Sender: TObject);
begin
  inherited;
//客户编号
  if not edtCust.Focused then edtCust.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryOrd150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    if qryOrd150.IsEmpty then Exit;
    edtCust.Text:=qryOrd150.FieldByName('O150_002').AsString;
    edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString;
  end;
end;

procedure TPurS00_01Form.edtCustExit(Sender: TObject);
begin
  inherited;
//客户编号
  if trim(edtCust.Text)='' then Exit;
  if qryOrd150.Locate('O150_002',edtCust.Text,[]) then
  begin
    edtCust.Text:=qryOrd150.FieldByName('O150_002').AsString;
    edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString;
  end else
  begin
    ShowMsg('UMS10000264');  //输入的客户编号无效
    edtCust.SetFocus;
    Abort;
  end;
end;

procedure TPurS00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryOrd150.Close;
end;

initialization
  RegisterClass(TPurS00_01Form);

finalization
  UnRegisterClass(TPurS00_01Form);

end.