蓝天白云 – 第38页

Delphi中Dbgrid实现全选和反选

10月 032012

//全选

procedure TFrameCustSelector.ToolButton1Click(Sender: TObject);
var
	OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := true;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//全清

procedure TFrameCustSelector.ToolButton2Click(Sender: TObject);
var
	OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := False;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//反选
procedure TFrameCustSelector.ToolButton3Click(Sender: TObject);
var
OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//全选

procedure TFrameCustSelector.ToolButton1Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := true;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

//全清

procedure TFrameCustSelector.ToolButton2Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := False;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

//反选

procedure TFrameCustSelector.ToolButton3Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

delphi获取MAC地址的代码

分类：Delphi, Internet No Responses »

10月 032012

1、通过IP取MAC地址 uses WinSock; Function sendarp(ipaddr:ulon […]

Delphi获取其他进程中状态栏文本的函数

分类：Delphi No Responses »

9月 252012

Delphi code to get statusbar text from other process [c […]

Webbrowser控件execcommand参数详解

分类：Delphi No Responses »

9月 182012

2D-Position 允许通过拖曳移动绝对定位的对象。 AbsolutePosition 设定元素的 pos […]

Delphi中获取应用程序版本号的代码

分类：Delphi No Responses »

9月 112012

Delphi code to get program version [crayon-6816fd3f9ef2 […]

在Delphi中实现Javascript的getTime函数

分类：Delphi No Responses »

9月 112012

JavaScript getTime（new Date.getTime 方法）返回指定的 Date 对象自 […]

Windows 64位系统中创建32位ODBC的方法

分类：Windows No Responses »

9月 112012

如果你装的是否64位系统，在控制面板->管理工具中打开的ODBC管理器也是否64位的管理器。如果你装的 […]

Delphi中获取剪贴板文字内容的代码

分类：Delphi No Responses »

8月 232012

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  CbBuf: PChar;
  BufSize: Integer;
  H: THandle;
begin
  if Clipboard.HasFormat(CF_TEXT) then begin
    H := ClipBoard.GetAsHandle(CF_TEXT);
    BufSize := GlobalSize(H);
    GetMem(CbBuf, BufSize);
    BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);
    Edit1.Text := cbBuf;
  end;
end;

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);

var

CbBuf: PChar;

BufSize: Integer;

H: THandle;

begin

if Clipboard.HasFormat(CF_TEXT) then begin

H := ClipBoard.GetAsHandle(CF_TEXT);

BufSize := GlobalSize(H);

GetMem(CbBuf, BufSize);

BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);

Edit1.Text := cbBuf;

end;

socket错误码及可能的问题

分类：Delphi, Internet No Responses »

8月 232012

下面是Socket Error的错误码和描述： Socket error 0 – Directly […]

Android中用ListView实现表格部局

分类：Android No Responses »

8月 202012

* 本例使用ListView和自定义的行部局实现了一个最基本的表格部局 * 和一个可变长度的表格部局 * 并实 […]

Page 38 of 40 Newer Entries 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Older Entries