为您找到"
delphi的DBGrid排序问题
"相关结果约100,000,000个
呵呵 dbgrid没有这个功能。不过你可以先指定数据集的记录号。ADOQuery1.RecNo:=3;//第三条记录 Edit1.Text:=DBGrid1.Fields[1].Value;//第二列 两句不可换位置。不知道你要这样做的目的是什么```也许可以用另外一种方法可以达到你的需求。
判断dataset的记录位置 比如dataset你用的adoquery,dbgrid已经关联了adoquery1 if adoquery1.recno=1 then showmessage('第一行')else if adoquery1.recno = adoquery1.recordcount then showmessage('最后一行');
s1:=query1.fieldbyname('szm').AsString;tbl_xdcf.Locate('XDCFBH',s1, [loPartialKey]);数据集名.Locate(字段名,关键值,[loPartialKey]);定位函数
dbgrid中的数据来源于adoquery1.所以在adoquery1中筛选好,dbgrid1中会显示筛选后的内容。可以用filter,不过用sql语句实在些。with adoquery1 do begin close;sql.clear;sql.add('select * from 表 where c=‘’‘+trim(combobox1.text)+''');execsql;open;end;...
adoquery 连接数据库 (connection连接数据库)datasource用来连接adoquery 控件(dataset属性连接adoquery控件)dbgrid 用来连接datasource控件 (datasource 属性连接datasource控件)然后dbgrid 的readonly属性设置 false 你就可以通过dbgrid修改数据库内容了 ...
procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin adodel.Close; ADODel.SQL.Text := 'delete from TableName'; ADODel.ExecSQL; ADOQuery1.First; //实际上是操作DataSet while not ADOQuery1.Eof do begin ADODel.Close; ADODel.SQL.Clear; ADOD...
要先在delphi中引入Excel:“Project”——“Import Tpye Library”,在弹出的对话框中点击“Add”。找到你安装Excel的盘,,默认的安装路径:“C:\Program Files\Microsoft Office\OFFICE11”.安装的版本如果不同的话“OFFICE11”文件名会不一样。然后你可以找到“XL5CHS32.OLB”和“XL5EN32.OLB”...
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);var coords:TGridCoord; // 这个结构体中x是列,y 是行 begin coords := dbgrid1.MouseCoord(x,y); // 根据鼠标位置获得行列 Self.Caption := IntToStr(coords.X)+' ' + IntToStr(coords.Y)...
dbgrid.Enable:=false;补充另一种方法,也是我常用的方法。如果更改Enable属性,会使控件变灰色。如果不想让控件变灰色。可以使用这个方法:将dbgrid放入一个pnl中,然后将pnl的Enable设置为false。但dbgrid的Enable依然是true。这样dbgrid的颜色依然保持不变,但已经无法响应鼠标点击了。
假如你用的是 adoquery1 那就是 adoquery1.fields[0].asstring 如果要取第2列的值,那就是 adoquery1.fields[1].asstring 依次类推 如果你用的是 adotable1 那就是 adotable1.fields[0].asstring 就是这样了 请把分给我