⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 firstregunit.pas

📁 学费管理系统,学校使用
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    self.Close;
    exit;
  end;
  if not print then
    if messagebox(handle,pchar('收费票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_book then
    if messagebox(handle,pchar('书费票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_pledge then
    if trim(pledge_re_Edit.Text)<>'0' then
      if messagebox(handle,pchar('保证金票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_get then
    if trim(live_re_Edit.Text )<>'0' then
      if messagebox(handle,pchar('领物单没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  self.Close;
end;

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

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

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

procedure TFirstRegform.new_BitBtnClick(Sender: TObject);
begin
  if not print then
    if messagebox(handle,pchar('收费票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_book then
    if messagebox(handle,pchar('书费票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_pledge then
    if trim(pledge_re_Edit.Text)<>'0' then
      if messagebox(handle,pchar('保证金票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  if not print_get then
    if trim(live_re_Edit.Text )<>'0' then
      if messagebox(handle,pchar('领物单没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  buttonUse(true);
  ClearContent ;
end;

procedure TFirstRegform.print_book_bitbtnClick(Sender: TObject);
begin
  frxReport2.ShowReport();
  print_book:=true;
end;

procedure TFirstRegform.tuition_be_EditEnter(Sender: TObject);
begin
  if (sender as tedit).Text ='0' then (sender as tedit).Text:='';
end;

procedure TFirstRegform.frxReport1BeforePrint(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:=trim(Spec_combobox.Text );
  if sender.Name ='Memo4'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo5'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.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(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).Text:=datetostr(date);
  if sender.Name ='Memo11'  then
    (sender as tfrxmemoview).Text:=ReceType_combobox.Text ;
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=trim(Spec_combobox.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:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text)+strtofloat(house_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:=trim(Spec_combobox.Text );
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo25'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo26'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.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(tuition_re_Edit.Text)+strtofloat(house_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); }
  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:=trim(Spec_combobox.Text );
  if sender.Name ='Memo4'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo5'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo7'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo8'  then
    //(sender as tfrxmemoview).Text:='';
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo9'  then
    //(sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text)+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_combobox.Text ;
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=trim(Spec_combobox.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:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo18'  then
    //(sender as tfrxmemoview).Text:='';
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo19'  then
    //(sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text)+strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo20'  then
    //(sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text)+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:=trim(Spec_combobox.Text );
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo25'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_re_Edit.Text));
  if sender.Name ='Memo26'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(house_re_Edit.Text));
  if sender.Name ='Memo27'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo28'  then
    //(sender as tfrxmemoview).Text:='';
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(book_re_Edit.Text));
  if sender.Name ='Memo29'  then
    //(sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text));
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(tuition_re_Edit.Text)+strtofloat(house_re_Edit.Text)+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 TFirstRegform.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:=trim(Spec_combobox.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_combobox.Text ;
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text ;
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=trim(Spec_combobox.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:=trim(Spec_combobox.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 TFirstRegform.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_ComboBox.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_ComboBox.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 TFirstRegform.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_ComboBox.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_ComboBox.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;

end.
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -