form21.frm

办公自动化 vb+server2

        End If
                   If k = 1 Then
                       MsgBox "删除完毕！", vbInformation, "提示"
                       Unload Me
                    Else
                       MsgBox "不能删除该数据,没有领导批示或数据录入权属不同！", vbInformation, "提示"
                       
                       For p = 1 To Form21.ListView1.ListItems.Count
                          Form21.ListView1.ListItems.Item(p).Checked = False
                       Next
                   End If
'        Unload Me
Else   ' 用户按下“否”。

   MyString = "No"   ' 完成某操作。
For p = 1 To Form21.ListView1.ListItems.Count
   Form21.ListView1.ListItems.Item(p).Checked = False
Next
End If

End Sub

Private Sub Picture3_Click()
Dim f, MyPos, i, j, m, n, q, l, r, p, ghz, s, t As Integer
Dim a, b, c, d, e As String
Dim zfm, zstrTableName, zpstr, Msg, Style, Title, Help, Ctxt, Response, MyString, SearchString, SearchChar As String
 Dim tbl As New Table
'gfm变量用来获取用户输入的文件名
For s = 1 To Form21.ListView1.ListItems.Count
  If Form21.ListView1.ListItems.Item(s).Checked = True Then
     t = t + 1
  End If
Next
Msg = "是否想保存数据"   ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton2   ' 定义按钮。
Title = "提示"   ' 定义标题。
Help = "DEMO.HLP"   ' 定义帮助文件。
Ctxt = 1000   ' 定义标题
      ' 上下文。
      ' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then   ' 用户按下“是”。
'   MyString = "Yes"   ' 完成某操作。
CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|"
CommonDialog1.DialogTitle = "创建月统计数据的数据库"
CommonDialog1.ShowSave
CommonDialog1.InitDir = "c:\"
If CommonDialog1.FileName = "" Then
   MsgBox "你必须输入一个文件名，请重新保存一次！"
   Exit Sub
Else
   zfm = CommonDialog1.FileName
End If
zpstr = "Provider=Microsoft.Jet.OLEDB.4.0;"   '不能把这里的4.0改为3.51
zpstr = zpstr & "Data Source=" & zfm
zcat.Create zpstr  '创建数据库
   zstrTableName = "统计数据"
   zcat.ActiveConnection = zpstr
    tbl.Name = zstrTableName   '表的名称
tbl.Columns.Append "单位名称", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "工程编号", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "时间", adDate, 200    '表的第一个字段
          tbl.Columns.Append "项目名称1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "总 计", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "其它1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "其它2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "其它3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "总计", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "总计系数", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "总计系数2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期1", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期2", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "备注", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "项目名称9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单位9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "数量9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "单价9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "系数9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "技术费9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "合计9", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额3", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额4", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额5", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额6", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额7", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "作业组8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "超期8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "产值8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "组金额8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "队金额8", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "院长签字", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "院长注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "主管院长签字", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "主管院长注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "生产科长", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "生产科长注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "结算员", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "结算员注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "实际回款金额", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "打折", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "财务员", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "财务员注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "检查人", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "检查人注释", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "预收款", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "财务部差额", adVarWChar, 200     '表的第一个字段
          tbl.Columns.Append "财务部差额注释", adVarWChar, 200     '表的第一个字段
          
    
  zcat.Tables.Append tbl    '建立数据表'
  zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & zstrTableName, zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form21.ListView1.ListItems.Count
       If Form21.ListView1.ListItems.Item(m).Checked = True Then
   grs.CursorLocation = adUseClient
   grs.Open biaoming, gconn, adOpenKeyset, adLockPessimistic
   For n = 1 To grs.RecordCount
      If grs.Fields(1).Value = Form21.ListView1.ListItems.Item(m).ListSubItems(1) Then
          With zrs
          .AddNew
          .Fields(0).Value = grs.Fields(0).Value
           For ghz = 1 To 130
            .Fields(ghz).Value = grs.Fields(ghz).Value
           Next
         End With
      End If
    grs.MoveNext
   Next
   grs.Close

       End If
  Next
  zrs.Update
  zrs.Close
  zconn.Close
  MsgBox "数据保存完毕！", vbInformation, "提示"
Else   ' 用户按下“否”。
   MyString = "No"   ' 完成某操作。
   For p = 1 To Form21.ListView1.ListItems.Count
      Form21.ListView1.ListItems.Item(p).Checked = False
   Next
End If

Unload Me
End Sub

Private Sub Picture4_Click()
Unload Me
End Sub
Private Sub Picture5_Click()
Dim i, j, m As Integer
Static l As Integer
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, a71, a72, a73, a74, a75, a76, a77, a78, a79, a80, a81, a82, a83, a84, a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95, a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a111, a112, a113, a114, a115, a116, a117, a118, a119, a120, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130
For i = 1 To Form21.ListView1.ListItems.Count
  If Form21.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "打印一条记录！", vbInformation, "提示"
   Exit Sub
