unit7.pas

宿舍管理系统

unit Unit7;

interface

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

type
  Tf_cxqs = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    b_kscx: TButton;
    b_jscx: TButton;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOQuery1jsm: TWideStringField;
    ADOQuery1jsz: TWideStringField;
    ADOQuery1ry1: TWideStringField;
    ADOQuery1ry2: TWideStringField;
    ADOQuery1ry3: TWideStringField;
    ADOQuery1ry4: TWideStringField;
    ADOQuery1ry5: TWideStringField;
    ADOQuery1ry6: TWideStringField;
    e_cx: TEdit;
    Label3: TLabel;
    ComboBox2: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure b_kscxClick(Sender: TObject);
    procedure b_jscxClick(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_cxqs: Tf_cxqs;

implementation

{$R *.dfm}

procedure Tf_cxqs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tf_cxqs.b_kscxClick(Sender: TObject);
var
  s,s1,s2,s3:string;

begin
  s1:=combobox1.Text;
  s2:=combobox2.text;
  s3:=e_cx.Text;
  if s1='' then
  begin
    showmessage('请选择查询条件！');
  end
  else
   begin
      if s2='' then
      begin
        showmessage('请选择查询方式！');
      end
      else
     begin
      if s3='' then
      begin
        showmessage('请输入查询值！');
      end
      else
      begin
          s:='select * from jsb where '+s1+s2+''''+s3+'''';
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(s);
        adoquery1.Open;
        showmessage('共找到'+inttostr(adoquery1.RecordCount)+'条记录')
      end;
    end;
  end;
  end;

procedure Tf_cxqs.b_jscxClick(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from jsb');
adoquery1.Open;
end;

procedure Tf_cxqs.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 if gdSelected in state then

      SetBkColor(dbgrid1.canvas.handle,clgreen)

      else

      setbkcolor(dbgrid1.canvas.handle,clwhite);

      dbgrid1.Canvas.TextRect(rect,0,0,field.AsString);

      dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);

    
end;

end.