returnunit.pas

学费管理系统,学校使用

unit returnUnit;

interface

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

type
  Treturnform = class(TForm)
    Panel3: TPanel;
    Label6: TLabel;
    Label53: TLabel;
    StudentName_Edit: TEdit;
    search_BitBtn: TBitBtn;
    ChargeRangeId_combobox: TComboBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label46: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    id_edit: TEdit;
    Address_Edit: TEdit;
    ClassCode_Edit: TEdit;
    Source_Edit: TEdit;
    Tutor_Edit: TEdit;
    Circs_Edit: TEdit;
    Memo_Edit: TEdit;
    Scholar_Edit: TEdit;
    Department_Edit: TEdit;
    Spec_edit: TEdit;
    Code_Edit: TEdit;
    ChargeYearID_Edit: TEdit;
    Length_edit: TEdit;
    sex_edit: TEdit;
    StudyYear_edit: TEdit;
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    tuition_be_Edit: TEdit;
    house_be_Edit: TEdit;
    book_be_Edit: TEdit;
    insurance_be_Edit: TEdit;
    live_be_Edit: TEdit;
    pledge_be_Edit: TEdit;
    sum_be_Edit: TEdit;
    GroupBox4: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    tuition_re_Edit: TEdit;
    house_re_Edit: TEdit;
    book_re_Edit: TEdit;
    insurance_re_Edit: TEdit;
    live_re_Edit: TEdit;
    pledge_re_Edit: TEdit;
    sum_re_Edit: TEdit;
    GroupBox5: TGroupBox;
    Label35: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    tuition_code_Edit: TEdit;
    house_code_Edit: TEdit;
    book_code_Edit: TEdit;
    GroupBox6: TGroupBox;
    Panel2: TPanel;
    save_BitBtn: TBitBtn;
    new_BitBtn: TBitBtn;
    close_BitBtn: TBitBtn;
    cancel_BitBtn: TBitBtn;
    Label44: TLabel;
    pledge_code_Edit: TEdit;
    live_code_Edit: TEdit;
    Label43: TLabel;
    insurance_code_Edit: TEdit;
    Label7: TLabel;
    derate_edit: TEdit;
    Label8: TLabel;
    deratename_memo: TMemo;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label45: TLabel;
    tuition_rt_Edit: TEdit;
    house_rt_Edit: TEdit;
    book_rt_Edit: TEdit;
    pledge_rt_Edit: TEdit;
    live_rt_Edit: TEdit;
    insurance_rt_Edit: TEdit;
    Label3: TLabel;
    sum_rt_Edit: TEdit;
    oper_adoquery: TADOQuery;
    Label47: TLabel;
    returncode_edit: TEdit;
    print_BitBtn: TBitBtn;
    frxDesigner1: TfrxDesigner;
    frxReport1: TfrxReport;
    ADOQuery1: TADOQuery;
    GroupBox7: TGroupBox;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    tuition_rr_Edit: TEdit;
    house_rr_Edit: TEdit;
    book_rr_Edit: TEdit;
    pledge_rr_Edit: TEdit;
    live_rr_Edit: TEdit;
    insurance_rr_Edit: TEdit;
    sum_rr_Edit: TEdit;
    procedure tuition_rt_EditKeyPress(Sender: TObject; var Key: Char);
    procedure tuition_rt_EditExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sum_rt_EditEnter(Sender: TObject);
    procedure ChargeRangeId_comboboxChange(Sender: TObject);
    procedure cancel_BitBtnClick(Sender: TObject);
    procedure new_BitBtnClick(Sender: TObject);
    procedure save_BitBtnClick(Sender: TObject);
    procedure close_BitBtnClick(Sender: TObject);
    procedure StudentName_EditKeyPress(Sender: TObject; var Key: Char);
    procedure search_BitBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure print_BitBtnClick(Sender: TObject);
    procedure tuition_rt_EditEnter(Sender: TObject);
    procedure frxReport1BeforePrint(Sender: TfrxReportComponent);
  private
    { Private declarations }
    print:boolean;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure ClearContent;
    procedure ButtonUse(CanUse:boolean);
  public
    { Public declarations }
  end;

var
  returnform: Treturnform;

implementation

uses commonunit, DMUnit, tipUnit;

{$R *.dfm}

