unit4.~pas

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

unit Unit4;

interface

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

type
  Tstuselect = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Button3: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    name: TEdit;
    id: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox3: TGroupBox;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stuselect: Tstuselect;

implementation

{$R *.dfm}
uses unit14;

procedure Tstuselect.Button1Click(Sender: TObject);
begin
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from 学生基本信息表');
 ADoquery1.Open;
end;

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


procedure Tstuselect.Button2Click(Sender: TObject);
var sqlstr:string;
begin
   if  (name.text='') and (id.text='') then
   begin
     showmessage('请填入要查找的信息');
     exit;
     end;
   if  (name.text<>'') and (id.text<>'') then
     begin
    showmessage('选填1项即可，程序将会按照学号查询');
    sqlstr:='select * from  学生基本信息表 where 学号='''+id.Text+'''';
    end
    else
      begin
      if (name.text<>'') then
          sqlstr:='select * from  学生基本信息表 where 姓名='''+name.Text+''''
          else
            sqlstr:='select * from  学生基本信息表 where 学号='''+id.Text+'''';
      end;
   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 Tstuselect.Button4Click(Sender: TObject);
begin
self.Close;
end;

procedure Tstuselect.Button3Click(Sender: TObject);
var
sql:string;
begin
sql:='select * from 学生基本信息表 where 1=1';
   if(dblookupcombobox1.keyvalue<>null)or(dblookupcombobox2.keyvalue<>null)or(dblookupcombobox1.keyvalue<>null)then
    begin
   if dblookupcombobox1.keyvalue<>null then sql:=sql+' and 学院='''+dblookupcombobox1.keyvalue+'''';
   if dblookupcombobox2.keyvalue<>null then sql:=sql+' and 系='''+dblookupcombobox2.keyvalue+'''';
        end
   else
  begin
   application.MessageBox('输入查询条件','提示',mb_ok);
   exit;
  end;
  ADOquery1.Close;
  ADOquery1.SQL.Clear;
  ADOquery1.SQL.Add(sql);
  ADoquery1.Open;
 dblookupcombobox1.keyvalue:=null;
 dblookupcombobox2.keyvalue:=null;
 sql:='';

 end;

procedure Tstuselect.Button5Click(Sender: TObject);
begin
id.text:='';
name.text:='';
end;

procedure Tstuselect.Button6Click(Sender: TObject);
begin
   DBLookupComboBox1.KeyValue:=null;
   DBLookupComboBox2.KeyValue:=null;
end;
procedure Tstuselect.Button7Click(Sender: TObject);
var leftv,i,j:integer; //leftv为报表起始位置
cheader:TQRLabel;
detailtext:Tqrdbtext;
 repform:TrepForm;
begin
 repform:=Trepform.Create(nil); 
leftv:=0;
for i:=0 to dbgrid1.columns.Count-1 do
begin
cheader:=TQrlabel.Create(repform);
with cheader do
begin 
parent:=repform.columnheaderband1;
caption:=dbgrid1.columns[i].fieldname;
width:=dbgrid1.columns[i].width;
height:=repform.columnheaderband1.height;
left:=leftv+2;
top:=5;
Alignment:=taCenter;
end;
//在leftv 处画表格竖线
leftv:=dbgrid1.columns[i].width+leftv;
end;
//画表头栏边框。起始位为0，总宽度为leftv，也就是dbgrid1的各列宽度之和
leftv:=0;
//显示记录内容

for i:=0 to dbgrid1.columns.Count-1 do
begin
detailtext:=TQrdbtext.create(repform);
with detailtext do
begin
parent:=repform.detailband1;
dataset:=adoquery1;
datafield:=dbgrid1.columns[i].fieldname;
width:=dbgrid1.columns[i].width;
height:=repform.detailband1.height;
left:=leftv+2;
top:=15;
Alignment:=taCenter;
end;
//在leftv 处画表格竖线
leftv:=dbgrid1.columns[i].width+leftv;
end;
// 画明晰栏边框。
repform.quickrep1.preview();//报表预览
end;

end.