81398.htm

在天极网上发布的各类delphi原码及技巧文档

 SCHEMACACHESIZE=8<br>
 LANGDRIVER=<br>
 SQLQRYMODE=<br>
 SQLPASSTHRUMODE=NOTSHARED<br>
 SCHEMACACHETIME=－1<br>
 PASSWORD=masterkey</p>
 </blockquote>
 </blockquote>
 <p>　　8.将TDatabase的属性LoginPrompt 设置成‘False’，如用户在ParameterOverrides框中给出了正确的PASSWORD，连接数据库时将不会提示要求输入口令。请注意：如果在ParameterOverrides 框中给出的PASSWORD不正确，而TDatabase的属性LoginPrompt设置为‘False’，程序运行时将出错，但并不会提示要求重新输入正确口令。Intrbase安装 后，系统唯一授权的用户是SYSDBA，缺省口令是“masterkey”,所有其他的用户都必须由SYSDBA添加，所以在Intrbase系统安装后要尽快更改用户SYSDBA 的口令。</p>
 <p> 　　9、10、12步同上文的8、9、11步。 <br>
 　　11.将TDataSource的DataSet属 性设置成‘Query1’。<br>
 　　13.在Tbutton的OnClick事件过 程中加入下列代码：</p>
 <blockquote> 
 <blockquote> 
 <p>procedureTForm1.Button1Click(Sender:Tobject); <br>
 begin<br>
 Query1.SQL.Clear; <br>
 Query1.SQL.ADD(‘SELECT DISTINCT＊FROMCUSTOMERC,SALESSWHERE 
 (S.CUST_NO=C.CUST_NO)ORDERBYC.CUST_NO,C.CUSTOMER’);<br>
 Query1.Active:=True; <br>
 end;</p>
 </blockquote>
 </blockquote>
 <p>　　14.运行程序。<br>
 　　过程MyAddStandAlias的参数可以 通过各种方式赋值。目录、服务器名、路径、数据库名和其他别名所需的参 数都可以通过输入对话框或从.INI文件读入程序中。通过以上方法建立的别名只在程序运行时存在，其他应用程序不能使用。</p>
 <p><strong>利用Session建立、修改、删除别名</strong><font
