有没有大神会做增删改查的。。 - delphi吧

level 1

月下锉刀ლ 楼主

新手刚学不怎么会啊请指点一二

2016年04月19日 09点04分 1

吧务

level 14

BambooCaep

基础问题请看书

2016年04月19日 10点04分 2

月下锉刀ლ

button按钮那不知道怎么输。。。

2016年04月19日 10点04分

qwerdfz7

@月下锉刀ლ 双击

2016年06月13日 01点06分

level 2

Mark_ZhangTao

这是SQL语句啊

2016年04月19日 11点04分 3

level 1

月下锉刀ლ 楼主

with tquery1 do
begin
close;
databasename = database1.databasename;
sql.clear;
sql.add('select * from aa');
if not eof do
begin
edit1.text := fieldbyname('a').asstring;
edit2.text := fieldbyname('b').asstring;
end;
close;
end;
with tquery1 do
begin
close;
databasename = database1.databasename;
sql.clear;
sql.add('select * from aa where no=:no22');
parambyname('no22').value='se';
if not eof do
begin
edit1.text := fieldbyname('a').asstring;
edit2.text := fieldbyname('b').asstring;
end;
close;
end;