u4_8.pas

前言 随着旅游业的发展

unit U4_8;

interface

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

type
  TF4_8 = class(TForm)
    Panel1dp: TPanel;
    Label1dp: TLabel;
    Label1bh: TLabel;
    Label1qd: TLabel;
    LBsearch: TLabel;
    CBoxsearch: TComboBox;
    SBTback: TSpeedButton;
    Panel1cq: TPanel;
    DBGrid1: TDBGrid;
    Panel1z: TPanel;
    Label1z: TLabel;
    StaticText1ys: TStaticText;
    Panel1fq: TPanel;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure SBTbackClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F4_8: TF4_8;

implementation

uses UDmo;

{$R *.dfm}

procedure TF4_8.FormShow(Sender: TObject);
begin
  with dmo.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select na as ''姓名'',sex as ''性别'','
            +'country as ''国家'',works as ''工作单位'','
            +'address as ''详细住址'',birthday as ''出生日期'','
            +'cishu as ''入住次数'','
            +'ruzhutime as ''入住时间(最近)'',likaitime as ''离开时间(最近)'' from binkeinfo');
    open;
  end;
end;

procedure TF4_8.SBTbackClick(Sender: TObject);
begin
  close;
end;

procedure TF4_8.Button1Click(Sender: TObject);
begin
with dmo.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from binkeinfo where na='''+CBoxsearch.Text+'''');
    open;
  end;

end;

end.