yjselectunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit YJSelectUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Grids, DBGrids, SUIDBCtrls;

type
  TYJSelectForm = class(TForm)
    sdbgrd1: TsuiDBGrid;
    ds1: TClientDataSet;
    ds2: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure sdbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YJSelectForm: TYJSelectForm;

implementation

uses BKJZUnit, AbortUnit;

{$R *.dfm}

procedure TYJSelectForm.FormCreate(Sender: TObject);
begin
  self.ds1.Close;
  self.ds1.CommandText:=BKJZForm.sql;
  self.ds1.Open;
end;

procedure TYJSelectForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.ds1.Close;
  BKJZForm.Enabled:=true;
end;

procedure TYJSelectForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_ESCAPE then
    Close;
end;

procedure TYJSelectForm.sdbgrd1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if sdbgrd1.DataSource.DataSet.RecNo mod 2 = 0 theN
    sdbgrd1.Canvas.Brush.Color:=clSilver
  else
    sdbgrd1.Canvas.Brush.Color:=clYellow;
  sdbgrd1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

end.