color="#0000FF"><br>
 </font> 　　所有数据库管理应用程序 都自动提供一个名为Session的Session组件。每个和数据库程序相关的数 
 据集组件都包含SessionName属性，它决定了和该组件相关的Session组件。 因为Session封装了一系列数据库连接特性，大部分Session组件的方法都通过BDE别名工作。每个和Session有关联的数据库组件都有别名(尽管在 处理PARADOX和DBASE数据库时，完整的路径可以取代别名)，通过Session可以检测和决定别名的可见性、跟踪别名名和其他连接驱动信息以及建立、 修改和删除别名。</p>
 <p> 　　Session的设置模式(ConfigMode) 属性，决定了什么样的BDE别名对它是可见的。默认设置是cmAll，它可解释成[cfmVirtualorcfmPersistent]。如果设置模式值为cmAll，由Session建立的所有别名、用户系统BDE设置文件中预定义的别名以及BDE在内存中维护的所有别名均可见。</p>
 <p> 　　设置模式的主要目的是，允许应用程序详细说明和限定别名在Session级别上的可见性。例如把设置模式 设置成[cfmSession]，可使Session只可见那些由其建立的别名，所有其他的别名都无效。</p>
 <p> 　　当别名在Session存在期间建立后，BDE在内存中建立一个它的拷贝。这个局部拷贝只对建立它的Session 有效，除非在同一个应用程序中其他Session的模式设置成cmAll或cfmPersistent。 
 </p>
 <p> 　　使用Session的SaveConfigFile方法，可以将内存中的别名写入BDE设置文件中，这样其他BDE允许的应用程序就可以使用该别名。</p>
 <p> 　　Session组件有五个方法，允许应用程序跟踪BDE别名的参数和驱动程序等信息：</p>
 <blockquote> 
 <blockquote> 
 <p> GetAliasNames：列出Session已经处理过的别名；<br>
 GetAliasParams：列出指定的别名的参数；<br>
 GetAliasDriverName：返回包含别名使用的驱动程序名的字符串；<br>
 GetDriverNames：返回所有有效的BDE驱动程序；<br>
 GetDriverParams：返回指定的驱动程序的驱动参数。</p>
 </blockquote>
 </blockquote>
 <p>　　Session可以在其存在期间建立、修改和删除别名。方法AddAlias为SQL数据库服务器建立一个新的BDE据工作区。方法AddStandardAlias为PARADOX、DBASE、ASCII表建立一个新的BDE标准别名。</p>
 <p> 　　AddAlias需要三个参数：一个包含别名工作区名的字符串、一个说明SQL连接驱动类型的字符串、一个汇集连接参数的列表字符串，其格式为：</p>
 <blockquote> 
 <blockquote> 
 <p> procedureAddAlias(constName, Driver:string;List:TStrings);</p>
 </blockquote>
 </blockquote>
 <p> 　　AddStandardAlias需要三个参数：别名名、PARADOX和DBASE表存放的完整路径、当试图打开一个没有扩展名表时的默认驱动类型，其格式为：</p>
 <blockquote> 
 <blockquote> 
 <p> procedureAddStandardAlias(const Name,Path,DefaultDriver:string);</p>
 </blockquote>
 </blockquote>
 <p> 　　当为Session添加一个别名时，它仅对该Session和其他设置模式值为cfmPersistent的Session有效。为了使新建的别名对所有的应用程序有效，在建立别名后应该调用SaveConfigFile方法。</p>
 <p> 　　修改别名可以调用过程ModifyAlias，它需要二个参数：将要修改的别名名和包含修改后连接参数值的列表串，格式为：</p>
 <blockquote> 
 <blockquote> 
 <p> procedureModifyAlias(Name: string;List:TStrings);</p>
 </blockquote>
 </blockquote>
 <p> 　　方法DeleteAlias可以使别名对Session 无效，但它不会删除写入BDE设置文件的别名。如果要将其从BDE设置文件中删除，需要在调用DeleteAlias后再调用SaveConfigFile。DeleteAlias只需一个参数：别名名。其格式为：</p>
 <blockquote> 
 <blockquote>
 <p> procedureDeleteAlias(const Name:string);</p>
 </blockquote>
 </blockquote>
 <p> 　　利用Session操作别名具有更大的灵活性，将给编程和发布程序尤其是C/S应用程序带来很大方便。以上例程在Win95、Delphi3.0下调试通过。<br></p>
 


