returnfee.pas

一个简单的教材管理系统,可以提供给有这方面软件需求的人

unit returnfee;

interface

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

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

var
  ReturnFeeForm: TReturnFeeForm;

implementation
  uses main,returnfeerpt;
{$R *.dfm}

procedure TReturnFeeForm.BitBtn3Click(Sender: TObject);
begin
    Close;
end;
procedure TReturnFeeForm.initiate;
begin
    combobox1.text:='';
    edit1.Text:='0';
    edit1.readonly:=true;
    edit1.TabStop:=false;
    edit1.Enabled:=false;
    edit2.Text:='0';
    edit2.readonly:=true;
    edit2.TabStop:=false;
    edit2.Enabled:=false;
    edit3.Text:='0';
    edit3.readonly:=true;
    edit3.TabStop:=false;
    edit3.Enabled:=false;
    edit4.Text:='';
    edit5.Text:='';
end;

procedure TReturnFeeForm.FormActivate(Sender: TObject);
var
    adodataset1:TAdoDataSet;
begin
    adodataset1:=TAdoDataSet.create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.CommandType:=cmdText;
    adodataset1.CommandText:='select * from 班级表';
    adodataset1.Active:=true;
    initiate;
    combobox1.Items.clear;
    while not adodataset1.Eof do
    begin
        combobox1.Items.Add(adodataset1.fieldbyname('班级名').asstring);
        adodataset1.next;
    end;
    combobox1.SetFocus;
    adodataset1.Close;
end;

procedure TReturnFeeForm.ComboBox1Change(Sender: TObject);
var
    adodataset1:TAdodataset;
begin
    adodataset1:=TAdodataset.Create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.close;
    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:=IntToStr(adodataset1.fieldbyname('班级人数').asinteger);
    edit2.text:=floatToStr(adodataset1.fieldByName('书费').ascurrency);
    edit3.text:=floattostr(adodataset1.fieldByname('书费').ascurrency / adodataset1.fieldbyname('班级人数').asinteger);
    adodataset1.close;
end;

procedure TReturnFeeForm.BitBtn1Click(Sender: TObject);
var
    Adoquery1:TAdoQuery;
begin
    adoquery1:=TAdoQuery.Create(self);
    adoquery1.Connection:=adoconnection1;
    adoquery1.Close;
    adoquery1.SQL.clear;
    adoquery1.SQL.Add('update 班级表 set 书费=0 where 班级名=:classname');
    adoquery1.Parameters.Clear;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[0].Name:='classname';
    adoquery1.Parameters[0].DataType:=ftstring;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:=combobox1.text;
    adoquery1.ExecSQL;
    adoquery1.close;
    adoquery1.SQL.clear;
    adoquery1.SQL.add('insert into 学生书费历史库(班级名,上期费用,本次费用,本期费用,经办人,操作员,最后修改时间,说明,班级人数) values (:classname,:s0,:s1,0,:s2,:s3,date(),s4,s5)');
    adoquery1.Parameters.Clear;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[0].Name:='classname';
    adoquery1.Parameters[0].DataType:=ftstring;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:=combobox1.text;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[1].Name:='s0';
    adoquery1.Parameters[1].DataType:=ftcurrency;
    adoquery1.Parameters[1].Direction:=pdinput;
    adoquery1.Parameters[1].Value:=StrToFloat(edit2.text);
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[2].Name:='s1';
    adoquery1.Parameters[2].DataType:=ftcurrency;
    adoquery1.Parameters[2].Direction:=pdinput;
    adoquery1.Parameters[2].Value:=-StrToFloat(edit2.text);
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[3].Name:='s2';
    adoquery1.Parameters[3].DataType:=ftstring;
    adoquery1.Parameters[3].Direction:=pdinput;
    adoquery1.Parameters[3].Value:=edit4.text;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[4].Name:='s3';
    adoquery1.Parameters[4].DataType:=ftstring;
    adoquery1.Parameters[4].Direction:=pdinput;
    adoquery1.Parameters[4].Value:=username;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[5].Name:='s4';
    adoquery1.Parameters[5].DataType:=ftstring;
    adoquery1.Parameters[5].Direction:=pdinput;
    adoquery1.Parameters[5].Value:=edit5.text;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[6].Name:='s5';
    adoquery1.Parameters[6].DataType:=ftinteger;
    adoquery1.Parameters[6].Direction:=pdinput;
    adoquery1.Parameters[6].Value:=edit1.text;
    adoquery1.Prepared;
    adoquery1.ExecSQL;
    adoquery1.close;
    initiate;
    combobox1.SetFocus;
end;

procedure TReturnFeeForm.BitBtn2Click(Sender: TObject);
begin
      ReturnFeeRptForm.QRLabel10.Caption:=ComboBox1.text;
      ReturnFeeRptForm.QRLabel11.Caption:=edit1.text;
      ReturnFeeRptForm.QRLabel12.Caption:='-'+edit2.text;
      ReturnFeeRptForm.QRLabel13.Caption:=edit3.text;
      ReturnFeeRptForm.QRLabel7.Caption:=edit4.text;
      ReturnFeeRptForm.QRLabel9.Caption:=edit5.text;
      ReturnFeeRptForm.QRLabel15.Caption:=username;
      ReturnFeeRptForm.QRLabel17.Caption:=datetostr(date());
      ReturnFeeRptForm.QuickRep1.Print;
end;

end.