returnunit.pas

学费管理系统,学校使用

      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=2 ;
      Parameters.ParamByName('Quantum').Value :=0;//trim(house_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;//trim(house_re_Edit.Text );
      Parameters.ParamByName('returnnum').Value :=trim(house_rt_Edit.Text );
      Parameters.ParamByName('returnname').Value :=trim(house_code_Edit.Text );
      Parameters.ParamByName('returncode').Value :=trim(returncode_edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;

      //书费
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=3;
      Parameters.ParamByName('Quantum').Value :=0;// trim(book_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;// trim(book_re_Edit.Text );
      Parameters.ParamByName('returnnum').Value :=trim(book_rt_Edit.Text );
      Parameters.ParamByName('returnname').Value :=trim(book_code_Edit.Text );
      Parameters.ParamByName('returncode').Value :=trim(returncode_edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;

      //保险
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 4;
      Parameters.ParamByName('Quantum').Value :=0;// trim(insurance_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;// trim(insurance_re_Edit.Text );
      Parameters.ParamByName('returnnum').Value :=trim(insurance_rt_Edit.Text );
      Parameters.ParamByName('returnname').Value :=trim(insurance_code_Edit.Text );
      Parameters.ParamByName('returncode').Value :=trim(returncode_edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;

      //生活用品
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 5;
      Parameters.ParamByName('Quantum').Value :=0;//trim(live_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;// trim(live_re_Edit.Text );
      Parameters.ParamByName('returnnum').Value :=trim(live_rt_Edit.Text );
      Parameters.ParamByName('returnname').Value :=trim(live_code_Edit.Text );
      Parameters.ParamByName('returncode').Value :=trim(returncode_edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;

      //保证金
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 6;
      Parameters.ParamByName('Quantum').Value := 0;//trim(pledge_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;//trim(pledge_re_Edit.Text );
      Parameters.ParamByName('returnnum').Value :=trim(pledge_rt_Edit.Text );
      Parameters.ParamByName('returnname').Value :=trim(pledge_code_Edit.Text );
      Parameters.ParamByName('returncode').Value :=trim(returncode_edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;
      if Prepared then Prepared:=false;

      {//调整录入明细
      close;
      sql.Clear;
      sql.Add('insert into editreg (StudentID,ChargeRangeId,StudyYear,ChargeItemId, ');
      sql.Add('Quantum,receive,BillCode,ReceType,RegDate,Operator ) values ( ');
      sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:ChargeItemId,');
      sql.Add(':Quantum,:receive,:BillCode,:ReceType,:RegDate,:Operator )');
      if Not Prepared then Prepared:=true;


      adoquery1.close;
      adoquery1.sql.clear;
      adoquery1.sql.Add('select * from income where');
      adoquery1.sql.Add(' StudentID =:StudentID and ChargeRangeId =:ChargeRangeId');
      adoquery1.Parameters.ParamByName('StudentID').Value :=tmpid;
      adoquery1.Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      adoquery1.open;
      while not adoquery1.Eof  do
      begin
        close;
        Parameters.ParamByName('StudentID').Value :=tmpid ;
        Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
        Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
        Parameters.ParamByName('ChargeItemId').Value :=adoquery1.fieldbyname('chargeitemid').AsInteger;
        Parameters.ParamByName('Quantum').Value :=adoquery1.fieldbyname('quantum').AsFloat ;;
        Parameters.ParamByName('receive').Value :=0;
        Parameters.ParamByName('BillCode').Value :='';
        Parameters.ParamByName('ReceType').Value :=0;
        Parameters.ParamByName('RegDate').Value :=now;
        Parameters.ParamByName('Operator').Value :=Oper.code ;
        ExecSQL ;
        adoquery1.next;
      end;
      if Prepared then Prepared:=false;    }




    end;
    buttonUse(false);
    id_Edit.Text :=tmpid;
    dm.ADOConnection.CommitTrans ;
    groupbox1.enabled:=false;
  except
    on e:exception do
    begin
      MessageBox(application.handle,pchar(e.message),'错误',MB_ICONWARNING+MB_OK);
      dm.ADOConnection.RollbackTrans ;
      exit;
    end;
  end;


end;

procedure Treturnform.close_BitBtnClick(Sender: TObject);
begin
  if save_BitBtn.Enabled  then
  begin
    self.Close;
    exit;
  end;
  if not print then
    if messagebox(handle,pchar('退费票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  self.Close;
end;

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

procedure Treturnform.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 ;
      Length_edit .Text :=tipform.list_adoquery.fieldbyname('length').AsString ;
      ClassCode_Edit.Text := tipform.list_adoquery.fieldbyname('classCode').AsString ;
      Code_Edit .Text :=tipform.list_adoquery.fieldbyname('code').AsString ;
      Source_Edit.Text :=tipform.list_adoquery.fieldbyname('Source').AsString ;
      Tutor_Edit .Text :=tipform.list_adoquery.fieldbyname('Tutor').AsString ;
      Circs_Edit.Text := tipform.list_adoquery.fieldbyname('Circs').AsString ;
      Memo_Edit .Text :=tipform.list_adoquery.fieldbyname('Memo').AsString ;
    end
    else
    begin
      MessageBox(application.handle,pchar('没有查找到相应学生信息!'),'错误',MB_ICONWARNING+MB_OK);
      exit;
    end;
  finally
    freeandnil(tipform);
  end;
  ChargeRangeId_combobox.Items.Clear ;
  with oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct(chargerangeid) as chargerange from income 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;

  StudentName_Edit.Enabled :=false;
  search_BitBtn.Enabled :=false;
  ChargeRangeId_combobox.Enabled :=true;
  cancel_bitbtn.Enabled :=true;
end;

procedure Treturnform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
  postmessage(handle,wm_user,0,0);
end;

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

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

procedure Treturnform.frxReport1BeforePrint(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(returncode_edit.Text );
  if sender.Name ='Memo6'  then
    (sender as tfrxmemoview).Text:=Department_Edit.text;
  if sender.Name ='Memo7'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo8'  then
    (sender as tfrxmemoview).Text:=tuition_rt_Edit.Text ;
  if sender.Name ='Memo9'  then
    (sender as tfrxmemoview).Text:=house_rt_Edit.Text;
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).Text:=book_rt_Edit.text;
  if sender.Name ='Memo11'  then
    (sender as tfrxmemoview).Text:=live_rt_Edit.Text;
  if sender.Name ='Memo12'  then
    (sender as tfrxmemoview).Text:= pledge_rt_Edit.Text;
  if sender.Name ='Memo13'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_rt_Edit.text)+strtofloat(house_rt_Edit.text)+strtofloat(book_rt_Edit.text)+strtofloat(live_rt_Edit.text)+strtofloat(pledge_rt_Edit.text));
  if sender.Name ='Memo14'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo15'  then
    (sender as tfrxmemoview).Text:=inttostr(year);
  if sender.Name ='Memo16'  then
    (sender as tfrxmemoview).Text:=inttostr(month);
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=inttostr(day);
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:=ChargeRangeId_combobox.Text;
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=trim(returncode_edit.Text );
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=Department_Edit.text;
  if sender.Name ='Memo21'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo22'  then
    (sender as tfrxmemoview).Text:=tuition_rt_Edit.Text ;
  if sender.Name ='Memo23'  then
    (sender as tfrxmemoview).Text:=house_rt_Edit.Text;
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=book_rt_Edit.text;
  if sender.Name ='Memo25'  then
    (sender as tfrxmemoview).Text:=live_rt_Edit.Text;
  if sender.Name ='Memo26'  then
    (sender as tfrxmemoview).Text:= pledge_rt_Edit.Text;
  if sender.Name ='Memo27'  then
    (sender as tfrxmemoview).Text:=formatfloat('0.00',strtofloat(tuition_rt_Edit.text)+strtofloat(house_rt_Edit.text)+strtofloat(book_rt_Edit.text)+strtofloat(live_rt_Edit.text)+strtofloat(pledge_rt_Edit.text));
  if sender.Name ='Memo28'  then
    (sender as tfrxmemoview).Text:='';
  if sender.Name ='Memo29'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo30'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo31'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo32'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.Text );
  if sender.Name ='Memo33'  then
    (sender as tfrxmemoview).Text:=oper.name;
  if sender.Name ='Memo34'  then
    (sender as tfrxmemoview).Text:=oper.name;
end;

end.