📄 dbiopenrintlist.html
字号:
<HTML>
<HEAD>
<TITLE>BDE API Examples (DbiOpenRintList)</TITLE>
<META NAME="KEYWORDS" CONTENT="BDE, Borland">
<META NAME="DESCRIPTION" CONTENT="">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" ALINK="#999999" VLINK="#666666">
<CENTER>
<TABLE CELLPADDING="4" CELLSPACING="4" BORDER="0" WIDTH="600">
<TR>
<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="1"><NOBR><A HREF="/"><IMG SRC="/images/bolus.gif" ALT="[View Borland Home Page]" BORDER="0"></A><A HREF="/products.html"><IMG SRC="/images/products.gif" ALT="[View Product List]" BORDER="0"></A><A HREF="/searchsite/"><IMG SRC="/images/search.gif" ALT="[Search This Web Site]" BORDER="0"></A><A HREF="/download.html"><IMG SRC="/images/downloads.gif" ALT="[View Available Downloads]" BORDER="0"></A><A HREF="/membership.html"><IMG SRC="/images/membership.gif" ALT="[Join Borland Online]" BORDER="0"></A><A HREF="/newsgroups/"><IMG SRC="/images/newsgroups.gif" ALT="[Enter Discussion Area]" BORDER="0"></A><A HREF="/feedback/"><IMG SRC="/images/feedback.gif" ALT="[Send Email To Webmaster]" BORDER="0"></A></NOBR></TD>
</TR>
<TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>
<h2>BDE API Examples (DbiOpenRintList)</h2>
DbiOpenRintList creates a table listing the referential integrity links for a specified table, along with their descriptions.
<hr size=2 noshade>
<p>
<h3>Return all RI information in a list for the specified table.</h3>
This example uses the following input:<BR> <I>Procedure GetRintDesc(Table1, Memo1.Lines)</I>
<PRE>procedure GetRintDesc(Table: TTable; Lines: TStrings);
var
hCur: hDBICur;
RIDesc: RINTDesc;
rslt: DBIResult;
B: Byte;
Temp: string;
begin
// Get a cursor to the RI information...
Check(DbiOpenRIntList(Table.DBHandle, PChar(Table.TableName), nil, hCur));
try
Lines.Clear;
Check(DbiSetToBegin(hCur));
rslt := DBIERR_NONE;
// While there are no errors, get RI information...
while rslt = DBIERR_NONE do
begin
// Get the next RI record...
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, @RIDesc, nil);
if rslt <> DBIERR_EOF then
begin
// Make sure nothing out of the ordinary happened...
Check(rslt);
// Display information...
Lines.Add('RI Number: ' + IntToStr(RIDesc.iRintNum));
Lines.Add('RI Name: ' + RIDesc.szRintName);
case RIDesc.eType of
rintMASTER: Lines.Add('RI Type: MASTER');
rintDEPENDENT: Lines.Add('RI Type: DEPENDENT');
else
Lines.Add('RI Type: UNKNOWN');
end;
Lines.Add('RI Other Table Name: ' + RIDesc.szTblName);
case RIDesc.eModOp of
rintRESTRICT: Lines.Add('RI Modify Qualifier: RESTRICT');
rintCASCADE: Lines.Add('RI Modify Qualifier: CASCADE');
else
Lines.Add('RI Modify Qualifier: UNKNOWN');
end;
case RIDesc.eDelOp of
rintRESTRICT: Lines.Add('RI Delete Qualifier: RESTRICT');
rintCASCADE: Lines.Add('RI Delete Qualifier: CASCADE');
else
Lines.Add('RI Delete Qualifier: UNKNOWN');
end;
Lines.Add('RI Fields in Linking Key: ' + INtToStr(RIDesc.iFldCount));
Temp := '';
for B := 0 to RIDesc.iFldCount - 1 do
Temp := Temp + IntToStr(RIDesc.aiThisTabFld[B]) + ', ';
SetLength(Temp, Length(Temp) - 2);
Lines.Add('RI Key Field Numbers in Table: ' + Temp);
Temp := '';
for B := 0 to RIDesc.iFldCount - 1 do
Temp := Temp + IntToStr(RIDesc.aiOthTabFld[B]) + ', ';
SetLength(Temp, Length(Temp) - 2);
Lines.Add('RI Key Field Numbers in Other Table: ' + Temp);
Lines.Add('');
end;
end;
finally
// All information was retrieved, close the in-memory table...
Check(DbiCloseCursor(hCur));
end;
end;</PRE>
<hr size=2 noshade>
<p>
<A HREF="/devsupport/bde/bdeapiex/index.html">Back to BDE API Reference Page</A>
</TD></TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>
<HR SIZE="2" NOSHADE>
<FONT SIZE = 2><i><b>DISCLAIMER:</b> You have the right to use this technical information subject to
the terms of the No-Nonsense License Statement that you received with the Borland product to which
this information pertains.</FONT></i></B>
</dl>
</td>
</TR>
<TR>
<!-- THIS IS THE BOTTOM COPYRIGHT & UPDATED MESSAGE -->
<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="3"><FONT SIZE="2"><A HREF="/copyright.html">Trademarks & Copyright</A> © 1998 Borland International, Inc.
<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE FROM OLD BROWSERS
// THIS WILL WRITE OUT THE LAST MODIFIED DATE
// YOU DO NOT NEED TO CHANGE ANYTHING HERE
function makeArray(arraySize) {
this.length = arraySize
return this
}
monthNames = new makeArray(12)
monthNames[1] = "January"
monthNames[2] = "February"
monthNames[3] = "March"
monthNames[4] = "April"
monthNames[5] = "May"
monthNames[6] = "June"
monthNames[7] = "July"
monthNames[8] = "August"
monthNames[9] = "September"
monthNames[10] = "October"
monthNames[11] = "November"
monthNames[12] = "December"
updated = new Date(document.lastModified)
theMonth = monthNames[updated.getMonth() + 1]
theDate = updated.getDate()
theYear = updated.getYear() + 1900
document.write("Last modified on " + theDate + "-" + theMonth + "-" + theYear + ".")
// END HIDING -->
</SCRIPT></FONT></TD>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -