加载中
App

'************************************************************************************************ '* 功能 : 入口 '* 参数 : '* 返回值: '* 备注 : '***************************...

2018/08/08 07:20
2
Maon

Option Explicit Option Base 1 'config数据二维数组 Public ConfigData() As String Private End_Row As Integer '********************************************************************...

2018/08/08 07:20
6
util

' 当日是否为休日 Public g_IsHoliday As Boolean ' 当前时间 年月日 Public g_Date As String ' 当前时间 日 Public g_WeekDay As String ' 当前时间 星期几 Public g_Day As String ' 当前...

2018/08/08 07:19
43
Mail

Option Explicit Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long '************************************************************...

2018/08/08 07:19
150
Log

Option Explicit ' Log文件的文件夹? Public Const Log_Dir = "\Log" ' Log类型 Public Const Log_Debug = " 调试 " Public Const Log_Prompt = " 提示 " Public Const Log_Warning = " 警告...

2018/08/08 07:18
2
db

Option Explicit Public m_Conn As New ADODB.Connection Public m_Rec As New ADODB.Recordset Public m_Comm As New ADODB.Command ' 用户? Private Const DB_UserId = "vbatest" 'Privat...

2018/08/08 07:17
40
Test

test

2018/08/08 07:15
1

没有更多内容

加载失败,请刷新页面

没有更多内容

返回顶部
顶部