unit4.pas

一个小的设备管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, DBCtrls, StdCtrls, ComCtrls, Grids, DBGrids, ExtCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    ADOConnection1: TADOConnection;
    DBGrid3: TDBGrid;
    StatusBar1: TStatusBar;
    StaticText1: TStaticText;
    DBNavigator1: TDBNavigator;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  nWidth:integer;
  i:integer;
begin
  
  with tdbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;


    end;
    defaultdrawcolumncell(rect, datacol, column, state);
  end;
  dbGrid3.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;
 


end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

end.