unit21.~pas

用Delphi写的学生信息管理系统的源代码

unit Unit21;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type
  Tbjcx = class(TForm)
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjcx: Tbjcx;

implementation
 uses unit1;
{$R *.dfm}

procedure Tbjcx.FormActivate(Sender: TObject);
 var
 sqlstr:string;
begin
sqlstr:='select * from t_banji';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADoquery1.SQL.Add(sqlstr);
ADOquery1.Open;
end;

procedure Tbjcx.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tbjcx.SpeedButton1Click(Sender: TObject);
begin
if(edit1.Text='')then
begin
 application.MessageBox('请输入查询条件','提示',0+64);
 exit;
end;
ADOquery1.SQL.Clear;
ADOquery1.Close;
ADOquery1.SQL.Add('select * from t_banji where 班级号='''+edit1.text+'''');
DBgrid1.Font.Color:=clgreen;
ADOquery1.Open;
edit1.SetFocus;
edit1.SelectAll;
if ADOquery1.RecordCount=0 then
begin
application.MessageBox('你输入的数据不存在,请重新输入','提示',0+64);
exit;
end;
end;

procedure Tbjcx.SpeedButton2Click(Sender: TObject);
var
sql:string;
begin
DBgrid1.Font.Color:=clblack;
{if(edit2.Text<>'')or(edit3.Text<>'')or(edit4.Text<>'')or(edit5.Text<>'')then
  sql:='where(班级号 like '''+'%'+edit2.Text+'%'')or(所学专业 like '''+'%'+edit3.Text+'%'')or(所在年级 like '''+'%'+edit4.Text+'%'')or(班主任姓名 like '''+'%'+edit5.Text+'%'')' ;
else
  begin
   application.MessageBox('没有查询条件','提示',0+64);
   exit;
  end; }
 sql:='where(班级号 like '''+'%'+edit2.Text+'%'')and(所学专业 like '''+'%'+edit3.Text+'%'')and(所在年级 like '''+'%'+edit4.Text+'%'')and(班主任姓名 like '''+'%'+edit5.Text+'%'')' ;
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from t_banji');
 ADOquery1.SQL.Add(sql);
 ADoquery1.Open;
  end;

end.