tfsjgx.pas

希望大家能多多指教这是我给我们同学编的系统

unit tfsjgx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, DBTables;

type
  Ttfsjform = class(TForm)
    Query1: TQuery;
    Table1: TTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Query1Tuanzhibu: TStringField;
    Query1Zongrenshu: TStringField;
    Query1Tuanfeijiaofou: TStringField;
    Table1Tuanzhibu: TStringField;
    Table1Zongrenshu: TStringField;
    Table1Tuanfeijiaofou: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tfsjform: Ttfsjform;

implementation

{$R *.dfm}

procedure Ttfsjform.BitBtn1Click(Sender: TObject);
begin
Query1.Params.Clear ;
            Query1.SQL.Clear ;
            Query1.Params.CreateParam(ftstring,'tzb',ptinput).AsString :=Edit1.Text ;
            Query1.Params.CreateParam(ftstring,'zrs',ptinput).AsString :=Edit2.Text ;
            Query1.Params.CreateParam(ftstring,'tfjf',ptinput).AsString :=Edit3.Text ;


            Query1.SQL.Add('insert into 团费收缴(tuanzhibu,zongrenshu,tuanfeijiaofou) values(:tzb,:zrs,:tfjf)');
            Query1.ExecSQL ;
           Edit1.Clear ;
           Edit2.Clear ;
           Edit3.Clear ;

           Edit1.SetFocus ;
           Edit1.Focused ;

end;

procedure Ttfsjform.Edit3Change(Sender: TObject);
begin
bitbtn1.Enabled:=true;
end;

end.