End If

For i = 1 To Form21.ListView1.ListItems.Count
  If Form21.ListView1.ListItems.Item(i).Checked = True Then
  grs.CursorLocation = adUseClient
  grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
l = 0
  For j = 1 To grs.RecordCount
   If grs.Fields(1).Value = Form21.ListView1.ListItems.Item(i).ListSubItems(1) Then
    If grs.Fields(0) = 0 Then
        a1 = ""
        Else
        a1 = grs.Fields(0)
     End If
     If grs.Fields(1) = 0 Then
        a2 = ""
        Else
        a2 = grs.Fields(1)
     End If
     If grs.Fields(2) = 0 Then
        a3 = ""
        Else
        a3 = grs.Fields(2)
     End If
     If grs.Fields(3) = 0 Then
        a4 = ""
        Else
        a4 = grs.Fields(3)
     End If
     If grs.Fields(4) = 0 Then
        a5 = ""
        Else
        a5 = grs.Fields(4)
     End If
     If grs.Fields(5) = 0 Then
        a6 = ""
        Else
        a6 = grs.Fields(5)
     End If
     If grs.Fields(6) = 0 Then
        a7 = ""
        Else
        a7 = grs.Fields(6)
     End If
     If grs.Fields(7) = 0 Then
        a8 = ""
        Else
        a8 = grs.Fields(7)
     End If
 If grs.Fields(8) = 0 Then
        a9 = ""
        Else
        a9 = grs.Fields(8)
     End If
     If grs.Fields(9) = 0 Then
        a10 = ""
        Else
        a10 = grs.Fields(9)
     End If
     If grs.Fields(10) = 0 Then
        a11 = ""
        Else
        a11 = grs.Fields(10)
     End If
     If grs.Fields(11) = 0 Then
        a12 = ""
        Else
        a12 = grs.Fields(11)
     End If
     If grs.Fields(12) = 0 Then
        a13 = ""
        Else
        a13 = grs.Fields(12)
     End If
     If grs.Fields(13) = 0 Then
        a14 = ""
        Else
        a14 = grs.Fields(13)
     End If
     If grs.Fields(14) = 0 Then
        a15 = ""
        Else
        a15 = grs.Fields(14)
     End If
     If grs.Fields(15) = 0 Then
        a16 = ""
        Else
        a16 = grs.Fields(15)
     End If
     If grs.Fields(16) = 0 Then
        a17 = ""
        Else
        a17 = grs.Fields(16)
     End If
     If grs.Fields(17) = 0 Then
        a18 = ""
        Else
        a18 = grs.Fields(17)
     End If
     If grs.Fields(18) = 0 Then
        a19 = ""
        Else
        a19 = grs.Fields(18)
     End If
     If grs.Fields(19) = 0 Then
        a20 = ""
        Else
        a20 = grs.Fields(19)
     End If
     If grs.Fields(20) = 0 Then
        a21 = ""
        Else
        a21 = grs.Fields(20)
     End If
     If grs.Fields(21) = 0 Then
        a22 = ""
        Else
        a22 = grs.Fields(21)
     End If
     If grs.Fields(22) = 0 Then
        a23 = ""
        Else
        a23 = grs.Fields(22)
     End If
 If grs.Fields(23) = 0 Then
        a24 = ""
        Else
        a24 = grs.Fields(23)
     End If
     If grs.Fields(24) = 0 Then
        a25 = ""
        Else
        a25 = grs.Fields(24)
     End If
     If grs.Fields(25) = 0 Then
        a26 = ""
        Else
        a26 = grs.Fields(25)
     End If
     If grs.Fields(26) = 0 Then
        a27 = ""
        Else
        a27 = grs.Fields(26)
     End If
     If grs.Fields(27) = 0 Then
        a28 = ""
        Else
        a28 = grs.Fields(27)
     End If
     If grs.Fields(28) = 0 Then
        a29 = ""
        Else
        a29 = grs.Fields(28)
     End If
     If grs.Fields(29) = 0 Then
        a30 = ""
        Else
        a30 = grs.Fields(29)
     End If
     If grs.Fields(30) = 0 Then
        a31 = ""
        Else
        a31 = grs.Fields(30)
     End If
     If grs.Fields(31) = 0 Then
        a32 = ""
        Else
        a32 = grs.Fields(31)
     End If
     If grs.Fields(32) = 0 Then
        a33 = ""
        Else
        a33 = grs.Fields(32)
     End If
     If grs.Fields(33) = 0 Then
        a34 = ""
        Else
        a34 = grs.Fields(33)
     End If
     If grs.Fields(34) = 0 Then
        a35 = ""