zoukankan      html  css  js  c++  java
  • Delphi 数据库学习[1] TQuery 创建数据库

    今天开始根据Delphi 范例自学手册学习。第一个例子弄的我太纠结了。话不多讲进入正题。

    一共写了两个。这是第一个:

    image

    这是第二个。

    image

    是不是很像。对第二个比第一个少了个TDataBase组件。

    书上使用的两个。当我发现他的TDataBase是个摆设。TDataBase的内容有待深究。

    主要说下BDE Administrator的配置。书上没咋说。

    image

    ODBC DSN 要去 控制面板 管理工具 那单设一下。

    image

    点配置一步步来就ok。BDE Administrator那边正常的话DATABASE NAME也要弄一下。我是创建数据库就没弄。最后点那个打开 如果变成黑体就连接ok了。

    image

    这可是我一点点摸索的啊。。。哭。

    image

    主要把TQuery这个DataBaseName弄一家就ok了。下面贴下代码。就是书上的那段了。

    View Code
    1 unit eg001;
    2
    3  interface
    4
    5 uses
    6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7 Dialogs, DB, DBTables, StdCtrls, Buttons;
    8
    9 type
    10 TForm1 = class(TForm)
    11 Query1: TQuery;
    12 BitBtn1: TBitBtn;
    13 BitBtn2: TBitBtn;
    14 Label1: TLabel;
    15 procedure BitBtn1Click(Sender: TObject);
    16 private
    17 { Private declarations }
    18 public
    19 { Public declarations }
    20 end;
    21
    22 var
    23 Form1: TForm1;
    24
    25 implementation
    26
    27 {$R *.dfm}
    28
    29 procedure TForm1.BitBtn1Click(Sender: TObject);
    30 begin
    31 try
    32 with Query1 do
    33 begin
    34 Close;
    35 SQL.Clear;
    36 SQL.Add('Create Database ljj ');
    37 SQL.Add('on (Name = ss, Filename = "e:\Delphi\Delphi 范例完全自学手册\实例 001\sss.mdf")');
    38 ExecSQL;
    39 end;
    40 application.MessageBox('创建成功','提示',MB_OK);
    41 except
    42 application.MessageBox('创建失败','提示',MB_OK);
    43 end;
    44 end;
    45
    46 end.
  • 相关阅读:
    用Html+Js实现的“自动补全”功能
    利用js为table添加行
    Flex 当鼠标悬停在DataGrid某行上时用datatoolField显示当前行
    Flex中设置编译器参数
    Linux2 在Linux(CentOS)上配置SSH免登陆
    线程笔记
    I/O
    网络编程
    Linux基础
    进程间的通信
  • 原文地址:https://www.cnblogs.com/ljjphysics/p/2052279.html
Copyright © 2011-2022 走看看