with table1 do
begin
insert//append一样,只是插入的位置不一样而已
fields[0].asstring:='66666';
.
.
.
fields[n].asstring:='66666';
end;with table1 do
begin
setkey;
fieldbyname('key').asstring:='fuck';
findkey;
end;
begin
insert//append一样,只是插入的位置不一样而已
fields[0].asstring:='66666';
.
.
.
fields[n].asstring:='66666';
end;with table1 do
begin
setkey;
fieldbyname('key').asstring:='fuck';
findkey;
end;
解决方案 »
- delphi中如何使不同的代码块或代码用不同的颜色、字体区分?
- 请问高手——模板中的几句话不知道什么意思,请指教:)
- 我在SQL SERVER2000里可以查询,可以DELPHI运行就说“FORM语句有错误”。
- 类(分数太多了,散100分)
- 关于vclSKIN使用的问题,请各位给予指点并解决
- 为什么我的DELPHI新建里没有‘CORBA OBJECT’
- 我又來送分了,請教一個小問題..
- 关于indy9.000.10的问题
- Delphi中NIL与NULL区别是什么?另外怎么样包含系统头文件?
- 在panel上放置一个进度条(Trackbar1.parent:=panel1),改变panel1的颜色﹐而trackbar1周围的颜色仍为原来颜色﹐请问大虾﹐怎样让它们同时改变??
- 请教Updatesql是否可以动态设置?
- 第二次运行出现operation not application 错误怎么解决?我就这点分了 :~~(
begin
insert;//append;
filedbyname('s1').asstring:='ddd';
.....
post;
end;
find:
with Query1 do
close;
sql.clear;
sql.add('select * from tabname');
sql.add('where s1='"+eidt3.text+"');
open;
end;
begin
insert;//在表中当前的数据向前插入
append;//在表中最后的数据插入
end;with table1 do
begin
IndexFieldNames:='Name';
if Findkey([edit1.text0]) then //查找功能
......
end;