unit9.~pas

能够动态的实现数据库表的创建

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);
var sqlstr:string;
begin
   if  (DBLookupComboBox1.KeyValue=null)then
   begin
     showmessage('请选择要查找的院系');
     exit;
     end;
   sqlstr:='select * from  院系 where 学院名称='''+DBLookupComboBox1.KeyValue+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.sql.Add(sqlstr);
   ADOQuery1.Open;
   if ADOquery1.RecordCount=0 then
    begin
    application.MessageBox('没有您要查找的信息','提示',0+64);
    exit;
    end;
 end;

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

end.