uname.~pas

直接可以编译运行

unit uname;

interface

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

type
  Tuname1 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    Edit1: TEdit;
    Button5: TButton;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  uname1: Tuname1;

implementation

{$R *.dfm}

procedure Tuname1.Button1Click(Sender: TObject);
begin
ADOQuery1.Open;
ADOQuery1.Append;
end;

procedure Tuname1.Button2Click(Sender: TObject);
begin
ADOQuery1.Open;
ADOQuery1.Edit;
end;

procedure Tuname1.Button3Click(Sender: TObject);
begin
ADOQuery1.Open;
ADOQuery1.Delete;
end;

procedure Tuname1.Button5Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('name').AsString:=DBEdit1.Text;
ADOQuery1.FieldByName('tel').AsString:=DBEdit2.Text;
ADOQuery1.Post;
end;

procedure Tuname1.Edit1Change(Sender: TObject);
var
aa,a1:string;
begin
a1:='''';
aa:='select * from lname where name like'+a1+'%'+Edit1.Text+'%'+a1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(aa);
ADOQuery1.Open;
end;

end.