szsds.~pas

人事管理系统的源代码

unit Szsds;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type
  TTax_Form = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initform();
    procedure initdbgrid();
    procedure loadfromtable();
  end;

var
  Tax_Form: TTax_Form;

implementation

uses Main;

{$R *.dfm}




procedure TTax_Form.initform();
begin
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';

end;


procedure TTax_Form.initdbgrid ();
begin

    dbgrid1.Columns[0].Width:=180;
    dbgrid1.Columns[1].Width:=170;
    dbgrid1.Columns[2].Width:=235;
end;


procedure TTax_Form.loadfromtable();
begin
     edit1.Text:=inttostr(adotable1.Fieldbyname('分征点').AsInteger);
     edit3.Text:=floattostr(adotable1.Fieldbyname('税率').Asfloat);
     edit2.Text:=adotable1.Fieldbyname('说明').AsString;
end;

procedure TTax_Form.FormActivate(Sender: TObject);
begin
    dbgrid1.ReadOnly:=true;
    ADOConnection1:=MAIN_FORM.ADOConnection1;
    dbgrid1.DataSource:=DataSource1;
    DataSource1.DataSet:=adotable1;
    adotable1.Close;
    adotable1.Connection:=ADOConnection1;
    adotable1.TableName:='分征点设置表';
    adotable1.Active:=true;


    adotable2.Connection:=ADOConnection1;
    adotable2.TableName:='分征点设置表';
    adotable2.Active:=false;
    loadfromtable;
    if adotable1.Recordset.RecordCount<=0 then
       bitbtn3.Enabled:=false
    else
       bitbtn3.Enabled:=true;
    initdbgrid;
end;

procedure TTax_Form.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TTax_Form.BitBtn4Click(Sender: TObject);
begin
   if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') then
   begin
      adotable2.close;
      adotable2.Open;
      adotable2.AppendRecord([
                             strtoint(edit1.Text),
                             strtofloat(edit3.Text),
                             edit2.text]
                             );
      adotable2.Close;
      adotable1.Active:=false;
      adotable1.Active:=true;
      initdbgrid;
   end;
end;

procedure TTax_Form.BitBtn3Click(Sender: TObject);
begin
  if adotable1.Recordset.RecordCount>=1 then
     adotable1.Delete
  else
     bitbtn3.Enabled:=false;
end;

procedure TTax_Form.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  loadfromtable;
end;

procedure TTax_Form.BitBtn1Click(Sender: TObject);
begin
    adotable1.Edit;
    adotable1.FieldByName('分征点').AsInteger:=strtoint(edit1.Text);
    adotable1.FieldByName('税率').AsFloat:=strtofloat(edit3.Text);
    adotable1.FieldByName('说明').AsString:=edit2.Text;
    adotable1.Post;
end;

end.