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

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

Delphi控件源码

开发平台：

Delphi

SearchF.pas：源码内容
  1. unit SearchF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Variants,
  7.   StdCtrls, Forms, DBCtrls, DB, Buttons, DBTables, Mask, ExtCtrls,
  8.   Dialogs, DBActns, ActnList, ImgList, ComCtrls, ToolWin;
  10. type
  11.   TSearchForm = class(TForm)
  12.     DataSource1: TDataSource;
  13.     Table1: TTable;
  14.     Table1Salary: TFloatField;
  15.     Table1EmpNo: TIntegerField;
  16.     Table1LastName: TStringField;
  17.     Table1FirstName: TStringField;
  18.     Table1PhoneExt: TStringField;
  19.     Table1HireDate: TDateTimeField;
  20.     ActionList1: TActionList;
  21.     ToolBar1: TToolBar;
  22.     ToolButton1: TToolButton;
  23.     ToolButton2: TToolButton;
  24.     ToolButton3: TToolButton;
  25.     ToolButton4: TToolButton;
  26.     ImageList1: TImageList;
  27.     DataSetFirst1: TDataSetFirst;
  28.     DataSetLast1: TDataSetLast;
  29.     DataSetNext1: TDataSetNext;
  30.     DataSetPrior1: TDataSetPrior;
  31.     EditName: TEdit;
  32.     ToolButton5: TToolButton;
  33.     ToolButton6: TToolButton;
  34.     ToolButton7: TToolButton;
  35.     ActionGoto: TAction;
  36.     ActionGoNear: TAction;
  37.     ScrollBox: TScrollBox;
  38.     Label1: TLabel;
  39.     Label2: TLabel;
  40.     Label3: TLabel;
  41.     Label4: TLabel;
  42.     Label5: TLabel;
  43.     Label6: TLabel;
  44.     EditEmpNo: TDBEdit;
  45.     EditLastName: TDBEdit;
  46.     EditFirstName: TDBEdit;
  47.     EditPhoneExt: TDBEdit;
  48.     EditHireDate: TDBEdit;
  49.     EditSalary: TDBEdit;
  50.     ActionMulti: TAction;
  51.     ToolButton8: TToolButton;
  52.     procedure FormCreate(Sender: TObject);
  53.     procedure ActionGoNearExecute(Sender: TObject);
  54.     procedure ActionGotoExecute(Sender: TObject);
  55.     procedure ActionGotoUpdate(Sender: TObject);
  56.     procedure ActionGoNearUpdate(Sender: TObject);
  57.     procedure ActionMultiExecute(Sender: TObject);
  58.   private
  59.     { private declarations }
  60.   public
  61.     { public declarations }
  62.   end;
  64. var
  65.   SearchForm: TSearchForm;
  67. implementation
  69. {$R *.DFM}
  71. procedure TSearchForm.FormCreate(Sender: TObject);
  72. begin
  73.   Table1.First;
  74. end;
  76. procedure TSearchForm.ActionGoNearExecute(Sender: TObject);
  77. begin
  78.   if not Table1.Locate ('LastName', EditName.Text, [loPartialKey]) then
  79.     MessageDlg ('No name begins with "' + EditName.Text + '"', mtError, [mbOk], 0);
  80. end;
  82. procedure TSearchForm.ActionGotoExecute(Sender: TObject);
  83. begin
  84.   if not Table1.Locate ('LastName', EditName.Text, []) then
  85.     MessageDlg ('"' + EditName.Text + '" not found', mtError, [mbOk], 0);
  86. end;
  88. procedure TSearchForm.ActionGotoUpdate(Sender: TObject);
  89. begin
  90.   ActionGoto.Enabled := EditName.Text <> '';
  91. end;
  93. procedure TSearchForm.ActionGoNearUpdate(Sender: TObject);
  94. begin
  95.   ActionGoNear.Enabled := EditName.Text <> '';
  96. end;
  98. procedure TSearchForm.ActionMultiExecute(Sender: TObject);
  99. begin
  100.   if not Table1.Locate ('LastName;FirstName',
  101.       VarArrayOf (['Cook', 'Kevin']), []) then
  102.     MessageDlg ('Not found', mtError, [mbOk], 0);
  103. end;
  105. end.