Class TForm1 (unit Sql11)

Inherits from

TForm

**************************************************************************** Example of using direct api to access MS MSQL server 6.0 (This should also work with 6.5) Ed Lyk 1997-08-27 All imported functions are in MSSQL16.PAS

Constructors



Functions

procedure BTN_ConnectClick(Sender: TObject);


procedure BTN_Proc2Click(Sender: TObject);

defination of procedure I'm trying to run: CREATE PROCEDURE MAKEKEYID(@NEWKEY INT OUTPUT) AS BEGIN BEGIN TRAN SELECT @NEWKEY = KEYID FROM DBO.

procedure BTN_QueryClick(Sender: TObject);

free up the dll stuff, important.

procedure BTN_StoredClick(Sender: TObject);

close the connection

procedure FormClose(Sender: TObject; var Action: TCloseAction);

close the connection, frees memory and resources.

Properties

Events

Variables

BTN_Connect : TButton;


BTN_Proc2 : TButton;


BTN_Query : TButton;


BTN_Stored : TButton;


Label1 : TLabel;


ListBox1 : TListBox;


login : LOGINREC;

Private declarations


Constructors


Functions


procedure BTN_ConnectClick(Sender: TObject);


procedure BTN_Proc2Click(Sender: TObject);

defination of procedure I'm trying to run: CREATE PROCEDURE MAKEKEYID(@NEWKEY INT OUTPUT) AS BEGIN BEGIN TRAN SELECT @NEWKEY = KEYID FROM DBO.KEYID TABLOCKX UPDATE DBO.KEYID SET KEYID = (@NEWKEY + 1) COMMIT TRAN END


procedure BTN_QueryClick(Sender: TObject);

free up the dll stuff, important...


procedure BTN_StoredClick(Sender: TObject);

close the connection


procedure FormClose(Sender: TObject; var Action: TCloseAction);

close the connection, frees memory and resources...


Properties


Events


Variables


BTN_Connect : TButton;


BTN_Proc2 : TButton;


BTN_Query : TButton;


BTN_Stored : TButton;


Label1 : TLabel;


ListBox1 : TListBox;


login : LOGINREC;

Private declarations