[데이타베이스]  201.123.0.1

[프로그램 실행위치 ] 192.168.0.1



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm_Test = class(TForm)
    ADOConnection_main: TADOConnection;
    qryTable_test: TADOQuery;
    dsTable_test: TDataSource;
    dbgTable: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Test: TForm_Test;

implementation

{$R *.dfm}


procedure TForm_Test.Button2Click(Sender: TObject);
begin
 Form_Test.qryTable_test.SQL.Clear;
 Form_Test.qryTable_test.SQL.Add('SELECT * FROM dd');
 Form_Test.qryTable_test.Active := true;
end;





procedure TForm_Test.Button1Click(Sender: TObject);
begin
  try
  Form_Test.qryTable_test.SQL.Clear;
  Form_Test.qryTable_test.SQL.Add('INSERT INTO dd (title) VALUES (:Name)');
  Form_Test.qryTable_test.Parameters.ParamByName('Name').Value := 'sdfds1';
  Form_Test.qryTable_test.ExecSQL;
  Form_Test.qryTable_test.Close;

  finally
    Form_Test.qryTable_test.Free;
  end;

end;

end.



TADOConnection := Name -> ADOConnection_main
TADOQuery        := Name -> qryTable_test
TDataSource      := Name -> dsTable_test

간만에 델파이 데이타베이스 연결해보니 참 쉽네!!ㅋㅋ