unit BookFeeUnit;

interface

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

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

var
 // check1:TCheckValue;
  frmBookFee: TfrmBookFee;
  cla:TADOTable;

implementation

uses DataModuleUnit, MainUnit, CommonUnit;

{$R *.dfm}
procedure TfrmBookFee.clearData();
var
   i:integer;
begin
  for i:=0 to frmBookFee.ComponentCount-1 do
  begin
    if Components[i] is TCustomEdit then
     (frmBookFee.Components[i] as TCustomEdit).Text:=''
    else
    if Components[i] is TCombobox then
     (frmBookFee.Components[i] as TCombobox).ItemIndex:=-1;
  end;
end;
procedure TfrmBookFee.FormCreate(Sender: TObject);
var
   i:integer;
begin
   //Check:=TCheckValue.
   cla:=TADOTable.Create(nil);
   cla.Connection:=frmDataModule.Connection;
   cla.TableName:='classes';
   cla.Active:=true;
   for i:=0 to cla.RecordCount-1 do //讀取班級信息
   begin
     ComboBox1.Items.Add(cla.FieldByName('className').Value);
     cla.Next;
   end;

   ComboBox1.ItemIndex:=-1;
end;

procedure TfrmBookFee.BitBtn1Click(Sender: TObject);
var
   fee:TADOTable;
begin
   fee:=TADOTable.Create(nil);
   with fee do   //交書費
   begin
     Connection:=frmDataModule.Connection;
     TableName:='FeeHistory';
     Active:=true;
     Append;
     FieldByName('ClassName').Value:=ComboBox1.Text;
     FieldByName('LastFee').Value:=edit1.Text;
     FieldByName('theFee').Value:=edit3.Text;
     FieldByName('nowFee').Value:=strtofloat(edit1.Text)+strtofloat(edit3.Text);
     FieldByName('handler').Value:=edit4.Text;
     FieldByName('operatorID').Value:=frmMain.OperatorInfo.OperatorID;
     FieldByName('About').Value:=edit5.Text;
     FieldByName('Strength').Value:=edit6.Text;
     post;
   end;
   //更新班級總書費
   cla.Locate('ClassName',Combobox1.Text,[loCaseInsensitive]);
   cla.Edit;
   cla.FieldByName('TotalFee').Value:=strtofloat(edit1.Text)+strtofloat(edit3.Text);
   cla.Post;
   Application.MessageBox('交費成功!','提示',mb_ok);
   self.clearData;
   Edit2.ReadOnly:=true;
end;

procedure TfrmBookFee.ComboBox1Change(Sender: TObject);
begin
  if trim(Combobox1.Text)<>'' then
  begin
    Edit2.ReadOnly:=false;
    cla.Locate('ClassName',Combobox1.Text,[loCaseInsensitive]);
    Edit1.Text:=cla.fieldByName('totalfee').AsString;
    Edit6.Text:=cla.fieldByName('strength').AsString;
    Edit4.Text:=frmMain.OperatorInfo.OperatorName;
  end;
end;
//判斷輸入的書費是否有誤
procedure TfrmBookFee.Edit2Exit(Sender: TObject);
var
  TotalFee,v:real;
begin
   if trim(Edit2.Text)='' then
   begin
     Application.MessageBox('輸入的值不能為空格','提示',mb_ok);
     Edit2.SetFocus;
   end
   else
     V:=strtofloatDef(edit2.Text,0);
   if v>0 then
   begin
     TotalFee:=strtofloatDef(edit6.Text,0)*v;
     Edit3.Text:=floattostr(TotalFee);
   end
   else
   begin
     Application.MessageBox('輸入的值有誤!','提示',mb_ok);
     Edit2.SetFocus;
   end
end;

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

procedure TfrmBookFee.Button1Click(Sender: TObject);
begin
   self.clearData;
end;

end.