第一次搞Delphi,不是很明白adotable,adodataset,adoquery等等的关系

解决方案 »

  1.   

    勤工助学管理系统[系版]
    http://www.dapha.net/down/show.asp?classid=6
    用ado写的
    初学者可以看看
    你可以搜索一下。
    这方面的资料也很多
      

  2.   

    with ADOQuery do
    begin
      Connection:=ADOConnection;
      SQL.Clear;
      SQL.Add('SELECT * FROM table');
      Open;
      Append;
      FieldValues['field']:=...
      Post;
    end;
    with ADOTable do
    begin
      Connection:=ADOConnection;
      TableName:='table';
      Open;
      Append;
      FieldValues['field']:=..
      Post;
    end;
      

  3.   

    unit requestunit;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, DB, ADODB;type
      TRequestForm = class(TForm)
        Label1: TLabel;
        ComRequest: TComboBox;
        MemRequest: TMemo;
        RequestConnection: TADOConnection;
        RequestDataSet: TADODataSet;
        ADOTable1: TADOTable;
        Label2: TLabel;
        edtstat: TEdit;
        btnok: TButton;
        btnback: TButton;
        procedure FormCreate(Sender: TObject);
        procedure btnokClick(Sender: TObject);
        procedure btnbackClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      RequestForm: TRequestForm;implementationuses unittest;{$R *.dfm}{
       函数名:FormCreate
      主要功能:启动表单时把数据库中表记录相关字段Load进Combobox的Items中
    }
    procedure TRequestForm.FormCreate(Sender: TObject);
    var
      i:integer;
    begin
      ComRequest.items.clear;
      for i:=0 to adotable1.FieldCount -1 do
          ComRequest.Items.add(adotable1.Fields[i].FieldName);
    end;{
       函数名:btnokClick
      主要功能:根据Combobox中选择的字段名在Edit中输入相关的记录寻找相匹配数据
    }
    procedure TRequestForm.btnokClick(Sender: TObject);
    var
      i:integer;
      j:integer;
    begin
      RequestDataSet.Close;
      RequestDataSet.CommandText:=format('select * from db_Test  where  %s = ''%s''',[ComRequest.text,edtstat.text]);
      RequestDataSet.open;
      i:=0;
      memrequest.Clear;
      if requestdataset.Recordcount=0 then
      begin
        showmessage('没有查找到相关记录');
        edtstat.Text:='';
      end;
      while i<requestdataset.RecordCount do
      begin
        i:=i+1;
        for j:=0 to adotable1.FieldCount -1 do
          memrequest.Lines.Add(adotable1.Fields[j].FieldName+':   '+RequestDataSet.fieldbyname(adotable1.Fields[j].FieldName).AsString);
      end;
    end;{
       函数名:btnbackClick
      主要功能:退出应用程序
    }
    procedure TRequestForm.btnbackClick(Sender: TObject);
    begin
      form1.close;
    end;end.
      

  4.   

    [email protected],谢谢了,大哥,ADO控件操作数据的例程。