Question

关于在delphi里面手动建立按钮实现DBNavigator对DBGrid的数据控制。插入、删除、修改、保存。

unit shujuku;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
type TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
Query1: TQuery;
DataSource1: TDataSource;
Adbtn: TButton;
delbtn: TButton;
savbtn: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Query2: TQuery;
procedure delbtnClick(Sender: TObject);
procedure AdbtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.delbtnClick(Sender: TObject);begin
table1.Delete;
Table1.Refresh;
end;
procedure TForm1.AdbtnClick(Sender: TObject);begin
if(Trim(Edit1.Text )='')then
begin
ShowMessage('Hf不能为空');
Exit;
end;
if(Trim(Edit2.Text )='')then
begin
ShowMessage('Hs不能为空');
Exit;
end;
if(Trim(Edit3.Text )='')then
begin
ShowMessage('Hl不能为空');
Exit;
end;
with query1 do
begin
Close;
SQL.Clear;
SQl.Add('insert cs values(:Hf,:Hs,:Hl)');
ParambyName('Hf').AsFloat:=StrToFloat(Trim(Edit1.Text));
ParambyName('Hs').AsFloat:=StrToFloat(Trim(Edit2.Text));
ParambyName('Hl').AsFloat:=StrToFloat(Trim(Edit3.Text));
ExecSQL;
end;
Table1.Refresh;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with query2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from cs');
Open;
end;
end;
end.

真心求高手帮我解决一下，这是树上的一个例子，做起来处错误，一直都没弄明白？

Answer 1

把Table1改成query2 ，DataSource1指向query2 ，DBGrid1指向DataSource1，应该没问题

追问

问题解决了，不过谢谢你的回答。出错在含参的参数变量设置那里。