📄 form64.frm
字号:
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " 关闭"
ForeColor = &H00000000&
Height = 255
Left = 5760
TabIndex = 3
Top = 1440
Width = 735
End
End
Begin VB.Frame Frame3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "经营人员统计"
ForeColor = &H00000000&
Height = 2415
Left = 0
TabIndex = 9
Top = 0
Visible = 0 'False
Width = 12160
Begin VB.ComboBox Combo1
BackColor = &H00FFC0C0&
Height = 300
Left = 5280
TabIndex = 10
Text = "李成军"
Top = 600
Width = 1575
End
Begin MSComCtl2.MonthView MonthView3
Height = 1920
Left = 840
TabIndex = 11
Top = 240
Width = 3435
_ExtentX = 6059
_ExtentY = 3387
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
StartOfWeek = 65536001
TrailingForeColor= 16777215
CurrentDate = 39083
End
Begin MSComCtl2.MonthView MonthView4
Height = 1920
Left = 7920
TabIndex = 12
Top = 240
Width = 3435
_ExtentX = 6059
_ExtentY = 3387
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
StartOfWeek = 65536001
TrailingForeColor= 16777215
CurrentDate = 39083
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " 关闭"
ForeColor = &H00000000&
Height = 255
Left = 6480
TabIndex = 14
Top = 1680
Width = 735
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " 统计"
ForeColor = &H00000000&
Height = 255
Left = 4920
TabIndex = 13
Top = 1680
Width = 735
End
End
Begin VB.Frame Frame4
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5535
Left = 0
TabIndex = 15
Top = 2400
Visible = 0 'False
Width = 12160
Begin MSComctlLib.ListView ListView2
Height = 5055
Left = 0
TabIndex = 16
Top = 0
Width = 12165
_ExtentX = 21458
_ExtentY = 8916
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = 16711680
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 16
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " 姓名"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "工程编号"
Object.Width = 4410
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "工程名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "建设单位"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "合同额"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "进款额"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 6
Text = "结算系数"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "结算额"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 8
Text = "欠款"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "结算员"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "结算时间"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 11
Text = "备注"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 12
Text = "合同额合计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 13
Text = "进款额合计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 14
Text = "结算额合计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 15
Text = "欠款合计"
Object.Width = 2540
EndProperty
Picture = "Form64.frx":492E
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "关闭"
ForeColor = &H80000008&
Height = 255
Left = 7680
TabIndex = 18
Top = 5160
Width = 855
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "保存数据"
ForeColor = &H80000008&
Height = 255
Left = 3720
TabIndex = 17
Top = 5160
Width = 855
End
End
End
Attribute VB_Name = "Form64"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mv1, mv2, mv3, mv4, mv5, mv6, mv7, mv8, mv9, mv10 As Integer
Dim mvda, mvda1, mvda2, mvda3, mvda4, mvda5, mvda6, mvda7, mvda8, mvda9, mvda10 As String
Private Sub Form_Load()
Dim da As Date
Dim i, m As Integer
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
With Combo1
.AddItem ("李成军") 'Form8.Combo1.AddItem (rs.Fields(i).Name)
.AddItem ("李右新")
.AddItem ("张文玉")
.AddItem ("韩成武")
.AddItem ("付波")
.AddItem ("其他")
End With
da = Date
If ii(71) = "1" Then
MonthView1.Value = da
MonthView2.Value = da
End If
If ii(72) = "1" Then
MonthView3.Value = da
MonthView4.Value = da
End If
mv1 = 0
mv2 = 0
mv3 = 0
mv4 = 0
End Sub
Private Sub Label1_Click()
Dim ghz5, i, fk1, fk2, fk3, fk4, fk5, fk6 As Integer
Static j, a, l As Integer
Dim m, n As Integer
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, fk11, fk12, fk13, fk14, fk15, fk16, fk17, fk18, fk19, ghz, ghz1, ghz2, ghz3, ghz4, SearchString, SearchChar, MyPos As String
Dim da1, da2, da3, da4 As Date
Dim mytab As New ADOX.Table
Form64.ListView1.ListItems.Clear
j = 0
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 勘察工程任务结算单 order by ID", hzconn, adOpenKeyset, adLockPessimistic
If mv1 = 0 Then
MsgBox "请选择起始时间", vbInformation, "提示"
hzrs.Close
Exit Sub
End If
If mv2 = 0 Then
MsgBox "请选择终止时间", vbInformation, "提示"
hzrs.Close
Exit Sub
End If
For i = 1 To hzrs.RecordCount
fk11 = hzrs.Fields(50).Value
If fk11 <> "0:00:00" Then
fk1 = Len(fk11)
fk12 = left(fk11, 4)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -