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');  //銷售管理參數(shù)
  TabSheet1.Caption:=GetDBString('ORDS0001002');  //參數(shù)設置
  gbOther.Caption:=GetDBString('ORDS0001003');  //價格參數(shù)
  cbPrice.Caption:=GetDBString('ORDS0001004');  //允許手工修改銷售報價和銷售定單中的產(chǎn)品的價格
  cbDiscount.Caption:=GetDBString('ORDS0001005');  //允許手工修改銷售報價和銷售定單中的產(chǎn)品折扣金額
  bbtnOk.Caption:=GetDBString('ORDS0001006');  //確定(&O)
  bbtnExit.Caption:=GetDBString('ORDS0001007');  //退出(&X)
  cbCharge.Caption:=GetDBString('ORDS0001008');  //允許手工修改銷售定單和銷售報價中的特特費用項目的金額
  cbItem.Caption:=GetDBString('ORDS0001009');  //銷售定單中必須輸入對應的產(chǎn)品信息（維修和服務行業(yè)使用）
  //允許手工修改銷售報價和銷售定單中的產(chǎn)品的價格
  cbPrice.Checked:=GetSysParams('ORD0001')='Y';
  //允許手工修改銷售報價和銷售定單中的產(chǎn)品折扣金額
  cbDiscount.Checked:=GetSysParams('ORD0002')='Y';
  //允許同一張銷售報價單或銷售定單中選擇多個交貨地址
  cbPlace.Checked:=GetSysParams('ORD0003')='Y';
  //允許手工修改銷售定單和銷售報價中的特特費用項目的金額
  cbCharge.Checked:=GetSysParams('ORD0004')='Y';
  //銷售定單中必須輸入對應的產(chǎn)品信息（維修和服務行業(yè)使用）
  cbItem.Checked:=GetSysParams('ORD0005')='Y';
  if GetSysParams('ORD0006')='ORD510a' 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;
  //允許手工修改銷售報價和銷售定單中的產(chǎn)品的價格
  if cbPrice.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0001',S);
  //允許手工修改銷售報價和銷售定單中的產(chǎn)品折扣金額
  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);
  //銷售定單中必須輸入對應的產(chǎn)品信息（維修和服務行業(yè)使用）
  if cbItem.Checked then S:='Y' else S:='N';
  SetSysParams('ORD0005',S);
  Screen.Cursor:=crDefault;
  if rbOrder.Checked then SetSysParams('ORD0006','ORD510a');  //按照銷售訂單
  if rbTas.Checked then SetSysParams('ORD0006','TAS533');    //按照任務工單
  ShowMsg('UMS10000051');   //系統(tǒng)參數(shù)設置成功
  Close;
end;

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

initialization
  RegisterClass(TOrdS00_01Form);

finalization
  UnRegisterClass(TOrdS00_01Form);

end.