盒子上一个问题的解决方法
2011-02-16 10:29
253 查看
sql数据库里有一个表,格式如下:
类型 类型号
Z
Z
X
R
X
Z
R
......
窗体上有一个button,一个dbgrid显示表,如何按下button实现对表进行编号:
类型 类型号
Z 1
Z 2
X 1
R 1
X 2
Z 3
R 2
....
这样的循环语句改怎么写啊?提示z有3个x有2个…
解决代码:
procedure TForm1.Button1Click(Sender: TObject);
var
chr:string;
i:Integer;
begin
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('alter table table1 add id int identity(1,1)');
ExecSQL;
Close;
SQL.Clear;
sql.Add('select 类型,id from table1 order by 类型 asc');
Open;
end;
chr := ADOQuery2.Fields[0].AsString;
i := 0;
while not ADOQuery2.Eof do
begin
if ADOQuery2.Fields[0].AsString = chr then Inc(i)
else
begin
chr := ADOQuery2.Fields[0].AsString;
i := 1;
end;
with ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('update table1 set 类型号=:v0 where id=:v1');
Parameters[0].Value := i;
Parameters[1].Value := ADOQuery2.Fields[1].AsInteger;
ExecSQL;
end;
ADOQuery2.Next;
end;
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('alter table table1 drop column id');
ExecSQL;
end;
end;
类型 类型号
Z
Z
X
R
X
Z
R
......
窗体上有一个button,一个dbgrid显示表,如何按下button实现对表进行编号:
类型 类型号
Z 1
Z 2
X 1
R 1
X 2
Z 3
R 2
....
这样的循环语句改怎么写啊?提示z有3个x有2个…
解决代码:
procedure TForm1.Button1Click(Sender: TObject);
var
chr:string;
i:Integer;
begin
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('alter table table1 add id int identity(1,1)');
ExecSQL;
Close;
SQL.Clear;
sql.Add('select 类型,id from table1 order by 类型 asc');
Open;
end;
chr := ADOQuery2.Fields[0].AsString;
i := 0;
while not ADOQuery2.Eof do
begin
if ADOQuery2.Fields[0].AsString = chr then Inc(i)
else
begin
chr := ADOQuery2.Fields[0].AsString;
i := 1;
end;
with ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('update table1 set 类型号=:v0 where id=:v1');
Parameters[0].Value := i;
Parameters[1].Value := ADOQuery2.Fields[1].AsInteger;
ExecSQL;
end;
ADOQuery2.Next;
end;
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('alter table table1 drop column id');
ExecSQL;
end;
end;
相关文章推荐
- 盒子上一个问题的解决方法
- weblogic程序移植到jboss上的一个问题解决方法,j2ee,原创
- 安装flex碰到的一个问题及其解决方法(二)(原创)
- 利用NSInvocation给NSObject添加一个分类方法,解决传递多参数问题
- 机房重构所遇问题"未能载入文件或程序集“DAL”或它的某一个依赖项。系统找不到指定的文件"的解决的方法集锦
- 一个页面中使用多个iframe导致在ie中假死问题的解决方法
- 一个win7的安装问题,怪异的问题用怪异的方法解决
- 问题"trouble processing "一个可能的解决方法
- 在部署Web工程时遇到的一个小问题,及解决方法
- (转)升级vs2010我碰到的一个问题,以及解决方法
- tabLayout 一个问题的解决方法
- [原创]SQL Server 2005:一个使用新创建的User的问题和解决方法
- 关于Windows 7启动后网络一直转的问题的一个解决方法
- 执行SQL语句时出现问题操作必须使用一个可更新的查询错误的解决方法
- 安装模拟机出现的一个问题及解决方法
- 解决WebService[WebMethod]方法返回一个SqlDataReader出错问题
- 常量,字段,构造方法 调试 ms 源代码 一个C#二维码图片识别的Demo 近期ASP.NET问题汇总及对应的解决办法 c# chart控件柱状图,改变柱子宽度 使用C#创建Windows服务 C#服务端判断客户端socket是否已断开的方法 线程 线程池 Task .NET 单元测试的利剑——模拟框架Moq
- 一个困扰了我大半天的问题,把我解决的方法发出来,给大家参考参考
- 关于提示”XML 文档只能有一个顶层元素“问题的解决方法备忘
- C++库研究笔记——使用函数模板还是类模板?+ 一个类型重复问题的两种解决方法