procedure Treturnform.tuition_rt_EditKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in['0'..'9','.',#8,#13]) then key:=#0;
  if key=#13 then selectnext((sender as tedit),true,true);
end;

procedure Treturnform.tuition_rt_EditExit(Sender: TObject);
var
  Cash:Currency;
begin
  if close_bitbtn.Focused then exit;
  if trim((sender as tedit).Text )='' then (sender as tedit).Text:='0';
  try
    cash:= strtofloat(trim((sender as tEdit).text) );
    if cash<0 then
    begin
      MessageBox(application.handle,pchar('金额输入错误!'),'错误',MB_ICONWARNING+MB_OK);
      (sender as TEdit).SetFocus ;
    end;
  except
    MessageBox(application.handle,pchar('金额输入错误!'),'错误',MB_ICONWARNING+MB_OK);
    (sender as TEdit).SetFocus ;
  end;

end;

procedure Treturnform.ButtonUse(CanUse: boolean);
begin
  save_BitBtn.Enabled  :=CanUse;
  new_BitBtn.Enabled  :=not canuse;
  panel3.Enabled :=canuse;
  cancel_bitbtn.Enabled :=false;
  print_bitbtn.Enabled :=not canuse;
  GroupBox1.Enabled :=canuse;
end;

procedure Treturnform.ClearContent;
begin
  id_edit.Text :='';
  ChargeRangeId_combobox.ItemIndex:=-1;
  ChargeRangeId_combobox.items.Clear;
  StudyYear_edit.text:='';
  StudentName_Edit.Text :='';
  Sex_Edit.Text :='';
  ChargeYearID_Edit.Text :='';
  Address_Edit.text:='';
  Scholar_Edit.Text :='';
  Department_Edit.Text :='';
  Spec_Edit.Text :='';
  Length_Edit.Text :='';
  ClassCode_Edit.Text :='';
  Code_Edit.Text :='';
  Source_Edit.Text :='';
  Tutor_Edit.Text :='';
  Circs_Edit.Text :='';
  Memo_Edit.Text :='';
  returncode_edit.Text :='';
  tuition_be_Edit .Text :='0';
  house_be_Edit.Text :='0';
  book_be_Edit.Text :='0';
  insurance_be_Edit.Text :='0';
  live_be_Edit.Text :='0';
  pledge_be_Edit.Text :='0';
  sum_be_Edit.Text :='0';
  tuition_re_Edit.Text :='0';
  house_re_Edit.Text :='0';
  book_re_Edit.Text :='0';
  insurance_re_Edit.Text :='0';
  live_re_Edit.Text :='0';
  pledge_re_Edit.Text :='0';
  sum_re_Edit.Text :='0';

  tuition_rr_Edit.Text :='0';
  house_rr_Edit.Text :='0';
  book_rr_Edit.Text :='0';
  insurance_rr_Edit.Text :='0';
  live_rr_Edit.Text :='0';
  pledge_rr_Edit.Text :='0';
  sum_rr_Edit.Text :='0';

  tuition_code_Edit.Text :='';
  house_code_Edit.Text :='';
  book_code_Edit.Text :='';
  insurance_code_Edit.Text :='';
  live_code_Edit.Text :='';
  pledge_code_Edit.Text :='';
  tuition_rt_Edit.Text :='0';
  house_rt_Edit.Text :='0';
  book_rt_Edit.Text :='0';
  insurance_rt_Edit.Text :='0';
  live_rt_Edit.Text :='0';
  pledge_rt_Edit.Text :='0';
  sum_rt_Edit.Text :='0';
  derate_edit.Text:='';
  print:=false;
  deratename_memo.Lines.Clear;
end;

procedure Treturnform.CloseWindow(var Msg: TMessage);
begin
  FreeAndNil(returnform);
end;

procedure Treturnform.FormShow(Sender: TObject);
var
  wpath:string;
begin
  clearcontent;
  WPath := ExtractFilePath(Application.ExeName);
  frxReport1.LoadFromFile(WPath + '退费单.fr3');
end;

procedure Treturnform.sum_rt_EditEnter(Sender: TObject);
var
  tuition,house,book,insurance,live,pledge:currency;
begin
  try
    tuition:=strtofloat(trim(tuition_rt_Edit.Text ));
  except
    MessageBox(application.handle,pchar('学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_rt_Edit.SetFocus ;
  end;
  try
    house:=strtofloat(trim(house_rt_Edit.Text ));
  except
    MessageBox(application.handle,pchar('住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_rt_Edit.SetFocus ;
  end;
  try
    book:=strtofloat(trim(book_rt_Edit.Text ));
  except
    MessageBox(application.handle,pchar('书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_rt_Edit.SetFocus ;
  end;
  try