📄 frm_kq_bcsetup_1.frm
字号:
Begin VB.Label Label1
Caption = "下班时间"
Height = 255
Index = 13
Left = -74640
TabIndex = 29
Top = 2100
Width = 855
End
Begin VB.Label Label1
Caption = "上班时间"
Height = 255
Index = 14
Left = -74640
TabIndex = 28
Top = 1500
Width = 855
End
Begin VB.Label Label1
Caption = "考勤开始"
Height = 255
Index = 15
Left = -74640
TabIndex = 27
Top = 900
Width = 855
End
End
Begin MSDataListLib.DataCombo DataCombo1
Height = 330
Index = 1
Left = 5280
TabIndex = 8
Top = 960
Width = 3015
_ExtentX = 5318
_ExtentY = 582
_Version = 393216
BackColor = 12639424
Text = ""
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 390
Left = 0
TabIndex = 9
Top = 0
Width = 8565
_ExtentX = 15108
_ExtentY = 688
ButtonWidth = 1349
ButtonHeight = 582
AllowCustomize = 0 'False
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 2
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "确定"
ImageKey = "ok"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageKey = "exit"
EndProperty
EndProperty
MouseIcon = "frm_KQ_BCSetup_1.frx":0070
Begin VB.PictureBox Picture2
Height = 0
Left = 0
ScaleHeight = 0
ScaleWidth = 0
TabIndex = 10
Top = 0
Width = 0
End
Begin MSComctlLib.ImageList ImageList1
Left = 6120
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 43
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":01CA
Key = "closeFolder"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":25AC
Key = "openFolder"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":4D5E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":4EB8
Key = "RMB"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":613A
Key = "del"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":6294
Key = "delete"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":639E
Key = "add"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":64F8
Key = "add_b"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":65FA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":6914
Key = "fly"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":90C6
Key = "find_p1"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":ADD0
Key = "find_p"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":DE52
Key = "find_b"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":DF64
Key = "redo"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":E076
Key = "new"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":F0C8
Key = "copy"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":F1DA
Key = "printb"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":F2EC
Key = "print1"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":12176
Key = "print2"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":142B0
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":14F8C
Key = "NA"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":16810
Key = "cloth"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":16B34
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1883E
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":18952
Key = "exit"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":18C6C
Key = "ok"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":18D7E
Key = "earth1"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":191D2
Key = "earth2"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":194EE
Key = "man3"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1A342
Key = "man1"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1B194
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1B290
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1B3A4
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1B4B8
Key = "excel"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1B7D4
Key = "word"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1BAF0
Key = "word2"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1BC8A
Key = "toleft"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1C0DC
Key = "toRight"
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1C52E
Key = "toUp"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1C980
Key = "toDown"
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1CDD2
Key = "write1"
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1D224
Key = "write2"
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_KQ_BCSetup_1.frx":1D676
Key = "write3"
EndProperty
EndProperty
End
End
Begin VB.Label Label2
Caption = "处理方式"
Height = 255
Index = 3
Left = 4080
TabIndex = 6
Top = 1080
Width = 1215
End
Begin VB.Label Label2
Caption = "班次类型"
Height = 255
Index = 2
Left = 4080
TabIndex = 5
Top = 600
Width = 1215
End
Begin VB.Label Label2
Caption = "标准工时"
Height = 255
Index = 1
Left = 480
TabIndex = 3
Top = 1080
Width = 1215
End
Begin VB.Label Label2
Caption = "班次名称"
Height = 255
Index = 0
Left = 480
TabIndex = 1
Top = 600
Width = 1215
End
End
Attribute VB_Name = "frm_KQ_BCSetup_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mDB As New mDB
Dim strSQL As String
Dim adoprimaryRS As ADODB.Recordset
Dim strSQL2 As String
Dim adoPrimaryRS2 As ADODB.Recordset
Dim strSQL3 As String
Dim adoPrimaryRS3 As ADODB.Recordset
Dim strSQL4 As String
Dim adoprimaryRS4 As ADODB.Recordset
Public bOK As Boolean
Private Sub Form_Load()
bOK = False
Set mDB = New mDB
mDB.InitDB_RY SQLConnDR
strSQL = "select * from wktm"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
bOK = True
Me.Hide
Case 2
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -