query.pas

银行学生助学贷款管理系统 随着社会的进步

unit query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Grids, jpeg, XPMenu, RxGIF,
  Animate, GIFCtrl;

type
  TQueryForm = class(TForm)
    GroupBox1: TGroupBox;
    Query: TPageControl;
    XNQuery: TTabSheet;
    XHQuery: TTabSheet;
    JZQuery: TTabSheet;
    PJQuery: TTabSheet;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    XHQEdit: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Panel2: TPanel;
    StringGrid2: TStringGrid;
    Panel3: TPanel;
    StringGrid3: TStringGrid;
    Panel4: TPanel;
    StringGrid4: TStringGrid;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    JTGZEdit: TEdit;
    Button3: TButton;
    Label4: TLabel;
    PJEdit: TEdit;
    Button4: TButton;
    FHQuery: TTabSheet;
    GroupBox7: TGroupBox;
    StringGrid5: TStringGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    XNEdit: TEdit;
    XPEdit: TComboBox;
    Panel5: TPanel;
    Button5: TButton;
    Button6: TButton;
    NameEdit: TEdit;
    RxGIFAnimator1: TRxGIFAnimator;
    Splitter1: TSplitter;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Edit3: TEdit;
    xhedit: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryForm: TQueryForm;

implementation
Uses MD;
{$R *.dfm}
var
Qstr1:string;
// 以下判断是否为空相应的对话框
function isempty(Sender:TObject):boolean;
begin
if trim((sender as Tedit).Text)='' then
result:=true
else
result:=false;
end;
//以下是查询相应的记录
procedure QueryPD(Sender:TObject;Qstr:string);
var
I,k:integer;
begin
k:=1;
with DataMd.ADOQuerystudent do
begin
  close;
  sql.Clear;
  sql.Add('select * from student '+Qstr);
  open;
   for i:=1 to fieldcount-1 do
    begin
    (sender as TstringGrid).Cells[i-1,0]:=fields[i].FieldName;
    end;
 if recordcount>0 then
    begin
    first;
      while not Eof do
        begin
           for i:=1 to fieldcount-1 do
             begin
             (sender as TstringGrid).Cells[i-1,k]:=fields[i].AsString;
              end;
           next;
           k:=k+1;
        end;
    end
    else
    showmessage('没有该要查询的信息，请重新确认后输入再查询');
 end;
end;

