unit1.~pas

Delphi数据库编程

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    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;
    ADOTable1: TADOTable;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure DBGrid1CellClick(Column: TColumn);
  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;//创建连接
   ADOTable1.TableName :='教师表'; //设置命令
   ADOTable1.Open  ;   //打开记录集
   DispValue;        //显示当前记录
   RadioGroup1.ItemIndex :=0;
   Button2.Enabled :=False;
   Button2.Enabled :=False;
end;
Procedure  DispValue;   //该过程用于把当前记录的内容显示编辑框中
  begin
    Form1.Edit1.Text :=Form1.ADOTable1.FieldByName('教师编号').AsString   ;
    Form1.Edit2.Text :=Form1.ADOTable1.FieldByName('姓名').AsString   ;
    Form1.Edit3.Text :=Form1.ADOTable1.FieldByName('性别').AsString   ;
    Form1.Edit4.Text :=Form1.ADOTable1.FieldByName('出年日期').AsString   ;
    Form1.Edit5.Text :=Form1.ADOTable1.FieldByName('职称').AsString   ;
    Form1.Edit6.Text :=Form1.ADOTable1.FieldByName('单位').AsString   ;
    Form1.Edit7.Text :=Form1.ADOTable1.FieldByName('工资').AsString   ;
  end;
Procedure SetValue;    //该过程用于根据编辑框中的内容更新当前记录
  begin
    Form1.ADOTable1.FieldByName('教师编号').AsString := Form1.Edit1.Text  ;
    Form1.ADOTable1.FieldByName('姓名').AsString  := Form1.Edit2.Text ;
    Form1.ADOTable1.FieldByName('性别').AsString  := Form1.Edit3.Text ;
    Form1.ADOTable1.FieldByName('出年日期').AsString  := Form1.Edit4.Text ;
    Form1.ADOTable1.FieldByName('职称').AsString  :=Form1.Edit5.Text  ;
    Form1.ADOTable1.FieldByName('单位').AsString  := Form1.Edit6.Text ;
    Form1.ADOTable1.FieldByName('工资').AsString  :=Form1.Edit7.Text  ;
 end;


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   If RadioGroup1.ItemIndex =0 then
      begin
        ADOTable1.Refresh ;
        ADOTable1.CancelBatch();
        Button2.Enabled :=False;
        Button3.Enabled :=False;
      end
      else
         begin
                ADOTable1.Close;
                ADOTable1.CursorType :=ctKeyset;
                ADOTable1.LockType :=ltBatchOptimistic;
                ADOTable1.Open ;
                Button2.Enabled:=True;
                Button3.Enabled :=True;
         end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOTable1.Edit ;
   SetValue;
   if RadioGroup1.ItemIndex =0  then
      ADOTable1.post;
   DispValue;   
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 1 then
      ADOTable1.UpdateBatch;
  DispValue;    
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 1 then
      ADOTable1.CancelBatch ;
   DispValue;      
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ADOTable1.Close;
  Application.Terminate ;
end;

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
DispValue;
end;

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

end.