尺寸 '------------------------------------------------------------ ' 打开 {HKEY_LOCAL_MACHINE...} 下的 RegKey '------------------------------------------------------------ rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' 打开注册表关键字 If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' 处理错误... tmpVal = String$(1024, 0) ' 分配变量空间 KeyValSize = 1024 ' 标记变量尺寸 '------------------------------------------------------------ ' 检索注册表关键字的值... '------------------------------------------------------------ rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) ' 获得/创建关键字值 If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' 处理错误 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 外接程序空终结字符串... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null 被找到,从字符串中分离出来 Else ' WinNT 没有空终结
字符串... tmpVal = Left(tmpVal, KeyValSize) ' Null 没有被找到, 分离字符串 End If '------------------------------------------------------------ ' 决定转换的关键字的值类型... '------------------------------------------------------------ Select Case KeyValType ' 搜索数据类型... Case REG_SZ ' 字符串注册关键字数据类型 KeyVal = tmpVal ' 复制字符串的值 Case REG_DWORD ' 四字节的注册表关键字数据类型 For i = Len(tmpVal) To 1 Step -1 ' 将每位进行转换 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' 生成值字符。 By Char。 Next KeyVal = Format$(\+ KeyVal) ' 转换四字节的字符为字符串 End Select GetKeyValue = True ' 返回成功 rc = RegCloseKey(hKey) ' 关闭注册表关键字 Exit Function ' 退出 GetKeyError: ' 错误发生后将其清除...
KeyVal = \ ' 设置返回值到空字符串 GetKeyValue = False ' 返回失败 rc = RegCloseKey(hKey) ' 关闭注册表关键字 End Function 7.3、档案的录入、编辑、删除、刷新 本部分程序主要是把车站的档案录入计算机数据库档案表里，并提供编辑、删除等功能，能快捷、高效地把用纸张记录的档案内容用数字的形式存储在计算机里，适应现代化的办公系统的需要，以对信息进行高效、快速的查询、修改。系统的录入界面如下： frm档案 Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean Dim mvBookMark As Variant Dim mbEditFlag As Boolean Dim mbAddNewFlag As Boolean Dim mbDataChanged As Boolean Private Sub Form_Load() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open \ Set adoPrimaryRS = New Recordset adoPrimaryRS.Open \标题,发文部门,发文号,发文日期,录入人,内容 from 档案\adOpenStatic, adLockOptimistic Dim oText As TextBox '绑定字段到窗体文本框 For Each oText In Me.txtFields Set oText.DataSource = adoPrimaryRS Next mbDataChanged = False End Sub
Private Sub Form_Resize() On Error Resume Next lblStatus.Width = Me.Width - 1500 cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340 End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) '显示记录位置 lblStatus.Caption = \End Sub Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean