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

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

Delphi控件源码

开发平台：

Delphi

QueForm.pas：源码内容
  1. unit QueForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, StdCtrls, Grids, DBGrids, DBClient;
  9. type
  10.   TFormQuery = class(TForm)
  11.     cdsQuery: TClientDataSet;
  12.     DBGrid1: TDBGrid;
  13.     EditParam: TEdit;
  14.     btnParam: TButton;
  15.     DataSource1: TDataSource;
  16.     Label1: TLabel;
  17.     procedure btnParamClick(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  24. var
  25.   FormQuery: TFormQuery;
  27. implementation
  29. uses ThinForm;
  31. {$R *.DFM}
  33. procedure TFormQuery.btnParamClick(Sender: TObject);
  34. begin
  35.   cdsQuery.Close;
  36.   cdsQuery.Params[0].AsString := EditParam.Text;
  37.   cdsQuery.Open;
  38.   Caption := 'Data sent at ' + TimeToStr (
  39.     TDateTime (cdsQuery.GetOptionalParam('Time')));
  40.   Label1.Caption := 'Param ' +
  41.     cdsQuery.GetOptionalParam('Param');
  42. end;
  44. end.