dataview.pas

在SQLSERVER数据库查找任一表中的任意数据

unit DataView;

interface

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

type
  TFrmDataView = class(TForm)
    DBGridEh1: TDBGridEh;
    View: TADOQuery;
    Views: TDataSource;
    procedure ViewAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDataView: TFrmDataView;

Procedure ViewData(TblFldStr,LkTxt:String);

implementation

uses Main;

{$R *.dfm}

Procedure ViewData(TblFldStr,LkTxt:String);
Var
  Tbl,Fld:String;
  at:Integer;
Begin
  at:=Pos('--->',TblFldStr);
  If at=0 Then Exit;
  Tbl:=Trim(Copy(TblFldStr,1,at-1));
  Fld:=Trim(Copy(TblFldStr,at+5,Length(TblFldStr)));
  If Tbl='' Then Exit;
  FrmDataView:=TFrmDataView.Create(Application);
  With FrmDataView Do Begin
    Caption:='数据浏览   表<'+Tbl+'> 字段<'+Fld+'>';
    If View.Active Then View.Close ;
    View.SQL.Clear ;
    View.SQL.Text := 'Select * From '+Tbl;
    If Fld<>'' Then Begin
      View.SQL.Add('Where '+Fld+' Like ''%'+LkTxt+'%''');
    End;
    Try
      View.Open ;
      Show;
    Except
      Close;
    End;
  End;
End;

procedure TFrmDataView.ViewAfterOpen(DataSet: TDataSet);
Var
  Idx:Integer;
begin
  For Idx:=0 To DbGridEh1.Columns.Count-1 Do Begin
    DbGridEh1.Columns[Idx].Width := 80 ;
  End;
end;

end.