editregunit.pas

学费管理系统,学校使用

  begin
    MessageBox(application.handle,pchar('收费年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeRangeId_combobox.SetFocus ;
    exit;
  end;
  if trim(tuition_fa_Edit.Text )<>'0' then
    if trim(tuition_code_Edit.Text )='' then
    begin
      MessageBox(application.handle,pchar('学费票据编号没有填写!'),'错误',MB_ICONWARNING+MB_OK);
      tuition_code_Edit.SetFocus ;
      exit;
    end;
  if trim(book_fa_Edit.Text )<>'0' then
    if trim(book_code_Edit.Text )='' then
    begin
      MessageBox(application.handle,pchar('书费票据编号没有填写!'),'错误',MB_ICONWARNING+MB_OK);
      book_code_Edit.SetFocus ;
      exit;
    end;

  if trim(live_fa_Edit.Text )<>'0' then
    if trim(live_code_Edit.Text )='' then
    begin
      MessageBox(application.handle,pchar('生活用品票据编号没有填写!'),'错误',MB_ICONWARNING+MB_OK);
      live_code_Edit.SetFocus ;
      exit;
    end;
  if trim(pledge_fa_Edit.Text )<>'0' then
    if trim(pledge_code_Edit.Text )='' then
    begin
      MessageBox(application.handle,pchar('保证金票据编号没有填写!'),'错误',MB_ICONWARNING+MB_OK);
      pledge_code_Edit.SetFocus ;
      exit;
    end;
  TmpDT:=GetDT(now);
  dm.ADOConnection.BeginTrans ;
  try
    with oper_adoquery do
    begin
      tmpid:=trim(id_edit.text);
       { TODO : 要修改 }

      //收支总表
      close;
      sql.Clear;
      sql.Add('update income set Fact=:Fact,Quantum=:Quantum where');
      sql.Add(' StudentID =:StudentID and ChargeRangeId =:ChargeRangeId');
      sql.Add(' and StudyYear=:StudyYear and ChargeItemId=:ChargeItemId ');
      if Not Prepared then Prepared:=true;

      //学费
      close;
      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('Fact').Value :=tuition_fa+strtofloat(tuition_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );
      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 :=2;
      Parameters.ParamByName('Fact').Value :=house_fa+strtofloat(house_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
      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('Fact').Value := book_fa+strtofloat(book_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(book_be_Edit.Text );
      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('Fact').Value := insurance_fa+strtofloat(insurance_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(insurance_be_Edit.Text );
      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('Fact').Value :=live_fa+strtofloat(live_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(live_be_Edit.Text );
      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('Fact').Value :=pledge_fa+strtofloat(pledge_fa_Edit.Text);
      Parameters.ParamByName('Quantum').Value :=trim(pledge_be_Edit.Text );
      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;

      //学费
      close;
      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 :=trim(tuition_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(tuition_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :=trim(tuition_code_Edit.Text );
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      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 :=2 ;
      Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(house_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :='';
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      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 := trim(book_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(book_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :=trim(book_code_Edit.Text );
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      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 := trim(insurance_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(insurance_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :='';
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      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 :=trim(live_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(live_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :=trim(live_code_Edit.Text );
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      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 := trim(pledge_be_Edit.Text );
      Parameters.ParamByName('receive').Value :=trim(pledge_fa_Edit.Text );
      Parameters.ParamByName('BillCode').Value :=trim(pledge_code_Edit.Text );
      Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;
      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 Teditregform.calc_bitbtnClick(Sender: TObject);
var
  tuition,house,book,insurance,live,pledge:currency; //应收
  tuition1,house1,book1,insurance1,live1,pledge1:currency; //已收
  tuition2,house2,book2,insurance2,live2,pledge2:currency; //实收
  tuition3,house3,book3,insurance3,live3,pledge3:currency; //退费
  tuition4 :currency;//减免
begin
  try
    tuition:=strtofloat(trim(tuition_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_be_Edit.SetFocus ;
  end;
  try
    house:=strtofloat(trim(house_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_be_Edit.SetFocus ;
  end;
  try
    book:=strtofloat(trim(book_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_be_Edit.SetFocus ;
  end;
  try
    insurance:=strtofloat(trim(insurance_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_be_Edit.SetFocus ;
  end;
  try
    live:=strtofloat(trim(live_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    live_be_Edit.SetFocus ;
  end;
  try
    pledge:=strtofloat(trim(pledge_be_Edit.Text ));
  except
    MessageBox(application.handle,pchar('应收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_be_Edit.SetFocus ;
  end;
  try
    tuition1:=strtofloat(trim(tuition_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_re_Edit.SetFocus ;
  end;
  try
    house1:=strtofloat(trim(house_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_re_Edit.SetFocus ;
  end;
  try
    book1:=strtofloat(trim(book_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_re_Edit.SetFocus ;
  end;
  try
    insurance1:=strtofloat(trim(insurance_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_re_Edit.SetFocus ;
  end;
  try
    live1:=strtofloat(trim(live_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    live_re_Edit.SetFocus ;
  end;
  try
    pledge1:=strtofloat(trim(pledge_re_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_re_Edit.SetFocus ;
  end;

  try
    tuition3:=strtofloat(trim(tuition_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_rr_Edit.SetFocus ;
  end;
  try
    house3:=strtofloat(trim(house_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    house_rr_Edit.SetFocus ;
  end;
  try
    book3:=strtofloat(trim(book_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    book_rr_Edit.SetFocus ;
  end;
  try
    insurance3:=strtofloat(trim(insurance_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_rr_Edit.SetFocus ;
  end;
  try
    live3:=strtofloat(trim(live_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    live_rr_Edit.SetFocus ;
  end;
  try
    pledge3:=strtofloat(trim(pledge_rr_Edit.Text ));
  except
    MessageBox(application.handle,pchar('已退保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_rr_Edit.SetFocus ;
  end;
  try
    tuition4:=strtofloat(trim(derate_edit.Text ));
  except
    MessageBox(application.handle,pchar('减免学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    derate_edit.SetFocus ;
  end;


  try
    tuition2:=strtofloat(trim(tuition_fa_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_fa_Edit.SetFocus ;
  end;
  try
    house2:=strtofloat(trim(house_fa_Edit.Text ));
  except
    MessageBox(application.handle,pchar('实收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);