unit17.pas

宿舍管理系统

unit Unit17;

interface

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

type
  TForm17 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    GroupBox4: TGroupBox;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.FormActivate(Sender: TObject);
begin
ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Text :='select * from 寝室评分表';
ADOQuery1.Open
end;


procedure TForm17.BitBtn1Click(Sender: TObject);
begin
if trim(Edit1.Text)='' then
  begin
    MessageBox(handle,'查询的分数不能为空!','警告',MB_OK+MB_ICONINFORMATION);
    Edit1.SetFocus ;
    exit;
  end;

ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Text :='select * from 寝室评分表 where 评分>:A';
ADOQuery1.Parameters.ParamByName('A').Value :=StrToInt(trim(Edit1.Text));
ADOQuery1.Open
end;


procedure TForm17.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
    begin
      BitBtn1.Click;
      exit;
    end;
    
if not(key in['0'..'9',#8])then
  begin
    MessageBox(handle,'只能输入数字','警告',MB_OK+MB_ICONWARNING);
    Key :=#0;
  end;  

end;

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