📄 form34.frm
字号:
SubItemIndex = 5
Text = "地区类别"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 6
Text = "全额"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "购图用途"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 8
Text = "购图日期"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "经办人"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 10
Text = "经办人备注"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 11
Text = "审核人"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 12
Text = "审核人备注"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 13
Text = "财务部"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 14
Text = "财务部实收额"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 15
Text = "财务部备注"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 16
Text = "出图部门"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 17
Text = "出图部门备注"
Object.Width = 7056
EndProperty
BeginProperty ColumnHeader(19) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 18
Text = "档案部"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(20) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 19
Text = "档案部备注"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(21) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 20
Text = "出图总金额"
Object.Width = 2540
EndProperty
Picture = "Form34.frx":C6C7
End
Begin VB.Label Label19
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "保存数据"
ForeColor = &H80000008&
Height = 255
Left = 3600
TabIndex = 45
Top = 5160
Width = 855
End
Begin VB.Label Label20
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "关闭"
ForeColor = &H80000008&
Height = 255
Left = 8040
TabIndex = 44
Top = 5160
Width = 855
End
End
End
Attribute VB_Name = "Form34"
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 i As Integer
Dim da As Date
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
mv1 = 0
mv2 = 0
mv3 = 0
mv4 = 0
mv5 = 0
mv6 = 0
mv7 = 0
mv8 = 0
mv9 = 0
mv10 = 0
With Combo2
.AddItem "信息中心"
.AddItem "测量一所"
.AddItem "测量一所一组"
.AddItem "测量一所二组"
.AddItem "测量一所三组"
.AddItem "测量一所四组"
.AddItem "测量一所五组"
.AddItem "测量一所六组"
.AddItem "测量二所"
.AddItem "测量二所一组"
.AddItem "测量二所二组"
.AddItem "测量二所三组"
.AddItem "测量二所四组"
.AddItem "测量二所五组"
.AddItem "测量二所六组"
.AddItem "测量三所一组"
.AddItem "测量三所二组"
.AddItem "测量三所三组"
End With
With Combo1
.AddItem "GPS"
.AddItem "细部点"
.AddItem "地籍测绘"
.AddItem "用地拨定"
.AddItem "导线测量"
.AddItem "建筑物放线"
.AddItem "数据采集成图"
.AddItem "工程线路测量"
.AddItem "管线竣工测量"
.AddItem "规划道路定线"
End With
If Frame1.Visible = True Then
Frame1.top = 0
Frame1.left = 0
End If
If Frame2.Visible = True Then
Frame2.top = 0
Frame2.left = 0
End If
If Frame3.Visible = True Then
Frame3.top = 0
Frame3.left = 0
End If
If Frame4.Visible = True Then
Frame4.top = 0
Frame4.left = 0
End If
If Frame9.Visible = True Then
Frame9.top = 0
Frame9.left = 0
End If
If Frame5.Visible = True Then
Frame5.top = 2111
Frame5.left = 0
End If
If Frame6.Visible = True Then
Frame6.top = 2111
Frame6.left = 0
End If
If Frame7.Visible = True Then
Frame7.top = 2111
Frame7.left = 0
End If
If Frame8.Visible = True Then
Frame8.top = 2111
Frame8.left = 0
End If
If Frame10.Visible = True Then
Frame10.top = 2111
Frame10.left = 0
End If
da = Date
MonthView1.Value = da
MonthView2.Value = da
MonthView3.Value = da
MonthView4.Value = da
MonthView5.Value = da
MonthView6.Value = da
MonthView7.Value = da
MonthView8.Value = da
MonthView9.Value = da
MonthView10.Value = da
End Sub
Private Sub Label1_Click()
Dim i As Integer
Dim ghz, ghz1, ghz2, ghz3, ghz4 As String
Dim ghz5 As Integer
Static j As Integer
Dim sum, sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10, sum11, sum12, sum13, sum14, sum15, sum16, sum17, sum18, sum19, sum20 As Double
Dim sum111, sum112, sum113, sum114, sum115, sum116, sum117, sum118, sum119, sum1110, sum1111, sum1112, sum1113, sum1114, sum1115, sum1116, sum1117, sum1118, sum1119, sum1120 As Double
Dim sum211, sum212, sum213, sum214, sum215, sum216, sum217, sum218, sum219, sum2110, sum2111, sum2112, sum2113, sum2114, sum2115, sum2116, sum2117, sum2118, sum2119, sum2120 As Double
Dim h1, h2, h3, h4, h5, h6, h7, h8, h9, h10, h11, h12, h13, h14, h15, h16, h17, h18, h19, h20, h21, h22, h23, h24, h25, h26, h27, h28, h29, h30 As String
Dim i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30 As String
Dim j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30 As String
Dim k1, k2, k3, k4, k5, k6, k7, k8, k9, k10, k11, k12, k13, k14, k15, k16, k17, k18, k19, k20, k21, k22, k23, k24, k25, k26, k27, k28, k29, k30 As String
Dim l1, l2, l3, l4, l5, l6, l7, l8, l9, l10, l11, l12, l13, l14, l15, l16, l17, l18, l19, l20, l21, l22, l23, l24, l25, l26, l27, l28, l29, l30 As String
Dim m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12, m13, m14, m15, m16, m17, m18, m19, m20, m21, m22, m23, m24, m25, m26, m27, m28, m29, m30 As String
Dim n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n11, n12, n13, n14, n15, n16, n17, n18, n19, n20, n21, n22, n23, n24, n25, n26, n27, n28, n29, n30 As String
Dim o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30 As String
Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30 As String
Dim u1, u2, u3, u4, u5, u6, u7, u8, u9, u10, u11, u12, u13, u14, u15, u16, u17, u18, u19, u20, u21, u22, u23, u24, u25, u26, u27, u28, u29, u30 As String
Dim v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30 As String
Dim g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12, g13, g14, g15, g16, g17, g18, g19, g20, g21, g22, g23, g24, g25, g26, g27, g28, g29, g30 As String
Dim f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30 As String
Dim e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19, e20, e21, e22, e23, e24, e25, e26, e27, e28, e29, e30 As String
Dim d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, d13, d14, d15, d16, d17, d18, d19, d20, d21, d22, d23, d24, d25, d26, d27, d28, d29, d30 As String
Dim c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, c16, c17, c18, c19, c20, c21, c22, c23, c24, c25, c26, c27, c28, c29, c30 As Double
Dim b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16, b17, b18, b19, b20, b21, b22, b23, b24, b25, b26, b27, b28, b29, b30 As Double
Dim s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30 As Double
Dim fk1, fk2, fk3, fk4, fk5, fk6 As Integer
Dim fk11, fk12, fk13, fk14, fk15, fk16, fk17, fk18, fk19 As String
Dim da1, da2, da3, da4 As Date
Dim SearchString, SearchChar, MyPos As String
Dim mytab As New ADOX.Table
Static a As Integer
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9 As String
Form34.ListView1.ListItems.Clear
j = 0
For Each mytab In gcat.Tables
a = a + 1
lty11 = mytab.Name
lty12 = left(lty11, 2)
If lty12 <> "sy" And lty12 <> "dt" And lty12 <> "my" And lty12 <> "密码" And lty12 <> "流程" Then
grs.CursorLocation = adUseClient
grs.Open lty11, gconn, adOpenKeyset, adLockPessimistic
If mv1 = 0 Then
MsgBox "请选择起始时间", vbInformation, "提示"
grs.Close
Exit Sub
End If
If mv2 = 0 Then
MsgBox "请选择终止时间", vbInformation, "提示"
grs.Close
Exit Sub
End If
For i = 1 To grs.RecordCount
fk11 = grs.Fields(2).Value
If fk11 <> "0:00:00" Then
fk1 = Len(fk11)
fk12 = left(fk11, 4)
fk13 = right(fk11, fk1 - 5)
fk2 = Len(fk13)
SearchString = fk13 ' 被搜索的字符串。
SearchChar = "-" ' 要查找字符串 "P"。
MyPos = InStr(1, SearchString, SearchChar, 1)
fk14 = left(fk13, MyPos - 1)
fk15 = right(fk13, fk2 - MyPos)
fk16 = fk12 & "-" & fk14 & "-" & fk15
da1 = Format(fk11, "yyyy-mm-dd")
da2 = Format(mvda1, "yyyy-mm-dd")
da3 = Format(mvda2, "yyyy-mm-dd")
If da1 >= da2 And da1 <= da3 Then
j = j + 1
sum = sum + grs.Fields(52).Value
If grs.Fields(53) = "测量一所一组" Then
s1 = s1 + grs.Fields(54).Value
s2 = s2 + grs.Fields(55).Value
s3 = s3 + grs.Fields(56).Value
End If
If grs.Fields(57) = "测量一所一组" Then
s4 = s4 + grs.Fields(58).Value
s5 = s5 + grs.Fields(59).Value
s6 = s6 + grs.Fields(60).Value
End If
If grs.Fields(84) = "测量一所一组" Then
s7 = s7 + grs.Fields(86).Value
s8 = s8 + grs.Fields(87).⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -