问一个Access的简单问题

2004-11-20 11:10:28 207 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

一个简单的C#的ACCESS操作类这几天一直在忙着用C#+ACCESS写一个winform应用程序，用到从ACCESS数据库查询，并且将数据返回到datagridview中。由于没有用.net开发的经验，连接ACCESS数据库花费了点精力，最后发现其实要绑定数据到datagridview中，只需把datagridview的datasource设为从数据库读出的datatable就可以了，寻着这个思路，自己写了一个ACCESS的阅读详情

我建了一个数据库和一些窗体,我已经设定了一个启动窗体,我如何才能实现用户只看到启动窗体,并可以对窗体进行操作,我如何实现客户不能看到里面的数据,表,和查询等,是不是生成.MDE就可以实现?

...全文

EDA与机器学习融合：智能优化芯片设计流程的工程实践机器学习作为数据驱动的核心技术，通过从历史数据中学习复杂模式，实现对系统行为的预测与优化。其原理在于构建模型，将输入特征映射到目标变量，从而揭示数据背后的内在规律。在工程领域，这项技术的核心价值在于能够将专家经验转化为可量化、可复用的智能模型，显著提升自动化水平与决策效率。电子设计自动化（EDA）是芯片设计的关键支撑，传统流程高度依赖人工试错，面临参数空间巨大、优化周期长等挑战。将机器学习应用于EDA，能够构建预测模型来预估设计性能（PPA），或通过代理模型加速设计空间探索，实现智能化的设计辅助与优化。本文阅读详情

Javaxhb

Access 7,731 成员 28,797 内容

+ 关注 + 加入社区

切换为时间正序

OracleRoob 2004-11-21

打赏
举报

我以前用过Access的安装程序，很不爽，所以一般需要你在那台机子上装Access，然后把你屏蔽掉Shift键后生成的MDE直接拷过去就行了。
另外，若mde名字为mydb，且同目录下存在一个同名的mydb.bmp文件，必须是bmp格式，其他格式不管用，会以此图片替换Access的默认启动图片!

OracleRoob 2004-11-21

打赏
举报

上面代码是从一个程序中拷出来的，可能有些问题，请使用如下代码：
为了防止锁定一个MDB后，无法解锁，可以做一个第三方程序，用来加锁、解锁MDB，
其中Set dbs = CurrentDb
要换成Set dbs = DBEngine(0).OpenDatabase(Me.txtPath)

Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

Dim dbs As DAO.Database, prp As Variant
Const conPropNotFoundError = 3270
On Error GoTo myHandle

Set dbs = CurrentDb

On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
myHandle:
If Err.Number = 3024 Then
MsgBox "Â·¾¶ÊäÈë²»ÕýÈ·£¡", vbInformation, "°²È«¹ÜÀí"
Else
MsgBox Err.Number & Err.Description
End If

End Function

'加锁
Public Sub Lock_MDB()
Const DB_Boolean As Long = 1

ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowShortcutMenus", DB_Boolean, False
ChangeProperty "AllowToolbarChanges", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, False
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, False
ChangeProperty "AllowBypassKey", DB_Boolean, False
MsgBox "Locked"
End Sub

'解锁
Public Sub Un_lock_MDB()

Const DB_Boolean As Long = 1

ChangeProperty "StartupShowDBWindow", DB_Boolean, True
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowShortcutMenus", DB_Boolean, True
ChangeProperty "AllowToolbarChanges", DB_Boolean, True
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, True
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
MsgBox "Unlocked"
End Sub

Javaxhb 2004-11-21

打赏
举报

问最后一个问题,马上结帖,这样的.MDE能不能象VB一样做一个安装程序,安装一下就可以在别的机子上运行?还是直接把.MDE文件拷贝到别的机子上就可以运行?

OracleRoob 2004-11-21

打赏
举报

这是在MDB中用的，ADP的与此有些差别!

OracleRoob 2004-11-21

打赏
举报

注意：加锁前先备份，以免加锁后，无解锁入口!

OracleRoob 2004-11-21

打赏
举报

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

Dim dbs As DAO.Database, prp As Variant
Const conPropNotFoundError = 3270
On Error GoTo myHandle
Set dbs = DBEngine(0).OpenDatabase(Me.txtPath)

'Set dbs = CurrentDb

On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
myHandle:
If Err.Number = 3024 Then
MsgBox "路径输入不正确！", vbInformation, "安全管理"
Else
MsgBox Err.Number & Err.Description
End If

End Function

'加锁：
public sub Lock()
Const DB_Boolean As Long = 1

ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowShortcutMenus", DB_Boolean, False
ChangeProperty "AllowToolbarChanges", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, False
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, False
ChangeProperty "AllowBypassKey", DB_Boolean, False
msgbox "Locked"
end

'解锁：
public sub UnLock()
Const DB_Boolean As Long = 1

ChangeProperty "StartupShowDBWindow", DB_Boolean, True
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowShortcutMenus", DB_Boolean, True
ChangeProperty "AllowToolbarChanges", DB_Boolean, True
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, True
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
msgbox "Unlocked"
end sub

Javaxhb 2004-11-21

打赏
举报

怎么屏蔽掉Shift键?在线等!

OracleRoob 2004-11-21

打赏
举报

可以屏蔽掉Shift键!

swank_tc 2004-11-21

打赏
举报

生成Mde后，用户在打开时按住Shift一样可以看到里面的数据表、报表、查询等内容，只是用户不能对窗体和表结构进行更改而以！

问一个Access的简单问题

相关推荐