?? frmaddclassedit.frm
字號:
VERSION 5.00
Object = "{809F5ECB-E545-4F7D-A8A8-CBFF5617AADC}#1.0#0"; "xCombox.ocx"
Object = "{7DE2015C-ABB4-4432-9634-EA5170D02672}#1.0#0"; "sTextBox.ocx"
Object = "{811B8E4F-88E3-4162-88A6-CC4C86342FB1}#1.0#0"; "sDTPicker.ocx"
Begin VB.Form frmAddClassEdit
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 4770
ClientLeft = 45
ClientTop = 450
ClientWidth = 4065
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4770
ScaleWidth = 4065
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin XCOMBOXLib.XCombox cmbEndTime
Height = 300
Left = 1350
TabIndex = 15
Top = 2070
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbBeginTime
Height = 300
Left = 1350
TabIndex = 14
Top = 1710
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin VB.CommandButton cmdClose
Caption = "取消"
Height = 375
Left = 2340
TabIndex = 13
Top = 4050
Width = 1185
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 375
Left = 450
TabIndex = 12
Top = 4050
Width = 1185
End
Begin STEXTBOXLib.STextBox txtMemo
Height = 960
Left = 1350
TabIndex = 5
Top = 2790
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 1693
_StockProps = 68
ScrollBars = 2
MultiLine = -1 'True
End
Begin XCOMBOXLib.XCombox cmbTimeMode
Height = 300
Left = 1350
TabIndex = 4
Top = 1350
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin SDTPICKERLib.SDTPicker dtpBeginTime
Height = 300
Left = 1350
TabIndex = 3
Top = 630
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin SDTPICKERLib.SDTPicker dtpEndTime
Height = 300
Left = 1350
TabIndex = 2
Top = 990
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbEmployee
Height = 300
Left = 1350
TabIndex = 1
Top = 270
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbClass
Height = 300
Left = 1350
TabIndex = 0
Top = 2430
Width = 2310
_Version = 65536
_ExtentX = 4075
_ExtentY = 300
_StockProps = 68
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "結束日期："
Height = 195
Left = 360
TabIndex = 17
Top = 990
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "開始日期："
Height = 195
Left = 360
TabIndex = 16
Top = 630
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "備 注："
Height = 195
Left = 360
TabIndex = 11
Top = 2835
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "所屬班次："
Height = 195
Left = 360
TabIndex = 10
Top = 2460
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "結束時間："
Height = 195
Left = 360
TabIndex = 9
Top = 2085
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "開始時間："
Height = 195
Left = 360
TabIndex = 8
Top = 1725
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "時間模式："
Height = 195
Left = 360
TabIndex = 7
Top = 1365
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "員工名稱："
Height = 195
Left = 360
TabIndex = 6
Top = 285
Width = 900
End
End
Attribute VB_Name = "frmAddClassEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m_Edit As Boolean
Private Sub cmbClass_BtnsClick(ByVal nIndex As Integer)
Select Case nIndex
Case 0
rstClass.Requery
bufClass.DataSource = rstClass
Set cmbClass.DataSource = bufClass
End Select
End Sub
Private Sub cmbEmployee_BtnsClick(ByVal nIndex As Integer)
rstEmployee.Requery
bufEmployee.DataSource = rstEmployee
cmbEmployee.DataSource = bufEmployee
End Sub
Private Sub Form_Load()
Me.Icon = MDI.Icon
Me.Caption = "加班登記-新增"
cmbBeginTime.ShowHeadScale = "0,20"
cmbBeginTime.ShowHeadValue = "DataID,星期幾"
cmbBeginTime.ShowIndex = 1
cmbBeginTime.Type = tNormal
cmbBeginTime.DropWidth = cmbTimeMode.Width \ 15
cmbEndTime.ShowHeadScale = "0,20"
cmbEndTime.ShowHeadValue = "DataID,星期幾"
cmbEndTime.ShowIndex = 1
cmbEndTime.Type = tNormal
cmbEndTime.DropWidth = cmbTimeMode.Width \ 15
'======員工
cmbEmployee.ShowHeadScale = "0,20,20,20"
cmbEmployee.ShowHeadValue = "EmployeeID,編號,名稱,卡號"
cmbEmployee.ShowIndex = 2
cmbEmployee.Type = tStatic
cmbEmployee.SetBtns "刷新"
cmbEmployee.ButtonHeight = 20
' cmbEmployee.DropWidth = cmbClass.Width \ 15
cmbEmployee.DataSource = bufEmployee
'======班次
cmbClass.ShowHeadScale = "0,20"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -