tax.pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit tax;

interface

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

type
  Ttaxform = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure initiate;
    procedure FormActivate(Sender: TObject);
    procedure loadfromtable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure savetotable;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  taxform: Ttaxform;
  new_record:boolean;

implementation

uses main;

{$R *.dfm}

procedure ttaxform.savetotable;
begin
  adotable1.Edit;
  adotable1.fieldbyname('division').asinteger:=strtoint(edit1.text);
  adotable1.fieldbyname('rate').AsFloat:=strtofloat(edit2.Text);
  adotable1.fieldbyname('note').AsString:=edit3.text;
  adotable1.Post;
end;

procedure ttaxform.initiate;
begin
  edit1.text:='';
  edit2.Text:='';
  edit3.text:='';
end;

procedure Ttaxform.Button4Click(Sender: TObject);
begin
  close;
end;

procedure ttaxform.loadfromtable;
begin
  edit1.text:=inttostr(adotable1.fieldbyname('division').AsInteger);
  edit2.text:=floattostr(adotable1.fieldbyname('rate').AsFloat);
  edit3.text:=adotable1.fieldbyname('note').AsString;
end;

procedure Ttaxform.FormActivate(Sender: TObject);
begin
  dbgrid1.datasource:=datasource1;
  datasource1.dataset:=adotable1;
  adotable1.connection:=adoconnection1;
  adotable1.tablename:='tax';
  adotable1.active:=true;
  initiate;
  new_record:=false;
  if adotable1.Eof then
    button2.Enabled:=false
  else
    loadfromtable;
end;


procedure Ttaxform.Button1Click(Sender: TObject);
begin
    new_record:=true;
    edit1.Enabled:=true;
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit1.SetFocus;
end;

procedure Ttaxform.Button2Click(Sender: TObject);
begin
    adotable1.Delete;
    adotable1.first;
end;


procedure Ttaxform.Button3Click(Sender: TObject);
begin
  if new_record then
  begin
    adotable1.append;
    new_record:=false;
  end;
  savetotable;
  if adotable1.recordset.recordcount>0 then
    button2.enabled:=true;
end;

procedure ttaxform.ADOTable1AfterScroll(DataSet: TDataSet);
begin
      if not new_record then
        loadfromtable;
end;

end.