delphi ¶¨Ò庯Êýµ÷Óò»ÄÜÓÃ

Ö±½ÓÔÚϱßдÊý¾Ý¿â£¬edit1.text¿ÉÒԵõ½Êý¾Ý¿âÄÚÈÝ£¬Ê¹ÓÃ×Ô¶¨ÒåµÄº¯Êý¾Í²»·µ»ØÄÚÈÝ¡£
ÓÐÊìϤµÄ°ïæ¿´¿´£º

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, ¡­¡­ÖмäÊ¡ÂÔ¡­¡­, DB, ADODB;

type
  TForm1 = class(TForm)
    main_form: TForm;
    ¡­¡­
    procedure FormCreate(Sender: TObject);
    procedure AddSQL(sqlstr,sqlvar,columnname: string; var n: integer); //ÉùÃ÷Êý¾Ý¿â²Ù×÷¹ý³Ì

  private
    { Private declarations }
  public
    { Public declarations }
      currectid : Integer;


  end;

var
  Form1: TForm1;

implementation

uses server, site;

{$R *.dfm}

//ÒÔÏÂΪ ×Ô¶¨Òå¹ý³Ì£¬
procedure TForm1.AddSQL(sqlstr,sqlvar,columnname: string; var n: integer);
begin
  with Form1.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(sqlstr);
    Open;
    n := RecordCount;
    sqlvar := FieldByName(columnname).AsString ;
  end;

end;


//ʹÓÃÖ÷formµÄaddsql£¨£©
procedure TForm1.btn_siteClick(Sender: TObject);