</td></tr></table><br><img src="/xslimages/content/buttom.gif" align="absmiddle"></img>
        相关内容
        <br><ul><a href="/33554432/34603008/34668544/34672640/34672672/81423.htm">用Delphi实现将纯文本资料转入数据库<br><br></a><a href="/33554432/34603008/34668544/34672640/34672672/80256.htm">Delphi编程实现3DS动画的播放<br><br></a><a href="/33554432/34603008/34668544/34672640/34672672/80255.htm">在DBGrid中实现Copy、Paste功能<br><br></a></ul><br><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
            相关链接
          </font><br><ul></ul><a href=""><font color="#FF9900"><font color="#CC0000"></font></font></a><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
               更多的
                </font><br><table width="70%"><tr><td width="30%" valign="top" align="left"><ul></ul></td><td width="30%" valign="top" align="left"></td></tr></table></td></tr></table><table width="98%" border="0" cellspacing="0"><tr><td width="85%" height="19" align="center" bgcolor="#FDF0C4"><a href="mailto:[e-mail]">
      本文版权归作者和天极网共同所有，如有任何版权问题，请与我们联系。
        </a></td><td width="15%" bgcolor="#FFCC66" height="19">
          【
          <a href="/index.htm">
            回首页
          </a>
          】
        </td></tr></table><br></td><td colspan="2" valign="top" width="25%" bgcolor="#eeeeee"><table width="97%" align="center"><tr><td bgcolor="#ff9900" width="182" height="15"></td></tr></table><table width="97%" border="0" cellpadding="3" align="center"><tr><td valign="top" height="23" border="1" bgcolor="#eeeeee" cellspacing="0" bordercolor="#ff9900"><div align="center">
             火热链接
          </div></td></tr><tr bgcolor="#F5F5F5"><td width="27%" height="20" align="left"><div align="left"><a href="/33554432/36700160/116464.htm">淄博广电被罚 吉通陪绑……</a><br><a href="/33554432/36700160/116429.htm">图文：首信公司与ECnet建全球B2B采购网</a><br><a href="/33554432/36700160/116416.htm">“反色情”触及儿童网站</a><br><a href="/33554432/36700160/116409.htm">WAP，未来的未来</a><br><a href="/33554432/36700160/116406.htm">日本：5年后IT业超美国</a><br><a href="/33554432/36700160/116394.htm">美国在线和时代华纳：引判例对付审查</a><br><a href="/33554432/36700160/116367.htm">WAP收费标准再次推迟出台</a><br><a href="/33554432/36700160/116348.htm">网络经济任重道远</a><br><a href="/33554432/36700160/116319.htm">苹果：我们并未对任何人施压</a><br><a href="/33554432/36700160/116322.htm">法官的离职不会影响微软案</a><br></div></td></tr></table><br><table width="97%" border="0" cellpadding="3" align="center"><tr bgcolor="#ff9900"><td valign="top" height="20"><div align="center">
            
            天极搜索
          </div></td></tr><tr bgcolor="#F5F5F5"><form action="http://search.yesky.com/servlet/search" method="post" name="search" onsubmit="form_onsubmit(); return ValidationPassed;"><td width="27%" height="20" align="center"><div><script language="javascript">
          function form_onsubmit() {
            ValidationPassed = true ;
            if (document.search.keyword.value=="") {
               alert ("请输入搜索关键字！");
               ValidationPassed=false;
             }
               return ValidationPassed;
           }  
     </script><input name="keyword" id="keyword" class="nava" size="12"></input><input type="hidden" name="classify" value="keyword"></input><input type="hidden" name="no" value="34603008"></input><input onClick="form_onsubmit(this.form);" style="HEIGHT:22px;WIDTH:40px" type="submit" value="搜索" name="submit2"></input></div></td></form></tr></table><div align="left"><font color="#000000"><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10" height="2"><img src="/xslimages/school/pathboy-ruanjian.gif" width="32" height="32"></img></td><td width="186" height="2" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" bgcolor="#6898D0"><tr align="center"><td height="26"><font color="#FFFFFF">
                                          MyDown下载
                                        </font><font class="nava" color="#FFFFFF"></font></td></tr></table></td></tr></table></td></tr></table><table border="0" cellpadding="0" cellspacing="1" width="100%" align="center"><tbody><tr align="left"><td bgcolor="#ffffff"><script type="text/javascript" language="javascript" src="http://www.mydown.com/mydown.js"></script><br></td></tr></tbody></table><table width="100%" align="center"><tr><td align="center"><tr><td align="center"><a href="http://www.hoyodo.com"><img border="0" src="http://www.hoyodo.com/home/images/banner/botton.gif" width="120" height="60"></img></a><br><br><a href="http://e.yesky.com"><img border="0" src="http://e.yesky.com/images/logo_e2.gif" width="120" height="60" alt="天极E时代"></img></a></td></tr></td></tr></table></font></div><br></td></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><a href="/hdong/gao.htm" target="_blank">欢迎投稿</a>|
            <a href="/bill/index.html" target="_blank">市场联系</a>|
            <a href="/serve/dnbjs.htm" target="_blank">关于我们</a>|
            <a href="/maillist/index.html" target="_blank">邮件列表</a>|
            <a href="/hdong/zaopin.html" target="_blank">加入我们</a>|
            <a href="/hdong/xinsi.html" target="_blank">隐私条款</a></div></td></tr></table><hr height="1" size="1" width="760"></hr><td width="57%" valign="top" rowspan="1" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr></tr><tr></tr><tr></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><span class="nava"><font color="#000000" face="Arial, Helvetica, sans-serif">
              Copyright (C) 1999 Yesky.com, All Rights Reserved
            </font><font color="#000000"><br>
              版权所有　 
              <font face="Arial, Helvetica, sans-serif">
              Yesky
              </font></font></span></div></td></tr></table><script> document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?rkai target=_blank> <img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=rkai&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 width=15 height=15></a>");</script><A HREF="http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw" TARGET="_blank"><IMG SRC="http://best.nease.net/cgi-bin/log.cgi?user=cpcw" style="visibility:hidden"/></A><br><iframe frameborder="0" scrolling="no" src="http://count.yesky.com/servlet/count?articleno=81398" height="0" width="100%"></iframe></body>
</html>