oldregunit.pas

学费管理系统,学校使用

  except
    MessageBox(application.handle,pchar('实收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_re_Edit.SetFocus ;
  end;
  sum_re_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);

end;

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

procedure Toldregform.save_BitBtnClick(Sender: TObject);
var
  TmpID,TmpDT:String;
begin
  if trim(StudentName_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('姓名没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    StudentName_Edit.SetFocus ;
    exit;
  end;
  if trim(ChargeRangeId_combobox.Text )='' then
  begin
    MessageBox(application.handle,pchar('收费年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeRangeId_combobox.SetFocus ;
    exit;
  end;
  if trim(StudyYear_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('学年没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    StudyYear_ComboBox.SetFocus ;
    exit;
  end;
  if trim(ReceType_combobox.Text )='' then
  begin
    MessageBox(application.handle,pchar('收款方式没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ReceType_combobox.SetFocus ;
    exit;
  end;
  if trim(tuition_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交学费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_be_Edit.SetFocus ;
    exit;
  end;
  if trim(house_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交住宿费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    house_be_Edit.SetFocus ;
    exit;
  end;
  if trim(book_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交书费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    book_be_Edit.SetFocus ;
    exit;
  end;
  if trim(insurance_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交保险费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_be_Edit.SetFocus ;
    exit;
  end;
  if trim(live_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交生活用品费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    live_be_Edit.SetFocus ;
    exit;
  end;
  if trim(pledge_be_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('应交保证金没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_be_Edit.SetFocus ;
    exit;
  end;
  if trim(tuition_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收学费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    tuition_re_Edit.SetFocus ;
    exit;
  end;
  if trim(house_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收住宿费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    house_re_Edit.SetFocus ;
    exit;
  end;
  if trim(book_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收书费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    book_re_Edit.SetFocus ;
    exit;
  end;
  if trim(insurance_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收保险费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    insurance_re_Edit.SetFocus ;
    exit;
  end;
  if trim(live_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收生活用品费没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    live_re_Edit.SetFocus ;
    exit;
  end;
  if trim(pledge_re_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('实收保证金没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    pledge_re_Edit.SetFocus ;
    exit;
  end;
  if trim(tuition_re_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_re_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_re_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_re_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);


      //收支总表
      close;
      sql.Clear;
      sql.Add('insert into income (StudentID,ChargeRangeId,StudyYear,ChargeItemId,Quantum,');
      sql.Add('Fact,Derate,DerateName,ReturnNum,ReturnName ) values (');
      sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:ChargeItemId,:Quantum,');
      sql.Add(':Fact,:Derate,:DerateName,:ReturnNum,:ReturnName )');
      if Not Prepared then Prepared:=true;

      //学费
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(tuition_re_Edit.Text );
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;

      //住宿
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=2;
      Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(house_re_Edit.Text );
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;

      //书费
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=3 ;
      Parameters.ParamByName('Quantum').Value := trim(book_be_Edit.Text );
      Parameters.ParamByName('Fact').Value := trim(book_re_Edit.Text ) ;
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;

      //保险
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 4;
      Parameters.ParamByName('Quantum').Value := trim(insurance_be_Edit.Text ) ;
      Parameters.ParamByName('Fact').Value := trim(insurance_re_Edit.Text ) ;
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;

      //生活用品
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 5;
      Parameters.ParamByName('Quantum').Value :=trim(live_be_Edit.Text );
      Parameters.ParamByName('Fact').Value := trim(live_re_Edit.Text ) ;
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;

      //保证金
      close;
      Parameters.ParamByName('StudentID').Value :=tmpid ;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
      Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 6 ;
      Parameters.ParamByName('Quantum').Value := trim(pledge_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(pledge_re_Edit.Text ) ;
      Parameters.ParamByName('Derate').Value := 0;
      Parameters.ParamByName('DerateName').Value :='';
      Parameters.ParamByName('ReturnNum').Value :=0;
      Parameters.ParamByName('ReturnName').Value := '';
      ExecSQL ;
      if Prepared then Prepared:=false;

      //收费录入明细
      close;
      sql.Clear;
      sql.Add('insert into firstreg (StudentID,ChargeRangeId,StudyYear,ChargeItemId, ');
      sql.Add('Quantum,Fact,BillCode,ReceType,RegDate,Operator ) values ( ');
      sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:ChargeItemId,');
      sql.Add(':Quantum,:Fact,: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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(tuition_re_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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=2 ;
      Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(house_re_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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value :=3;
      Parameters.ParamByName('Quantum').Value := trim(book_be_Edit.Text );
      Parameters.ParamByName('Fact').Value := trim(book_re_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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 4;
      Parameters.ParamByName('Quantum').Value := trim(insurance_be_Edit.Text );
      Parameters.ParamByName('Fact').Value := trim(insurance_re_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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 5;
      Parameters.ParamByName('Quantum').Value :=trim(live_be_Edit.Text );
      Parameters.ParamByName('Fact').Value := trim(live_re_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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 6;
      Parameters.ParamByName('Quantum').Value := trim(pledge_be_Edit.Text );
      Parameters.ParamByName('Fact').Value :=trim(pledge_re_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;


      //调整录入明细
      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_ComboBox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );