?? unit3.pas
字號:
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;}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -