sf.pas

本程序是用delphi开发的新生报名管理系统 该程序的数据库是采用SQL server建的

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)<StrToFloat(bcsf) then
      begin
       ShowMessage('收费超额，请重新确认！');
       exit;
      end;
      sfr:=Trim(sfr_LEdit.Text);
      if Length(sfr)<1 then
      begin
        ShowMEssage('请输入收费人');
        exit;
      end;
      sfrq:=DateToStr(sfrq_DTP.DateTime);
      xh:=Trim(xh_LEdit.Text);
      xm:=Trim(xm_Ledit.Text);
      sqlstr:='insert into [sfb] (学号,姓名,收费金额,收费日期,收费人) values ('''+xh+''','''+xm;
      sqlstr:=sqlstr+''','''+bcsf+''','''+sfrq+''','''+sfr+''')';
      with TQuery.Create(nil)do
        begin
          try
           SessionName:=Main_Form.Database1.SessionName;
           DatabaseName:=Main_Form.Database1.DatabaseName;
           close;
           SQL.Clear;
           SQL.Add(sqlstr);
           //Open;
          ExecSQL;

           sqlstr:='update [xsb] set 状态=3 where (学号='''+xh+''')';
           close;
           SQL.Clear;
           SQL.Add(sqlstr);
           ExecSQL;



           finally
            Free;
           end;
          end;
     sfgl_form.BitBtn1.Click;
   close;

end;

end.