delphi DataModule1 使用方法
2009-04-29 11:44
971 查看
数据显示页面:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
// DataModule1.Destroy;
DataModule1.ADOQuery1.Connection:=DataModule1.ADOConnection1;
DataModule1.ADOQuery1.SQL.Text:='select * from ts_cbsb';
DataModule1.ADOQuery1.Active:=true;
DataModule1.DataSource1.DataSet:=DataModule1.ADOQuery1;
dbgrid1.DataSource:= DataModule1.DataSource1;
end;
end.
Unit2页面
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
end.
工程文件 :
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DataModule1: TDataModule};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDataModule1, DataModule1);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
// DataModule1.Destroy;
DataModule1.ADOQuery1.Connection:=DataModule1.ADOConnection1;
DataModule1.ADOQuery1.SQL.Text:='select * from ts_cbsb';
DataModule1.ADOQuery1.Active:=true;
DataModule1.DataSource1.DataSet:=DataModule1.ADOQuery1;
dbgrid1.DataSource:= DataModule1.DataSource1;
end;
end.
Unit2页面
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
end.
工程文件 :
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DataModule1: TDataModule};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDataModule1, DataModule1);
Application.Run;
end.
相关文章推荐
- delphi DataModule1 使用方法
- Delphi DataModule使用方法
- HTML 5 的自定义 data-* 属性和jquery的data()方法的使用
- Python小练习2:pandas.Dataframe使用方法示例demo
- 多层数据库应用基于Delphi DataSnap方法调用的实现-----------------对象池技术
- HTML 5 的自定义 data-* 属性和jquery的data()方法的使用
- ExtJs开发教程_001_Ext.data.Store使用方法详解
- System.Data.SQLite.dll不能编译成AnyCPU问题的解决方案,以及它跨x86和x64的使用方法。
- Struts多module下配置Form validate并使用高级的validate方法
- devmemdata.loadfromstream使用方法
- 关于node下载的模块无法使用(Cannot find module)解决方法
- Delphi使用BDE连接远程MS SQL SERVER 2000数据库时出现“Db-library network communciations layer not loaded.”错误的解决方法
- Delphi中资源文件使用方法详细讲述
- MySQL中使用load data命令实现数据导入的方法
- Delphi中Interface接口的使用方法
- DELPHI控件:DBLookupComboBOX组件的使用方法
- delphi中使用透明控件的几种方法
- HTML 5 的自定义 data-* 属性和jquery的data()方法的使用
- Tensorflow运行中出现ImportError: No module named input_data报错信息的解决方法
- html5的自定义data-*属性与jquery的data()方法的使用