707
社区成员
1.8w+
社区内容
- 主页
...全文
客家族_祖仙教_小凡仙 2005年01月04日
TStringField NameField;
procedure TForm1.FormCreate(Sender: TObject);
var
Count:integer;
begin
Count:=0;
ADOQuery1.DisableControls();
ADOQuery1.Open();
if Not ADOQuery1.IsEmpty() then
begin
ADOQuery1.Fields.Add(NameField);
While ADOQuery1.Eof do
begin
Count:=Count+1;
ADOQuery1.FieldByName('nameField').AsInteger :=Count;
ADOQuery1.Next();
end;
end;
ADOQuery1.EnableControls();
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Count:integer;
begin
Count:=0;
ADOQuery1.DisableControls();
ADOQuery1.Open();
if Not ADOQuery1.IsEmpty() then
begin
ADOQuery1.Fields.Add(NameField);
While ADOQuery1.Eof do
begin
Count:=Count+1;
ADOQuery1.FieldByName('nameField').AsInteger :=Count;
ADOQuery1.Next();
end;
end;
ADOQuery1.EnableControls();
end;
客家族_祖仙教_小凡仙 2005年01月04日
select identity(int , 0 ,1) as 序号,* into #temp_class from class
select * from temp_class
select * from temp_class
JCC0128 2004年12月31日
select identity(int , 0 ,1) as 序号,* into #temp_class from class
select * from temp_class
要用into，不是很爽，自己看用哪种呵。
select * from temp_class
要用into，不是很爽，自己看用哪种呵。
真如实观 2004年12月26日
1,加一个计算字段,在其计算触发事件中加上上面鲨鱼的代码.
2,在某一字段的GetText事件中加入下面的代码:
int nNO=Sender->DataSet->RecNo;
Text=(nNO==-1)?String(""):String(nNO);
2,在某一字段的GetText事件中加入下面的代码:
int nNO=Sender->DataSet->RecNo;
Text=(nNO==-1)?String(""):String(nNO);
dhfly 2004年12月26日
怎么把adoQuery->RecNO显示在DBGrid中呢，不通过计算字段
客家族_祖仙教_小凡仙 2004年12月26日
adoQuery->RecNO;