开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
SchemaForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

SchemaForm.pas：源码内容
  1. unit SchemaForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DBXpress, FMTBcd, Provider, DBClient, DB, SqlExpr, Grids,
  8.   DBGrids, StdCtrls;
  10. type
  11.   TFormSchema = class(TForm)
  12.     btnTables: TButton;
  13.     btnFields: TButton;
  14.     DBGrid1: TDBGrid;
  15.     DataSource1: TDataSource;
  16.     SQLConnection1: TSQLConnection;
  17.     SQLDataSet1: TSQLDataSet;
  18.     ClientDataSet1: TClientDataSet;
  19.     DataSetProvider1: TDataSetProvider;
  20.     procedure btnTablesClick(Sender: TObject);
  21.     procedure btnFieldsClick(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  28. var
  29.   FormSchema: TFormSchema;
  31. implementation
  33. {$R *.dfm}
  35. procedure TFormSchema.btnTablesClick(Sender: TObject);
  36. begin
  37.   ClientDataSet1.Close;
  38.   SQLDataSet1.SetSchemaInfo (stTables, '', '');   ClientDataSet1.Open; end;
  40. procedure TFormSchema.btnFieldsClick(Sender: TObject);
  41. begin
  42.   SQLDataSet1.SetSchemaInfo (stColumns,
  43.     ClientDataSet1['Table_Name'], '');   ClientDataSet1.Close;   ClientDataSet1.Open; end;
  45. end.