cshs00_01.pas.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 104 行

unit CshS00_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, StdCtrls, Buttons, dxCntner, dxEditor, dxExEdtr,
  dxEdLib, ComCtrls, Menus;

type
  TCshS00_01Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    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
  CshS00_01Form: TCshS00_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TCshS00_01Form.SetInterface;
begin
  Caption:=GetDBString('CSHS0001001');  //现金系统参数
  TabSheet1.Caption:=GetDBString('CSHS0001002');  //系统参数
  GroupBox1.Caption:=GetDBString('CSHS0001003');  //记帐条件设置
  CheckBox1.Caption:=GetDBString('CSHS0001004');  //允许帐户余额为负数
  CheckBox2.Caption:=GetDBString('CSHS0001005');  //允许记帐时收入支出金额为负数

  bbtnOk.Caption:=GetDBString('CSHS0001012');  //确定(&O)
  bbtnExit.Caption:=GetDBString('CSHS0001013');  //退出(&X)
end;

procedure TCshS00_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  //设置界面信息
  SetInterface;
  PageControl1.ActivePageIndex:=0;

  //初始化系统参数
  //允许帐户余额为负数
  CheckBox1.Checked:=GetSysParams('CSH0001')='Y';

  //允许记帐时收入支出金额为负数
  CheckBox2.Checked:=GetSysParams('CSH0002')='Y';
end;

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

procedure TCshS00_01Form.bbtnOkClick(Sender: TObject);
var
  S:String;
begin
  inherited;
//确定(&O)
  //允许帐户余额为负数
  if CheckBox1.Checked then S:='Y' else S:='N';
  SetSysParams('CSH0001',S);
  //允许记帐时收入支出金额为负数
  if CheckBox2.Checked then S:='Y' else S:='N';
  SetSysParams('CSH0002',S);

  ShowMsg('UMS10000051');   //系统参数设置成功
  Close;
end;

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

initialization
  RegisterClass(TCshS00_01Form);

finalization
  UnRegisterClass(TCshS00_01Form);

end.