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

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

Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, DB, ADODB;
  9. type
  10.   TForm1 = class(TForm)
  11.     ADOConnection1: TADOConnection;
  12.     ADODataSet1: TADODataSet;
  13.     DataSource1: TDataSource;
  14.     DBEdit1: TDBEdit;
  15.     DBEdit2: TDBEdit;
  16.     DBGrid1: TDBGrid;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Button1: TButton;
  20.     Button2: TButton;
  21.     Button3: TButton;
  22.     ComboBox1: TComboBox;
  23.     Label3: TLabel;
  24.     Button4: TButton;
  25.     Button5: TButton;
  26.     Button6: TButton;
  27.     DBEdit3: TDBEdit;
  28.     Button7: TButton;
  29.     Button8: TButton;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure Button3Click(Sender: TObject);
  33.     procedure Button5Click(Sender: TObject);
  34.     procedure Button4Click(Sender: TObject);
  35.     procedure Button6Click(Sender: TObject);
  36.     procedure Button7Click(Sender: TObject);
  37.     procedure Button8Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   Form1: TForm1;
  47. implementation
  49. {$R *.dfm}
  51. procedure TForm1.Button1Click(Sender: TObject);
  52. begin
  53.     Adodataset1.next;
  54. end;
  56. procedure TForm1.Button2Click(Sender: TObject);
  57. begin
  58.     dbedit1.ReadOnly:=false;
  59.     dbedit2.ReadOnly:=false;
  60.     dbedit3.ReadOnly:=false;
  61.     dbedit3.text:=combobox1.text;
  62.     adodataset1.Active:=true;
  63.     adodataset1.Edit;
  64.     adodataset1.Append;
  65. end;
  67. procedure TForm1.Button3Click(Sender: TObject);
  68. begin
  69.     close;
  70. end;
  72. procedure TForm1.Button5Click(Sender: TObject);
  73. begin
  74.     Adodataset1.First ;
  75. end;
  77. procedure TForm1.Button4Click(Sender: TObject);
  78. begin
  79.     Adodataset1.prior;
  80. end;
  82. procedure TForm1.Button6Click(Sender: TObject);
  83. begin
  84.     Adodataset1.last;
  85. end;
  87. procedure TForm1.Button7Click(Sender: TObject);
  88. begin
  89.     Adodataset1.Delete;
  90.     Adodataset1.Refresh;
  91. end;
  93. procedure TForm1.Button8Click(Sender: TObject);
  94. begin
  95.     Adodataset1.Edit;
  96.     Adodataset1.Refresh;
  97. end;
  99. end.