www.pudn.com > xinshengruxue.rar > sf.pas

unit sf; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, DBTables, Buttons; 
 
type 
  Tsf_Form = class(TForm) 
    Label1: TLabel; 
    xh_LEdit: TLabeledEdit; 
    xm_LEdit: TLabeledEdit; 
    xf_LEdit: TLabeledEdit; 
    gyf_LEdit: TLabeledEdit; 
    qtf_LEdit: TLabeledEdit; 
    hjf_LEdit: TLabeledEdit; 
    yjsf_LEdit: TLabeledEdit; 
    bcsf_LEdit: TLabeledEdit; 
    sfr_LEdit: TLabeledEdit; 
    sfrq_DTP: TDateTimePicker; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender:TObject;var Action:TCloseAction); 
   
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  sf_Form: Tsf_Form; 
 
implementation 
  uses main,sfgl; 
{$R *.dfm} 
 
 
 
 
 
 //////////////////////////////////////////////// 
procedure Tsf_Form.FormCreate(Sender: TObject); 
var xbdm,gydm,xh,sqlstr:string; 
 
begin 
      sfrq_DTP.DateTime:=now; 
      xm_LEdit.Text:=sfgl_FOrm.Query1.FieldByName('姓名').AsString; 
      xh_LEdit.Text:=sfgl_Form.Query1.FieldByName('学号').AsString; 
      xh:=sfgl_Form.Query1.FieldByName('学号').AsString; 
      with TQuery.Create(nil)do 
       begin 
         try 
          SessionName:=Main_Form.Database1.SessionName; 
          DatabaseName:=Main_Form.Database1.DatabaseName; 
          sqlstr:='select isnull(sum(收费金额),0)as 已经收费 from[sfb] where(学号='''+xh+''')'; 
          Close; 
          SQL.Clear; 
          SQl.Add(sqlstr); 
          Open; 
          yjsf_LEdit.Text:=FIeldByName('已经收费').AsString; 
          xbdm:=sfgl_Form.Query1.FieldByName('系别代码').AsString; 
          sqlstr:='select *from[xbdm] where(系别代码='''+xbdm+''')'; 
          close; 
          SQL.Clear; 
          SQL.Add(sqlstr); 
          Open; 
          xf_LEdit.Text:=FieldByName('学费').AsString; 
          qtf_LEdit.Text:=FieldByName('其他费').AsString; 
          gydm:=sfgl_Form.Query1.FieldByName('公寓代码').AsString; 
          sqlstr:='select *from [gydm]where (公寓代码='''+gydm+''')'; 
          Close; 
          SQL.Clear; 
          SQL.Add(sqlstr); 
          Open; 
          gyf_LEdit.Text:=FIELdByName('收费金额').AsString; 
          finally 
           Free; 
          end; 
         end; 
       hjf_Ledit.Text:=FloatToStr(StrToFloat(xf_LEdit.Text)+(StrToFloat(gyf_LEdit.Text) 
       +strToFloat(qtf_LEdit.Text))); 
       bcsf_LEdit.Text:=FloatToStr(StrToFloat(hjf_LEdit.Text)-StrToFloat(yjsf_LEdit.Text)); 
 
 
        if hjf_LEdit.Text=yjsf_LEdit.Text then 
            begin 
              ShowMessage('该生已缴齐费用'); 
              close; 
        end; 
 
end; 
//////////////////////////////////////////////////////////////////// 
procedure Tsf_Form.FormClose(Sender:TObject;var Action:TCloseAction); 
begin 
   Main_Form.Open_Form_number:=Main_Form.Open_Form_number-1; 
   if  Main_Form.Open_Form_number=0 then 
   Main_Form.N15.Enabled:=true; 
   Action:=caFree; 
end; 
 
 
 
 
///////////////////////////////////////////// 
procedure Tsf_Form.BitBtn2Click(Sender: TObject); 
begin 
    close 
end; 
 
 
 
////////////////////////////////////////// 
procedure Tsf_Form.BitBtn1Click(Sender: TObject); 
 
       var hjf,yjsf,bcsf,xh,xm,sfr,sfrq,sqlstr:string; 
 
begin 
      bcsf:=Trim(bcsf_LEdit.Text); 
      hjf:=Trim(hjf_LEdit.Text); 
      yjsf:=Trim(yjsf_LEdit.Text); 
      if StrToFloat(hjf)-StrToFloat(yjsf)