unit7.pas

1.此管理系统是基于delphi sql2000 开发的。 2.此管理系统用delphi7.1来运行。 3.运行之前用sqlsever 2000企业管理器

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    rdg: TRadioGroup;
    Button1: TButton;
    dblcb: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    procedure rdgClick(Sender: TObject);
    procedure dblcbClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.rdgClick(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
case rdg.ItemIndex of
0:
begin
adoquery1.SQL.Add('select 学号 from student');
dblcb.KeyField:='学号';
dblcb.ListField:='学号';
end;
1:
begin
   adoquery1.SQL.Add('select 姓名 from student');
dblcb.KeyField:='姓名';
dblcb.ListField:='姓名';
end;
2:
begin
adoquery1.SQL.Add('select 所在班级 from student');
dblcb.KeyField:='所在班级';
dblcb.ListField:='所在班级';
end;
end;
adoquery1.Active:=true;
end;

procedure TForm7.dblcbClick(Sender: TObject);
var SQLCmd:string;
begin
     ADOQuery2.close;
  ADOQuery2.sql.clear;
  case rdg.itemindex of
  0:sqlcmd:='select * from student where 学号='+quotedstr(dblcb.text);
   1:sqlcmd:='select * from student where 姓名='+quotedstr(dblcb.text);
   2:sqlcmd:='select * from student where 所在班级='+quotedstr(dblcb.text);
     end;
   adoquery2.sql.add(SQLCmd);
    adoquery2.Active:=true;
    end;
procedure TForm7.Button1Click(Sender: TObject);
begin
close;
end;

end.