unit21.pas

宿舍管理系统

unit Unit21;

interface

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

type
  TForm21 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1DSDesigner6: TWideStringField;
    ADOQuery1DSDesigner7: TWideStringField;
    ADOQuery1DSDesigner8: TWideStringField;
    ADOQuery1DSDesigner9: TWideStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Text :='select 来访表.来访人姓名,来访表.被访人姓名,来访表.被访人寝室号,来访表.所属关系,'
    +'来访表.来访时间,来访表.证件名称,来访表.值班人,来访表.备注,寝室表.寝室电话 from 来访表,寝室表'
    +' where 来访表.来访时间=来访表.结束时间 and 来访表.被访人寝室号=寝室表.寝室电话';
//ADOQuery1.Parameters.ParamByName('A').Value :=DateToStr(date);
//ADOQuery1.Prepared ;
ADOQuery1.Open ;
end;

procedure TForm21.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then //条件判断
   begin
    with DBGrid1 do
      begin
        Canvas.Font.Color:=clRed;
        Canvas.Brush.Color:=RGB(214,222,243);
      end;
  end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

end.