unit K_SQLADO;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, ExtCtrls, Buttons;
type
TSQLADO = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
ADOQuery1: TADOQuery;
Button2: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button3: TButton;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
procedure test(str:string); //函数
function TestGC(intA:integer;intB:integer):integer; //过程
public
{ Public declarations }
end;
var
SQLADO: TSQLADO;
implementation
uses D_DataMoudule;
{$R *.dfm}
function TSQLADO.TestGC(intA:integer;intB:integer):integer;
begin
result:=intA+intB;
end;
procedure TSQLADO.test(str:string);
begin
Edit3.Text:=str+'函数';
end;
procedure TSQLADO.Button1Click(Sender: TObject);
var
strSQL:string;
begin
strSQL := 'insert into author(NAME,telphone) values(''' +
trim(edit1.Text ) + ''' ,''' + trim(edit2.Text) + ''')';
Adoquery1.SQL.Clear;
adoquery1.SQL.Add(strSQL);
adoquery1.ExecSQL;
end;
procedure TSQLADO.Button2Click(Sender: TObject);
begin
test(edit1.text);
end;
procedure TSQLADO.Button3Click(Sender: TObject);
var
intC,intA,intB:integer;
begin
intA:=strtoint(edit4.Text);
intB:=strtoint(edit5.Text);
intC:=TestGC(intA,intB);
showmessage(inttostr(intC));
end;
procedure TSQLADO.BitBtn1Click(Sender: TObject);
var
strSQL:string;
begin
try
strSql:='update author set Name='''+trim(dbedit2.Text)+''',telphone='''+
trim(dbedit3.Text)+''' where id='+dbedit1.Text;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strSQL);
adoquery1.ExecSQL;
showmessage('修改成功!');
except
showmessage('修改不成功!');
end;
end;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, ExtCtrls, Buttons;
type
TSQLADO = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
ADOQuery1: TADOQuery;
Button2: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button3: TButton;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
procedure test(str:string); //函数
function TestGC(intA:integer;intB:integer):integer; //过程
public
{ Public declarations }
end;
var
SQLADO: TSQLADO;
implementation
uses D_DataMoudule;
{$R *.dfm}
function TSQLADO.TestGC(intA:integer;intB:integer):integer;
begin
result:=intA+intB;
end;
procedure TSQLADO.test(str:string);
begin
Edit3.Text:=str+'函数';
end;
procedure TSQLADO.Button1Click(Sender: TObject);
var
strSQL:string;
begin
strSQL := 'insert into author(NAME,telphone) values(''' +
trim(edit1.Text ) + ''' ,''' + trim(edit2.Text) + ''')';
Adoquery1.SQL.Clear;
adoquery1.SQL.Add(strSQL);
adoquery1.ExecSQL;
end;
procedure TSQLADO.Button2Click(Sender: TObject);
begin
test(edit1.text);
end;
procedure TSQLADO.Button3Click(Sender: TObject);
var
intC,intA,intB:integer;
begin
intA:=strtoint(edit4.Text);
intB:=strtoint(edit5.Text);
intC:=TestGC(intA,intB);
showmessage(inttostr(intC));
end;
procedure TSQLADO.BitBtn1Click(Sender: TObject);
var
strSQL:string;
begin
try
strSql:='update author set Name='''+trim(dbedit2.Text)+''',telphone='''+
trim(dbedit3.Text)+''' where id='+dbedit1.Text;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strSQL);
adoquery1.ExecSQL;
showmessage('修改成功!');
except
showmessage('修改不成功!');
end;
end;
end.