'主窗体
Public fMainForm As frmMain
'定义密码
Public str_Quit As String '退出程序密码
Public str_Code As String '初始密码
'定义数据库对象
Public db As Connection '主数据库，所有数据表的集合体。
'定义数据库相关信息
Public i_Plant As Integer '记录装置套数
Public str_PlantName() As String '记录装置名称
Public str_FileName() As String '记录数据文件名称
Public i_FileLength() As Integer '传输数据文件的长度
Public i_DTInfo() As Integer '记录总的数据长度信息
Public i_CoENo() As Integer '记录当前系数编号
Public i_PriceNo() As Integer '记录当前单价编号
Public i_TableInfo() As Integer '记录数据表信息
Public i_Differ() As Integer '记录差值信息
Public bl_DataError() As Boolean '记录数据错误信息
Public strPath As String '记录软件所在目录
Public str_Excel As String
'倒班表数据类型
Private Type Daobanbiao
Banzu As Integer '班组名称，1，2，3，4 分别代表各个班组
Banci As Integer '班次，1-夜班，2-早班，3-中班
End Type
Dim Ban(0 To 23) As Daobanbiao '倒班表
'计算班组，确定给定时间内是什么班
Private Function GetClass(ByVal strdate As Date) As Integer
Dim d As Integer
d = Int(strdate - CDate("2002-01-01"))
Dim i As Integer
i = (d Mod 8 + 8) Mod 8
Dim dt As Integer
dt = Int(Val(Format(strdate, "hh")))
GetClass = i * 3 + Int(dt / 8)
End Function
'取得班组信息
Private Sub GetClassInfo()
Dim i As Integer
Dim rsData As New Recordset
On Error Resume Next
rsData.Open "select * from 倒班表", db, adOpenStatic, adLockOptimistic
- 1
- 2
前往页