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

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

Delphi控件源码

开发平台：

Delphi

FreeQueryForm.pas：源码内容
  1. unit FreeQueryForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, IBDatabase, Db,
  8.   IBCustomDataSet, IBQuery;
  10. type
  11.   TFormFreeQuery = class(TForm)
  12.     MemoSql: TMemo;
  13.     Splitter1: TSplitter;
  14.     DBGrid1: TDBGrid;
  15.     Panel1: TPanel;
  16.     ButtonRun: TButton;
  17.     DBNavigator1: TDBNavigator;
  18.     dsQueryFree: TDataSource;
  19.     QueryFree: TIBQuery;
  20.     IBTransaction1: TIBTransaction;
  21.     ComboTables: TComboBox;
  22.     procedure ButtonRunClick(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure ComboTablesChange(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   FormFreeQuery: TFormFreeQuery;
  34. implementation
  36. uses MainData;
  38. {$R *.DFM}
  40. procedure TFormFreeQuery.ButtonRunClick(Sender: TObject);
  41. begin
  42.   QueryFree.Close;
  43.   QueryFree.SQL := MemoSql.Lines;
  44.   QueryFree.Open;
  45. end;
  47. procedure TFormFreeQuery.FormCreate(Sender: TObject);
  48. begin
  49.   DmMain.IBDatabase1.GetTableNames (ComboTables.Items);
  50. end;
  52. procedure TFormFreeQuery.ComboTablesChange(Sender: TObject);
  53. begin
  54.   MemoSql.Lines.Text :=
  55.     'select * from ' + ComboTables.Text;
  56. end;
  58. end.