unit8.pas

本系统用于大学学生宿舍管理

unit Unit8;

interface

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

type
  Tf_cxws = class(TForm)
    gb_1: TGroupBox;
    gb_2: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Shape1: TShape;
    Shape2: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label5: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery1jsm: TWideStringField;
    ADOQuery1wspf: TIntegerField;
    ADOQuery1pfsj: TDateTimeField;
    ADOQuery1pfry: TWideStringField;
    ADOQuery2jsm: TWideStringField;
    ADOQuery2byyd: TIntegerField;
    ADOQuery2yf: TDateTimeField;
    ADOQuery2gdyd: TIntegerField;
    ADOQuery2cdus: TIntegerField;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);

  private

    { Private declarations }

  public
    { Public declarations }
  end;

var
  f_cxws: Tf_cxws;

implementation

{$R *.dfm}


procedure Tf_cxws.BitBtn2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from wsb');
adoquery1.Open;

end;

procedure Tf_cxws.BitBtn1Click(Sender: TObject);
var
ss:string;
begin
 ss:='';
  if edit1.Text='' then
  begin  
    application.MessageBox('您没有输入查询条件！请输入！','提示',mb_ok+mb_iconinformation);
  end
  else
  begin
  if edit1.Text<>'' then
  ss:=ss+'and jsm='+''''+edit1.Text+'''';
   ss:='select * from wsb where 1=1 '+ss;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(ss);
  adoquery1.Open;
  if adoquery1.RecordCount=0 then
    application.MessageBox('没有符合要求的记录，请重新输入查询条件！','提示',mb_ok+mb_iconinformation);
  end;
end;
procedure Tf_cxws.BitBtn4Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.add('select * from ydb');
adoquery2.Open;
end;
procedure Tf_cxws.BitBtn3Click(Sender: TObject);
var
  s,s1,s3:string;
  i1:integer;
begin
  s1:=combobox1.Text;
  s3:=edit2.Text;
  if s1='' then
  begin
    showmessage('请选择查询条件！');
  end
  else
     begin
      if s3='' then
      begin
        showmessage('请输入查询值！');
      end
   else
      begin
          s:='select * from ydb where '+s1+'='+''''+s3+'''';
        adoquery2.Close;
        adoquery2.SQL.Clear;
        adoquery2.SQL.Add(s);
        adoquery2.Open;
          i1:=adoquery2.RecordCount;
           if i1=0 then
        showmessage('没有符合条件的记录！')
      end;
    end;
  end;

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

      SetBkColor(dbgrid1.canvas.handle,clred)

      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.