www.pudn.com > VB-KAOQINXITONG.zip > frmPubSystemSetup.frm
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{B9D938CE-50EE-40B2-9FA2-79A3112F4788}#4.2#0"; "BNCtrlGroup.ocx"
Begin VB.Form frmPubSystemSetup
Caption = "系统设置"
ClientHeight = 5745
ClientLeft = 2775
ClientTop = 3765
ClientWidth = 7665
Icon = "frmPubSystemSetup.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 7665
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 525
Top = 5100
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin TabDlg.SSTab SSTab1
Height = 4665
Left = 240
TabIndex = 0
Top = 210
Width = 7185
_ExtentX = 12674
_ExtentY = 8229
_Version = 393216
Style = 1
Tabs = 8
Tab = 1
TabsPerRow = 8
TabHeight = 520
TabCaption(0) = "用户信息"
TabPicture(0) = "frmPubSystemSetup.frx":000C
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame2(0)"
Tab(0).Control(1)= "txtDefaultUser"
Tab(0).Control(2)= "txtUserName"
Tab(0).Control(3)= "Label1(3)"
Tab(0).Control(4)= "Label1(0)"
Tab(0).ControlCount= 5
TabCaption(1) = "系统参数"
TabPicture(1) = "frmPubSystemSetup.frx":0028
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label2(1)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label1(4)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label1(6)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label2(6)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label1(13)"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cmdPath(1)"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cmdEventsMonitor"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "cmdIntl"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "txtPath(0)"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "chkErrLog"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "txtDefServer"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "chkPapleCtrl"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "txtDefClient"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "cmdPath(0)"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "chkUpdate"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "chkLockCal"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "chkUseColor"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "txtPath(1)"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "chkRunSingle"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).Control(19)= "chkNetwork"
Tab(1).Control(19).Enabled= 0 'False
Tab(1).Control(20)= "chkAttRptGroup"
Tab(1).Control(20).Enabled= 0 'False
Tab(1).Control(21)= "Frame5"
Tab(1).Control(21).Enabled= 0 'False
Tab(1).Control(22)= "chkSpecCard"
Tab(1).Control(22).Enabled= 0 'False
Tab(1).Control(23)= "txtMsgAdd"
Tab(1).Control(23).Enabled= 0 'False
Tab(1).Control(24)= "chkDptUseTree"
Tab(1).Control(24).Enabled= 0 'False
Tab(1).ControlCount= 25
TabCaption(2) = "考勤设置"
TabPicture(2) = "frmPubSystemSetup.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label1(2)"
Tab(2).Control(1)= "Label3(3)"
Tab(2).Control(2)= "Label3(4)"
Tab(2).Control(3)= "Label1(10)"
Tab(2).Control(4)= "Label3(5)"
Tab(2).Control(5)= "Label3(2)"
Tab(2).Control(6)= "chkAddLater"
Tab(2).Control(7)= "dptTime(2)"
Tab(2).Control(8)= "dptTime(1)"
Tab(2).Control(9)= "dptTime(0)"
Tab(2).Control(10)= "chkNeed30Rnd"
Tab(2).Control(11)= "Frame3"
Tab(2).Control(12)= "chkFeastEquNormal"
Tab(2).Control(13)= "chkCardRange"
Tab(2).Control(14)= "txtMustAdd"
Tab(2).Control(15)= "txtBgnAttend"
Tab(2).Control(16)= "Frame4"
Tab(2).Control(17)= "chkNeedAdd"
Tab(2).Control(18)= "chkMustOver8"
Tab(2).Control(19)= "List1"
Tab(2).ControlCount= 20
TabCaption(3) = "设备设置"
TabPicture(3) = "frmPubSystemSetup.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label1(5)"
Tab(3).Control(1)= "Label2(3)"
Tab(3).Control(2)= "Label2(7)"
Tab(3).Control(3)= "cmdUpdatePath"
Tab(3).Control(4)= "cobDefaultDevice"
Tab(3).Control(5)= "txtUpdatePath"
Tab(3).Control(6)= "txtInstallNote"
Tab(3).Control(7)= "fmControl"
Tab(3).ControlCount= 8
TabCaption(4) = "程序外观"
TabPicture(4) = "frmPubSystemSetup.frx":007C
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Label2(2)"
Tab(4).Control(1)= "Label1(7)"
Tab(4).Control(2)= "lblMainColor"
Tab(4).Control(3)= "Label1(1)"
Tab(4).Control(4)= "Label2(4)"
Tab(4).Control(5)= "Label2(5)"
Tab(4).Control(6)= "cmdBackground(2)"
Tab(4).Control(7)= "cmdBackground(1)"
Tab(4).Control(8)= "cmdBackground(0)"
Tab(4).Control(9)= "cmdDefColor"
Tab(4).Control(10)= "txtBackground(0)"
Tab(4).Control(11)= "cobButtonStyle"
Tab(4).Control(12)= "chkMenubmp"
Tab(4).Control(13)= "txtBackground(1)"
Tab(4).Control(14)= "txtBackground(2)"
Tab(4).ControlCount= 15
TabCaption(5) = "门禁设置"
TabPicture(5) = "frmPubSystemSetup.frx":0098
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "fmSound"
Tab(5).ControlCount= 1
TabCaption(6) = "巡更设置"
TabPicture(6) = "frmPubSystemSetup.frx":00B4
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "Label1(11)"
Tab(6).Control(1)= "txtErrPatrol"
Tab(6).ControlCount= 2
TabCaption(7) = "自动采集"
TabPicture(7) = "frmPubSystemSetup.frx":00D0
Tab(7).ControlEnabled= 0 'False
Tab(7).Control(0)= "Frame1(1)"
Tab(7).Control(1)= "Frame2(1)"
Tab(7).ControlCount= 2
Begin VB.CheckBox chkDptUseTree
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "机构层次编码"
ForeColor = &H80000008&
Height = 240
Left = 2070
TabIndex = 124
Top = 2910
Width = 1500
End
Begin VB.TextBox txtMsgAdd
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 5265
TabIndex = 119
Top = 2175
Width = 1620
End
Begin VB.ListBox List1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Columns = 4
Height = 870
Left = -74745
Style = 1 'Checkbox
TabIndex = 18
Top = 780
Width = 6810
End
Begin VB.TextBox txtErrPatrol
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -73155
TabIndex = 117
Top = 615
Width = 675
End
Begin VB.CheckBox chkSpecCard
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "显示特卡记录"
ForeColor = &H80000008&
Height = 240
Left = 2070
TabIndex = 116
Top = 2610
Width = 1500
End
Begin VB.Frame Frame5
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 915
Left = 4125
TabIndex = 110
Top = 525
Width = 2775
Begin VB.TextBox txtDptNoLen
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 1815
TabIndex = 112
Top = 540
Width = 675
End
Begin VB.TextBox txtEmpNoLen
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 1815
TabIndex = 111
Top = 195
Width = 675
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "最小机构编码长度:"
Height = 180
Index = 9
Left = 135
TabIndex = 114
Top = 585
Width = 1530
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "员工最大编码长度:"
Height = 180
Index = 8
Left = 105
TabIndex = 113
Top = 240
Width = 1530
End
End
Begin VB.CheckBox chkAttRptGroup
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "人员分页打印"
ForeColor = &H80000008&
Height = 240
Left = 2070
TabIndex = 109
Top = 1740
Width = 1500
End
Begin VB.CheckBox chkNetwork
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "是否为网络版"
ForeColor = &H80000008&
Height = 240
Left = 330
TabIndex = 108
Top = 1740
Width = 1500
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 1860
Index = 1
Left = -74775
TabIndex = 99
Top = 510
Width = 6630
Begin VB.CheckBox chkSetup
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "提取完毕后是否自动关机"
ForeColor = &H80000008&
Height = 285
Index = 2
Left = 3360
TabIndex = 102
Top = 840
Width = 2625
End
Begin VB.CheckBox chkWindowRunMode
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "程序后台运行"
ForeColor = &H80000008&
Height = 285
Left = 3360
TabIndex = 101
Top = 405
Width = 2625
End
Begin VB.TextBox txtDownloadDelay
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 1800
TabIndex = 100
Text = "2000"
Top = 1395
Width = 1260
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 1800
TabIndex = 103
Top = 345
Width = 1245
_ExtentX = 2196
_ExtentY = 529
_Version = 393216
CalendarBackColor= 14737632
Format = 23855106
CurrentDate = 36898
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 300
Left = 1800
TabIndex = 104
Top = 862
Width = 1245
_ExtentX = 2196
_ExtentY = 529
_Version = 393216
CalendarBackColor= 14737632
Format = 23855106
CurrentDate = 36898
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "设备间延时(毫秒):"
Height = 180
Index = 12
Left = 210
TabIndex = 107
Top = 1440
Width = 1530
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "停止提取时间:"
Height = 180
Index = 15
Left = 210
TabIndex = 106
Top = 915
Width = 1170
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "开始提取时间:"
Height = 180
Index = 14
Left = 210
TabIndex = 105
Top = 405
Width = 1170
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
Caption = "提取记录的周期"
ForeColor = &H80000008&
Height = 1665
Index = 1
Left = -74775
TabIndex = 94
Top = 2610
Width = 6630
Begin VB.ListBox lstPick
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Columns = 4
Height = 1290
Left = 1770
MultiSelect = 1 'Simple
TabIndex = 98
Top = 240
Width = 4620
End
Begin VB.OptionButton optPeriod
Appearance = 0 'Flat
Caption = "按天提取"
ForeColor = &H80000008&
Height = 300
Index = 0
Left = 255
TabIndex = 97
Top = 390
Value = -1 'True
Width = 1395
End
Begin VB.OptionButton optPeriod
Appearance = 0 'Flat
Caption = "按星期提取"
ForeColor = &H80000008&
Height = 300
Index = 1
Left = 255
TabIndex = 96
Top = 780
Width = 1395
End
Begin VB.OptionButton optPeriod
Appearance = 0 'Flat
Caption = "按月提取"
ForeColor = &H80000008&
Height = 300
Index = 2
Left = 255
TabIndex = 95
Top = 1200
Width = 1395
End
End
Begin VB.Frame fmControl
Appearance = 0 'Flat
Caption = "设备控制"
ForeColor = &H80000008&
Height = 1770
Left = -74670
TabIndex = 42
Top = 1260
Width = 6525
Begin VB.CheckBox chkDistinctCard
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "忽略重复记录"
ForeColor = &H80000008&
Height = 240
Left = 2700
TabIndex = 123
Top = 1335
Width = 1500
End
Begin VB.CheckBox chkCardBackup
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "下载并备份打卡数据"
ForeColor = &H80000008&
Height = 240
Left = 210
TabIndex = 91
Top = 1350
Width = 2055
End
Begin VB.TextBox txtDevPort
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 3960
TabIndex = 90
Text = "COM2"
Top = 848
Width = 885
End
Begin VB.TextBox txtIssuePort
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 285
Left = 3960
TabIndex = 89
Text = "COM1"
Top = 383
Width = 885
End
Begin VB.CheckBox chkAutoCtl
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "数据采集自动控制"
ForeColor = &H80000008&
Height = 240
Index = 0
Left = 210
TabIndex = 27
Top = 420
Width = 2055
End
Begin VB.CheckBox chkAutoCtl
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "权限下载自动控制"
ForeColor = &H80000008&
Height = 240
Index = 1
Left = 210
TabIndex = 28
Top = 885
Width = 2055
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "设备缺省串口:"
Height = 180
Index = 0
Left = 2700
TabIndex = 93
Top = 915
Width = 1170
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "发卡缺省串口:"
Height = 180
Index = 1
Left = 2700
TabIndex = 92
Top = 450
Width = 1170
End
End
Begin VB.TextBox txtInstallNote
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 750
Left = -73425
MultiLine = -1 'True
TabIndex = 88
Top = 3600
Width = 5205
End
Begin VB.CheckBox chkMustOver8
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "总工时超过应上工时计加班"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 86
Top = 1830
Width = 2520
End
Begin VB.CheckBox chkNeedAdd
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "是否需要加班单"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 85
Top = 3054
Width = 2520
End
Begin VB.CheckBox chkRunSingle
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "单一窗体显示"
ForeColor = &H80000008&
Height = 240
Left = 330
TabIndex = 84
Top = 2610
Width = 1500
End
Begin VB.Frame fmSound
Appearance = 0 'Flat
Caption = "报警效果设置"
ForeColor = &H80000008&
Height = 1575
Left = -74700
TabIndex = 74
Top = 600
Width = 6660
Begin VB.TextBox txtSoundFile
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 285
Index = 0
Left = 945
Locked = -1 'True
TabIndex = 80
Top = 330
Width = 5130
End
Begin VB.CheckBox chkSound
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "开门"
ForeColor = &H80000008&
Height = 300
Index = 0
Left = 120
TabIndex = 79
Top = 330
Width = 765
End
Begin VB.TextBox txtSoundFile
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 285
Index = 1
Left = 960
Locked = -1 'True
TabIndex = 78
Top = 720
Width = 5130
End
Begin VB.CheckBox chkSound
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "关门"
ForeColor = &H80000008&
Height = 300
Index = 1
Left = 120
TabIndex = 77
Top = 720
Width = 765
End
Begin VB.TextBox txtSoundFile
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 285
Index = 2
Left = 960
Locked = -1 'True
TabIndex = 76
Top = 1125
Width = 5130
End
Begin VB.CheckBox chkSound
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "故障"
ForeColor = &H80000008&
Height = 300
Index = 2
Left = 120
TabIndex = 75
Top = 1110
Width = 765
End
Begin BNCtrlGroup.BNButton cmdSoundBrowser
Height = 300
Index = 0
Left = 6165
TabIndex = 81
Tag = "Browser"
Top = 330
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdSoundBrowser
Height = 300
Index = 1
Left = 6165
TabIndex = 82
Tag = "Browser"
Top = 720
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdSoundBrowser
Height = 300
Index = 2
Left = 6165
TabIndex = 83
Tag = "Browser"
Top = 1110
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
End
Begin VB.Frame Frame4
Appearance = 0 'Flat
Caption = "日工时包含："
ForeColor = &H80000008&
Height = 945
Left = -72120
TabIndex = 69
Top = 1755
Width = 4185
Begin VB.CheckBox chkHaveAdd
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "平日加班"
ForeColor = &H80000008&
Height = 240
Left = 2160
TabIndex = 73
Top = 300
Width = 1665
End
Begin VB.CheckBox chkHaveFeastRest
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "法定假及休工时"
ForeColor = &H80000008&
Height = 240
Left = 2160
TabIndex = 72
Top = 585
Width = 1665
End
Begin VB.CheckBox chkHaveLate
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "迟到早退及扣罚"
ForeColor = &H80000008&
Height = 240
Left = 225
TabIndex = 71
Top = 585
Width = 1665
End
Begin VB.CheckBox chkHaveAbsent
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "旷工"
ForeColor = &H80000008&
Height = 240
Left = 240
TabIndex = 70
Top = 300
Width = 1665
End
End
Begin VB.TextBox txtPath
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Index = 1
Left = 1605
TabIndex = 67
Top = 960
Width = 1890
End
Begin VB.TextBox txtBackground
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Index = 2
Left = -73200
TabIndex = 63
Top = 2475
Width = 4650
End
Begin VB.TextBox txtBackground
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Index = 1
Left = -73215
TabIndex = 60
Top = 2085
Width = 4650
End
Begin VB.TextBox txtBgnAttend
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -72660
MaxLength = 2
TabIndex = 58
Text = "1"
Top = 4125
Width = 390
End
Begin VB.TextBox txtMustAdd
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -70770
TabIndex = 54
Text = "0"
Top = 4125
Width = 1275
End
Begin VB.CheckBox chkCardRange
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "只使用一个打卡时间范围"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 20
Top = 2442
Width = 2520
End
Begin VB.CheckBox chkUseColor
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "人员语法错误"
ForeColor = &H80000008&
Height = 240
Left = 330
TabIndex = 13
Top = 2910
Width = 1500
End
Begin VB.CheckBox chkFeastEquNormal
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "法定假工时分解"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 23
Top = 2748
Width = 2520
End
Begin VB.CheckBox chkLockCal
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "数据计算锁定"
ForeColor = &H80000008&
Height = 240
Left = 2070
TabIndex = 12
Top = 2025
Width = 1500
End
Begin VB.Frame Frame3
Appearance = 0 'Flat
Caption = "迟到早退标准"
ForeColor = &H80000008&
Height = 1020
Left = -69345
TabIndex = 51
Top = 2805
Width = 1425
Begin VB.OptionButton optLEStandard
Appearance = 0 'Flat
Caption = "按小时计"
ForeColor = &H80000008&
Height = 255
Index = 1
Left = 120
TabIndex = 22
Top = 630
Width = 1065
End
Begin VB.OptionButton optLEStandard
Appearance = 0 'Flat
Caption = "按分钟计"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 120
TabIndex = 21
Top = 300
Value = -1 'True
Width = 1110
End
End
Begin VB.TextBox txtUpdatePath
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -73425
TabIndex = 29
Top = 3240
Width = 4800
End
Begin VB.CheckBox chkUpdate
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "系统数据升级"
ForeColor = &H80000008&
Height = 240
Left = 330
TabIndex = 11
Top = 2325
Width = 1500
End
Begin VB.CheckBox chkMenubmp
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "需要图形菜单"
ForeColor = &H80000008&
Height = 240
Left = -69825
TabIndex = 36
Top = 825
Width = 1620
End
Begin BNCtrlGroup.BNComboBox cobButtonStyle
Height = 300
Left = -73215
TabIndex = 33
Top = 1235
Width = 5055
_ExtentX = 0
_ExtentY = 0
BackColor = 14737632
BackColor = 14737632
BackColor = 14737632
End
Begin VB.TextBox txtBackground
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Index = 0
Left = -73215
TabIndex = 34
Top = 1690
Width = 4650
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
Caption = " 外挂程序管理 "
ForeColor = &H80000008&
Height = 2520
Index = 0
Left = -74730
TabIndex = 46
Top = 1755
Width = 6420
Begin VB.ListBox lstProgram
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 1470
Left = 1305
TabIndex = 3
Top = 330
Width = 4980
End
Begin BNCtrlGroup.BNButton cmdFile
Height = 360
Index = 0
Left = 105
TabIndex = 4
Tag = "Add"
Top = 330
Width = 1125
_ExtentX = 1984
_ExtentY = 635
Caption = "添 加"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdFile
Height = 360
Index = 1
Left = 90
TabIndex = 5
Tag = "Edit"
Top = 840
Width = 1125
_ExtentX = 1984
_ExtentY = 635
Caption = "编 辑"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdFile
Height = 360
Index = 2
Left = 105
TabIndex = 6
Tag = "Delete"
Top = 1350
Width = 1125
_ExtentX = 1984
_ExtentY = 635
Caption = "删 除"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
End
Begin BNCtrlGroup.BNButton cmdPath
Height = 300
Index = 0
Left = 3495
TabIndex = 8
Tag = "Browser"
Top = 615
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin VB.TextBox txtDefClient
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 5265
TabIndex = 14
Top = 1545
Width = 1620
End
Begin BNCtrlGroup.BNComboBox cobDefaultDevice
Height = 300
Left = -73620
TabIndex = 26
Top = 750
Width = 5475
_ExtentX = 0
_ExtentY = 0
BackColor = 14737632
BackColor = 14737632
BackColor = 14737632
End
Begin VB.CheckBox chkPapleCtrl
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "纸张自动调节"
ForeColor = &H80000008&
Height = 240
Left = 2070
TabIndex = 10
Top = 2325
Width = 1500
End
Begin VB.CheckBox chkNeed30Rnd
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "对打卡数据进行30分钟修正"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 19
Top = 2136
Width = 2520
End
Begin VB.TextBox txtDefServer
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 5265
TabIndex = 15
Top = 1860
Width = 1620
End
Begin VB.TextBox txtDefaultUser
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -73335
MaxLength = 10
TabIndex = 2
Text = "SA"
Top = 1185
Width = 4995
End
Begin VB.CheckBox chkErrLog
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "允许错误监视"
ForeColor = &H80000008&
Height = 240
Left = 330
TabIndex = 9
Top = 2025
Width = 1500
End
Begin VB.TextBox txtPath
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Index = 0
Left = 1605
TabIndex = 7
Top = 630
Width = 1890
End
Begin VB.TextBox txtUserName
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = -73335
TabIndex = 1
Top = 780
Width = 4995
End
Begin BNCtrlGroup.BNButton cmdIntl
Height = 405
Left = 5700
TabIndex = 17
Tag = "international"
Top = 3735
Width = 1260
_ExtentX = 2223
_ExtentY = 714
Caption = "区域设置"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdDefColor
Height = 330
Left = -72135
TabIndex = 32
Tag = "PickColor"
Top = 780
Width = 1275
_ExtentX = 2249
_ExtentY = 582
Caption = "缺省色调"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdBackground
Height = 300
Index = 0
Left = -68490
TabIndex = 35
Tag = "Browser"
Top = 1675
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdUpdatePath
Height = 300
Left = -68565
TabIndex = 30
Tag = "Browser"
Top = 3225
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin MSComCtl2.DTPicker dptTime
BeginProperty DataFormat
Type = 1
Format = "HH:mm"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 4
EndProperty
Height = 300
Index = 0
Left = -70875
TabIndex = 24
Top = 2835
Width = 1275
_ExtentX = 2249
_ExtentY = 529
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 14737632
Format = 23855106
CurrentDate = 36495.25
MaxDate = 44196
MinDate = 36495
End
Begin MSComCtl2.DTPicker dptTime
BeginProperty DataFormat
Type = 1
Format = "HH:mm"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 4
EndProperty
Height = 300
Index = 1
Left = -70875
TabIndex = 25
Top = 3195
Width = 1275
_ExtentX = 2249
_ExtentY = 529
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 14737632
Format = 23855106
CurrentDate = 36495.9999884259
MaxDate = 44196
MinDate = 36495
End
Begin BNCtrlGroup.BNButton cmdEventsMonitor
Height = 405
Left = 4140
TabIndex = 16
Tag = "international"
Top = 3735
Width = 1260
_ExtentX = 2223
_ExtentY = 714
Caption = "事件屏蔽"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin MSComCtl2.DTPicker dptTime
BeginProperty DataFormat
Type = 1
Format = "HH:mm"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 4
EndProperty
Height = 300
Index = 2
Left = -70875
TabIndex = 56
Top = 3555
Width = 1275
_ExtentX = 2249
_ExtentY = 529
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 14737632
Format = 23855106
CurrentDate = 36495.75
MaxDate = 44196
MinDate = 36495
End
Begin BNCtrlGroup.BNButton cmdBackground
Height = 300
Index = 1
Left = -68490
TabIndex = 61
Tag = "Browser"
Top = 2070
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdBackground
Height = 300
Index = 2
Left = -68475
TabIndex = 64
Tag = "Browser"
Top = 2460
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdPath
Height = 300
Index = 1
Left = 3495
TabIndex = 66
Tag = "Browser"
Top = 930
Width = 360
_ExtentX = 635
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin VB.CheckBox chkAddLater
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "加班是否记缺勤"
ForeColor = &H80000008&
Height = 240
Left = -74790
TabIndex = 115
Top = 3360
Width = 2520
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "菜单ID基数："
Height = 180
Index = 13
Left = 4125
TabIndex = 120
Top = 2220
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "巡更的容差时间:"
Height = 180
Index = 11
Left = -74685
TabIndex = 118
Top = 675
Width = 1350
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "安装说明:"
Height = 180
Index = 7
Left = -74685
TabIndex = 87
Top = 3615
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "数据文件路径："
Height = 180
Index = 6
Left = 375
TabIndex = 68
Top = 1005
Width = 1260
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "程序进入图片:"
Height = 180
Index = 5
Left = -74535
TabIndex = 65
Top = 2505
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "控制面板图片:"
Height = 180
Index = 4
Left = -74550
TabIndex = 62
Top = 2115
Width = 1170
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "统计起始日每月的(号)："
Height = 180
Index = 2
Left = -74760
TabIndex = 59
Top = 4170
Width = 1980
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "夜班工时开始："
Height = 180
Index = 5
Left = -72120
TabIndex = 57
Top = 3600
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "额定加班工时："
Height = 180
Index = 10
Left = -72060
TabIndex = 55
Top = 4170
Width = 1260
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "夜班统计时刻："
Height = 180
Index = 4
Left = -72120
TabIndex = 53
Top = 3240
Width = 1260
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "早班统计时刻："
Height = 180
Index = 3
Left = -72120
TabIndex = 52
Top = 2880
Width = 1260
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "安装程序位置:"
Height = 180
Index = 3
Left = -74685
TabIndex = 50
Top = 3270
Width = 1170
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "系统主要色调:"
Height = 180
Index = 1
Left = -74550
TabIndex = 49
Top = 855
Width = 1170
End
Begin VB.Label lblMainColor
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 270
Left = -73215
TabIndex = 31
Top = 810
Width = 1020
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "按纽风格:"
Height = 180
Index = 7
Left = -74535
TabIndex = 48
Top = 1320
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "程序背景图片:"
Height = 180
Index = 2
Left = -74550
TabIndex = 47
Top = 1725
Width = 1170
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "自定义月报表(Excel)输出项:"
Height = 180
Index = 2
Left = -74745
TabIndex = 44
Top = 540
Width = 2340
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "缺省本机名："
Height = 180
Index = 6
Left = 4125
TabIndex = 43
Top = 1590
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "缺省设备:"
Height = 180
Index = 5
Left = -74595
TabIndex = 41
Top = 810
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "缺省服务器："
Height = 180
Index = 4
Left = 4125
TabIndex = 40
Top = 1905
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "缺省登录用户:"
Height = 180
Index = 3
Left = -74655
TabIndex = 39
Top = 1245
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "程序运行路径："
Height = 180
Index = 1
Left = 375
TabIndex = 38
Top = 675
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "使用单位:"
Height = 180
Index = 0
Left = -74670
TabIndex = 37
Top = 825
Width = 810
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 5775
Index = 0
Left = 15
TabIndex = 45
Top = -75
Width = 7605
Begin BNCtrlGroup.BNButton cmdOK
Default = -1 'True
Height = 375
Left = 4380
TabIndex = 122
Top = 5085
Width = 1455
_ExtentX = 2566
_ExtentY = 661
Caption = "确 定"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdExit
Height = 375
Left = 5910
TabIndex = 121
Top = 5085
Width = 1455
_ExtentX = 2566
_ExtentY = 661
Caption = "退 出"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
cBack = -2147483633
End
End
End
Attribute VB_Name = "frmPubSystemSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim adoRS As ADODB.Recordset
Dim mTFieldRecs() As FieldRec
Dim msRptField As String
Public piTab As Integer
Public psFocusControl As String
Dim mlMouseDelay As Long '鼠标进入的秒数
Private Sub cmdBackground_Click(Index As Integer)
Dim sFile As String
Dim sDefFile As String
sDefFile = txtBackground(Index).Text
If sDefFile = "" Then
Select Case Index
Case 0
txtBackground(Index).Text = gTAppLicInfo.FilePicBG
Case 1
txtBackground(Index).Text = gTAppLicInfo.FilePicBoard
Case 2
txtBackground(Index).Text = gTAppLicInfo.FilePicSplash
End Select
End If
sFile = gclsInclude.MyGetFileName(True, "图形文件 (*.Bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif", , sDefFile, "请选择程序背景文件 ", Me.hwnd)
If sFile <> "" Then
txtBackground(Index).Text = sFile
Select Case Index
Case 0
' frmMain.LoDrawForm sFile
Case 1
' frmMain.Picture1 = LoadPicture(sFile)
End Select
End If
End Sub
Private Sub cmdEventsMonitor_Click()
Dim sEventDatas As String
Dim sEventDesc As String
Dim sSelected As String
Dim sRet As String
Dim vSplit
Dim l As Long
Dim bCancel As Boolean
Dim adoTempRS As ADODB.Recordset
Set adoTempRS = New ADODB.Recordset
With adoTempRS
.Open "SELECT * FROM T0110S001", gDBRecordConn, adOpenStatic, adLockOptimistic
bCancel = True
If .RecordCount > 0 Then
For l = 1 To .RecordCount
sEventDatas = sEventDatas & !W1105 & SPLIT_SYMBOL '编号
sEventDesc = sEventDesc & !W1106 & SPLIT_SYMBOL '描述
sSelected = sSelected & !W1100 & SPLIT_SYMBOL '屏蔽
.MoveNext
Next l
sEventDatas = gclsInclude.MyTrimSymbol(sEventDatas, SPLIT_SYMBOL)
sEventDesc = gclsInclude.MyTrimSymbol(sEventDesc, SPLIT_SYMBOL)
sSelected = gclsInclude.MyTrimSymbol(sSelected, SPLIT_SYMBOL)
Me.Hide
sRet = gclsCommon.CBNShowSelect("请选择需要屏蔽的事件", sEventDatas, sEventDesc, sSelected, , , , bCancel)
Me.Show
Else
MsgBox "无任何事件可供编辑！", vbInformation
End If
.Close
End With
Set adoTempRS = Nothing
If Not bCancel Then
gDBRecordConn.Execute "UPDATE T0110S001 SET W1100 = '0'"
If sRet <> "" Then
sEventDatas = gclsCommon.CBNGetCondiSQL(sRet, "W1105", "", , SPLIT_SYMBOL)
gDBRecordConn.Execute "UPDATE T0110S001 SET W1100 = '1' WHERE " & sEventDatas
End If
End If
End Sub
Private Sub cmdFile_Click(Index As Integer)
Dim i As Integer
Dim sFile As String
Dim sDesc As String
Dim sDefaultDesc As String
Dim sDefaultFile As String
Select Case Index
Case 0 '添加
i = lstProgram.ListCount
sDefaultDesc = "外挂程序" & i + 1
sDefaultFile = ""
Case 1 '编辑
For i = 1 To lstProgram.ListCount
If lstProgram.Selected(i - 1) Then
sFile = lstProgram.List(i - 1)
sDefaultDesc = gclsInclude.MyGetSerialStr(sFile, 1, SPLIT_SYMBOL)
sDefaultFile = gclsInclude.MyGetSerialStr(sFile, 2, SPLIT_SYMBOL)
End If
Next i
If sFile = "" Then Exit Sub
Case 2 '删除
For i = 1 To lstProgram.ListCount
If lstProgram.Selected(i - 1) Then
lstProgram.List(i - 1) = sDesc & SPLIT_SYMBOL & sFile
End If
Next i
End Select
If Index = 0 Or Index = 1 Then
sFile = gclsInclude.MyGetFileName(True, "执行文件 (*.EXE)|*.exe", "EXE", sDefaultFile, "外接程序管理(" & IIf(Index = 0, "添加)", "编辑)"), Me.hwnd)
If sFile <> "" Then
DoEvents
If gclsInclude.MyFileExists(sFile) Then
Me.Hide
sDesc = gclsInclude.MyInputBox("请输入该程序的描述", "外挂程序描述", sDefaultDesc, , " 描述:")
Me.Show
End If
If sDesc = "" Then sDesc = "外挂程序" & i + 1
If Index = 0 Then
lstProgram.AddItem sDesc & SPLIT_SYMBOL & sFile
ElseIf Index = 1 Then
For i = 1 To lstProgram.ListCount
If lstProgram.Selected(i - 1) Then
lstProgram.List(i - 1) = sDesc & SPLIT_SYMBOL & sFile
End If
Next i
End If
End If
ElseIf Index = 2 Then
For i = 1 To lstProgram.ListCount
If lstProgram.Selected(i - 1) Then
lstProgram.RemoveItem i - 1
Exit Sub
End If
Next i
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdDefColor_Click()
gTAppLicInfo.SoftMainColor = &HDFA000
LoSetColor
End Sub
Private Sub cmdIntl_Click()
gclsCommon.CBNControlPanels "intl.cpl,,4"
End Sub
Private Sub cmdPath_Click(Index As Integer)
Dim sFile As String
If Index = 0 Then
sFile = gclsInclude.MyBrowser(Me.hwnd, "请选择程序运行路径", eBT_DefaultBrowse)
Else
sFile = gclsInclude.MyGetFileName(True, "mdb (*.mdb)|*.mdb", "MDB", txtPath(Index).Text, "请选择数据库文件", Me.hwnd)
End If
If sFile <> "" Then
If Index = 0 Then
txtPath(Index).Text = gclsInclude.MyAddBackslash(sFile)
Else
txtPath(Index).Text = sFile
End If
End If
End Sub
Private Sub cmdSoundBrowser_Click(Index As Integer)
Dim sFile As String
Dim sDefFile As String
sDefFile = txtSoundFile(Index).Text
sFile = gclsInclude.MyGetFileName(True, "图形文件 (*.WAV,*.MID)|*.wav;*.mid", , sDefFile, "请选择有效的声音文件 ", Me.hwnd)
If sFile <> "" Then txtSoundFile(Index).Text = sFile
End Sub
Private Sub cmdUpdatePath_Click()
Dim sFile As String
Dim sDefFile As String
sDefFile = txtUpdatePath.Text
If txtUpdatePath.Text = "" Then txtUpdatePath.Text = gTAppLicInfo.FileInstall
sFile = gclsInclude.MyGetFileName(True, "考勤安装程序 (*.EXE)|*.exe", , sDefFile, "请选择考勤安装程序(Setup.exe)", Me.hwnd)
If sFile <> "" Then
txtUpdatePath.Text = sFile
End If
End Sub
Private Sub Form_Activate()
#If APPLICATION_TYPE = 1 Then '考勤
optLEStandard(0).Value = gTAttendCtl.ELStandard
optLEStandard(1).Value = Not optLEStandard(0).Value
#End If
Select Case psFocusControl
Case "txtUserName"
gclsInclude.MySetTxtSelect txtUserName.Text
End Select
End Sub
'ID W1101 W1102
'1 SA 1
'2 W010A 16947451
'3 W010C gTAppLicInfo.SoftOwnerName
'4 W50BD 1 2
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim vSplit
Dim sTemp As String
Dim bQA066001Err As Boolean
LoSetButtonTag
SetIcon Me
' 置鼠标忙标志
Screen.MousePointer = vbHourglass
SSTab1.Tab = piTab
With gTAppLicInfo
If .SoftDBaseType = 1 Or .SoftDBaseType = 2 Then '单机版或网络版
chkNetwork.Visible = False
End If
'如果查询计算不准确或查询不到打卡数据,
cmdIntl.ToolTipText = "请将短日期格式设置为 yyyy-MM-dd"
chkErrLog = IIf(funcGetSystemData("ErrMonitor", "0") = 1, vbChecked, vbUnchecked)
txtDefaultUser.Text = funcGetSystemData("DefaultLogin", "SA")
chkCardBackup.Value = funcGetSystemData("CardBackup", "1")
txtBackground(0).Text = .FilePicBG
txtBackground(1).Text = .FilePicBoard
txtBackground(2).Text = .FilePicSplash
txtDefServer.Text = .SoftSQLServer
txtDefClient.Text = .SysClient
txtMsgAdd.Text = glMsgAdd
txtDevPort.Text = .DevDevicePort
txtIssuePort.Text = .DevIssuePort
Label1(0).Visible = .SysLoginSA Or .SysLoginSYS
txtUserName.Visible = .SysLoginSA Or .SysLoginSYS
chkUpdate.Visible = .SysLoginSA Or .SysLoginSYS
chkLockCal.Visible = .SysLoginSA Or .SysLoginSYS
chkDptUseTree.Visible = .SysLoginSA Or .SysLoginSYS
Label2(3).Visible = .SysLoginSA Or .SysLoginSYS
txtUpdatePath.Visible = .SysLoginSA Or .SysLoginSYS
cmdUpdatePath.Visible = .SysLoginSA Or .SysLoginSYS
cmdEventsMonitor.Visible = .SysLoginSA Or .SysLoginSYS
End With
With cobButtonStyle
.AddItem "无风格"
.AddItem "资源浏览器式样,图标左"
.AddItem "资源浏览器式样,图标右"
.AddItem "普通按纽,图标左"
.AddItem "普通按纽,图标右"
.AddItem "普通按纽,无图标"
.ListIndex = gTAppLicInfo.CtrlButtonStyle
End With
With gTAppLicInfo
i = funcGetSystemData("CountPrograms", 0)
If i > 0 Then
ReDim .FileExName(1 To i)
ReDim .FileExDesc(1 To i)
For j = 1 To i
.FileExName(j) = funcGetSystemData("Program" & j, "")
If .FileExName(j) <> "" Then
.FileExDesc(j) = funcGetSystemData("ProgramDesc" & j, "")
If .FileExDesc(j) = "" Then .FileExDesc(j) = "外接程序" & j
lstProgram.AddItem .FileExDesc(j) & SPLIT_SYMBOL & .FileExName(j)
End If
Next j
lstProgram.ListIndex = 0
End If
If lstProgram.ListCount > 0 Then lstProgram.ListIndex = -1
txtEmpNoLen.Text = .OthEmpNoLen
txtDptNoLen.Text = .OthDptNoLen
End With
'0: 用户信息
'1: 系统参数
'2: 考勤设置
'3: 设备设置
'4: 程序外观
'5: 门禁设置
'6: 巡更设置
'7: 自动采集
With SSTab1
.TabVisible(0) = True
.TabVisible(1) = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
.TabVisible(2) = False '考勤设置
.TabVisible(3) = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
.TabVisible(4) = True
.TabVisible(5) = False '门禁设置
.TabVisible(6) = False '巡更设置
.TabVisible(7) = False '自动采集
End With
txtUserName.Enabled = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
#If APPLICATION_TYPE = 1 Then '考勤
With gTAttendCtl
sTemp = gclsInclude.MyGetTimeFromSng(.MorningTimePot)
If sTemp = "00:00:00" Then sTemp = "23:59:59"
dptTime(0).Value = CDate(Format(gclsCommon.CBNGetNow, "MM/DD/YYYY") & " " & sTemp)
sTemp = gclsInclude.MyGetTimeFromSng(.NightTimePot)
If sTemp = "00:00:00" Then sTemp = "23:59:59"
dptTime(1).Value = CDate(Format(gclsCommon.CBNGetNow, "MM/DD/YYYY") & " " & sTemp)
sTemp = gclsInclude.MyGetTimeFromSng(.NightWorkTimePot)
If sTemp = "00:00:00" Then sTemp = "23:59:59"
dptTime(2).Value = CDate(Format(gclsCommon.CBNGetNow, "MM/DD/YYYY") & " " & sTemp)
mTFieldRecs = gclsCommon.CBNGetFieldRec("QA066A001_001")
If gclsCommon.CBNIsEmpty(VarPtrArray(mTFieldRecs)) Then bQA066001Err = True
msRptField = UCase(funcGetINIData("Report", "Month1", ""))
chkNeed30Rnd.Value = IIf(.Need30Rnd, vbChecked, vbUnchecked)
chkHaveAbsent.Value = IIf(.HaveAbsent, vbChecked, vbUnchecked)
chkHaveLate.Value = IIf(.HaveLate, vbChecked, vbUnchecked)
chkNeedAdd.Value = IIf(.NeedAddSheet, vbChecked, vbUnchecked)
chkMustOver8.Value = IIf(.MustOver8, vbChecked, vbUnchecked)
chkHaveAdd.Value = IIf(.HaveAdd, vbChecked, vbUnchecked)
chkDistinctCard.Value = IIf(.DistinctCard, vbChecked, vbUnchecked)
chkAttRptGroup.Value = IIf(.AttRptGroup, vbChecked, vbUnchecked)
chkSpecCard.Value = IIf(.SpecCard, vbChecked, vbUnchecked)
chkFeastEquNormal.Value = IIf(.FeastEquNormal, vbChecked, vbUnchecked)
chkHaveFeastRest.Value = IIf(.FeastRestToDay, vbChecked, vbUnchecked)
chkCardRange.Value = IIf(.Use1CardRange, vbChecked, vbUnchecked)
chkAddLater.Value = IIf(.AddLater, vbChecked, vbUnchecked)
txtBgnAttend.Text = .BeginAttendDay
txtMustAdd.Text = .MustAddTime
End With
If Len(msRptField) > 0 Then vSplit = Split(msRptField, ",")
If bQA066001Err Then
MsgBox "数据库查询QA066A001_001有故障,请检查!", vbExclamation
Else
For i = 1 To UBound(mTFieldRecs)
List1.AddItem mTFieldRecs(i).FieldDesc
If msRptField <> "" Then
For j = 0 To UBound(vSplit)
If UCase(vSplit(j)) = UCase(mTFieldRecs(i).FieldName) Then
List1.Selected(List1.NewIndex) = True
Exit For
End If
Next j
End If
List1.ItemData(List1.NewIndex) = i
Next i
End If
If List1.ListCount > 0 Then List1.ListIndex = -1
SSTab1.TabVisible(2) = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
#ElseIf APPLICATION_TYPE = 2 Then '门禁
With gTAppLicInfo
SSTab1.TabVisible(5) = .SysLoginSA Or .SysLoginSYS
chkSound(0) = IIf(.CtrlVoice(1), 1, 0)
chkSound(1) = IIf(.CtrlVoice(2), 1, 0)
chkSound(2) = IIf(.CtrlVoice(3), 1, 0)
txtSoundFile(0).Text = .FileVoice(1)
txtSoundFile(1).Text = .FileVoice(2)
txtSoundFile(2).Text = .FileVoice(3)
End With
#ElseIf APPLICATION_TYPE = 3 Then '巡更
With SSTab1
.TabVisible(6) = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
End With
chkWindowRunMode.Value = IIf(gTAppLicInfo.CtrlWindowRunMode, 1, 0)
txtErrPatrol.Text = glErrPatrol
#ElseIf APPLICATION_TYPE = 8 Then '自动采集
SSTab1.TabVisible(7) = gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS
#End If
With gTAppLicInfo
chkUseColor = IIf(.CtrlUseColor, 1, 0)
chkRunSingle = IIf(.CtrlRunSingle, 1, 0)
chkLockCal = IIf(.SysLockCal, 1, 0)
chkDptUseTree = IIf(.OthDptUseTree, 1, 0)
chkAutoCtl(0) = funcGetINIData("Remote Control", "AutoDownload ", 0)
chkAutoCtl(1) = funcGetINIData("Remote Control", "AutoRight ", 0)
chkUpdate = funcGetSystemData("Update ", 0)
chkMenubmp = funcGetSystemData("MenuBmp ", 0)
chkPapleCtrl = IIf(.CtrlPapleCtrl, 1, 0)
txtPath(0).Text = .FilePathApp
txtUpdatePath.Text = .FileInstall
chkNetwork.Value = IIf(.SoftNetwork, 1, 0)
txtInstallNote.Text = .SoftInstallTips 'W66BH
LoSetColor
End With
Set adoRS = New ADODB.Recordset
With adoRS
.Open "SELECT * FROM T0101S001", gDBRecordConn, adOpenStatic, adLockOptimistic
.Filter = "W1101 = 'W010C'"
If .RecordCount > 0 Then
txtUserName.Text = !W1102
End If
End With
For i = 0 To DEV_UNKNOW - 1
cobDefaultDevice.AddItem i & SPLIT_SYMBOL & gclsInclude.MyGetDevName(i)
cobDefaultDevice.ItemData(cobDefaultDevice.NewIndex) = i
Next i
cobDefaultDevice.Text = gTAppLicInfo.DevMainType & SPLIT_SYMBOL & gTAppLicInfo.DevMainName
txtDefServer.Visible = gTAppLicInfo.SoftNetwork
Label1(4).Visible = gTAppLicInfo.SoftNetwork
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
On Error Resume Next
Frame1(0).Top = -60
Frame1(0).Height = Me.ScaleHeight + 80
Frame1(0).Left = 15
Frame1(0).Width = Me.ScaleWidth - 30
List1.Height = 800
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set adoRS = Nothing
psFocusControl = ""
End Sub
Private Sub lblMainColor_Click()
On Error GoTo ErrLabel
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
gTAppLicInfo.SoftMainColor = CommonDialog1.Color
LoSetColor
ErrLabel:
End Sub
Private Sub LoSetColor()
lblMainColor.BackColor = gTAppLicInfo.SoftMainColor
lblMainColor.ForeColor = &HFFFFFF - gTAppLicInfo.SoftMainColor
lblMainColor.Caption = "&&H" & gclsInclude.MyFormat(Hex$(gTAppLicInfo.SoftMainColor), "000000")
End Sub
Private Sub cmdOK_Click()
Dim sReport As String
Dim sPreFix As String
Dim i As Integer
On Error Resume Next
If txtBgnAttend.Text = "" Then txtBgnAttend.Text = 0
i = txtBgnAttend.Text
#If APPLICATION_TYPE = 1 Then '考勤
If i < 1 Or gTAttendCtl.BeginAttendDay > 31 Then MsgBox "考勤起始日错误,请重新填写", vbCritical: Exit Sub
#End If
If gTAppLicInfo.SysLoginSA Or gTAppLicInfo.SysLoginSYS Then
With gTAppLicInfo
.UserName = Trim(txtUserName.Text)
.FileInstall = Trim(txtUpdatePath.Text)
.CtrlUseColor = IIf(chkUseColor.Value = 1, True, False)
.SoftNetwork = IIf(chkNetwork.Value = 1, True, False)
.CtrlRunSingle = IIf(chkRunSingle.Value = 1, True, False)
.SysLockCal = IIf(chkLockCal.Value = 1, True, False)
.OthDptUseTree = IIf(chkDptUseTree.Value = 1, True, False)
.OthEmpNoLen = txtEmpNoLen.Text
.OthDptNoLen = txtDptNoLen.Text
.SoftInstallTips = txtInstallNote.Text 'W[gTAppLicInfo.SoftNumber]BH
End With
glMsgAdd = Val(txtMsgAdd.Text)
#If APPLICATION_TYPE = 1 Then '考勤
With gTAttendCtl
.AttRptGroup = IIf(chkAttRptGroup.Value = 1, True, False)
.DistinctCard = IIf(chkDistinctCard.Value = 1, True, False)
.FeastEquNormal = IIf(chkFeastEquNormal.Value = 1, True, False)
.FeastRestToDay = IIf(chkHaveFeastRest.Value = 1, True, False)
.Use1CardRange = IIf(chkCardRange.Value = 1, True, False)
.AddLater = IIf(chkAddLater.Value = 1, True, False)
.ELStandard = optLEStandard(0).Value
.MustAddTime = txtMustAdd.Text
.BeginAttendDay = txtBgnAttend.Text
.Need30Rnd = IIf(chkNeed30Rnd.Value = 1, True, False)
.HaveAbsent = IIf(chkHaveAbsent.Value = 1, True, False)
.HaveLate = IIf(chkHaveLate.Value = 1, True, False)
.HaveAdd = IIf(chkHaveAdd.Value = 1, True, False)
.NeedAddSheet = IIf(chkNeedAdd.Value = 1, True, False)
.MustOver8 = IIf(chkMustOver8.Value = 1, True, False)
.MorningTimePot = gclsInclude.MyGetSngFromTime(dptTime(0))
.NightTimePot = gclsInclude.MyGetSngFromTime(dptTime(1))
.NightWorkTimePot = gclsInclude.MyGetSngFromTime(dptTime(2))
.SpecCard = IIf(chkSpecCard.Value = 1, True, False)
End With
#ElseIf APPLICATION_TYPE = 2 Then
For i = 1 To 3
gTAppLicInfo.FileVoice(i) = txtSoundFile(i - 1).Text
gTAppLicInfo.CtrlVoice(i) = IIf(chkSound(i - 1).Value = 1, True, False)
Next i
#ElseIf APPLICATION_TYPE = 3 Then '巡更
gTAppLicInfo.CtrlWindowRunMode = IIf(chkWindowRunMode.Value = 1, True, False)
glErrPatrol = CLng(txtErrPatrol.Text)
#End If
With adoRS
.Filter = "W1101 = 'W010C'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W010C"
!W1102 = gTAppLicInfo.UserName
.Update
.Filter = "W1101 = 'W010B'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W010B"
!W1102 = glMsgAdd
.Update
.Filter = "W1101 = 'W030A'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W030A"
!W1102 = gTAppLicInfo.OthEmpNoLen
.Update
.Filter = "W1101 = 'W030B'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W030B"
!W1102 = gTAppLicInfo.OthDptNoLen
.Update
.Filter = "W1101 = 'W030C'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W030C"
!W1102 = IIf(gTAppLicInfo.OthDptUseTree, 1, 0)
.Update
.Filter = "W1101 = 'W" & gTAppLicInfo.SoftNumber & "BH'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W" & gTAppLicInfo.SoftNumber & "BH"
!W1102 = gTAppLicInfo.SoftInstallTips
.Update
.Filter = "W1101 = 'W" & gTAppLicInfo.SoftNumber & "BB'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W" & gTAppLicInfo.SoftNumber & "BB"
!W1102 = txtUpdatePath.Text
.Update
.Filter = "W1101 = 'W" & gTAppLicInfo.SoftNumber & "BG'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W" & gTAppLicInfo.SoftNumber & "BG"
!W1102 = IIf(gTAppLicInfo.SysLockCal, 1, 0)
.Update
#If APPLICATION_TYPE = 1 Then '考勤
.Filter = "W1101 = 'W660A'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660A"
!W1102 = IIf(gTAttendCtl.Need30Rnd, 1, 0)
.Update
.Filter = "W1101 = 'W660B'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660B"
!W1102 = gTAttendCtl.BeginAttendDay
.Update
.Filter = "W1101 = 'W660C'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660C"
!W1102 = IIf(gTAttendCtl.HaveAbsent, 1, 0)
.Update
.Filter = "W1101 = 'W660D'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660D"
!W1102 = IIf(gTAttendCtl.HaveLate, 1, 0)
.Update
.Filter = "W1101 = 'W660E'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660E"
!W1102 = gTAttendCtl.MorningTimePot
.Update
.Filter = "W1101 = 'W660F'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660F"
!W1102 = gTAttendCtl.NightTimePot
.Update
.Filter = "W1101 = 'W660G'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660G"
!W1102 = IIf(gTAttendCtl.ELStandard, 1, 0)
.Update
.Filter = "W1101 = 'W660H'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660H"
!W1102 = IIf(gTAttendCtl.FeastEquNormal, 1, 0)
.Update
.Filter = "W1101 = 'W660I'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660I"
!W1102 = IIf(gTAttendCtl.Use1CardRange, 1, 0)
.Update
.Filter = "W1101 = 'W660J'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660J"
!W1102 = gTAttendCtl.MustAddTime
.Update
.Filter = "W1101 = 'W660K'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660K"
!W1102 = gTAttendCtl.NightWorkTimePot
.Update
.Filter = "W1101 = 'W660L'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660L"
!W1102 = IIf(gTAttendCtl.FeastRestToDay, 1, 0)
.Update
.Filter = "W1101 = 'W660M'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660M"
!W1102 = IIf(gTAttendCtl.HaveAdd, 1, 0)
.Update
.Filter = "W1101 = 'W660N'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660N"
!W1102 = IIf(gTAttendCtl.NeedAddSheet, 1, 0)
.Update
.Filter = "W1101 = 'W660O'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660O"
!W1102 = IIf(gTAttendCtl.MustOver8, 1, 0)
.Update
.Filter = "W1101 = 'W660P'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660P"
!W1102 = IIf(gTAttendCtl.AttRptGroup, 1, 0)
.Update
.Filter = "W1101 = 'W660Q'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660Q"
!W1102 = IIf(gTAttendCtl.SpecCard, 1, 0)
.Update
.Filter = "W1101 = 'W660R'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W660R"
!W1102 = IIf(gTAttendCtl.AddLater, 1, 0)
.Update
.Filter = "W1101 = 'W66BF'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W66BF"
!W1102 = IIf(gTAttendCtl.DistinctCard, 1, 0)
.Update
#ElseIf APPLICATION_TYPE = 2 Then '门禁
.Filter = "W1101 = 'W500A'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W500A"
!W1102 = IIf(gTAppLicInfo.CtrlVoice(1), "1", "0") & IIf(gTAppLicInfo.CtrlVoice(2), "1", "0") & IIf(gTAppLicInfo.CtrlVoice(3), "1", "0")
.Update
.Filter = "W1101 = 'W500B'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W500B"
!W1102 = gTAppLicInfo.FileVoice(1)
.Update
.Filter = "W1101 = 'W500C'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W500C"
!W1102 = gTAppLicInfo.FileVoice(2)
.Update
.Filter = "W1101 = 'W500D'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W500D"
!W1102 = gTAppLicInfo.FileVoice(3)
.Update
.Filter = "W1101 = 'W50BG'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W50BG"
!W1102 = IIf(gTAppLicInfo.SysLockCal, 1, 0)
.Update
#ElseIf APPLICATION_TYPE = 3 Then
funcSetSystemData "RunMode", chkWindowRunMode
.Filter = "W1101 = 'W300A'"
If .RecordCount = 0 Then .AddNew
!W1101 = "W300A"
!W1102 = glErrPatrol
.Update
#End If
End With
End If
With gTAppLicInfo
funcSetSystemData "ErrMonitor", chkErrLog.Value
funcSetSystemData "DefaultLogin", txtDefaultUser.Text
funcSetSystemData "MainColor", "&H" & gclsInclude.MyFormat(Hex$(.SoftMainColor), "000000")
funcSetSystemData "CardBackup", chkCardBackup.Value
funcSetSystemData "ButtonStyle", cobButtonStyle.ListIndex
If .SoftDBaseType = 3 Then '单机版或网络版
gclsInclude.MySetINIData .FileINI, "Run Mode", "Run_Mode", IIf(.SoftNetwork, "1", "0")
End If
If .SoftDBaseType = 2 Or .SoftDBaseType = 3 Then '网络版
gclsInclude.MySetINIData .FileINI, "SQL SERVER", "SERVER_HOST", txtDefServer.Text
End If
gclsInclude.MySetINIData .FileINI, "SQL SERVER", "CLIENT_HOST", txtDefClient.Text
gclsInclude.MySetINIData .FileINI, "Device Parameter", "DeviceType", gclsCommon.CBNGetFirstData(cobDefaultDevice)
gclsInclude.MySetINIData .FileINI, "Device Parameter", "DevicePort", txtDevPort.Text
gclsInclude.MySetINIData .FileINI, "Device Parameter", "IssuePort", txtIssuePort.Text
gclsInclude.MySetINIData .FileINI, "Remote Control", "AutoDownload", chkAutoCtl(0).Value
gclsInclude.MySetINIData .FileINI, "Remote Control", "AutoRight", chkAutoCtl(1).Value
funcSetSystemData "Update", chkUpdate.Value
Select Case .DevMainType
Case DEV_DAS_ATTEND, DEV_JS_ATTEND, DEV_SYRIS_CONTROL
i = 1
Case Else
i = 0
End Select
gclsInclude.MySetINIData .FileINI, "Device Parameter", "DeviceRight", IIf(gclsCommon.CBNGetFirstData(cobDefaultDevice) = DEV_SYRIS_CONTROL, 1, 0)
funcSetSystemData "AutoIssue", i
funcSetSystemData "PapleCtrl", chkPapleCtrl.Value
funcSetSystemData "UseColor", chkUseColor.Value
funcSetSystemData "RunSingle", chkRunSingle.Value
If txtPath(0).Text <> "" Then
.FilePathApp = txtPath(0).Text
funcSetSystemData "AppPath", .FilePathApp
End If
If txtPath(1).Text <> "" Then
If .SoftNetwork Then
.SoftSQLDBase = txtPath(1).Text
gclsInclude.MySetINIData .FileINI, "SQL SERVER", "DATABASE", .SoftSQLDBase
Else
.FileDBRecord = txtPath(1).Text
funcSetSystemData "Database", .FileDBRecord
End If
End If
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
sReport = sReport & IIf(List1.Selected(i), mTFieldRecs(i + 1).FieldName & ",", "")
Next i
If sReport <> "" Then sReport = Left(sReport, Len(sReport) - 1)
gclsInclude.MySetINIData .FileINI, "Report", "Month1", sReport
End If
funcSetSystemData "CountPrograms", lstProgram.ListCount
.FilePicBG = txtBackground(0).Text
.FilePicBoard = txtBackground(1).Text
.FilePicSplash = txtBackground(2).Text
funcSetSystemData "BackgroundFile", .FilePicBG
funcSetSystemData "BoardFile", .FilePicBoard
funcSetSystemData "SplashFile", .FilePicSplash
funcSetSystemData "Menubmp", chkMenubmp.Value
optLEStandard(1).Value = Not optLEStandard(0).Value
If lstProgram.ListCount > 0 Then
For i = 1 To lstProgram.ListCount
funcSetSystemData "ProgramDesc" & i, gclsInclude.MyGetSerialStr(lstProgram.List(i - 1), 1, SPLIT_SYMBOL)
funcSetSystemData "Program" & i, gclsInclude.MyGetSerialStr(lstProgram.List(i - 1), 2, SPLIT_SYMBOL)
Next i
End If
gclsCommon.CBNSaveEvents OET_SYSTEM_SETTINGS
If MsgBox("需要重新启动系统以便设置生效吗?", vbOKCancel + vbExclamation) = vbOK Then .CtrlUnload = True
End With
Unload Me
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If mlMouseDelay = 0 Then mlMouseDelay = gclsInclude.MyGetMMTime
If gclsInclude.MyGetMMTime - mlMouseDelay > 400 Then
If List1.Height < 1000 Then
List1.Height = 3600
End If
End If
End Sub
Private Sub lstProgram_DblClick()
cmdFile_Click 1
End Sub
Private Sub lstProgram_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 0 Then ' 如果没有按钮被按下
lstProgram.ToolTipText = gclsInclude.MyGetLstText(lstProgram, x, y)
End If
End Sub
Private Sub SSTab1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If List1.Height > 1000 Then List1.Height = 800
mlMouseDelay = 0
End Sub
Private Sub txtBgnAttend_KeyPress(KeyAscii As Integer)
KeyAscii = gclsInclude.MyValiText(KeyAscii, "0123456789", True, True)
End Sub
Private Sub txtIssuePort_KeyPress(KeyAscii As Integer)
KeyAscii = gclsInclude.MyValiText(KeyAscii, "0123456789", True, True)
End Sub
Private Sub txtEmpNoLen_KeyPress(KeyAscii As Integer)
KeyAscii = gclsInclude.MyValiText(KeyAscii, "0123456789", True, True)
End Sub
Private Sub txtDptNoLen_KeyPress(KeyAscii As Integer)
KeyAscii = gclsInclude.MyValiText(KeyAscii, "0123456789", True, True)
End Sub
Private Sub LoSetButtonTag()
cmdFile(0).Tag = "IMG048"
cmdFile(1).Tag = "IMG025"
cmdFile(2).Tag = "IMG021"
cmdPath(0).Tag = "IMG011"
cmdPath(1).Tag = "IMG011"
cmdIntl.Tag = "IMG052"
cmdDefColor.Tag = "IMG006"
cmdBackground(0).Tag = "IMG011"
cmdBackground(1).Tag = "IMG011"
cmdBackground(2).Tag = "IMG011"
cmdSoundBrowser(0).Tag = "IMG011"
cmdSoundBrowser(1).Tag = "IMG011"
cmdSoundBrowser(2).Tag = "IMG011"
cmdUpdatePath.Tag = "IMG011"
cmdExit.Tag = "IMG029"
cmdOK.Tag = "IMG038"
cmdEventsMonitor.Tag = "IMG019"
End Sub