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

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

Delphi控件源码

开发平台：

Delphi

ParQForm.pas：源码内容
  1. unit ParQForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, DBTables, DBLookup,
  8.   Grids, DBGrids;
  10. type
  11.   TQueryForm = class(TForm)
  12.     DataSource1: TDataSource;
  13.     Query1: TQuery;
  14.     ListBox1: TListBox;
  15.     DBGrid1: TDBGrid;
  16.     Splitter1: TSplitter;
  17.     Query2: TQuery;
  18.     DBNavigator1: TDBNavigator;
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure ListBox1Click(Sender: TObject);
  21.     procedure FormDestroy(Sender: TObject);
  22.     procedure Query1BeforePost(DataSet: TDataSet);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   QueryForm: TQueryForm;
  32. implementation
  34. {$R *.DFM}
  36. procedure TQueryForm.FormCreate(Sender: TObject);
  37. begin
  38.   // get the list of continents
  39.   Query2.Open;
  40.   while not Query2.EOF do
  41.   begin
  42.     ListBox1.Items.Add (Query2.Fields [0].AsString);
  43.     Query2.Next;
  44.   end;
  45.   ListBox1.ItemIndex := 0;
  47.   // prepare and open the first query
  48.   Query1.Prepare;
  49.   Query1.Params[0].Value := ListBox1.Items [0];
  50.   Query1.Open;
  51. end;
  53. procedure TQueryForm.ListBox1Click(Sender: TObject);
  54. begin
  55.   Query1.Close;
  56.   Query1.Params[0].Value :=
  57.     ListBox1.Items [Listbox1.ItemIndex];
  58.   Query1.Open;
  59. end;
  61. procedure TQueryForm.FormDestroy(Sender: TObject);
  62. begin
  63.   Query1.Close;
  64.   Query1.Unprepare;
  65. end;
  67. procedure TQueryForm.Query1BeforePost(DataSet: TDataSet);
  68. var
  69.   StrNewCont: string;
  70. begin
  71.   // add the continent, if not already in the list
  72.   StrNewCont := Query1.FieldByName ('Continent').AsString;
  73.   if ListBox1.Items.IndexOf (StrNewCont) < 0 then
  74.     ListBox1.Items.Add (StrNewCont);
  75. end;
  77. end.