unit8.~pas

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

unit Unit8;

interface

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

type
  Tcountsel = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure Button2Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
    procedure DBLookupComboBox2CloseUp(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  countsel: Tcountsel;

implementation

{$R *.dfm}

procedure Tcountsel.DBLookupComboBox1CloseUp(Sender: TObject);
var sqlstr:string;
begin
if  (DBLookupComboBox1.KeyValue=null) then exit;
 sqlstr:='select DISTINCT 系名称 from 院系 where 学院名称='''+DBLookupComboBox1.KeyValue+'''';
 adoquery2.Close;
 adoquery2.SQL.Clear ;
 adoquery2.sql.Add(sqlstr);
 adoquery2.Open;
end;

procedure Tcountsel.DBLookupComboBox2CloseUp(Sender: TObject);
var sqlstr:string;
begin
 if  (DBLookupComboBox2.KeyValue=null) then exit;
 sqlstr:='select * from '+DBLookupComboBox2.keyvalue+'';
 adoquery3.Close;
 adoquery3.SQL.Clear ;
 adoquery3.sql.Add(sqlstr);
 adoquery3.Open;
 DBLookupComboBox1.enabled:=false;
 DBLookupComboBox2.Enabled:=false;
end;





procedure Tcountsel.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
      begin
       key:=#0;
         showmessage('学号只能为数字');
     end;
     end;

procedure Tcountsel.BitBtn1Click(Sender: TObject);
var sql:string;
begin
if (DBLookupComboBox2.keyvalue=null)or(DBLookupComboBox1.keyvalue=null)then
  begin
  showmessage('请选择院系');
  exit;
  end;
  if(edit1.text='')and(edit2.text='')then
     begin
     application.MessageBox('请输入查询内容','提示',mb_ok);
     exit;
     end;
   if (edit1.text<>'') then
      begin
      sql:='select * from '+DBLookupComboBox2.keyvalue+' where 学号='''+edit1.text+'''';
        adoquery3.Close;
        adoquery3.SQL.Clear ;
        adoquery3.sql.Add(sql);
        adoquery3.Open;
   if ADOquery3.recordcount<=0 then
   begin
      showmessage('未找到你需要的内容');
        exit;
        end;
        exit;
        end;
       if (edit2.text<>'') then
      begin
      sql:='select * from '+DBLookupComboBox2.keyvalue+' where 姓名='''+edit2.text+'''';
        adoquery3.Close;
        adoquery3.SQL.Clear ;
        adoquery3.sql.Add(sql);
        adoquery3.Open;
      if ADOquery3.recordcount<=0 then
      begin
      showmessage('未找到你需要的内容');
        exit;
        end;
        exit;
        end;

end;

procedure Tcountsel.BitBtn2Click(Sender: TObject);
begin
  DBLookupComboBox1.KeyValue:=null;
  DBLookupComboBox2.KeyValue:=null;
  edit1.text:='';
  edit2.text:='';
  DBLookupComboBox1.enabled:=true;
  DBLookupComboBox2.Enabled:=true;
end;

procedure Tcountsel.BitBtn3Click(Sender: TObject);
begin
  self.close;
end;

procedure Tcountsel.BitBtn4Click(Sender: TObject);
var sqlstr:string;
begin
 if  (DBLookupComboBox2.KeyValue=null) then
   begin
    showmessage('请选择院系');
   exit;
   end;
 sqlstr:='select * from '+DBLookupComboBox2.keyvalue+'';
 adoquery3.Close;
 adoquery3.SQL.Clear ;
 adoquery3.sql.Add(sqlstr);
 adoquery3.Open;
end;

end.