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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.~pas
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.~pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,  StdCtrls,
  8.   ADODB, Mask;
  10. type
  11.   TForm1 = class(TForm)
  12.     Label1: TLabel;
  13.     DataSource1: TDataSource;
  14.     ADOConnection1: TADOConnection;
  15.     DBGrid1: TDBGrid;
  16.     DBNavigator1: TDBNavigator;
  17.     ADOQuery1: TADOQuery;
  18.     DBEdit1: TDBEdit;
  19.     DBEdit2: TDBEdit;
  20.     DBEdit3: TDBEdit;
  21.     Button1: TButton;
  22.     Button2: TButton;
  23.     Edit1: TEdit;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure Button2Click(Sender: TObject);
  26.     procedure Edit1Change(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  33. var
  34.   Form1: TForm1;
  36. implementation
  38. {$R *.dfm}
  40. procedure TForm1.Button1Click(Sender: TObject);
  41. begin
  42.     ADOQuery1.active:=true;
  43. end;
  45. procedure TForm1.Button2Click(Sender: TObject);
  46. begin
  47.       ADOQuery1.active:=false;
  48. end;
  50. procedure TForm1.Edit1Change(Sender: TObject);
  51. begin
  52.     if edit1.Text<>'xiaobai' then
  53.      DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nblast]
  54.      else  DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]
  56. end;
  58. end.