先设计表:
表里面有编号字段
query1.close;
query1.sql.clear;
query1.sql('select * from 编号表');
query1.open;
query1.last;
temp:=query1.fieldbyname('编号').asstring;
if temp<>'' then
jls:=strtoint(temp)
else
jls:=0;
k:=jls+1;
s:=inttostr(k);
if k<10 then s:='00'+s
else if k<100 then s:='0'+s;
表里面有编号字段
query1.close;
query1.sql.clear;
query1.sql('select * from 编号表');
query1.open;
query1.last;
temp:=query1.fieldbyname('编号').asstring;
if temp<>'' then
jls:=strtoint(temp)
else
jls:=0;
k:=jls+1;
s:=inttostr(k);
if k<10 then s:='00'+s
else if k<100 then s:='0'+s;
解决方案 »
- 反截屏系统DEMO 反截屏 防截屏
- 关于DBgrid的问题,在线等!
- 请问如何解决使用OleContainer调用Excel时的独占Excel的问题?
- fastreport奇怪的问题,在文本编辑器中输入的汉字显示乱码,如何解决?
- 在删除文件之前,如何能截获删除消息?请hjd_cw进来拿分
- 怎样在DBGRIDE 中加入图标?感谢!2分
- 关于判断某点是否落入地球上某单连通区域的问题
- 请问两个函数,sqr和sqrt!对不起,可用分不多,只能给10分
- Delphi里面嵌入汇编的实例
- 非专业问题,有兴趣者进入!
- 打印的问题。请问如何打印dbgrid中的数据和Tchart中的图表?
- 谁有《Delphi 5.x分布式多层应用电子商务篇》的范例程序和数据?能否传一份给我,谢谢!!!
表里面有编号字段
query1.close;
query1.sql.clear;
query1.sql('select * from 编号表');
query1.open;
query1.last;
temp:=query1.fieldbyname('编号').asstring;
if temp<>'' then
jls:=strtoint(temp)
else
jls:=0;
k:=jls+1;
s:=inttostr(k);
if k<10 then s:='00'+s
else if k<100 then s:='0'+s;
至于用其他数据库,可以用上面的做法,设定一个字段为自动增加,另外,也可以用一下方法,不妨一试:
table1.fieldbyname('编号').asinteger:=table1.recordcount; //表中的记录总和
Query1.SQL.Add('select max(CompanyNo) from Company');
Query1.Open;
Edit1.Text := Query1.Fields[0].AsString;