unit3.pas

ACCESS例程,是一个实用的ACCESS数据库例子.

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox2: TComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  temptext1:string;
  temptext2:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormActivate(Sender: TObject);
begin
form1.ADOQuery1.Open;
form3.Edit1.Text:=form1.ADOQuery1.FieldByName('name').AsString;
form3.Edit2.Text:=form1.ADOQuery1.FieldByName('cellphone').AsString;
form3.Edit3.Text:=form1.ADOQuery1.FieldByName('phone').AsString;
form3.ComboBox1.Text:=form1.ADOQuery1.FieldByName('sex').AsString;
form3.ComboBox2.Text:=form1.ADOQuery1.FieldByName('class').AsString;
form3.Memo1.Text:=form1.ADOQuery1.FieldByName('note').AsString;
temptext1:=form3.ComboBox1.Text;
temptext2:=form3.ComboBox2.Text
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form1.ADOQuery1.Edit;

if form3.Edit1.Modified then
form1.ADOQuery1.FieldByName('name').AsString:=form3.Edit1.Text;

if form3.Edit2.Modified then
form1.ADOQuery1.FieldByName('cellphone').AsString:=form3.Edit2.Text;

if form3.Edit3.Modified then
form1.ADOQuery1.FieldByName('phone').AsString:=form3.Edit3.Text;

if form3.ComboBox1.Text<>temptext1 then
form1.ADOQuery1.FieldByName('sex').AsString:=form3.ComboBox1.Text;

if form3.ComboBox1.Text<>temptext1 then
form1.ADOQuery1.FieldByName('class').AsString:=form3.ComboBox2.Text;

form1.ADOQuery1.Post;
form3.Hide;
end;

end.


{procedure TForm3.Button1Click(Sender: TObject);
begin
form1.ADOTable1.ReadOnly:=false;
//form1.ADOTable1.Close;
//form1.ADOConnection1.Close;

form1.ADOTable1.Edit;
if form3.Edit1.Modified then
form1.ADOTable1.FieldByName('name').AsString:=form3.Edit1.Text;
if form3.Edit2.Modified then
form1.ADOTable1.FieldByName('cellphone').AsString:=form3.Edit2.Text;
if form3.Edit3.Modified then
form1.ADOTable1.FieldByName('phone').AsString:=form3.Edit3.Text;
if form3.ComboBox1.text<>temptext1 then
form1.ADOTable1.FieldByName('sex').AsString:=form3.ComboBox1.Text;
if form3.ComboBox2.text<>temptext2 then
form1.ADOTable1.FieldByName('class').AsString:=form3.ComboBox2.Text;
form1.ADOTable1.ReadOnly:=true;
//form1.ADOTable1.Open;
//form1.ADOConnection1.Open;
form1.ADOTable1.Post;
form3.Edit1.Text:='';
form3.Edit2.Text:='';
form3.Edit3.Text:='';
form3.ComboBox1.Text:='';
form3.ComboBox2.Text:='';
form3.memo1.Lines.Text:='';
form3.Hide;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
form1.ADOQuery1.Close;
form.
form1.DataSource1.DataSet:=form1.ADOTable1;
form1.ADOTable1.Open;
form3.Edit1.Text:=form1.ADOTable1.FieldByName('name').AsString;
form3.Edit2.Text:=form1.ADOTable1.FieldByName('cellphone').AsString;
form3.Edit3.Text:=form1.ADOTable1.FieldByName('phone').AsString;
form3.ComboBox1.Text:=form1.ADOTable1.FieldByName('sex').AsString;
form3.ComboBox2.Text:=form1.ADOTable1.FieldByName('class').AsString;
form3.Memo1.Text:=form1.ADOTable1.FieldByName('note').AsString;
temptext1:=form3.ComboBox1.Text;
temptext2:=form3.ComboBox2.Text;
end;}