workbilldeal.frm
来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 683 行 · 第 1/2 页
FRM
683 行
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 5160
TabIndex = 21
Top = 2400
Width = 375
End
Begin VB.Label Label3
Caption = "%"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 10
Left = 5160
TabIndex = 20
Top = 2880
Width = 375
End
Begin VB.Label Label2
BackColor = &H0080C0FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 1440
TabIndex = 16
Top = 3840
Width = 2175
End
Begin VB.Label Label2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 1440
TabIndex = 15
Top = 3360
Width = 2175
End
Begin VB.Label Label2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1440
TabIndex = 14
Top = 2880
Width = 2175
End
Begin VB.Label Label2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 1440
TabIndex = 13
Top = 2400
Width = 2175
End
Begin VB.Label Label1
Caption = "实结金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 360
TabIndex = 9
Top = 3840
Width = 1095
End
Begin VB.Label Label1
Caption = "合计："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 360
TabIndex = 8
Top = 3360
Width = 1095
End
Begin VB.Label Label1
Caption = "其它项目："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 360
TabIndex = 7
Top = 2880
Width = 1095
End
Begin VB.Label Label1
Caption = "零件额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 360
TabIndex = 6
Top = 2400
Width = 1095
End
Begin VB.Label Label1
Caption = "工时额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 360
TabIndex = 5
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = "结算日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 360
TabIndex = 3
Top = 1320
Width = 1095
End
Begin VB.Label Label2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 1440
TabIndex = 2
Top = 1920
Width = 2175
End
Begin VB.Label Label1
BackColor = &H00800000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 495
Index = 1
Left = 0
TabIndex = 1
Top = 600
Width = 2775
End
Begin VB.Label Label1
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 1935
End
End
Attribute VB_Name = "WorkBillDeal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
MeetCarBalance.OKBS = False
End Sub
Private Sub cmdOk_Click()
With MeetCarBalance.lstAddress.SelectedItem
.SubItems(4) = DTPicker1
.SubItems(8) = Label2(4)
.SubItems(9) = Combo1
.SubItems(5) = Label2(5)
.SubItems(6) = Label2(6)
.SubItems(7) = Label2(7)
.SubItems(12) = Text1(6)
.SubItems(13) = Text1(7)
.SubItems(14) = Text1(8)
End With
MeetCarBalance.OKBS = True
Unload Me
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
Combo1.Text = ""
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Combo1.Text = ""
End Sub
Private Sub Form_Load()
Dim TempSQL As String
VarInitData.InitBSE BSE1, 0
DTPicker1 = Date
TempSQL = VarInitData.DisplayDynSQLVal(VarInitData.SureNameFrIndex(6))
VarInitData.LoadData Combo1, TempSQL, 1
With MeetCarBalance.lstAddress.SelectedItem
Label1(0) = .Text
Label1(1) = .SubItems(1)
If .SubItems(4) <> "" Then
DTPicker1 = .SubItems(4)
End If
Label2(5) = .SubItems(5)
Label2(6) = .SubItems(6)
Label2(7) = .SubItems(7)
Label2(0) = VarFunction.DefFormat((Val(.SubItems(5)) * 100 / IIf(Val(.SubItems(12)) > 0, Val(.SubItems(12)), 100)))
Label2(1) = VarFunction.DefFormat((Val(.SubItems(6)) * 100 / IIf(Val(.SubItems(13)) > 0, Val(.SubItems(13)), 100)))
Label2(2) = VarFunction.DefFormat((Val(.SubItems(7)) * 100 / IIf(Val(.SubItems(14)) > 0, Val(.SubItems(14)), 100)))
Label2(3) = VarFunction.DefFormat(Val(.SubItems(5)) + Val(.SubItems(6)) + Val(.SubItems(7)))
Label2(4) = .SubItems(8)
Combo1 = .SubItems(9)
Text1(6) = .SubItems(12)
Text1(7) = .SubItems(13)
Text1(8) = .SubItems(14)
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
If BSE1.EngineStarted Then BSE1.EndSubClassing
End Sub
Private Sub Text1_LostFocus(Index As Integer)
Dim TempDouble As Double
TempDouble = Val(Text1(Index))
If TempDouble <= 0 Then TempDouble = 100
Label2(Index - 1) = VarFunction.DefFormat(Val(Label2(Index - 6)) * TempDouble / 100)
Label2(4) = VarFunction.DefFormat(Val(Label2(5)) + Val(Label2(6)) + Val(Label2(7)))
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?