请问我有一段SQL语句,如果在DELPHI中建立数据表呢?(50分)

  • 主题发起人 主题发起人 jackersun
  • 开始时间 开始时间
J

jackersun

Unregistered / Unconfirmed
GUEST, unregistred user!
如下一段SQL语句
create table teacher(
id char(6) not null,
name varchar(20) not null,
department char(2) not null');

alter table teacher
add constraint teacher_id
primary key(id);

create table course(
id char(10) not null,
name varchar(50) not null,
teacher char(6) not null,
credit_hour smallint default 0,
period smallint default 0,
classtime varchar(20),
classroom varchar(20),
intro varchar(4000),
state char(1));

alter table course
add constraint course_id
primary key(id);

alter table course
add constraint teacher
foreign key (teacher)
references teacher;
该如何建立,请给出详细代码,好不好,本人初学DELPHI,希望得到大家的帮助。
 
用Query或者Command控件。

Query1.SQL.LoadFromFile('theSQL.sql');
Query1.Execute;
 
加一个查询控件,例如取名qry
你可以这样做:
代码:
qry.close;
qry.sql.clear;
qry.sql.add(....你的语句);
qry.ExecSQL;
这样一来你就可以动态创建表了
 
To:lonelyboy
這樣建表后是臨時的還是長久存在的呢,又如何刪除它!??
關注
 
你把此建库程序写成存储过程
有Delphi 通过 存储过程控件进行调用!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables;

type
TForm1 = class(TForm)
StoredProc1: TStoredProc;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
StoredProc1.ExecProc;
end;

end.

object Form1: TForm1
Left = 238
Top = 131
Width = 383
Height = 249
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 176
Top = 28
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object StoredProc1: TStoredProc
DatabaseName = 'DBHD'
StoredProcName = 'aaaa'
Left = 52
Top = 32
end
end
 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.LoadFromFile('你的Sql代码');
Query1.ExecSQL;
 
使用query就可以执行你的SQL语句,如果你想删除,
还不是使用SQL语句就可以搞定.
//上面把SQL语句都有了.
 
其中的alter他说有错显示的invali use of keyword什么错误
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部