自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(0)
  • 资源 (7)
  • 收藏
  • 关注

空空如也

IFIX高级培训教材

IFIX高级培训教材,PDF文档,对学习IFIX的高级应用很有帮助。

2014-04-21

脑图编辑工具

思维导图是有效的思维模式,应用于记忆、学习、思考等的思维“地图”,利于人脑的扩散思维的展开。思维导图已经在全球范围得到广泛应用,包括大量的500强企业。思维导图的创始人是东尼·巴赞。中国应用思维导图大约有20多年时间。

2012-03-27

VB通过配置文件System.ini连接数据库

Public conn As New ADODB.Connection Public nowconnectstring As String Public operatetype As Integer Public Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpAdd As String, ByVal lpFileName As String) As Boolean 'Public pzhm As Variant Public server As String Public loginname As String Public database As String Public pass As String Public path As String Private mSystemData As Object '帐套连接信息对象(帐套名,当前用户等) '=================================================================='定义公用变量 '在工程中新建一模块,并将以下代码加入到该的模块中(即module1.bas) Public tmpDataGrid As DataGrid '用与确定要实现滚动的DataGrid控件 Public tmpDataGridRowNum As Long '有多少行数据 Public Const GWL_WNDPROC = (-4) Public Const WM_COMMAND = &H111; Public Const WM_MBUTTONDOWN = &H207; Public Const WM_MBUTTONUP = &H208; Public Const WM_MOUSEWHEEL = &H20A; Public Oldwinproc As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Property Get SystemProfile&#40;&#41; As Object If mSystemProfile Is Nothing Then Set mSystemProfile = GLData.SystemProfile End If Set SystemProfile = mSystemProfile End Property Public Property Set SystemProfile&#40;ByVal NewVal As Object&#41; Set mSystemProfile = NewVal Set GLData.SystemProfile = NewVal End Property Public Property Get SystemData() As Object If mSystemData Is Nothing Then Set mSystemData = CreateObject("EBCBase.ClientBase").SystemData End If Set SystemData = mSystemData End Property '====================================== '数据库链接 Public Function connectstring() As String If Len(GetFromINI("数据库信息", "数据库", App.path + "\system.ini")) = 0 Then MsgBox "没有连接数据库", vbOKOnly, "警告" Else connectstring = GetFromINI("数据库信息", "数据库", App.path + "\system.ini") server = GetFromINI("数据库信息", "server", App.path + "\system.ini") loginname = GetFromINI("数据库信息", "loginname", App.path + "\system.ini") database = GetFromINI("数据库信息", "database", App.path + "\system.ini") pass = GetFromINI("数据库信息", "pass", App.path + "\system.ini ") path = GetFromINI("数据库信息", "path", App.path + "\system.ini ") End If End Function Public Function GetFromINI(AppName As String, KeyName As String, filename As String) As String Dim RetStr As String RetStr = String(255, Chr(0)) GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename)) End Function Public Sub data_open() nowconnectstring = connectstring If conn.state <> 1 Then conn.CursorLocation = adUseClient conn.Open nowconnectstring End If End Sub 调用data_open方法

2012-03-09

win亿图9画图软件

亿图画图工具,含有大量的图形素材,涉及各个行业的标准绘图工具。亿图画图工具,含有大量的图形素材,涉及各个行业的标准绘图工具。亿图画图工具,含有大量的图形素材,涉及各个行业的标准绘图工具

2020-06-12

飞鸽安装文件,即时通讯

飞鸽,即时通讯软件,文件传输,传输的速度快,是便捷的局域网办公软件。

2020-06-12

PMBOK第六版官方中文版下载

PMBOK第六版官方中文版,项目管理体系认证专业书籍,PMP认证学习教材

2018-08-22

VC串口通讯调试程序

一款基于vc的串口调试程序,包含源代码及示例,串口调试助手3.0

2015-03-09

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除