invs00_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit InvS00_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS100_01, Menus, StdCtrls, Buttons, ComCtrls, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms;

type
  TINVS00_01Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    TabSheet1: TTabSheet;
    gbABC: TGroupBox;
    lblA: TLabel;
    edtValueA: TEdit;
    lblB: TLabel;
    edtValueB: TEdit;
    lblC: TLabel;
    edtValueC: TEdit;
    gbOther: TGroupBox;
    cbPrint: TCheckBox;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    cbWhsNum: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure edtValueAKeyPress(Sender: TObject; var Key: Char);
    procedure edtValueBKeyPress(Sender: TObject; var Key: Char);
    procedure edtValueCKeyPress(Sender: TObject; var Key: Char);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  INVS00_01Form: TINVS00_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TINVS00_01Form.SetInterface;
var
  S:String;
begin
//  Caption:=GetDBString('INVS0001001');  //库存管理参数
//  lblA.Caption:=GetDBString('INVS0001002');  //A 类料品的总金额占用百分比
//  lblB.Caption:=GetDBString('INVS0001003');  //B 类料品的总金额占用百分比
//  lblC.Caption:=GetDBString('INVS0001004');  //C 类料品的总金额占用百分比

  TabSheet1.Caption:=GetDBString('TASS0001002');  //参数设置
  gbOther.Caption:=GetDBString('TASS0001005');  //其他参数
  bbtnOk.Caption:=GetDBString('TASS0001014');  //确定(&O)
  bbtnExit.Caption:=GetDBString('TASS0001015');  //退出(&X)

  S:=GetSysParams('INV0001');  //默认值为85
  if S<>'' then edtValueA.Text:=S;
  S:=GetSysParams('INV0002');  //默认值为15
  if S<>'' then edtValueB.Text:=S;
  S:=GetSysParams('INV0003');  //默认值为5
  if S<>'' then edtValueC.Text:=S;

  S:=GetSysParams('INV0004'); //是否打印现有库存数量于盘点单上
  if S='True' then cbPrint.Checked:=True
  else cbPrint.Checked:=False;

  S:=GetSysParams('INV0005'); //出库后库存不能为负数
  if S='True' then cbWhsNum.Checked:=True
  else cbWhsNum.Checked:=False;

end;

procedure TINVS00_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  PageControl1.ActivePageIndex:=0;
end;

procedure TINVS00_01Form.bbtnOkClick(Sender: TObject);
var
  I:integer;
begin
  inherited;
//确定(&O)
  Screen.Cursor:=crHourGlass;

  I:=strtoint(edtValueA.Text)+strtoint(edtValueB.Text)+strtoint(edtValueC.Text);

  if I=100 then
  begin
    //设置ABC值
    SetSysParams('INV0001',edtValueA.Text);
    SetSysParams('INV0002',edtValueB.Text);
    SetSysParams('INV0003',edtValueC.Text);

    //是否打印现有库存数量
    if cbPrint.Checked then SetSysParams('INV0004','True') else SetSysParams('INV0004','False');
    //出库后库存不能为负数
    if cbWhsNum.Checked then SetSysParams('INV0005','True') else SetSysParams('INV0005','False');

    Screen.Cursor:=crDefault;
    ShowMsg('UMS10000051');   //系统参数设置成功
    Close;
  end
  else
  begin
    //ShowMsg('INV10000005');   //ABC总百分比必须等于100
  end;

end;

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

procedure TINVS00_01Form.edtValueAKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  //检查输入是否数字
  ValidInteger(Sender,Key);
end;

procedure TINVS00_01Form.edtValueBKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  //检查输入是否数字
  ValidInteger(Sender,Key);
end;

procedure TINVS00_01Form.edtValueCKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  //检查输入是否数字
  ValidInteger(Sender,Key);
end;

initialization
  RegisterClass(TINVS00_01Form);

finalization
  UnRegisterClass(TINVS00_01Form);

end.