unit7.pas

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

unit Unit7;

interface

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

type
  Talertcount = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Label6: TLabel;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure Button2Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
    procedure DBLookupComboBox2CloseUp(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  alertcount: Talertcount;

implementation

{$R *.dfm}

procedure Talertcount.Button2Click(Sender: TObject);
begin
self.Close;
end;

procedure Talertcount.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 Talertcount.DBLookupComboBox2CloseUp(Sender: TObject);
var sqlstr:string;
begin
 if  (DBLookupComboBox2.KeyValue=null) then exit;
 sqlstr:='select 课程名称 from 课程 where 系名称='''+DBLookupComboBox2.KeyValue+'''';
 adoquery3.Close;
 adoquery3.SQL.Clear ;
 adoquery3.sql.Add(sqlstr);
 adoquery3.Open;
 adoquery4.Close;
 adoquery4.SQL.Clear ;
 adoquery4.sql.Add('select * from '+DBLookupComboBox2.keyvalue+'');
 adoquery4.Open;
 button1.enabled:=false;
 DBGrid1.enabled:=true;
 edit1.text:='';
 edit2.Text:='';

  end;

procedure Talertcount.FormCreate(Sender: TObject);
begin
  DBGrid1.Enabled:=false;
  Button1.Enabled:=false;
  edit1.Enabled:=false;
  edit2.enabled:=false;
end;

procedure Talertcount.DBGrid1DblClick(Sender: TObject);
begin
  edit1.text:=adoquery4.fieldbyname('学号').asstring;
  edit2.Text:=adoquery4.fieldbyname('姓名').asstring;
  edit1.Enabled:=false;
  edit2.enabled:=false;
  Button1.Enabled:=true;
end;

procedure Talertcount.Button1Click(Sender: TObject);
begin
if  (DBLookupComboBox3.KeyValue=null)or(edit3.text='')then
     begin
   showmessage('请输入完整的信息');
   exit;
     end;
     with ADOquery4 do
    begin
    edit;
    fieldvalues['学号']:=edit1.text;
    fieldvalues['姓名']:=edit2.text;
    fieldvalues[''+DBLookupComboBox3.KeyValue+'']:=edit3.Text;
    post;
    ADOquery4.close;
   ADOquery4.sql.clear;
   ADOquery4.sql.add('select * from '+DBLookupComboBox2.keyvalue+'');
   ADOquery4.open;
 end;
end;

end.