unit1.pas

Delphi数据库编程

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

Procedure dispvalue;
Procedure setvalue;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   CurDir:String;
 begin
   GetDir(0,CurDir);    //获得应用程序所在路径信息
   //形成连接字符串
   ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Curdir+'\教学.mdb;Persist Security Info=False';
   ADOConnection1.open;//创建连接
   ADODataSet1.CommandType := cmdTable;//设置命令类型
   ADODataSet1.CommandText :='教师表'; //设置命令
   ADODataSet1.Open  ;   //打开记录集
   DispValue;        //显示当前记录
end;
Procedure  DispValue;   //该过程用于把当前记录的内容显示编辑框中
  begin
    Form1.Edit1.Text :=Form1.ADODataSet1.Fields[0].AsString   ;
    Form1.Edit2.Text :=Form1.ADODataSet1.Fields[1].AsString   ;
    Form1.Edit3.Text :=Form1.ADODataSet1.Fields[2].AsString   ;
    Form1.Edit4.Text :=Form1.ADODataSet1.Fields[4].AsString   ;
    Form1.Edit5.Text :=Form1.ADODataSet1.Fields[6].AsString   ;
  end;
Procedure SetValue;    //该过程用于根据编辑框中的内容更新当前记录
  begin
    Form1.ADODataSet1.Fields[0].AsString := Form1.Edit1.Text  ;
    Form1.ADODataSet1.Fields[1].AsString  := Form1.Edit2.Text ;
    Form1.ADODataSet1.Fields[2].AsString  := Form1.Edit3.Text ;
    Form1.ADODataSet1.Fields[4].AsString  := Form1.Edit4.Text ;
   Form1.ADODataSet1.Fields[6].AsString  :=Form1.Edit5.Text  ;
  end;


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
     DispValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADODataSet1.Edit ;
  SetValue;
  ADOdataSet1.Post ;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  BM:String;
  Xingming:String;
begin
   BM:=ADODataSet1.Bookmark ;    //保存当前书签
   //下面查找记录
   Xingming:=InputBox('姓名输入','请输入姓名','童爱红');
   If ADODataSet1.Locate('姓名',Xingming,[loPartialKey])  then
       ShowMessage('已找到需要的记录')
   Else
       begin
          ShowMessage('无符合条件的记录');
          ADODataSet1.Bookmark :=Bm;  //把当前记录恢复成查找之前的记录
       end;
   DispValue;
end;

end.