摘要：
《一道褒贬不一的 SQL 考试题》playyuer 命题,playyuer、ccat 撰稿相信有不少网友最近在网上见过一则名为《一道褒贬不一的 SQL 考试题》的帖子,这份试题应当说还是有很多值得思考的地方。有兴趣的读者可以在阅读本文的答案分析部分之前,尝试着作一下,如果你可以顺利地完成,至少说明你是一个有经验的 SQL 使用者。下面我们先看一下题设:二维表 T(F1,F2,F3,F4,F5,F6,F7) 表示如下关系:┌──────────┬──────────┬──────────┬──────────┬──────────┬──────────┬──────────┐│ 学生ID │ 学 阅读全文
摘要：
--创建如下用户自定义函数(UDF)CREATE FUNCTION StrComp(@Str1 VARCHAR(50),@Str2 VARCHAR(50))--ALTER FUNCTION StrComp(@Str1 VARCHAR(50),@Str2 VARCHAR(50))RETURNS INTEGERASBEGIN DECLARE @i INTEGER --DECLARE @Str1 VARCHAR(50) --DECLARE @Str2 VARCHAR(50) DECLARE @y INT --SET @Str1='a' --SET @Str2='A' 阅读全文
摘要：
Option ExplicitPrivate Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As LongPrivate Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal 阅读全文
摘要：
'引用 Microsoft OLE DB Service Component 1.0 Type LibraryOption ExplicitPrivate Sub Command1_Click()Dim x As New MSDASC.DataLinksx.hWnd = Me.hWndDim s As StringOn Error GoTo ErrorHandlers = x.PromptNewOn Error GoTo 0If VBA.Len(VBA.Trim(s & "")) > 0 ThenDim CommonDialog1 As New MSC 阅读全文
摘要：
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>自定义鼠标右键弹出式菜单</title><style type="text/css"><!--.div1 {border-top:buttonface 1px solid;border-left:buttonface 1px solid;border-bottom:windowframe 阅读全文
摘要：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><!-- JavaScript 实现动态增加、删除表单域 --><HTML><HEAD><TITLE> New Document </TITLE><SCRIPT LANGUAGE="JavaScript"><!--var i=0function Add(){var temp = document.body.children.item(0).ro 阅读全文
摘要：
要有一定的网页知识(HTML、JavaScript、CSS)注意细节:没有"滚动条"和"鼠标右键弹出的 IE 上下文菜单",".HTM 源文件" ...我写了一个,效果还真不错!'Objects: Form1、Command1、CommonDialog1、WebBrowser1Option ExplicitPrivate Sub Command1_Click()CommonDialog1.ShowOpenIf VBA.Len(VBA.Trim(CommonDialog1.FileName)) > 0 Then Dim p 阅读全文
摘要：
Option ExplicitPrivate Type INTERNET_PROXY_INFO dwAccessType As Long lpszProxy As Long lpszProxyBypass As LongEnd TypePrivate Const INTERNET_OPTION_PROXY = 38Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dw 阅读全文
摘要：
VB + Winsock + CGI 实现 QQ (OICQ) 在线检测(支持代理服务器)!标准 EXE 例程下载http://microinfo.top263.net/Zip/WskQQExe.zip'请先 "引用" -> "浏览" -> "Windows 目录/SYSTEM/MSWINSCK.OCX"Option ExplicitDim sResponse As StringDim WithEvents WinsockX As MSWinsockLib.WinsockDim WithEvents Winsock 阅读全文
摘要：
如何调试 VB 6 的安装源程序 Setup1.VBP 方法一: 1.随便运行一个已经打好包的 Setup.exe,不要再做其他响应了! 例如: D:/MyVBP/SetupDemo/包/Setup.exe (此时出现 "XX 安装程序",不要做任何响应) 2.用 VB6 打开 /VB98/Wizards/PDWizard/Setup1/SETUP1.VBP 修改 SETUP1.VBP 的 工程属性 => 生成 => 命令行参数 为适应你的! 如: D:/MyVBP/SetupDemo/包/Setup.exe c:/windows/st6unst.001 c:/ 阅读全文