unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBClient, SimpleDS, SqlExpr, MIDASLIB, DBXpress, ComCtrls;type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
SimpleDataSet1: TSimpleDataSet;
datasource1: TDataSource;
btnConnect: TButton;
btnCommit: TButton;
btnQuery: TButton;
DBGrid1: TDBGrid;
lbl1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
DateTimePicker1: TDateTimePicker;
procedure btnConnectClick(Sender: TObject);
procedure btnQueryClick(Sender: TObject);
procedure btnCommitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnQueryClick(Sender: TObject); // 从STUDENT数据表里提取数据
begin
if not sqlConnection1.Connected then
begin
showmessage('请先连接');
exit;
end; SimpleDataSet1.DataSet.CommandText:='select * from STUDENT'; simpleDataSet1.Open;
end;procedure TForm1.btnCommitClick(Sender: TObject); // 往STUDENT数据表里插入数据
begin SimpleDataSet1.DataSet.CommandText:='insert into student (SN,SNAME,BIRTH) values (Edit1.Text,Edit2.Text,DateTimePicker1.date)';
simpleDataSet1.Open;
begin
if simpleDataSet1.ApplyUpdates(0)>0 then
showmessage('提交数据不成功!')
else
showmessage('提交数据成功!');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
if SQLConnection1.Connected=true then
SQLConnection1.Connected:=false;
SQLConnection1.Params.Clear;
SQLConnection1.Params.Values['user_name']:='sysdba';
SQLConnection1.Params.values['password']:='masterkey';
sqlConnection1.Params.Values['SQLDialect']:='3';
SQLConnection1.Params.Values['database']:=extractfilepath(paramstr(0))+'data\demo.fdb';
SQLConnection1.Connected:=true;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBClient, SimpleDS, SqlExpr, MIDASLIB, DBXpress, ComCtrls;type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
SimpleDataSet1: TSimpleDataSet;
datasource1: TDataSource;
btnConnect: TButton;
btnCommit: TButton;
btnQuery: TButton;
DBGrid1: TDBGrid;
lbl1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
DateTimePicker1: TDateTimePicker;
procedure btnConnectClick(Sender: TObject);
procedure btnQueryClick(Sender: TObject);
procedure btnCommitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnQueryClick(Sender: TObject); // 从STUDENT数据表里提取数据
begin
if not sqlConnection1.Connected then
begin
showmessage('请先连接');
exit;
end; SimpleDataSet1.DataSet.CommandText:='select * from STUDENT'; simpleDataSet1.Open;
end;procedure TForm1.btnCommitClick(Sender: TObject); // 往STUDENT数据表里插入数据
begin SimpleDataSet1.DataSet.CommandText:='insert into student (SN,SNAME,BIRTH) values (Edit1.Text,Edit2.Text,DateTimePicker1.date)';
simpleDataSet1.Open;
begin
if simpleDataSet1.ApplyUpdates(0)>0 then
showmessage('提交数据不成功!')
else
showmessage('提交数据成功!');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
if SQLConnection1.Connected=true then
SQLConnection1.Connected:=false;
SQLConnection1.Params.Clear;
SQLConnection1.Params.Values['user_name']:='sysdba';
SQLConnection1.Params.values['password']:='masterkey';
sqlConnection1.Params.Values['SQLDialect']:='3';
SQLConnection1.Params.Values['database']:=extractfilepath(paramstr(0))+'data\demo.fdb';
SQLConnection1.Connected:=true;
end;
解决方案 »
- 寻求技术支持:浮动窗口
- 为什么我一把ADOConnection打开事务,就会出现"Operation is not allowed when the object is closed"错误?
- 但在 t mod 6 <> 0 时 如何补足空行????
- 〓〓〓使用twebbrowser控件访问一个网页,会在ie的历史记录里保存曾经访问的网页地址,怎么去掉自动保存的历史记录?
- 函数声明位置
- 有关邮件的群发问题!在线等待!!!
- 这个函数为什么在线程下使用就出错?
- 再请问怎么把str 变成real 型,谢谢
- Devexpress dxRibbon怎么隐藏form的title bar
- 大家来谈谈自己的工作环境吧
- 大家好,我想问一个关于TLabel的问题!
- 请问怎样关闭delphi的自动模板提示?
自己ShowMessage看一下就知道了
肯定不对``
begin
if not sqlConnection1.Connected then
begin
showmessage('请先连接');
exit;
end;
SimpleDataSet1.DataSet.CommandText.clear; //清除CommandText中原来的内容
SimpleDataSet1.DataSet.CommandText:='select * from STUDENT'; simpleDataSet1.Open;
end;procedure TForm1.btnCommitClick(Sender: TObject);
begin
SimpleDataSet1.DataSet.CommandText.clear; //清除CommandText中原来的内容
SimpleDataSet1.DataSet.CommandText:='insert into student (SN,SNAME,BIRTH) values (Edit1.Text,Edit2.Text,DateTimePicker1.date)';
simpleDataSet1.Open;
begin
if simpleDataSet1.ApplyUpdates(0)>0 then
showmessage('提交数据不成功!')
else
showmessage('提交数据成功!');
end;
end;
[Error] Unit1.pas(63): Record, object or class type required
[Error] Unit1.pas(71): Record, object or class type required
[Fatal Error] Project7.dpr(5): Could not compile used unit 'Unit1.pas'