glds00_01.pas.svn-base

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

unit GldS00_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BAS100_01, ComCtrls, StdCtrls, Buttons, Spin;

type
  TGldS00_01Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    Label2: TLabel;
    SpinEdit2: TSpinEdit;
    Label3: TLabel;
    SpinEdit3: TSpinEdit;
    Label4: TLabel;
    SpinEdit4: TSpinEdit;
    Label5: TLabel;
    SpinEdit5: TSpinEdit;
    Label6: TLabel;
    SpinEdit6: TSpinEdit;
    Label7: TLabel;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Edit4: TEdit;
    UpDown1: TUpDown;
    Edit5: TEdit;
    UpDown2: TUpDown;
    Edit6: TEdit;
    UpDown3: TUpDown;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ListBox1: TListBox;
    Edit7: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Label14: TLabel;
    ComboBox1: TComboBox;
    ListBox2: TListBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Label15: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label16: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    CheckBox9: TCheckBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label21: TLabel;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label22: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    UpDown4: TUpDown;
    UpDown5: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GldS00_01Form: TGldS00_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TGldS00_01Form.FormCreate(Sender: TObject);
var
  S:String;
begin
  inherited;
  //科目长度
  S:=GetSysParams('GLD0001');
  if S<>'' then
  begin
    SpinEdit1.Value:=StrToInt(trim(copy(S,1,2)));
    SpinEdit2.Value:=StrToInt(trim(copy(S,3,2)));
    SpinEdit3.Value:=StrToInt(trim(copy(S,5,2)));
    SpinEdit4.Value:=StrToInt(trim(copy(S,7,2)));
    SpinEdit5.Value:=StrToInt(trim(copy(S,9,2)));
    SpinEdit6.Value:=StrToInt(trim(copy(S,11,2)));
  end;
end;

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

procedure TGldS00_01Form.BitBtn1Click(Sender: TObject);
var
  L:Integer;
  S:String;
begin
  inherited;
//ok
  L:=SpinEdit1.Value+SpinEdit2.Value+SpinEdit3.Value+SpinEdit4.Value+SpinEdit5.Value+SpinEdit6.Value;
  if L>20 then
  begin
    ShowMsg('科目总长度不能大干20');
    Abort;
  end;
  S:='';
  if SpinEdit1.Value<10 then S:=S+IntToStr(SpinEdit1.Value)+' ' else S:=S+IntToStr(SpinEdit1.Value);
  if SpinEdit2.Value<10 then S:=S+IntToStr(SpinEdit2.Value)+' ' else S:=S+IntToStr(SpinEdit2.Value);
  if SpinEdit3.Value<10 then S:=S+IntToStr(SpinEdit3.Value)+' ' else S:=S+IntToStr(SpinEdit3.Value);
  if SpinEdit4.Value<10 then S:=S+IntToStr(SpinEdit4.Value)+' ' else S:=S+IntToStr(SpinEdit4.Value);
  if SpinEdit5.Value<10 then S:=S+IntToStr(SpinEdit5.Value)+' ' else S:=S+IntToStr(SpinEdit5.Value);
  if SpinEdit6.Value<10 then S:=S+IntToStr(SpinEdit6.Value)+' ' else S:=S+IntToStr(SpinEdit6.Value);
  //科目长度
  SetSysParams('GLD0001',S);
  ShowMsg('总帐系统参数设置成功');
  Close;
end;

procedure TGldS00_01Form.BitBtn2Click(Sender: TObject);
begin
  inherited;
//exit
  Close;
end;

initialization
  RegisterClass(TGldS00_01Form);

finalization
  UnRegisterClass(TGldS00_01Form);

end.