firstregunit.pas

学费管理系统,学校使用

    if not isempty then
    begin
      setlength(NewSpec,RecordCount);
      for i := 0 to RecordCount-1 do
      begin
        NewSpec[i].Id :=fieldbyname('id').AsInteger ;
        NewSpec[i].spec :=fieldbyname('spec').AsString ;
        spec_combobox.Items.Add(fieldbyname('spec').AsString) ;
        Next;
      end;
    end;
  end;

end;

procedure TFirstRegform.Spec_ComboBoxChange(Sender: TObject);
begin
  ClassCode_Edit.Text :='';
  if Spec_ComboBox.ItemIndex>-1 then
    Specid_Edit.Text :=inttostr(NewSpec[Spec_ComboBox.itemindex].id);
end;

procedure TFirstRegform.ButtonUse(CanUse: boolean);
begin
  save_BitBtn.Enabled  :=CanUse;
  new_BitBtn.Enabled  :=not canuse;
  print_BitBtn.Enabled  :=not canuse;
  print_book_bitbtn.enabled:=not canuse;
  print_pledge_BitBtn.Enabled  :=not canuse;
  print_get_BitBtn.Enabled  :=not canuse;
  panel1.Enabled :=canuse;
  GroupBox1.Enabled :=canuse;
end;

procedure TFirstRegform.ClassCode_BitBtnClick(Sender: TObject);
begin
  if trim(ChargeYearID_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('入学年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeYearID_ComboBox.SetFocus;
    exit;
  end;
  if trim(Spec_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('专业没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Spec_ComboBox.SetFocus ;
    exit;
  end;
  if trim(Length_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('学制没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Length_ComboBox.SetFocus ;
    exit;
  end;
  ClassCode_Edit.Text :=copy(trim(ChargeYearID_ComboBox.Text),3,2)+trim(Spec_ComboBox.Text )+trim(Length_ComboBox.Text )+'1';
end;

procedure TFirstRegform.save_BitBtnClick(Sender: TObject);
var
  TmpID,TmpDT:String;
begin
  if trim(ChargeYearID_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('入学年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeYearID_ComboBox.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(StudentName_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('姓名没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    StudentName_Edit.SetFocus ;
    exit;
  end;
  if trim(Sex_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('性别没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Sex_ComboBox.SetFocus ;
    exit;
  end;
  if trim(Address_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('家庭住址没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    address_edit.SetFocus ;
    exit;
  end;
  if trim(Scholar_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('学历层次没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Scholar_ComboBox.SetFocus ;
    exit;
  end;
  if trim(Department_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('院系没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Department_ComboBox.SetFocus ;
    exit;
  end;
  if trim(Spec_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('专业没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Spec_ComboBox.SetFocus ;
    exit;
  end;
  if trim(Length_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('学制没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    Length_ComboBox.SetFocus ;
    exit;
  end;
  if trim(ClassCode_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('班级没有生成!'),'错误',MB_ICONWARNING+MB_OK);
    ClassCode_Edit.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;

  //检查是否有重复录入信息
  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.SQL.Add('and student.chargeyearid=:chargeyearid');
    tipform.list_adoquery.SQL.Add('and student.classcode=:classcode');
    tipform.list_adoquery.Parameters.ParamByName('studentname').Value := trim(StudentName_Edit.Text );
    tipform.list_adoquery.Parameters.ParamByName('chargeyearid').Value :=ChargeYearID_ComboBox.Text ;
    tipform.list_adoquery.Parameters.ParamByName('classcode').Value :=ClassCode_Edit.Text ;
    tipform.list_adoquery.open;
    if not tipform.list_adoquery.IsEmpty then
    begin
      tipform.Caption :='发现'+inttostr(tipform.list_adoquery.RecordCount)+'条姓名相同信息,请确认是否添加当前录入学生收费信息';
      case tipform.ShowModal of
        mrcancel:
        begin
          ClearContent ;
          exit;
        end;
      end;
    end;
  finally
    freeAndNil(tipform);
  end;
  TmpDT:=GetDT(now);
  dm.ADOConnection.BeginTrans ;
  try
    with oper_adoquery do
    begin
      tmpid:=GetID;
      close;
      sql.Clear;
      sql.Add('insert into student (Id,ChargeYearID,StudentName,Code,Sex,');
      sql.Add('ScholarID,DepartmentID,SpecID,Length,');
      sql.Add('ClassCode,Address,Source,Tutor,Circs,');
      sql.Add('Memo,RegDate,Operator) values( ');
      sql.Add(':Id,:ChargeYearID,:StudentName,:Code,:Sex,');
      sql.Add(':ScholarID,:DepartmentID,:SpecID,:Length,');
      sql.Add(':ClassCode,:Address,:Source,:Tutor,:Circs,');
      sql.Add(':Memo,:RegDate,:Operator)');
      Parameters.ParamByName('Id').Value :=tmpid;
      Parameters.ParamByName('ChargeYearID').Value :=ChargeYearID_ComboBox.Text ;
      Parameters.ParamByName('StudentName').Value :=trim(StudentName_Edit.Text );
      Parameters.ParamByName('Code').Value :=code_edit.Text ;
      Parameters.ParamByName('Sex').Value :=sex_combobox.ItemIndex;
      Parameters.ParamByName('ScholarID').Value :=Scholarid_Edit.Text ;
      Parameters.ParamByName('DepartmentID').Value :=Departmentid_Edit.Text ;
      Parameters.ParamByName('SpecID').Value :=Specid_edit.Text ;
      Parameters.ParamByName('Length').Value :=Length_ComboBox.Text ;
      Parameters.ParamByName('ClassCode').Value :=classcode_edit.Text ;
      Parameters.ParamByName('Address').Value :=trim(address_edit.Text );
      Parameters.ParamByName('Source').Value :=trim(source_edit.text);
      Parameters.ParamByName('Tutor').Value := trim(tutor_edit.text);
      Parameters.ParamByName('Circs').Value :=trim(Circs_Edit.Text );
      Parameters.ParamByName('Memo').Value :=trim(memo_edit.Text );
      Parameters.ParamByName('RegDate').Value :=TmpDT;
      Parameters.ParamByName('Operator').Value :=Oper.code ;
      ExecSQL ;

      //收支总表
      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 := '';