demo2.pas

Delphi_7.0数据库开发源代码。有内容十一章节

unit demo2;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Bevel1: TBevel;
    Edit5: TEdit;
    Label5: TLabel;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    //procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
with ADOTable1 do
      begin
      edit1.Text:=Fields.Fieldbyname('Stu_num').AsString;
      edit2.text:=Fields.Fieldbyname('Stu_nam').AsString;
      edit3.text:=Fields.Fieldbyname('Gender').AsString;
      edit4.Text:=Fields.Fieldbyname('Age').AsString;
      edit5.Text:=Fields.FieldByName('Height').AsString;
      end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

   ADOTable1.Open;
   ADOTable1AfterScroll(ADOTable1);
   RadioButton1.Checked:=true;
   BitBtn2.Enabled:=false;
   BitBtn3.Enabled:=false;
end;

//procedure TForm1.RadioButton1Click(Sender: TObject);
//begin
   // ADOTable1.refresh;

    //ADOTable1.CancelBatch;
    //BitBtn2.Enabled:=false;

   // BitBtn3.Enabled:=false;
//end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
ADOTable1.Close;
ADOTable1.CursorType:=ctKeyset;
ADOTable1.LockType:=ltBatchOptimistic;
ADOTable1.Open;
BitBtn2.Enabled:=true;
BitBtn3.Enabled:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with ADOTable1 do
    begin
      edit;
      Fields.Fieldbyname('Stu_num').AsString:=edit1.text;
      Fields.fieldbyname('Stu_nam').AsString:=edit2.text;
      Fields.fieldbyname('Gender').AsString:=edit3.text;
      Fields.fieldbyname('Age').AsString:=edit4.Text;
      Fields.FieldByName('Height').AsString:=edit5.Text;
      if not Radiobutton2.Checked then
      post;
     end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Radiobutton2.Checked then
ADOtable1.UpdateBatch;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
  begin
    if Radiobutton2.Checked then
    ADOTable1.CancelBatch;
  end;

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

end.