billcodesearchunit.pas

学费管理系统,学校使用

        Next;
      end;
    end;
  end;

end;

procedure Tbillcodesearchform.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 Tbillcodesearchform.ButtonUse(CanUse: boolean);
begin
  BillCode_Edit.Enabled :=CanUse;
  search_BitBtn.Enabled :=CanUse;
  bitbtn1.Enabled :=not canuse;
  save_BitBtn.Enabled  :=not CanUse;
  new_BitBtn.Enabled  :=not canuse;
  //panel1.Enabled :=not canuse;
end;

procedure Tbillcodesearchform.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 Tbillcodesearchform.save_BitBtnClick(Sender: TObject);
var
  TmpID:String;
begin
  if trim(ChargeYearID_ComboBox.Text )='' then
  begin
    MessageBox(application.handle,pchar('入学年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeYearID_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;


  try
    with oper_adoquery do
    begin
      close;
      sql.Clear;
      sql.Add('update student set ChargeYearID=:ChargeYearID,StudentName=:StudentName,');
      sql.add('Code=:Code,Sex=:Sex,ScholarID=:ScholarID,DepartmentID=:DepartmentID,');
      sql.add('SpecID=:SpecID,Length=:Length,ClassCode=:ClassCode,Address=:Address,');
      sql.add('Source=:Source,Tutor=:Tutor,Circs=:Circs,Memo=:Memo where id=:id');
      Parameters.ParamByName('Id').Value :=trim(id_edit.Text );
      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 );
      ExecSQL ;

    end;
    buttonUse(true);
    ClearContent;
    adoquery1.close;
    adoquery2.close;
    adoquery3.close;
    adoquery4.close;
    adoquery5.close;
    BillCode_Edit.SetFocus ;
  except
    on e:exception do
    begin                            
      MessageBox(application.handle,pchar(e.message),'错误',MB_ICONWARNING+MB_OK);
      exit;
    end;
  end;

end;

procedure Tbillcodesearchform.close_BitBtnClick(Sender: TObject);
begin
  if save_BitBtn.Enabled  then
  begin
    self.Close;
    exit;
  end;
  self.Close;
end;

procedure Tbillcodesearchform.new_BitBtnClick(Sender: TObject);
begin
  buttonUse(true);
  ClearContent ;
  adoquery1.close;
  adoquery2.close;
  adoquery3.close;
  adoquery4.close;
  adoquery5.close;
  BillCode_Edit.SetFocus ;
end;

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

procedure Tbillcodesearchform.search_BitBtnClick(Sender: TObject);
var
  i:integer;
  tmpID:int64;
  tmpBillCode:string;
begin
  tmpBillCode:=trim(BillCode_Edit.Text );
  if tmpBillCode='' then exit;
  with oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from FirstReg where billcode=:billcode');
    Parameters.ParamByName('billcode').Value :=tmpBillCode;
    Open;
    if IsEmpty then
    begin
      close;
      sql.Clear;
      sql.Add('select * from EditReg where billcode=:billcode');
      Parameters.ParamByName('billcode').Value :=tmpBillCode;
      open;
      if IsEmpty then
      begin
        MessageBox(application.handle,pchar('没有查找到相应票据信息!'),'错误',MB_ICONWARNING+MB_OK);
        exit;
      end
      else
        tmpID:=strtoint64(fieldbyname('StudentID').asstring);
    end
    else
      tmpID:=strtoint64(fieldbyname('StudentID').asstring);
  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.ID=:ID');
    tipform.list_adoquery.Parameters.ParamByName('ID').Value := tmpID;
    tipform.list_adoquery.open;
    clearcontent;
    BillCode_edit.Text :=tmpBillCode;
    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) ;
      sex_combobox.ItemIndex:=sex_combobox.Items.IndexOf ( tipform.list_adoquery.fieldbyname('sexname').AsString );
      Address_Edit .Text :=tipform.list_adoquery.fieldbyname('Address').AsString ;
      Scholar_ComboBox.ItemIndex:=Scholar_ComboBox.Items.IndexOf(tipform.list_adoquery.fieldbyname('Scholar').AsString);
      Scholar_ComboBox.OnChange(nil) ;
      Department_combobox.itemindex:=Department_combobox.Items.IndexOf(tipform.list_adoquery.fieldbyname('department').AsString);
      Department_combobox.OnChange(nil);
      Spec_combobox.itemindex:=Spec_combobox.Items.IndexOf ( tipform.list_adoquery.fieldbyname('spec').AsString );
      Spec_combobox.OnChange (nil);
      Length_combobox.itemindex:=Length_combobox.Items.IndexOf ( 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;
  //查找相应数据
  adoquery1.close;
  adoquery2.close;
  adoquery3.close;
  adoquery4.close;
  adoquery5.close;
  adoquery1.Parameters.ParamByName('studentid1').Value:=trim(id_edit.Text );
  adoquery1.Parameters.ParamByName('studentid2').Value:=trim(id_edit.Text );
  adoquery2.Parameters.ParamByName('studentid1').Value:=trim(id_edit.Text );
  adoquery2.Parameters.ParamByName('studentid2').Value:=trim(id_edit.Text );
  adoquery3.Parameters.ParamByName('studentid1').Value:=trim(id_edit.Text );
  adoquery3.Parameters.ParamByName('studentid2').Value:=trim(id_edit.Text );
  adoquery4.Parameters.ParamByName('studentid1').Value:=trim(id_edit.Text );
  adoquery4.Parameters.ParamByName('studentid2').Value:=trim(id_edit.Text );
  adoquery5.Parameters.ParamByName('studentid1').Value:=trim(id_edit.Text );
  adoquery5.Parameters.ParamByName('studentid2').Value:=trim(id_edit.Text );
  adoquery1.Open;
  adoquery2.Open;
  adoquery3.Open;
  adoquery4.Open;
  adoquery5.Open;


  buttonuse(false);

end;

procedure Tbillcodesearchform.BitBtn1Click(Sender: TObject);
begin
  if trim(Tutor_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('没有指导人信息!'),'错误',MB_ICONWARNING+MB_OK);
    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.tutor=:tutor');
    tipform.list_adoquery.Parameters.ParamByName('tutor').Value := trim(Tutor_Edit.Text );
    tipform.list_adoquery.open;
    clearcontent;
    if not tipform.list_adoquery.IsEmpty then
    begin
      tipform.Caption :='学生信息';
      case tipform.ShowModal of
        mrcancel: exit;
      end;
    end
    else
    begin
      MessageBox(application.handle,pchar('没有查找到相应学生信息!'),'错误',MB_ICONWARNING+MB_OK);
      exit;
    end;
  finally
    freeandnil(tipform);
  end;
end;

end.