求delphi连接数据库进行简单的 插入,删除,修改,查询。
一个文本框,一个button即可。我是一名delphi新手。我的email:mysimpleemail@163.com;QQ:glorious917@163.com...
一个文本框,一个button即可。我是一名delphi新手。
我的email:mysimpleemail@163.com;QQ:glorious917@163.com 展开
我的email:mysimpleemail@163.com;QQ:glorious917@163.com 展开
3个回答
展开全部
新建一个数据库:如用ACCESS建一个data.mdb(建好结构并填写几个测试数据 ),放到程序目录下,窗体中再放一个(ADO下的)ADOQuery1、(data access下的)DataSource1、(data control)下的DBGrid1和DBNavigator1,并设置:
1、点ADOQuery1的connectionstring右边“...”--build...--选提供程序下的microsoft JET 4.0...--下一步--输入数据库名:data.mdb,确定;
2、DataSource1的dataset选ADOQuery1;
3、DBGrid1和DBNavigator1的DataSource选DataSource1
4、ADOQuery1的sql中写上select * from 表名
5、选ADOQuery1的active为TRUE,
到此你已经可以用DBNavigator1进行插入,删除,修改操作了,
要查询可以
在你的button(查询)的onclick事件中写上:
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('select * from 表名 where 查询的字段='''+Edit1.text+'''');
open;
end;
1、点ADOQuery1的connectionstring右边“...”--build...--选提供程序下的microsoft JET 4.0...--下一步--输入数据库名:data.mdb,确定;
2、DataSource1的dataset选ADOQuery1;
3、DBGrid1和DBNavigator1的DataSource选DataSource1
4、ADOQuery1的sql中写上select * from 表名
5、选ADOQuery1的active为TRUE,
到此你已经可以用DBNavigator1进行插入,删除,修改操作了,
要查询可以
在你的button(查询)的onclick事件中写上:
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('select * from 表名 where 查询的字段='''+Edit1.text+'''');
open;
end;
展开全部
这样看对你有用吗:
unit sdlform1_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Buttons;
type
TFormsdl1_1 = class(TForm)
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formsdl1_1:TFormsdl1_1;
implementation
uses
dmpas;
{$R *.dfm}
procedure TFormsdl1_1.FormCreate(Sender: TObject);
begin
with dm.ClientDataSet1 do
begin
if Active then Active:=False;
ProviderName:='DSP_CostType';
Active:=True;
end;
end;
procedure TFormsdl1_1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.ApplyUpdates(dm.ClientDataSet1);
Action := caFree;
end;
procedure TFormsdl1_1.FormClick(Sender: TObject);
begin
Close;
end;
end.
unit sdlform1_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Buttons;
type
TFormsdl1_1 = class(TForm)
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formsdl1_1:TFormsdl1_1;
implementation
uses
dmpas;
{$R *.dfm}
procedure TFormsdl1_1.FormCreate(Sender: TObject);
begin
with dm.ClientDataSet1 do
begin
if Active then Active:=False;
ProviderName:='DSP_CostType';
Active:=True;
end;
end;
procedure TFormsdl1_1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.ApplyUpdates(dm.ClientDataSet1);
Action := caFree;
end;
procedure TFormsdl1_1.FormClick(Sender: TObject);
begin
Close;
end;
end.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在delphi数据库开发中,最简单的应用程序是由Table,Datasoucre,DBGrid三个组件组成.首先要用到这三个组件才能进行数据库操作(当然还有其他数据库控件可使用).而不是通过一个文本框就能做的.首先在delphi自带的"数据库桌面"中建立一个数据库Table中连接这个数据库.数据库操作虽然并不难学,但要开发数据库相关软件确实要深入学习.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询