【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了bookfee.pas相关资料,希望对各位网友有所帮助!
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:=username;
adotable1.fieldByName('最后修改时间').AsDateTime:=Date();
adotable1.fieldByName('说明').Asstring:=edit5.text;
adotable1.post;
adotable1.close;
initiate;
combobox1.SetFocus;
end;
end.
上一篇:
BookEditQueryU.pas
下一篇:
论“十二五”期间的行政体制改革