decreaseunit.pas

学费管理系统,学校使用

      sql.Add(' and ChargeItemId=:ChargeItemId ');
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      Parameters.ParamByName('Derate').Value := tmpmoney+strtofloat(trim(decreasenum_edit.Text) );
      Parameters.ParamByName('DerateName').Value :=tmpstr+#13#10+trim(decreasename_edit.Text) ;
      ExecSQL ;

      //减免明细
      close;
      sql.Clear;
      sql.Add('insert into decrease (StudentID,ChargeRangeId,StudyYear, chargeitemid,');
      sql.Add('Quantum,receive,decreasename,decreasenum,decreasecode,RegDate,Operator ) values ( ');
      sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:chargeitemid,');
      sql.Add(':Quantum,:receive,:decreasename,:decreasenum,:decreasecode,:RegDate,:Operator )');
      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_edit.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      Parameters.ParamByName('Quantum').Value :=0;//trim(tuition_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=0;//trim(tuition_re_Edit.Text );
      Parameters.ParamByName('decreasename').Value :=trim(decreasename_edit.Text );
      Parameters.ParamByName('decreasenum').Value :=trim(decreasenum_edit.Text );
      Parameters.ParamByName('decreasecode').Value :=trim(decreasecode_Edit.Text );
      Parameters.ParamByName('RegDate').Value :=now;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;
      for i :=2  to 6 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 := i;
        Parameters.ParamByName('Quantum').Value :=0;//trim(tuition_be_Edit.Text );
        Parameters.ParamByName('receive').Value :=0;//trim(tuition_re_Edit.Text );
        Parameters.ParamByName('decreasename').Value :='';
        Parameters.ParamByName('decreasenum').Value :=0;
        Parameters.ParamByName('decreasecode').Value :='';
        Parameters.ParamByName('RegDate').Value :=now;
        Parameters.ParamByName('Operator').Value :=Oper.code ;
        ExecSQL ;
      end;

      {
      //调整录入明细
      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;
  except
    on e:exception do
    begin
      MessageBox(application.handle,pchar(e.message),'错误',MB_ICONWARNING+MB_OK);
      exit;
    end;
  end;
  with list_adoquery do
  begin
    close;
    sql.clear;
    sql.add('select * from decrease where studentid=:studentid and chargerangeid=:chargerangeid and decreasenum>0');
    Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
    Parameters.ParamByName('chargerangeid').Value := trim(ChargeRangeId_combobox.Text );
    open;
  end;
  groupbox1.enabled:=false;
end;

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

end;

procedure TDecreaseform.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 TDecreaseform.ChargeRangeId_comboboxChange(Sender: TObject);

begin

  with oper_adoquery do
  begin
    close;
    sql.clear;
    sql.add('select * from income where studentid=:studentid and chargerangeid=:chargerangeid');
    Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
    Parameters.ParamByName('chargerangeid').Value := trim(ChargeRangeId_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('chargeitemid').asinteger of
        1:
        begin
          tuition_be_Edit.text:=formatfloat('0.00',fieldbyname('quantum').asfloat);
          tuition_re_Edit.text:=formatfloat('0.00',fieldbyname('fact').asfloat);
          tuition_rr_Edit.text:=formatfloat('0.00',fieldbyname('returnnum').asfloat);
        end ;
      end;
      next;
    end;
  end;
  with list_adoquery do
  begin
    close;
    sql.clear;
    sql.add('select * from decrease where studentid=:studentid and chargerangeid=:chargerangeid and decreasenum>0');
    Parameters.ParamByName('studentid').Value := trim(id_Edit.Text );
    Parameters.ParamByName('chargerangeid').Value := trim(ChargeRangeId_combobox.Text );
    open;
  end;
  groupbox1.enabled:=true;
  decreasenum_edit.SetFocus ;

end;

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

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

procedure TDecreaseform.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(decreasecode_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:=trim(decreasename_edit.Text );
  if sender.Name ='Memo9'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(decreasenum_edit.Text));
  if sender.Name ='Memo10'  then
    (sender as tfrxmemoview).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(decreasecode_Edit.Text );
  if sender.Name ='Memo16'  then
    (sender as tfrxmemoview).Text:=Department_Edit.text;
  if sender.Name ='Memo17'  then
    (sender as tfrxmemoview).Text:=ClassCode_Edit.text;
  if sender.Name ='Memo18'  then
    (sender as tfrxmemoview).Text:=trim(decreasename_edit.Text );
  if sender.Name ='Memo19'  then
    (sender as tfrxmemoview).Text:=analymoney(strtofloat(decreasenum_edit.Text));
  if sender.Name ='Memo20'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo21'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.text);
  if sender.Name ='Memo22'  then
    (sender as tfrxmemoview).Text:='' ;
  if sender.Name ='Memo23'  then
    (sender as tfrxmemoview).Text:=id_edit.text;
  if sender.Name ='Memo24'  then
    (sender as tfrxmemoview).Text:=trim(StudentName_Edit.text);
  if sender.Name ='Memo25'  then
    (sender as tfrxmemoview).Text:=oper.name ;
  if sender.Name ='Memo26'  then
    (sender as tfrxmemoview).Text:=oper.name ;
end;

end.