guibin.pas

结于初学者来说这对数据库是一个很好的例子

unit guibin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, Buttons, Mask, DBCtrls;

type
  TForm38 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Q_gbk1: TQuery;
    DS_gbk: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    dzl: TDBEdit;
    btqm: TButton;
    Label4: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure btqmClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form38: TForm38;

implementation

uses Over, see_qm;

{$R *.dfm}

procedure TForm38.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm38.FormShow(Sender: TObject);
begin
   btqm.Enabled:=False;
   Q_gbk1.Active:=False;
   Q_gbk1.Active:=True;
   edit1.SetFocus;
end;

procedure TForm38.Edit1Change(Sender: TObject);
begin
 Q_gbk1.Active:=False;
 Q_gbk1.SQL.Clear;
 Q_gbk1.SQL.Add('select * from guibin where (bumen=''客房'' or bumen=''全部'') and bh like '''+edit1.Text+'%''');
 Q_gbk1.Active:=true;
end;

procedure TForm38.Edit2Change(Sender: TObject);
begin
 Q_gbk1.Active:=False;
 Q_gbk1.SQL.Clear;
 Q_gbk1.SQL.Add('select * from guibin where (bumen=''客房'' or bumen=''全部'') and ckr like '''+edit2.Text+'%''');
 Q_gbk1.Active:=true;
end;

procedure TForm38.DBGrid1DblClick(Sender: TObject);
begin
  form20.jz_zkl.text:=dzl.Text;
  form20.Jz_zkl.SetFocus;
  close;
end;

procedure TForm38.DBGrid1CellClick(Column: TColumn);
begin
     btqm.Enabled:=True;
     Q_gbk1.Active:=True;
     with dbgrid1.DataSource.DataSet do
     begin
     GotoBookmark(pointer(dbgrid1.SelectedRows[0]));
     label4.Caption:=fields[1].AsString;
     end;
end;

procedure TForm38.btqmClick(Sender: TObject);
  var filen:string;
begin
 filen:='image\'+label4.Caption+'.bmp';
 form41.Image1.Picture.LoadFromFile(filen);
 form41.showmodal;

end;

end.