ords00_01.pas.svn-base

一个用Delphi开发的ERP软件

unit OrdS00_01;

interface

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

type
  TOrdS00_01Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    gbOther: TGroupBox;
    cbPrice: TCheckBox;
    cbDiscount: TCheckBox;
    cbPlace: TCheckBox;
    cbCharge: TCheckBox;
    cbItem: TCheckBox;
    RadioGroup1: TRadioGroup;
    rbOrder: TRadioButton;
    rbTas: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OrdS00_01Form: TOrdS00_01Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TOrdS00_01Form.SetInterface;
begin
  Caption:=GetDBString('ORDS0001001');  //销售管理参数
  TabSheet1.Caption:=GetDBString('ORDS0001002');  //参数设置
  gbOther.Caption:=GetDBString('ORDS0001003');  //价格参数
  cbPrice.Caption:=GetDBString('ORDS0001004');  //允许手工修改销售报价和销售定单中的产品的价格
  cbDiscount.Caption:=GetDBString('ORDS0001005');  //允许手工修改销售报价和销售定单中的产品折扣金额
  bbtnOk.Caption:=GetDBString('ORDS0001006');  //确定(&O)
  bbtnExit.Caption:=GetDBString('ORDS0001007');  //退出(&X)
  cbCharge.Caption:=GetDBString('ORDS0001008');  //允许手工修改销售定单和销售报价中的特特费用项目的金额
  cbItem.Caption:=GetDBString('ORDS0001009');  //销售定单中必须输入对应的产品信息（维修和服务行业使用）
  //允许手工修改销售报价和销售定单中的产品的价格
  cbPrice.Checked:=GetSysParams('ORD0001')='Y';
  //允许手工修改销售报价和销售定单中的产品折扣金额
  cbDiscount.Checked:=GetSysParams('ORD0002')='Y';
  //允许同一张销售报价单或销售定单中选择多个交货地址
  cbPlace.Checked:=GetSysParams('ORD0003')='Y';
  //允许手工修改销售定单和销售报价中的特特费用项目的金额
  cbCharge.Checked:=GetSysParams('ORD0004')='Y';
  //销售定单中必须输入对应的产品信息（维修和服务行业使用）
  cbItem.Checked:=GetSysParams('ORD0005')='Y';
  if GetSysParams('ORD0006')='ORD510' then
    rbOrder.Checked:=True
  else
    rbTas.Checked:=True;
  PageControl1.ActivePageIndex:=0;
end;

procedure TOrdS00_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
end;

procedure TOrdS00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TOrdS00_01Form.bbtnOkClick(Sender: TObject);
var
  S:String;
begin
  inherited;
//确定(&O)
  Screen.Cursor:=crHourGlass;
  //允许手工修改销售报价和销售定单中的产品的价格
  if cbPrice.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0001',S);
  //允许手工修改销售报价和销售定单中的产品折扣金额
  if cbDiscount.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0002',S);
  //允许同一张销售报价单或销售定单中选择多个交货地址
  if cbPlace.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0003',S);
  //允许手工修改销售定单和销售报价中的特特费用项目的金额
  if cbCharge.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0004',S);
  //销售定单中必须输入对应的产品信息（维修和服务行业使用）
  if cbItem.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0005',S);
  Screen.Cursor:=crDefault;
  if rbOrder.Checked then SetSysParams('ORD0005','ORD510');  //按照销售订单
  if rbTas.Checked then SetSysParams('ORD0005','TAS533');    //按照任务工单
  ShowMsg('UMS10000051');   //系统参数设置成功
  Close;
end;

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

initialization
  RegisterClass(TOrdS00_01Form);

finalization
  UnRegisterClass(TOrdS00_01Form);

end.