procedure TQueryForm.Button1Click(Sender: TObject);
begin
//查询学号
Qstr1:='';
if trim(xhqedit.Text)<>'' then
begin
Qstr1:='where 学号 like ''%'+Trim(xhqedit.Text)+'%''' ;
QueryPd(StringGrid1,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TQueryForm.Button2Click(Sender: TObject);
begin
//可以实现模糊查询与精确查询
Qstr1:='';
if trim(NameEdit.Text)<>''
then
begin
Qstr1:='where 姓名 like ''%'+Trim(nameedit.Text)+'%''' ;
QueryPd(StringGrid2,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TQueryForm.Button3Click(Sender: TObject);
begin
//查询地址
Qstr1:='';
if Trim(jtgzedit.Text)<>'' then
begin
Qstr1:=' where 地址 or 省市 or 地县 like ''%'+Trim(JTGZEdit.Text)+'%''' ;
QueryPd(StringGrid3,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TQueryForm.Button4Click(Sender: TObject);
begin
//查询班级
Qstr1:='';
if trim(pjedit.Text)<>'' then
begin
Qstr1:=' where 班级 like ''%'+Trim(PJedit.Text)+'%''';
QueryPd(StringGrid4,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TQueryForm.Button5Click(Sender: TObject);
var
s1,s2,s3,s4,s5,s6:string;
begin
//混合学院
Qstr1:='';

if RadioButton1.Checked=true then
begin
  if XHedit.Text='' then
  begin
    ShowMessage('查询信息不能为空');
  end else
  begin
  s1:='where 学院 like ''%'+Trim(XHedit.Text)+'%''' ;
  QueryPd(StringGrid5,s1);
  end;
end;

if RadioButton2.Checked=true then
begin
  if isempty(XNedit) then
  begin
    ShowMessage('查询信息不能为空');
  end else
  begin
  s2:='where 贷款项目 like ''%'+Trim(XNedit.Text)+'%''' ;
  QueryPd(StringGrid5,s2);
  end;
end;

if RadioButton3.Checked=true then
begin
  s3:='where 性别 like ''%'+Trim(XPedit.Text)+'%''' ;
  QueryPd(StringGrid5,s3);
  
end;

if RadioButton4.Checked=true then
begin
if isempty(edit2) then
  begin
    ShowMessage('查询信息不能为空');
  end else
  begin
  s4:='where 专业 like ''%'+Trim(edit2.Text)+'%''' ;
  QueryPd(StringGrid5,s4);
  end;
end;

if RadioButton5.Checked=true then
begin
if isempty(edit3) then
  begin
    ShowMessage('查询信息不能为空');
  end else
  begin
   s5:='where 贷款编号 like ''%'+Trim(edit3.Text)+'%''' ;
   QueryPd(StringGrid5,s5);
  end;
end;

if RadioButton6.Checked=true then
begin
  if isempty(edit1) then
  begin
    ShowMessage('查询信息不能为空');
  end else
  begin
   s6:='where 入学年月 like ''%'+Trim(edit1.Text)+'%''' ;
   QueryPd(StringGrid5,s6);
  end;
end;



{

if  Trim(XHEdit.Text)<>'' then  //选择学院
   Qstr1:=' where 学院='''+trim(XHedit.Text)+''' '
   else
   Qstr1:='';
if (trim(XNEdit.Text)<>'') and (Qstr1<>'') then  //选择贷款项目
   Qstr1:=Qstr1+combobox1.Text+' 贷款项目='''+trim(Xnedit.Text)+''' '
   else
   begin
   if Trim(Qstr1)='' then
   Qstr1:='where 贷款项目='''+trim(Xnedit.Text)+''' ';
   if Trim(xpedit.Text)='' then
   Qstr1:=Qstr1;
   end;
if (trim(xpedit.Text)<>'') and (Qstr1<>'') then //选择
   Qstr1:=Qstr1+combobox2.text+' 性别='''+trim(Xpedit.Text)+''' '
   else
   begin
   if Trim(Qstr1)='' then
   Qstr1:='where 性别='''+trim(XPedit.Text)+''' ';
   if Trim(edit2.Text)='' then
   Qstr1:=Qstr1;
   end;
if (trim(edit2.Text)<>'') and (Qstr1<>'') then    //选择性别
   Qstr1:=Qstr1+combobox3.text+' 专业='''+trim(edit2.Text)+''' '
   else
   begin
   if Trim(Qstr1)='' then
   Qstr1:='where 专业='''+trim(edit2.Text)+''' ';
   if Trim(FMLEdit.Text)='' then
   Qstr1:=Qstr1;
   end;
if (trim(FMLedit.Text)<>'') and (Qstr1<>'') then    //选择性别
   Qstr1:=Qstr1+combobox4.text+' 贷款编号='''+trim(FMLEdit.Text)+''' '
   else
   begin
   if Trim(Qstr1)='' then
   Qstr1:='where 贷款编号='''+trim(FMLEdit.Text)+''' ';
   if Trim(edit1.text)='' then
   Qstr1:=Qstr1;
   end;
if (Qstr1<>'') and (combobox5.text='') then                                  //选择日期
   Qstr1:=Qstr1+combobox4.text+' 入学年月='+edit1.Text
   else
   begin
   if Qstr1='' then
   Qstr1:=' where  入学年月='+edit1.Text
   else
   Qstr1:=Qstr1+combobox5.text+' 入学年月='+edit1.Text;
   end;
   QueryPd(StringGrid5,Qstr1);

   }
end;

procedure TQueryForm.Button6Click(Sender: TObject);
begin
close;
end;

end.