📄 frmtimecard.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmTimeCard
Caption = "合同纪录"
ClientHeight = 5490
ClientLeft = 1110
ClientTop = 345
ClientWidth = 7470
Icon = "frmTimeCard.frx":0000
KeyPreview = -1 'True
LinkTopic = "TimeCard"
MDIChild = -1 'True
ScaleHeight = 5490
ScaleWidth = 7470
Begin MSComCtl2.DTPicker DateEntered
Height = 315
Left = 2070
TabIndex = 1
Top = 510
Width = 3375
_ExtentX = 6006
_ExtentY = 503
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 79626241
CurrentDate = 36877
End
Begin VB.ComboBox EmployeeID
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2070
TabIndex = 3
Top = 835
Width = 3375
End
Begin VB.TextBox TimeCardID
Alignment = 1 'Right Justify
BackColor = &H8000000F&
Enabled = 0 'False
Height = 315
Left = 2070
TabIndex = 5
Top = 1160
Width = 3375
End
Begin TabDlg.SSTab tabListview
Height = 2895
Left = 0
TabIndex = 0
Top = 1485
Width = 7395
_ExtentX = 13044
_ExtentY = 5106
_Version = 393216
TabOrientation = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "销售费用"
TabPicture(0) = "frmTimeCard.frx":380A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "DataEditGrid1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "发货明细"
TabPicture(1) = "frmTimeCard.frx":3826
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataEditGrid1(1)"
Tab(1).ControlCount= 1
Begin TimeBillingUI.DataEditGrid DataEditGrid1
Height = 2145
Index = 0
Left = 150
TabIndex = 7
Top = 180
Width = 6900
_ExtentX = 12171
_ExtentY = 3784
AllowAddNew = -1 'True
End
Begin TimeBillingUI.DataEditGrid DataEditGrid1
Height = 2145
Index = 1
Left = -74850
TabIndex = 8
Top = 180
Width = 6900
_ExtentX = 12171
_ExtentY = 3784
AllowAddNew = -1 'True
End
End
Begin TimeBillingUI.CaptionBar CaptionBar1
Align = 1 'Align Top
Height = 435
Left = 0
TabIndex = 9
Top = 0
Width = 7470
_ExtentX = 13176
_ExtentY = 767
Border = 4
ForeColor = -2147483643
Caption = "ok i am here"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty SubCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblLabels
Caption = "合同录入日期:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 150
TabIndex = 2
Top = 510
Width = 1815
End
Begin VB.Label lblLabels
Caption = "业务员编号:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 150
TabIndex = 4
Top = 835
Width = 1815
End
Begin VB.Label lblLabels
Caption = "记录编号:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 150
TabIndex = 6
Top = 1160
Width = 1815
End
End
Attribute VB_Name = "frmTimeCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Implements iForm
Private Const mcstrMod$ = "frmTimeCard"
Private m_TimeCard As COMEXDataSourceSingle, m_Store As COMEXDataSourceSingle
Private m_flgLoading As Boolean
Private m_EnableAttr As ToolBarItems
Private m_Guid As String
Public Sub Component(vTimeCard As COMEXDataSourceSingle)
Set m_TimeCard = vTimeCard
Set m_Store = m_TimeCard.CopyMe
LoadRecords
End Sub
Private Sub EnableToolbar(ByVal Dirty As Boolean)
On Error Resume Next
If Not Dirty Then
If m_EnableAttr And tbSave Then m_EnableAttr = m_EnableAttr Xor tbSave
If m_EnableAttr And tbCancel Then m_EnableAttr = m_EnableAttr Xor tbCancel
If Not (m_EnableAttr And tbRefresh) Then m_EnableAttr = m_EnableAttr Or tbRefresh
Else
If Not (m_EnableAttr And tbSave) Then m_EnableAttr = m_EnableAttr Or tbSave
If Not (m_EnableAttr And tbCancel) Then m_EnableAttr = m_EnableAttr Or tbCancel
If m_EnableAttr And tbRefresh Then m_EnableAttr = m_EnableAttr Xor tbRefresh
End If
m_Toolbar.RefreshEnabledState
End Sub
Private Sub LoadRecords()
On Error GoTo Err_LoadRecords
Dim ctl As Control, i As Long
m_flgLoading = True
Dim aTimeCard As TimeCard
Set aTimeCard = m_TimeCard
Dim vTimeCardExpenses As COMEXDataSource
Set vTimeCardExpenses = aTimeCard.TimeCardExpenses
Dim vTimeCardHours As COMEXDataSource
Set vTimeCardHours = aTimeCard.TimeCardHours
With m_TimeCard
For i = 1 To .GetFieldCount
On Error Resume Next
Set ctl = Controls(.GetFieldName(i))
If Err = 0 Then
Select Case TypeName(ctl)
Case "Label"
Case "TextBox", "ComboBox", "MaskEdBox"
ctl = .GetData(i)
Case "CheckBox"
ctl.Value = Abs(.GetData(i))
Case "DTPicker"
ctl.Value = .GetData(i)
End Select
End If
Next
End With
Set Me.DataEditGrid1(0).DataSource = vTimeCardExpenses
Set Me.DataEditGrid1(1).DataSource = vTimeCardHours
m_EnableAttr = iForm_Attributes
EnableToolbar False
m_flgLoading = False
Done_LoadRecords:
Exit Sub
Err_LoadRecords:
ErrorMsg Err.Number, Err.Description, "LoadRecords", mcstrMod
Resume Done_LoadRecords
End Sub
Private Sub DateEntered_Change()
On Error GoTo Err_DateEntered_Change
If m_flgLoading Then Exit Sub
m_TimeCard.SetDatabyname DateEntered.Name, DateEntered.Value
EnableToolbar True
Exit Sub
Err_DateEntered_Change:
With DateEntered
.Value = m_TimeCard.GetDataByName(DateEntered.Name)
End With
End Sub
Private Sub DateEntered_LostFocus()
On Error Resume Next
DateEntered = m_TimeCard.GetDataByName(DateEntered.Name)
End Sub
Private Sub EmployeeID_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -