printunit.pas

学费管理系统,学校使用

unit printUnit;

interface

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

type
  Tprintform = class(TForm)
    Panel3: TPanel;
    Label6: TLabel;
    StudentName_Edit: TEdit;
    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;
    Panel2: TPanel;
    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;
    Label4: TLabel;
    Label5: TLabel;
    StudyYear_edit: TEdit;
    ChargeRangeId_combobox: TComboBox;
    Label53: TLabel;
    print_book_bitbtn: TBitBtn;
    frxReport2: TfrxReport;
    frxReport3: TfrxReport;
    frxDesigner1: TfrxDesigner;
    Label3: TLabel;
    ReceType_edit: TEdit;
    frxReport4: TfrxReport;
    frxReport1: TfrxReport;
    firstreg_radiobutton: TRadioButton;
    editreg_bitbtn: TRadioButton;
    Label7: TLabel;
    regdate_combobox: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure tuition_be_EditKeyPress(Sender: TObject; var Key: Char);
    procedure tuition_be_EditExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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 ChargeRangeId_comboboxChange(Sender: TObject);
    procedure tuition_be_EditEnter(Sender: TObject);
    procedure sum_be_EditEnter(Sender: TObject);
    procedure frxReport1BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport2BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport3BeforePrint(Sender: TfrxReportComponent);
    procedure frxReport4BeforePrint(Sender: TfrxReportComponent);
    procedure close_BitBtnClick(Sender: TObject);
    procedure editreg_bitbtnClick(Sender: TObject);
    procedure regdate_comboboxChange(Sender: TObject);
  private
    { Private declarations }
    print,print_book,print_pledge,print_get:boolean;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure ClearContent(info:boolean=true);
    procedure ButtonUse(CanUse:boolean);
  public
    { Public declarations }
  end;

var
  printform: Tprintform;

implementation

uses DMUnit, commonunit, tipUnit;

{$R *.dfm}

{ Toldregform }

procedure Tprintform.ButtonUse(CanUse: boolean);
begin
  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;
  StudentName_Edit.Enabled :=canuse;
  search_BitBtn.Enabled :=canuse;
  cancel_bitbtn.Enabled :=false;
end;

procedure Tprintform.ClearContent(info:boolean=true);
begin
  if info then
  begin
    id_edit.Text :='';
    ChargeRangeId_combobox.ItemIndex:=-1;
    ChargeRangeId_combobox.items.Clear;
    regdate_combobox.ItemIndex:=-1;
    regdate_combobox.Items.Clear;
    StudyYear_edit.text:='';
    StudentName_Edit.Text :='';
    Sex_Edit.Text :='';
    ChargeYearID_Edit.Text :='';
    Address_Edit.text:='';
    Scholar_Edit.Text :='';
    ReceType_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 :='';
  end;
  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 :='';
  print:=false;
  print_pledge:=false;
  print_get:=false;
  print_book:=false;
end;

procedure Tprintform.CloseWindow(var Msg: TMessage);
begin
  FreeAndNil(printform);
end;

procedure Tprintform.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 Tprintform.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 Tprintform.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 Tprintform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  postmessage(handle,wm_user,0,0);
end;

procedure Tprintform.print_BitBtnClick(Sender: TObject);
begin
  frxReport1.ShowReport();
  print:=true;
end;

procedure Tprintform.print_pledge_BitBtnClick(Sender: TObject);
begin
  frxReport4.ShowReport();
  print_pledge:=true;
end;

procedure Tprintform.print_get_BitBtnClick(Sender: TObject);
begin
  frxReport3.ShowReport();
  print_get:=true;
end;

procedure Tprintform.new_BitBtnClick(Sender: TObject);
begin
  firstreg_radiobutton.Checked :=true;
  buttonUse(true);
  ClearContent ;

  StudentName_Edit.Enabled :=true;
  search_BitBtn.Enabled :=true;
  cancel_bitbtn.Enabled :=false;
  ChargeRangeId_combobox.Enabled :=false;
  firstreg_radiobutton.Enabled :=false;
  editreg_bitbtn.Enabled :=false;
  regdate_combobox.Enabled :=false;
  Label7.Visible :=false;
  regdate_combobox.Visible :=false;
  StudentName_Edit.SetFocus ;
end;

procedure Tprintform.StudentName_EditKeyPress(Sender: TObject;
  var Key: Char);
begin
  if (key=#13) and (trim(studentname_edit.Text )<>'') then
    search_bitbtn.Click ;


end;

procedure Tprintform.search_BitBtnClick(Sender: TObject);
begin
  if trim(studentname_edit.Text )='' then exit;
  tipform:=Ttipform.create(self);
  try
    tipform.list_adoquery.close;
    tipform.list_adoquery.SQL.Clear;
    tipform.list_adoquery.SQL.Add(tipform.SqlText );
    tipform.list_adoquery.SQL.Add('and student.studentname=:studentname');
    tipform.list_adoquery.Parameters.ParamByName('studentname').Value := trim(StudentName_Edit.Text );
    tipform.list_adoquery.open;
    clearcontent;
    if not tipform.list_adoquery.IsEmpty then
    begin
      if tipform.list_adoquery.RecordCount>1 then
      begin
        tipform.Caption :='请选择相应的学生信息';
        case tipform.ShowModal of
          mrcancel: exit;
        end;
      end;
      StudentName_Edit.Text := tipform.list_adoquery.fieldbyname('StudentName').AsString ;
      id_edit.Text :=markid(tipform.list_adoquery.fieldbyname('id').AsString );
      ChargeYearID_Edit.Text := tipform.list_adoquery.fieldbyname('ChargeYearID').AsString ;
      sex_edit .Text :=tipform.list_adoquery.fieldbyname('sexname').AsString ;
      Address_Edit .Text :=tipform.list_adoquery.fieldbyname('Address').AsString ;
      Scholar_Edit.Text := tipform.list_adoquery.fieldbyname('Scholar').AsString ;
      Department_Edit.Text :=tipform.list_adoquery.fieldbyname('department').AsString ;
      Spec_edit.Text := tipform.list_adoquery.fieldbyname('spec').AsString ;