Dephi的过程与函数第一次使用

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;

end.