bookfeeform.pas

一个详实的图书信息管理系统

unit bookfeeform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, DBCtrls, Mask, ExtCtrls, QuickRpt,
  Buttons,checkuser, ADODB,main;

type
  Tbookfreeform = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    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 initform();
  end;

var
  bookfreeform: Tbookfreeform;

implementation

{$R *.dfm}



procedure Tbookfreeform.initform();
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:=username;
  edit4.ReadOnly:=true;
 // edit4.Enabled:=false;
  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:='';
  combobox1.SetFocus;
end;

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

procedure Tbookfreeform.FormActivate(Sender: TObject);
begin
   ADOConnection1:=CheckUserForm.ADOConnection1;
   adotable1.Connection:=ADOConnection1;
   adotable1.TableName:='班级表';
   adotable1.Active:=true;
   edit1.Text:=floattostr(adotable1.fieldbyname('书费').AsCurrency);
   initform;
   while not adotable1.Eof do
   begin
     combobox1.Items.Add(adotable1.fieldbyname('班级名').AsString);
     adotable1.Next;
   end;
   combobox1.Text:='';
   adotable1.Close;
end;

procedure Tbookfreeform.ComboBox1Click(Sender: TObject);
begin
  edit3.Text:='0';
  adodataset1.Connection:=adoConnection1;
  adodataset1.CommandType:=cmdtext;
  adodataset1.CommandText:='select * from 班级表 where 班级名=:classname order by 班级名 asc';
  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:=currtostr(adodataset1.fieldbyname('书费').AsCurrency);
  edit6.Text:=inttostr(adodataset1.fieldbyname('班级人数').AsInteger);
  adodataset1.Close;
end;

procedure Tbookfreeform.Edit2Exit(Sender: TObject);
begin
    if edit2.Text ='' then
    edit2.Text:='0';
    edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text)*strtofloat(edit6.Text));
    edit5.Text:='新交费用' + edit2.Text+'*' + edit6.Text+'=' +
    floattostr(strtofloat(edit2.Text)*strtofloat(edit6.Text)) + '元';
end;

procedure Tbookfreeform.BitBtn1Click(Sender: TObject);
begin
    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:=ftstring;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:=strtofloat(edit3.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.TableName:='学生书费历史库';
    adotable1.Active:=true;
    adotable1.Append;
    adotable1.Edit;
    adotable1.fieldbyname('班级名').AsString:=combobox1.Text;
    adotable1.fieldbyname('上期书费').AsCurrency:=strtofloat(edit1.Text);
    adotable1.fieldbyname('本次费用').AsCurrency:=strtofloat(edit2.Text)*strtofloat(edit6.Text);
    adotable1.fieldbyname('本期费用').AsCurrency:=strtofloat(edit3.Text);
    adotable1.fieldbyname('经办人').AsString:=edit4.Text;
    adotable1.fieldbyname('操作员').AsString:=username;
    adotable1.fieldbyname('最后修改时间').AsDateTime:=date();
    adotable1.fieldbyname('说明').AsString:=edit5.Text;
    adotable1.Post;
    adotable1.Close;
    initform;
    combobox1.SetFocus;
end;

end.