oldregunit.pas

学费管理系统,学校使用

unit OldRegUnit;

interface

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

type
  Toldregform = class(TForm)
    Panel3: TPanel;
    Label6: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StudentName_Edit: TEdit;
    ChargeRangeId_combobox: TComboBox;
    StudyYear_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;
    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;
    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;
    Label41: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    tuition_code_Edit: TEdit;
    book_code_Edit: TEdit;
    live_code_Edit: TEdit;
    pledge_code_Edit: TEdit;
    calc_bitbtn: TBitBtn;
    GroupBox2: TGroupBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label45: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    tuition_m_Edit: TEdit;
    house_m_Edit: TEdit;
    book_m_Edit: TEdit;
    insurance_m_Edit: TEdit;
    live_m_Edit: TEdit;
    pledge_m_Edit: TEdit;
    sum_m_Edit: TEdit;
    Panel2: TPanel;
    save_BitBtn: TBitBtn;
    print_BitBtn: TBitBtn;
    print_pledge_BitBtn: TBitBtn;
    print_get_BitBtn: TBitBtn;
    new_BitBtn: TBitBtn;
    close_BitBtn: TBitBtn;
    oper_adoquery: TADOQuery;
    ChargeYearID_Edit: TEdit;
    Length_edit: TEdit;
    sex_edit: TEdit;
    search_BitBtn: TBitBtn;
    cancel_BitBtn: TBitBtn;
    print_book_bitbtn: TBitBtn;
    Label7: TLabel;
    ReceType_combobox: TComboBox;
    frxReport1: TfrxReport;
    frxReport2: TfrxReport;
    frxReport3: TfrxReport;
    frxReport4: TfrxReport;
    frxDesigner1: TfrxDesigner;
    procedure FormShow(Sender: TObject);
    procedure tuition_be_EditKeyPress(Sender: TObject; var Key: Char);
    procedure tuition_be_EditExit(Sender: TObject);
    procedure sum_be_EditEnter(Sender: TObject);
    procedure sum_re_EditEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure save_BitBtnClick(Sender: TObject);
    procedure calc_bitbtnClick(Sender: TObject);
    procedure close_BitBtnClick(Sender: TObject);
    procedure print_BitBtnClick(Sender: TObject);
    procedure print_pledge_BitBtnClick(Sender: TObject);
    procedure print_get_BitBtnClick(Sender: TObject);
    procedure new_BitBtnClick(Sender: TObject);
    procedure StudentName_EditKeyPress(Sender: TObject; var Key: Char);
    procedure search_BitBtnClick(Sender: TObject);
    procedure cancel_BitBtnClick(Sender: TObject);
    procedure print_book_bitbtnClick(Sender: TObject);
    procedure tuition_be_EditEnter(Sender: TObject);
    procedure frxReport1BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport2BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport4BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport3BeforePrint(Sender: TfrxReportComponent);
  private
    { Private declarations }
    print,print_book,print_pledge,print_get:boolean;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure ClearContent;
    procedure ButtonUse(CanUse:boolean);
  public
    { Public declarations }
  end;

var
  oldregform: Toldregform;

implementation

uses DMUnit, commonunit, tipUnit;

{$R *.dfm}

{ Toldregform }

procedure Toldregform.ButtonUse(CanUse: boolean);
begin
  save_BitBtn.Enabled  :=CanUse;
  new_BitBtn.Enabled  :=not canuse;
  print_BitBtn.Enabled  :=not canuse;
  print_book_bitbtn.enabled:=not canuse;
  print_pledge_BitBtn.Enabled  :=not canuse;
  print_get_BitBtn.Enabled  :=not canuse;
  panel3.Enabled :=canuse;
  cancel_bitbtn.Enabled :=false;
  GroupBox1.Enabled :=canuse;
end;

procedure Toldregform.ClearContent;
var
  Year, Month, Day: Word;
begin
  decodedate(now,year,month,day);
  id_edit.Text :='';
  ChargeRangeId_combobox.ItemIndex:=ChargeRangeId_combobox.Items.IndexOf(inttostr(year));
  StudyYear_ComboBox.ItemIndex:=-1;
  ReceType_combobox.ItemIndex:=0;
  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 :='';
  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_code_Edit.Text :='';
  book_code_Edit.Text :='';
  live_code_Edit.Text :='';
  pledge_code_Edit.Text :='';
  tuition_m_Edit.Text :='0';
  house_m_Edit.Text :='0';
  book_m_Edit.Text :='0';
  insurance_m_Edit.Text :='0';
  live_m_Edit.Text :='0';
  pledge_m_Edit.Text :='0';
  sum_m_Edit.Text :='0';
  print:=false;
  print_pledge:=false;
  print_get:=false;
  print_book:=false;
end;

procedure Toldregform.CloseWindow(var Msg: TMessage);
begin
  FreeAndNil(oldregform);
end;

procedure Toldregform.FormShow(Sender: TObject);
var
  wpath:string;
begin
  clearcontent;
  WPath := ExtractFilePath(Application.ExeName);
  frxReport1.LoadFromFile(WPath + '学费.fr3');
  frxReport2.LoadFromFile(WPath + '学费.fr3');
  frxReport4.LoadFromFile(WPath + '保证金.fr3');
  frxReport3.LoadFromFile(WPath + '领物单.fr3');
end;

procedure Toldregform.tuition_be_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 Toldregform.tuition_be_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 Toldregform.sum_be_EditEnter(Sender: TObject);
var
  tuition,house,book,insurance,live,pledge:currency;
begin
  try
    tuition:=strtofloat(trim(tuition_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_be_Edit.SetFocus ;
  end;
  try
    house:=strtofloat(trim(house_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_be_Edit.SetFocus ;
  end;
  try
    book:=strtofloat(trim(book_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_be_Edit.SetFocus ;
  end;
  try
    insurance:=strtofloat(trim(insurance_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_be_Edit.SetFocus ;
  end;
  try
    live:=strtofloat(trim(live_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    live_be_Edit.SetFocus ;
  end;
  try
    pledge:=strtofloat(trim(pledge_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_be_Edit.SetFocus ;
  end;
  sum_be_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);

end;

procedure Toldregform.sum_re_EditEnter(Sender: TObject);
var
  tuition,house,book,insurance,live,pledge:currency;
begin
  try
    tuition:=strtofloat(trim(tuition_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_re_Edit.SetFocus ;
  end;
  try
    house:=strtofloat(trim(house_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_re_Edit.SetFocus ;
  end;
  try
    book:=strtofloat(trim(book_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_re_Edit.SetFocus ;
  end;
  try
    insurance:=strtofloat(trim(insurance_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_re_Edit.SetFocus ;
  end;
  try
    live:=strtofloat(trim(live_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    live_re_Edit.SetFocus ;
  end;
  try
    pledge:=strtofloat(trim(pledge_re_Edit.Text ));