📄 sybase32.pas
字号:
unit sybase32;
interface
uses sysutils,winprocs,dialogs;
Const Succeed = 1;
Fail = 0;
More_Rows = -1;
No_More_Rows = -2;
No_More_Results = 2;
dbNoErr = -1;
{Options to be be set with dbsetopt() }
DBPARSEONLY = 0;
DBESTIMATE = 1;
DBSHOWPLAN = 2;
DBNOEXEC = 3;
DBARITHIGNORE = 4;
DBNOCOUNT = 5;
DBARITHABORT = 6;
DBTEXTLIMIT = 7;
DBBROWSE = 8;
DBOFFSET = 9;
DBSTAT = 10;
DBERRLVL = 11;
DBCONFIRM = 12;
DBSTORPROCID = 13;
DBBUFFER = 14;
DBNOAUTOFREE = 15;
DBROWCOUNT = 16;
DBTEXTSIZE = 17;
DBNATLANG = 18;
DBDATEFORMAT = 19;
DBPRPAD = 20;
DBPRCOLSEP = 21;
DBPRLINELEN = 22;
DBPRLINESEP = 23;
DBLFCONVERT = 24;
DBDATEFIRST = 25;
DBCHAINXACTS = 26;
DBFIPSFLAG = 27;
DBISOLATION = 28;
DBAUTH = 29;
DBIDENTITY = 30;
DBNOIDCOL = 31;
{ Bind methods }
NOBIND = -1;
TINYBIND = 1;
SMALLBIND = 2;
INTBIND = 3;
CHARBIND = 4;
TEXTBIND = 5;
BINARYBIND = 6;
ARRAYBIND = 7;
BITBIND = 8;
DATETIMEBIND = 9;
MONEYBIND = 10;
FLT8BIND = 11;
STRINGBIND = 12;
NTBSTRINGBIND = 13;
VARYCHARBIND = 14;
VARYBINBIND = 15;
SMALLDATETIMEBIND = 16;
SMALLMONEYBIND = 17;
REALBIND = 18;
NUMERICBIND = 19;
DECIMALBIND = 20;
SENSITIVITYBIND = 21;
BOUNDARYBIND = 22;
{RPC Status}
DBRPCNORETURN = 0;
DBRPCRETURN = 1;
DB__NODEFAULT = 2;
{RPC Options}
DBRPCRECOMPILE = 1;
DBNOTIFYALL = 2;
DBNOTIFYNEXT = 4;
{This constant is used in dbregparam() to define
a parameter that has no default data value.}
DBNODEFAULT = -2;
{Data Types}
SYBVOID = 32;
SYBBINARY = 45;
SYBBIT = 50;
SYBCHAR = 47;
SYBDATETIME4 = 58;
SYBDATETIME = 61;
SYBDATETIMN = 111;
SYBDECIMAL = 106;
SYBFLT8 = 62;
SYBFLTN = 109;
SYBREAL = 59;
SYBIMAGE = 34;
SYBINT1 = 48;
SYBINT2 = 52;
SYBINT4 = 56;
SYBINTN = 38;
SYBLONGBINARY = 225;
SYBLONGCHAR = 175;
SYBMONEY4 = 122;
SYBMONEY = 60;
SYBMONEYN = 110;
SYBNUMERIC = 108;
SYBTEXT = 35;
SYBVARBINARY = 37;
SYBVARCHAR = 39;
SYBSENSITIVITY = 103;
SYBBOUNDARY = 104;
type
Pcs_datafmt = ^Tcs_datafmt;
Tcs_datafmt = record
name :pchar;
namelen :integer;
datatype :integer;
format :integer;
maxlength :integer;
scale :integer;
precision :integer;
status :integer;
count :integer;
usertype :integer;
locale :pointer;
end;
type
Pcs_clientmsg = ^Tcs_clientmsg;
Tcs_clientmsg = record
severity :integer;
msgnumber :integer;
msgstring :pchar;
msgstringlen :integer;
osnumber :integer;
osstring :pchar;
osstringlen :integer;
status :integer;
sqlstate :byte;
sqlstatelen :integer;
end;
{type col_string = array[0..sizeof(string)] of char;}
type col_string = array[0..2048000] of char;
var col_value : col_string;
function dbmorecmds(dbProc:integer):longint;stdcall;external 'libsybdb.dll';
function dbcurcmd(dbProc:integer):longint;stdcall;external 'libsybdb.dll';
function dbvalue(dbProc, column : integer):Pchar;far;
function dbretvalue(dbProc, column : integer):Pchar;far;
function dbsetlogintime(seconds:integer):integer; stdcall; external 'libsybdb.dll';
function dbsettime(seconds:integer):integer; stdcall; external 'libsybdb.dll';
function dblogin:integer;stdcall;external 'libsybdb.dll';
function dbinit:pointer;stdcall;external 'libsybdb.dll';
procedure dbexit;stdcall;external 'libsybdb.dll';
procedure dbloginfree(login:integer);stdcall;external 'libsybdb.dll';
procedure dbwinexit;stdcall;external 'libsybdb.dll';
function dbopen(login:integer;s:pchar):integer;stdcall;external 'libsybdb.dll';
function dbsetlname(login:integer;s:pointer;x:word):integer;stdcall;external 'libsybdb.dll';
function dbuse(dbProc:integer;dbname:pointer):integer;stdcall;external 'libsybdb.dll';
function dbsetopt(dbProc,Option:integer;Param:pchar;int_parm:integer):integer;stdcall;external 'libsybdb.dll';
function dbstrcpy(dbProc,start,numbytes:integer;dest:pchar):integer;stdcall;external 'libsybdb.dll';
function dbgetrow(dbProc:integer;row:longint):integer;stdcall;external 'libsybdb.dll';
function dbclrbuf(dbProc:integer;rows:longint):integer;stdcall;external 'libsybdb.dll';
function dbfirstrow(dbProc:integer):longint;stdcall;external 'libsybdb.dll';
function dblastrow(dbProc:integer):longint;stdcall;external 'libsybdb.dll';
function dbcurrow(dbProc:integer):longint;stdcall;external 'libsybdb.dll';
function dbcmd(dbProc:integer;command:pointer):integer;stdcall;external 'libsybdb.dll';
function dbcmdrow(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbfcmd(dbProc:integer;command:pointer;arg:longint):integer;stdcall;external 'libsybdb.dll';
function dbsqlexec(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbresults(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbrows(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbnextrow(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dberrhandle(hErr:pointer):pointer;stdcall;external 'libsybdb.dll';
function dbmsghandle(hMsg:pointer):pointer;stdcall;external 'libsybdb.dll';
function dbbind(dbProc,col,vartype:integer;varlen:longint;varaddr:pointer):integer;stdcall;external 'libsybdb.dll';
procedure dbfreelogin(Login:integer);stdcall;external 'libsybdb.dll';
procedure dbclose(dbProc:integer);stdcall;external 'libsybdb.dll';
procedure dbprhead(dbProc:integer);stdcall;external 'libsybdb.dll';
function dbdead(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbspid(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbprrow(dbProc:integer):integer;stdcall;external 'libsybdb.dll';
function dbdatlen(dbproc, column : integer) : integer;stdcall; external 'libsybdb.dll';
function dbdata(dbproc, column : integer):pointer;stdcall;external 'libsybdb.dll';
function dbcolname(dbproc, column : integer):Pchar; stdcall;external 'libsybdb.dll';
function dbcolsource(dbproc, column : integer):Pchar; stdcall;external 'libsybdb.dll';
function dbname(dbproc:integer):Pchar; stdcall;external 'libsybdb.dll';
function dbversion :Pchar; stdcall;external 'libsybdb.dll';
function dbgetcharset(dbproc:integer) :Pchar; stdcall;external 'libsybdb.dll';
function dbservcharset(dbproc:integer) :Pchar; stdcall;external 'libsybdb.dll';
function dbsetdefcharset(char_set:pchar):integer;stdcall;external 'libsybdb.dll';
function dbgetnatlang(dbproc:integer) :Pchar; stdcall;external 'libsybdb.dll';
function dbqual(dbproc,tabnum:integer;tabname:pchar):Pchar; stdcall;external 'libsybdb.dll';
function dbcoltype(dbproc, column : integer):integer; stdcall;external 'libsybdb.dll';
function dbcolutype(dbproc, column : integer):integer; stdcall;external 'libsybdb.dll';
function dbprtype(token : integer):pchar; stdcall;external 'libsybdb.dll';
function dbnumcols(dbproc : integer):integer;stdcall;external 'libsybdb.dll';
function dbtxptr(dbproc, column : integer):pchar; stdcall;external 'libsybdb.dll';
function dbtxtimestamp(dbproc, column : integer):Pchar; stdcall;external 'libsybdb.dll';
procedure dbrecftos(filename:pchar);stdcall;external 'libsybdb.dll';
function dbwritetext(dbproc :integer;
objname :pchar;
textptr :pchar;
textptrlen :integer;
timestamp :pchar;
log :boolean;
size :integer;
text :pchar):integer; stdcall;external 'libsybdb.dll';
function dbconvert(dbproc, srctype :integer;
src : pointer; srclen :longint;
desttype :integer; dest : pointer;
destlen : longint) : integer; stdcall;external 'libsybdb.dll';
function dbcollen(dbproc, column : integer):longint; stdcall;external 'libsybdb.dll';
function dbcount(dbproc : integer) : longint; stdcall;external 'libsybdb.dll';
function dbcanquery(dbproc : integer) : integer; stdcall;external 'libsybdb.dll';
function dbcancel(dbproc : integer) : integer; stdcall;external 'libsybdb.dll';
procedure dbsetbusy(dbproc:integer;busyfunc:pointer);stdcall;external 'libsybdb.dll';
procedure dbsetidle(dbproc:integer;idlefunc:pointer);stdcall;external 'libsybdb.dll';
{********************* Stored Procedures /RPC ******************************}
function dbrpcinit(dbproc:integer;
rpcname:pchar;
option:integer) : integer; stdcall;external 'libsybdb.dll';
function dbrpcparam(dbproc:integer;
paramname:pchar;
status:integer;
typ:integer;
maxlen:integer;
datalen:integer;
value:pointer) : integer; stdcall;external 'libsybdb.dll';
function dbrpcsend(dbproc:integer) : integer; stdcall;external 'libsybdb.dll';
function dbsqlok(dbproc:integer) : integer; stdcall;external 'libsybdb.dll';
function dbnumrets(dbproc:integer) : integer; stdcall;external 'libsybdb.dll';
function dbretdata(dbproc:integer; retnum : integer) :pointer; stdcall;external 'libsybdb.dll';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -