bookfee.~pas

本系统是一个由delphi制作而成的教材管理系统.

unit bookfee;

interface

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

type
  TBookFeeForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    Edit6: TEdit;
    Label7: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
  end;

var
  BookFeeForm: TBookFeeForm;

implementation
  uses main;
{$R *.dfm}

procedure TBookFeeForm.BitBtn2Click(Sender: TObject);
begin
    close;
end;
procedure TBookFeeForm.initiate;
begin
    edit2.text:='0';
    edit1.text:='0';
    edit1.ReadOnly:=true;
    edit1.TabStop:=false;
    edit1.Enabled:=false;
    edit3.text:='0';
    edit3.ReadOnly:=true;
    edit3.TabStop:=false;
    edit3.Enabled:=false;
    edit4.text:='';
    edit5.text:='缴纳费用0元';
    edit5.ReadOnly:=true;
    edit5.TabStop:=false;
    edit5.Enabled:=false;
    edit6.text:='0';
    edit6.ReadOnly:=true;
    edit6.TabStop:=false;
    edit6.Enabled:=false;
    combobox1.text:='';
end;
procedure TBookFeeForm.FormActivate(Sender: TObject);
var
    adotable1:TAdoTable;
begin
    AdoTable1:=TAdoTable.Create(self);
    AdoTable1.Connection:=adoconnection1;
    adotable1.tablename:='班级表';
    adotable1.Active:=true;
    edit1.Text:=floattostr(adotable1.fieldbyname('书费').ascurrency);
    initiate;
    ComboBox1.Items.Clear;
    while not adotable1.Eof do
    begin
        ComboBox1.Items.add(adotable1.fieldbyname('班级名').asstring);
        adotable1.next;
    end;
    combobox1.text:='';
    adotable1.Close;
end;

procedure TBookFeeForm.ComboBox1Click(Sender: TObject);
var
    adodataset1:TAdoDataset;
begin
    adodataset1:=TAdoDataset.Create(self);
    Adodataset1.Connection:=adoconnection1;
    adodataset1.CommandType:=cmdtext;
    adodataset1.CommandText:='select * from 班级表 where 班级名=:classname';
    adodataset1.Parameters.Clear;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].name:='classname';
    adodataset1.Parameters[0].DataType:=ftstring;
    adodataset1.Parameters[0].direction:=pdinput;
    adodataset1.Parameters[0].Value:=combobox1.text;
    adodataset1.Active:=true;
    edit1.text:=floattostr(adodataset1.fieldbyname('书费').ascurrency);
    edit6.text:=IntToStr(AdoDataset1.FieldByName('班级人数').asinteger);
    adodataset1.close;
end;

procedure TBookFeeForm.Edit2Exit(Sender: TObject);
begin
    edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(Edit2.text)*StrToInt(Edit6.text));
    edit5.text:='缴纳书费'+edit2.text+'*'+edit6.text+'元';
end;

procedure TBookFeeForm.BitBtn1Click(Sender: TObject);
var
    adotable1:TAdoTable;
    adoquery1:TAdoQuery;
begin
    adoquery1:=TAdoQuery.Create(self);
    adoquery1.Connection:=adoconnection1;
    adoquery1.close;
    adoquery1.SQL.clear;
    adoquery1.sql.add('update 班级表 set 书费=:fee where 班级名=:classname');
    adoquery1.Parameters.Clear;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[0].name:='fee';
    adoquery1.Parameters[0].DataType:=ftcurrency;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:=strtofloat(edit2.text)*strtoint(Edit6.text);
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[1].name:='classname';
    adoquery1.Parameters[1].DataType:=ftstring;
    adoquery1.Parameters[1].Direction:=pdinput;
    adoquery1.Parameters[1].Value:=combobox1.text;
    adoquery1.Prepared;
    adoquery1.ExecSQL;
    adoquery1.Close;
    AdoTable1:=TAdoTable.Create(self);
    AdoTable1.Connection:=AdoConnection1;
    AdoTable1.TableName:='学生书费历史库';
    adotable1.Active:=true;
    adotable1.Append;
    adotable1.edit;
    adotable1.FieldByName('班级名').asstring:=ComboBox1.text;
    adotable1.FieldByName('班级人数').asinteger:=StrtoInt(edit6.text);
    adotable1.fieldByName('上期费用').AsCurrency:=strtofloat(edit1.text);
    adotable1.fieldByName('本次费用').AsCurrency:=strtofloat(edit2.text)*StrToInt(Edit6.text);
    adotable1.fieldByName('本期费用').AsCurrency:=strtofloat(edit3.text);
    adotable1.fieldByName('经办人').Asstring:=edit4.text;
    adotable1.fieldByName('操作员').Asstring:=mainform.username;
    adotable1.fieldByName('最后修改时间').AsDateTime:=Date();
    adotable1.fieldByName('说明').Asstring:=edit5.text;
    adotable1.post;
    adotable1.close;
    initiate;
    combobox1.SetFocus;
end;

end.