【delphi开源代码栏目提醒】:本文主要为网学会员提供MainScan.pas,希望对需要MainScan.pas网友有所帮助,学习一下!
unit MainScan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
Label1: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Main;
{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
begin
ADOTable1.Open;
//Open方法用来打开一个数据集
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
form1.show; //显示窗体form1
end;
end.
上一篇:
mains.pas
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?