zoukankan      html  css  js  c++  java
  • Delphi 范例自学[3] 代码创建储存过程 实例004

    两个窗体的东西了。不过我开始两个都创建了。只不过必要的时候把Form2 show一下就行了。其实这样挺费资源的。

    懒得弄了 就这样吧。哈哈。我还是比较懒的。

    窗体如下

    form1上的组件不多说了。之前的实例都是摆弄那两个东西。

    来看看form2上的 TDataSource 和TDBGrid TDBGrid的DataSource属性设成ds1.  TDataSource的DataSet属性设成Form1.qry1 在form2的use中要引用一下form1的单元文件。 form1的implementation部分引用form2的单元。

    这样不算循环引用。虽然我也不知道这样为啥。求高人解答啊。

    之后万事ok了 直接上代码

    这是form 1的 名字取得有点问题 不过这都不是事儿。

    unit eg001n2;

    interface

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

    type
    TForm1
    = class(TForm)
    qry1: TQuery;
    db1: TDatabase;
    btnCreate: TButton;
    btnExecute: TButton;
    procedure btnCreateClick(Sender: TObject);
    procedure btnExecuteClick(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    uses eg004n2;

    {$R *.dfm}

    procedure TForm1.btnCreateClick(Sender: TObject);
    begin
    try
    with qry1 do
    begin
    Close;
    SQL.Clear;
    SQL.Add(
    'Create Procedure selecttable as select * from 学生表');
    ExecSQL;
    end;
    Application.MessageBox(
    '创建储存过程成功','提示',MB_OK);
    except
    Application.MessageBox(
    '创建储存过程失败','提示',MB_OK);
    end;
    end;

    procedure TForm1.btnExecuteClick(Sender: TObject);
    begin
    with qry1 do
    begin
    Close;
    SQL.Clear;
    SQL.Add(
    'exec selecttable');
    Open;
    end;
    form2.show;
    end;

    end.

    这是form2的单元文件了

    unit eg004n2;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grids, DBGrids, DB, eg001n2;

    type
    TForm2
    = class(TForm)
    ds1: TDataSource;
    dbgrd1: TDBGrid;
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    {$R *.dfm}

    end.

    So nice

    运行结果

  • 相关阅读:
    主机与虚拟机通信:以主机VS2010连接虚拟机MySql为例
    Json与类对象转换
    VS附加到进程调试的方法及应用场景
    地图API使用文档-以腾讯地图为例
    JS使用ActiveXObject读取数据库代码示例(只支持IE)
    css文件内引用外部资源文件的相对路径
    ::after,::before使用
    高德地图API应用
    LogNet4学习笔记
    MvcPager分页控件的使用
  • 原文地址:https://www.cnblogs.com/ljjphysics/p/2053872.html
Copyright © 2011-2022 走看看