checkin.pas

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

unit checkin;

interface

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

type
  TPLForm = class(TForm)
    GroupBox1: TGroupBox;
    Query: TPageControl;
    XNQuery: TTabSheet;
    GroupBox3: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    XHQEdit: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    XHQuery: TTabSheet;
    GroupBox4: TGroupBox;
    Panel2: TPanel;
    Label2: TLabel;
    Button2: TButton;
    NameEdit: TEdit;
    StringGrid2: TStringGrid;
    JZQuery: TTabSheet;
    GroupBox5: TGroupBox;
    Panel3: TPanel;
    Label3: TLabel;
    JTGZEdit: TEdit;
    Button3: TButton;
    PJQuery: TTabSheet;
    GroupBox6: TGroupBox;
    Panel4: TPanel;
    Label4: TLabel;
    PJEdit: TEdit;
    Button4: TButton;
    GroupBox2: TGroupBox;
    RxGIFAnimator1: TRxGIFAnimator;
    StringGrid3: TStringGrid;
    StringGrid4: TStringGrid;
    TabSheet1: TTabSheet;
    GroupBox7: TGroupBox;
    Panel5: TPanel;
    Label5: TLabel;
    Edit1: TEdit;
    StringGrid5: TStringGrid;
    Button5: TButton;
    TabSheet2: TTabSheet;
    GroupBox8: TGroupBox;
    Panel6: TPanel;
    Label6: TLabel;
    StringGrid6: TStringGrid;
    Button6: TButton;
    edit2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BTCancelClick(Sender: TObject);
    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
  PLForm: TPLForm;

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.ADOQuerymoney do
begin
  close;
  sql.Clear;
  sql.Add('select * from tmoney '+Qstr);
  open;
   for i:=0 to fieldcount-1 do
    begin
    (sender as TstringGrid).Cells[i,0]:=fields[i].FieldName;
    end;
 if recordcount>0 then
    begin
    first;
      while not Eof do
        begin
           for i:=0 to fieldcount-1 do
             begin
             (sender as TstringGrid).Cells[i,k]:=fields[i].AsString;
              end;
           next;
           k:=k+1;
        end;
    end
    else
    showmessage('没有该要查询的信息，请重新输入再查询');
 end;
end;

procedure TPLForm.FormCreate(Sender: TObject);
begin
//自动获得值班人的姓名；通过查找员工表中的职位名称为保安的记录

end;

procedure TPLForm.BTCancelClick(Sender: TObject);
begin
close;
end;

procedure TPLForm.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 TPLForm.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 TPLForm.Button3Click(Sender: TObject);
begin
Qstr1:='';
if trim(JTGZEdit.Text)<>''
then
begin
Qstr1:='where 申请时间 like ''%'+Trim(JTGZEdit.Text)+'%''' ;
QueryPd(StringGrid3,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TPLForm.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 TPLForm.Button5Click(Sender: TObject);
begin
Qstr1:='';
if trim(Edit1.Text)<>''
then
begin
Qstr1:='where 贷款编号 like ''%'+Trim(Edit1.Text)+'%''' ;
QueryPd(StringGrid5,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;

end;

procedure TPLForm.Button6Click(Sender: TObject);
begin
Qstr1:='';
if trim(Edit2.Text)<>''
then
begin
Qstr1:='where 学院 like ''%'+Trim(Edit2.Text)+'%''' ;
QueryPd(StringGrid6,Qstr1);
end
else
begin
Qstr1:='';
ShowMessage('查询的信息不能为空');
end;
end;

end.