printunit.pas

学费管理系统,学校使用

    (sender as tfrxmemoview).Text:=datetostr(date);
end;

procedure Tprintform.frxReport2BeforePrint(Sender: TfrxReportComponent);
begin
  if sender.Name ='Memo1'  then
    (sender as tfrxmemoview).Text:='江西大宇学院';
  if sender.Name ='Memo2'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo3'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo4'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo5'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo7'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo8'  then
    (sender as tfrxmemoview).Text:='教材费';
  if sender.Name ='Memo9'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).Text:=datetostr(date);
  if sender.Name ='Memo11'  then
    (sender as tfrxmemoview).Text:=ReceType_edit.Text ;
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo14'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo15'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo16'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo21'  then
    (sender as tfrxmemoview).Text:='江西大宇学院';
  if sender.Name ='Memo22'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo23'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo25'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo26'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo27'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo28'  then
    (sender as tfrxmemoview).Text:='教材费';
  if sender.Name ='Memo29'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo30'  then
    (sender as tfrxmemoview).Text:='江西大宇学院';
  if sender.Name ='Memo31'  then
    (sender as tfrxmemoview).Text:=oper.name;
  if sender.Name ='Memo32'  then
    (sender as tfrxmemoview).Text:=datetostr(date);
  if sender.Name ='Memo33'  then
    (sender as tfrxmemoview).Text:=datetostr(date);
end;

procedure Tprintform.frxReport3BeforePrint(Sender: TfrxReportComponent);
var
  Year, Month, Day: Word;
begin
  decodedate(now,year,month,day);
  if sender.Name ='Memo1'  then
    (sender as tfrxmemoview).Text:=inttostr(year);
  if sender.Name ='Memo2'  then
    (sender as tfrxmemoview).Text:=inttostr(month);
  if sender.Name ='Memo3'  then
    (sender as tfrxmemoview).Text:=inttostr(day);
  if sender.Name ='Memo4'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo5'  then
    (sender as tfrxmemoview).Text:=trim(live_code_Edit.Text );
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo7'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo8'  then
    (sender as tfrxmemoview).Text:=Department_edit.Text ;
  if sender.Name ='Memo9'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(live_re_Edit.Text));
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=inttostr(year);
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=inttostr(month);
  if sender.Name ='Memo14'  then
    (sender as tfrxmemoview).Text:=inttostr(day);
  if sender.Name ='Memo15'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo16'  then
    (sender as tfrxmemoview).Text:=trim(live_code_Edit.Text );
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=Department_edit.Text ;
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo21'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(live_re_Edit.Text));
  if sender.Name ='Memo22'  then
  begin
    if strtofloat(live_re_Edit.text)=220 then
      (sender as tfrxmemoview).Text:='校服、毛巾被、T恤衫、草席、水桶、脸盘、军训服、饭缸汤勺、茶杯'
    else if strtofloat(live_re_Edit.text)=360 then
      (sender as tfrxmemoview).Text:='盖被、垫被、被套、床单、枕套、枕心、校服、毛巾被、T恤衫、草席、水桶、脸盘、军训服、饭缸汤勺、茶杯'
    else
      (sender as tfrxmemoview).Text:='';
  end;
  if sender.Name ='Memo23'  then
    (sender as tfrxmemoview).Text:=oper.name;
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=oper.name;

end;

procedure Tprintform.frxReport4BeforePrint(Sender: TfrxReportComponent);
var
  Year, Month, Day: Word;
begin
  decodedate(now,year,month,day);
  if sender.Name ='Memo1'  then
    (sender as tfrxmemoview).Text:=inttostr(year);
  if sender.Name ='Memo2'  then
    (sender as tfrxmemoview).Text:=inttostr(month);
  if sender.Name ='Memo3'  then
    (sender as tfrxmemoview).Text:=inttostr(day);
  if sender.Name ='Memo4'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo5'  then
    (sender as tfrxmemoview).Text:=trim(pledge_code_Edit.Text );
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo7'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo8'  then
    (sender as tfrxmemoview).Text:=Department_edit.Text ;
  if sender.Name ='Memo9'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(pledge_re_Edit.Text));
  if sender.Name ='Memo11'  then
    (sender as tfrxmemoview).Text:=inttostr(year);
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=inttostr(month);
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=inttostr(day);
  if sender.Name ='Memo14'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo15'  then
    (sender as tfrxmemoview).Text:=trim(pledge_code_Edit.Text );
  if sender.Name ='Memo16'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:=Department_edit.Text ;
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(pledge_re_Edit.Text));
  if sender.Name ='Memo21'  then
    (sender as tfrxmemoview).Text:=oper.name;
  if sender.Name ='Memo22'  then
    (sender as tfrxmemoview).Text:=oper.name;

