unit5.~pas

学籍管理系统（MSS）是集计算机技术、网络通信技术为一体的信息系统工程

unit Unit5;

interface

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

type
  Tchform = class(TForm)
    Button1: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    
   { procedure FormCreate(Sender: TObject); }
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chform: Tchform;

implementation

{$R *.dfm}

procedure Tchform.Button1Click(Sender: TObject);
var
tempstr:string;
//str:string;
begin
 if combobox1.ItemIndex=0 then
begin
tempstr:=trim(edit1.Text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select *  from  student where ID="'+tempstr+'" ');
adoquery1.Open;
  end
  else
  begin

tempstr:=trim(edit1.Text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select *  from  student where class="'+tempstr+'" ');
adoquery1.Open;
end;
end;

{procedure Tchform.FormCreate(Sender: TObject);
begin
   self.ComboBox1.Items.Add('ID');
   self.ComboBox1.Items.Add('class');

   self.ComboBox1.ItemIndex:=0;


end;}

procedure Tchform.Button2Click(Sender: TObject);
begin
 close;
end;

end.