unit DataFm;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls,
  DBCtrls, Menus, Grids, DBGrids, DB, ADODB;

type
  TDataFm = class(TForm)
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    Edit1: TMenuItem;
    Pri1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Query1: TMenuItem;
    Count1: TMenuItem;
    Help1: TMenuItem;
    DBNavigator1: TDBNavigator;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N17Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }
  end;
procedure pview(var str:string);

implementation

uses Unit1;

{$R *.dfm}

procedure pview(var str:string);
begin

  adoquery1.sql.Clear;//[color=800000]出错信息为 undeclared identifier[/color]
  str:='select cchar,english,memo,id ,image,flag from cchar where id=01';
  adoquery1.SQL.Add(str) ;
  adoquery1.Active:=true;
  viewfm.DBNavigator1.datasource:=datasource1;
  viewfm.DBText1.datasource:=datasource1;
  viewfm.dbtext2.DataSource:=datasource1;
  viewfm.DBImage1.DataSource:=datasource1;
  viewfm.DBRadioGroup1.DataSource:=datasource1;
  viewfm.DBText1.DataField:='cchar' ;
  viewfm.DBText2.DataField:='memo';
  viewfm.dbimage1.DataField:='image' ;
  viewfm.DBRadioGroup1.DataField:='flag';
  viewfm.Showmodal;
end;