end;

procedure Tprintform.close_BitBtnClick(Sender: TObject);
begin
  self.Close;
end;

procedure Tprintform.editreg_bitbtnClick(Sender: TObject);
begin
  clearcontent(false);
  ButtonUse(true);
  cancel_BitBtn.Enabled:=true;
  StudentName_Edit.Enabled :=false;
  search_BitBtn.Enabled :=false;
  if firstreg_radiobutton.Checked then
  begin
    label53.Visible :=true;
    ChargeRangeId_combobox.Visible :=true;
    label7.Visible :=false;
    regdate_combobox.Visible :=false;
    regdate_combobox.Enabled :=false;
    ChargeRangeId_combobox.Enabled :=true;
    ChargeRangeId_combobox.ItemIndex:=-1;
    ChargeRangeId_combobox.Items.Clear;
    with oper_adoquery do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct(chargerangeid) as chargerange from firstreg where studentid=:studentid');
      Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
      open;
      while not eof do
      begin
        ChargeRangeId_combobox.Items.Add(fieldbyname('chargerange').AsString );
        next;
      end;
    end;
  end
  else if editreg_bitbtn.Checked then
  begin
    label7.Visible :=true;
    regdate_combobox.Visible :=true;
    label53.Visible :=false;
    ChargeRangeId_combobox.Visible :=false;
    regdate_combobox.Enabled :=true;
    ChargeRangeId_combobox.Enabled :=false;
    regdate_combobox.ItemIndex:=-1;
    regdate_combobox.Items.Clear;
    with oper_adoquery do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct(regdate) from editreg where studentid=:studentid order by regdate');
      Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
      open;
      while not eof do
      begin
        regdate_combobox.Items.Add(fieldbyname('regdate').AsString );
        next;
      end;
    end;
  end;
end;

procedure Tprintform.regdate_comboboxChange(Sender: TObject);
var
  tuition,house,book,insurance,live,pledge:currency;

begin
  clearcontent(false);
  with oper_adoquery do
  begin
    close;
    sql.clear;
    sql.add('select * from EditReg where studentid=:studentid and RegDate=:RegDate');
    Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
    Parameters.ParamByName('RegDate').Value := regdate_combobox.Text ;
    open;
    if isempty then
    begin
      MessageBox(application.handle,pchar('没有该时间段的收费信息!'),'错误',MB_ICONWARNING+MB_OK);
      exit;
    end;
    StudyYear_edit.text:=fieldbyname('StudyYear').asstring;
    while not eof do
    begin
      case fieldbyname('recetype').AsInteger of
        0: ReceType_edit.Text :='现金';
        1: ReceType_edit.Text :='邮局汇款';
        2: ReceType_edit.Text :='银行';
      end;

      case fieldbyname('chargeitemid').asinteger of
        1:
        begin
          tuition_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          tuition_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
          tuition_code_Edit.text:=fieldbyname('billcode').asstring;
        end ;
        2:
        begin
          house_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          house_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
        end;
        3:
        begin
          book_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          book_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
          book_code_Edit.text:=fieldbyname('billcode').asstring;
        end;
        4:
        begin
          insurance_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          insurance_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
        end;
        5:
        begin
          live_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          live_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
          live_code_Edit.text:=fieldbyname('billcode').asstring;
        end;
        6:
        begin
          pledge_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          pledge_re_Edit.text:=formatfloat('0.00',fieldbyname('Receive').asfloat);
          pledge_code_Edit.text:=fieldbyname('billcode').asstring;
        end;

      end;
      next;
    end;
  end;
  tuition:=strtofloat(trim(tuition_be_Edit.Text ));
  house:=strtofloat(trim(house_be_Edit.Text ));
  book:=strtofloat(trim(book_be_Edit.Text ));
  insurance:=strtofloat(trim(insurance_be_Edit.Text ));
  live:=strtofloat(trim(live_be_Edit.Text ));
  pledge:=strtofloat(trim(pledge_be_Edit.Text ));
  sum_be_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);
  tuition:=strtofloat(trim(tuition_re_Edit.Text ));
  house:=strtofloat(trim(house_re_Edit.Text ));
  book:=strtofloat(trim(book_re_Edit.Text ));
  insurance:=strtofloat(trim(insurance_re_Edit.Text ));
  live:=strtofloat(trim(live_re_Edit.Text ));
  pledge:=strtofloat(trim(pledge_re_Edit.Text ));
  sum_re_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);
  buttonUse(false);

end;

end.