guibin.~pas

来自「结于初学者来说这对数据库是一个很好的例子」· ~PAS 代码 · 共 104 行

unit guibin;

interface

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

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

var
  Form26: TForm26;

implementation

uses data_dinlistprn, jiezhang, see_qm;

{$R *.dfm}

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

procedure TForm26.Edit1Change(Sender: TObject);
begin
 Q_gbk1.Active:=False;
 Q_gbk1.SQL.Clear;
 Q_gbk1.SQL.Add('select * from guibin where bumen=''ϴԡ'' and bh like '''+edit1.Text+'%''');
 Q_gbk1.Active:=true;

end;

procedure TForm26.Edit2Change(Sender: TObject);
begin
 Q_gbk1.Active:=False;
 Q_gbk1.SQL.Clear;
 Q_gbk1.SQL.Add('select * from guibin where bumen=''ϴԡ'' and ckr like '''+edit2.Text+'%''');
 Q_gbk1.Active:=true;
end;

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

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

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

procedure TForm26.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;

end.