unit1.pas

Delphi面向对象编程思想附书源码 好用哦！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnQryByName: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    btnExit: TButton;
    edtQryByName: TLabeledEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBGrid1: TDBGrid;
    dbcbSex: TDBComboBox;
    dbcbDep: TDBComboBox;
    DataSource1: TDataSource;
    adqDep: TADOQuery;
    adqUser: TADOQuery;
    btnUpdate: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnQryByNameClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure btnUpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ADO_STRING='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wz.mdb;Persist Security Info=False' ;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  var
  i: Integer;
  tmpstrs: TStrings;
begin
  tmpstrs:=TStringlist.Create;
  with adqDep do
  try
    ConnectionString:=ADO_STRING;
    sql.Clear;
    sql.add('select * from M_BMBM');
    Open;
    for i:=1 to  RecordCount do
    begin
      tmpstrs.Add(Fieldbyname('BMMC').AsString);
      Next;
    end;
    Close;
  finally
    Close;
  end;
  dbcbDep.Items:=tmpstrs;
end;

procedure TForm1.btnQryByNameClick(Sender: TObject);
begin
    with  adqUser do
    begin
      close;
      ConnectionString:=ADO_STRING;
      Parameters.ParamByName('name').value:='%'+edtQryByName.Text+'%';
      open;
    end;
    btnUpdate.Enabled:=true;
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.btnUpdateClick(Sender: TObject);
begin
  adqUser.Post;
end;

end.