| Class TForm1 (unit Sql11) |
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);
procedure BTN_QueryClick(Sender: TObject);
procedure BTN_StoredClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);| Properties |
| Events |
| Variables |
BTN_Connect : TButton;
BTN_Proc2 : TButton;
BTN_Query : TButton;
BTN_Stored : TButton;
Label1 : TLabel;
ListBox1 : TListBox;
login : LOGINREC;| 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