unit15.pas

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

unit Unit15;

interface

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

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

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.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 TForm15.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 TForm15.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 TForm15.FormActivate(Sender: TObject);
begin
DateTimePicker1.Date :=date;
DateTimePicker2.Date :=date;

ADOQuery1.Connection :=DataModule2.ADOConnection1 ;


end;

procedure TForm15.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.