returnfee.~pas

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

unit returnfee;

interface

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

type
  Treturnfeeform = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection2: TADOConnection;
    ADOTable2: TADOTable;
    ADODataSet2: TADODataSet;
    ADOQuery2: TADOQuery;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
    procedure initform;
    procedure shuoming;
  public
    { Public declarations }
  end;

var
  returnfeeform: Treturnfeeform;

implementation

uses CheckUser,main;

{$R *.dfm}



procedure Treturnfeeform.shuoming();
begin
  adodataset1.Connection:=adoConnection1;
  adodataset1.CommandType:=cmdtext;
  adodataset1.CommandText:='select * from 学生书费历史库 where 班级名=:classname order by 最后修改时间 desc';
  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;
  edit5.Text:=adodataset1.fieldbyname('说明').Asstring;
  adodataset1.Close;
end;

procedure Treturnfeeform.initform();
begin
  edit1.Text:='0';
  edit1.ReadOnly:=true;
  edit1.TabStop:=false;
  edit1.Enabled:=true;
  edit2.Text:='0';
  edit2.ReadOnly:=true;
  edit2.TabStop:=false;
  edit2.Enabled:=true;
  edit3.Text:='0';
  edit3.ReadOnly:=true;
  edit3.TabStop:=false;
  edit3.Enabled:=true;
  edit4.Text:=username;;
  edit5.Text:='';
  combobox1.Text:='';
  combobox1.SetFocus;
end;


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

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

procedure Treturnfeeform.ComboBox1Click(Sender: TObject);
begin
  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;
  edit2.Text:=currtostr(adodataset1.fieldbyname('书费').AsCurrency);
  edit1.Text:=inttostr(adodataset1.fieldbyname('班级人数').AsInteger);
  edit3.Text:=floattostr(adodataset1.fieldbyname('书费').AsCurrency/adodataset1.fieldbyname('班级人数').AsInteger);
  adodataset1.Close;
  shuoming;


end;

procedure Treturnfeeform.BitBtn3Click(Sender: TObject);
begin
   returnfeerptform:=Treturnfeerptform.Create(self);
   returnfeerptform.QRLabel3.Caption:=returnfeeform.ComboBox1.Text;
   returnfeerptform.QRLabel7.Caption:=returnfeeform.Edit2.Text+'元';
   returnfeerptform.QRLabel11.Caption:=edit4.Text;
   returnfeerptform.QRLabel15.Caption:=username;
   returnfeerptform.QRLabel5.Caption:=edit1.Text;
   returnfeerptform.QRLabel9.Caption:=edit3.Text+'元';
   returnfeerptform.QRLabel13.Caption:=edit5.Text;
   returnfeerptform.QRLabel17.Caption:=datetostr(date());
   returnfeerptform.QuickRep1.Preview;
end;

end.