2008年9月25日dbgrid复选框:VB 如何将DBgrid印出来
option explicit private sub command1_click() dim i as long, j as long, k as long dim printstring as string for i = 0 to data1.recordset.recordcount - 1 if k = dbgrid1.visiblerows then dbgrid1.scroll 0, dbgrid1.visiblerows k = 0 end if for j = 0 to dbgrid1.columns.count - 1 printst...
[阅读全文] [PDF]
2008年9月25日dbgrid复选框:改变DBGrid的颜色
//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include \"unit1.h\"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource \"*.dfm\"tform1 *form1;//-...
[阅读全文] [PDF]
2008年9月25日delphidbgrid更新:动态更新DBGrid的颜色
DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell. procedureTForm1.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol: Integer;Column:TColumn;State:TGridDrawState); begin ifTable1.FieldByName(’Population’).AsI...
[阅读全文] [PDF]
2008年9月24日dbgrid复选框:DBGrid单元格画圆圈
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var s:String;begin TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); s:=Column.Field.DisplayText; if (Column.FieldName=\...
[阅读全文] [PDF]
2008年9月24日dbgrid排序:点击DBGrid的Title对查询结果排序
//欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，//例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，//而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TfrmChild.DBGrid1TitleClick(Column: TColumn);var SqlStr,myFieldName,TempStr: string; OrderPos: integer; SavedParams: TPar...
[阅读全文] [PDF]
2008年9月24日dbgrid复选框:DBGrid中用光标键控制Cell
{////////////////////////// //// Grids549 //// //// 14:33 2005-2-17 //// //}////////////////////////unit Grids549;interfaceuses DBGrids, Classes, Windows;type TDBGrid549 = class(TDBGrid) public property InPlaceEditor; end ; procedure CursorCtrl(Sender: TObject; var Key...
[阅读全文] [PDF]
2008年9月24日dbgrid复选框:拷贝DBGrid当前行
procedure CopyCurrentDBLine(DBGrid: TDBGrid);var i: Integer; Line: String;begin for i := 0 to DBGrid.Columns.Count - 1 do begin if Assigned(DBGrid.Columns.Grid.Fields[i]) then if Line = \'\' then Line := DBGrid.Columns.Grid.Fields[i].Text else Line := Line + \' \' + DB...
[阅读全文] [PDF]
很多朋友在使用DBGrid控件时，抱怨没有点击标题栏便可自动排序的功能，实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件，可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序，也可以选择排序方式（升序/降序），所以我们只要在OnTitleClick事件中设置排序字段和排序方式即可，如以下代码：procedure TForm1.DBGrid1TitleClick(Column: TColumn);var i : integer;begin for i:= 1 ...
[阅读全文] [PDF]
2008年9月24日dbgrid不显示数据:对DBGrid中的列进行显示与否的设置
下面代码主要完成的是在DBGrid上弹出右键菜单,对DBGrid中的列进行显示与否的设置//初始化PopupMenu中的列表procedure InitMenuItem;var NewItem: TMenuItem; i:integer;begin for i:=0 to DBGrid1.Columns.Count-1 do begin NewItem:=TMenuItem.Create(nil); NewItem.Caption:=DBGrid1.Columns.Items[i].Title.Caption; NewItem.O...
[阅读全文] [PDF]
2008年9月24日delphidbgrid1:让你的DBGrid竖着站（1）
{File Name.......: DBVGrids.zipFile Description: Implementation of a Vertical DBGrid based _disibledevent= class(TPersistent) private FColumn: TColumn; FCaption: string; FFont: TFont; FColor: TColor; FAlignment: TAlignment; procedure FontChanged(Sender: TObject); funct...
[阅读全文] [PDF]
2008年9月24日dbgrid使用:DBGrid使用全书(二)
打印 TDBGrid内容----方法1procedure PrintDbGrid(DataSet:TDataSet;DbGrid:TDbGrid;Title:String);varPointX,PointY:integer;ScreenX:integer;i,lx,ly:integer;px1,py1,px2,py2:integer;RowPerPage,RowPrinted:integer;ScaleX:Real;THeight:integer;TitleWidth:integer;SumWidth:integer;PageCou...
[阅读全文] [PDF]
2008年9月24日dbgrid使用:DBGrid使用全书(四)
DbGrid控件的标题栏弹出菜单procedure TFrmOrderPost.DbgOrderPostMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var CurPost:TPoint;begin GetCursorPos(CurPost);//获得鼠标当前坐标 if (y<=17) and (x<=vCurRect.Right) then begin if button=mbright then ...
[阅读全文] [PDF]
2008年9月24日dbgrid使用:DBGrid使用全书(三)
把DBGrid输出到Excel表格－－－方法一（支持多Sheet）{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integer;begin Screen.Cursor := crHourGlass; i...
[阅读全文] [PDF]
2008年9月24日dbgrid使用:DBGrid使用全书(五)
在DBGrid中，怎样才能让我能点击一个单元格选择整行，又可以编辑单元格的内容呢？在设计过程中，有时候数据较大量，field 较多的时候，只是点击单元格可能会对某个field的数据误操作（如数据错行），为此才会想到这个问题，解决办法如下： 点击单元格就改当前行颜色。这个办法也算是没办法的办法吧！typeTMyDBGrid=class(TDBGrid);////////////////////////////////////DBGrid1.Options->dgEditing=True//DBGrid1.Options->...
[阅读全文] [PDF]
2008年9月24日dbgrid滚动条:给DBGrid添加鼠标滚动事件
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,Grids,DBGrids;typeTForm1=class(TForm)DBGrid1:TDBGrid;ADOTable1:TADOTable;DataSource1:TDataSource;procedureFormCreate(Sender:TObject);privateProcedureOnMouseWheel(...
[阅读全文] [PDF]
2008年9月24日dbgrid复选框:轻松实现DBGrid的多表头
用法： 设置DBGrid的Column的Caption属性 例如：Column1的Caption为111|222 Column2的Caption为111|333 那么Column1和Column2公用一个表头111unit ADBGrid;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Math;type TADBGrid = class(TDBGrid) private {...
[阅读全文] [PDF]
2008年9月24日dbgrid不显示数据:让dbgrid显示序号的方法
一直想实现一个功能，那就是让dbgrid显示序号，今天终于找到了实现方法，和不知道的朋友分享一下，首发自学编程网，www.。
修改GRID.pas在TCustomGrid.SetColWidths事件改为:procedure TCustomGrid.SetColWidths(Index: Longint; Value: Integer);begin if FColWidths = nil then UpdateExtents(FColWidths, ColCount, DefaultColWidth); if Index >= ColCount then...
[阅读全文] [PDF]
1 共17条 分1页
