unit14.pas

学生宿舍管理系统,用于宿舍的信息管理,简单容易用.

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner6: TWideStringField;
    ADOQuery1DSDesigner7: TDateTimeField;
    ADOQuery1DSDesigner8: TDateTimeField;
    ADOQuery1DSDesigner9: TWideStringField;
    ADOQuery1DSDesigner10: TDateTimeField;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    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
  Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
  begin
    Label2.Visible :=true;
    Label2.Caption :='输入日期:';
    Label3.Visible :=false;
    DateTimePicker1.Visible :=true;
    DateTimePicker2.Visible :=false;
  end;
end;

procedure TForm14.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then
  begin
    Label2.Visible :=true;
    Label3.Visible :=true;
    Label2.Caption :='开始日期:';
    Label3.Caption :='结束日期:';
    DateTimePicker1.Visible :=true;
    DateTimePicker2.Visible :=true;
  end;
end;

procedure TForm14.FormActivate(Sender: TObject);
begin
DateTimePicker1.Date :=date;
DateTimePicker2.Date :=date;

ADOQuery1.Connection :=DataModule2.ADOConnection1 ;



end;

procedure TForm14.BitBtn1Click(Sender: TObject);
begin

ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
if not (RadioButton1.Checked or RadioButton2.Checked ) then
  begin
    MessageBox(handle,'请选择查询方式!','提示',MB_OK+MB_ICONINFORMATION);
    exit;
  end;

if  RadioButton1.Checked then
  begin
    ADOQuery1.SQL.Text :='select * from 来访表 where 来访日期=:A';
    ADOQuery1.Parameters.ParamValues['A'] :=DateToStr(DateTimePicker1.Date) ;
    ADOQuery1.Prepared;
    ADOQuery1.Open ;
    exit;
  end;
if RadioButton2.Checked then
  begin
    ADOQuery1.SQL.Text :='select * from 来访表 where 来访日期 between :A and :B';
    ADOQuery1.Parameters.ParamValues['A'] :=DateToStr(DateTimePicker1.Date) ;
    ADOQuery1.Parameters.ParamValues['B'] :=DateToStr(DateTimePicker2.Date) ;
    ADOQuery1.Prepared;
    ADOQuery1.Open ;

   end;
end;
procedure TForm14.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.