form42.frm

办公自动化 vb+server2

         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
      Picture         =   "Form42.frx":541A
   End
   Begin VB.Label Label2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1200
      TabIndex        =   8
      Top             =   7560
      Width           =   11175
   End
End
Attribute VB_Name = "Form42"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim normalstring(30) As String
Dim mm As Integer
Dim string1, string2 As String
Option Explicit
Dim rn As ADODB.Connection


Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With
End Sub



Private Sub Picture1_Click()
Dim i, m, j, n, k, p As Integer
    lty13 = "3"
For i = 1 To Form42.ListView1.ListItems.Count
  If Form42.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
    Form39.Text1(0).Text = Form42.ListView1.ListItems.Item(i)
     For p = 1 To 19
         Form39.Text1(p).Text = Form42.ListView1.ListItems.Item(i).ListSubItems(p)
     Next
  End If
Next
If m <> 1 Then

   MsgBox "修改一条记录！", vbInformation, "提示"
   Exit Sub
   Else
   For j = 1 To 10
     Form39.Text1(j).Enabled = True
   Next
   Form39.Text1(9).Enabled = False
   Form39.Show vbModal
End If
End Sub

Private Sub Picture2_Click()
Dim i, j, m, n, p, l As Integer
Dim a As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
m = 0
l = 0
For i = 1 To Form42.ListView1.ListItems.Count
  If Form42.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
     normalstring(m) = Form42.ListView1.ListItems.Item(i)
  End If
Next
If m = 0 Then
   MsgBox "请选择要删除的数据！", vbInformation, "提示"
   Exit Sub
End If

Msg = "是否想删除这条信息"   ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton2   ' 定义按钮。
Title = "提示"   ' 定义标题。
Help = "DEMO.HLP"   ' 定义帮助文件。
Ctxt = 1000   ' 定义标题
      ' 上下文。
      ' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then   ' 用户按下“是”。
'   MyString = "Yes"   ' 完成某操作。
          If m > 0 Then
            For j = 1 To m
              gzrs.CursorLocation = adUseClient
              gzrs.Open "出图", gzconn
            For i = 1 To gzrs.RecordCount
             If normalstring(j) = gzrs.Fields(0).Value And gzrs.Fields(13).Value = "0" Then
                   l = l + 1
                    gzrs.Delete
              End If
            gzrs.MoveNext
            Next
            gzrs.Close
            Next
        End If
        If l <> 0 Then
          MsgBox "删除完毕！", vbInformation, "提示"
          Unload Me
        Else
          MsgBox "审批人已审批，无权进行删除", vbInformation, "提示"
        End If
Else   ' 用户按下“否”。
   MyString = "No"   ' 完成某操作。
For p = 1 To Form42.ListView1.ListItems.Count
   Form42.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 Form42.ListView1.ListItems.Count
  If Form42.ListView1.ListItems.Item(s).Checked = True Then
     t = t + 1
  End If
Next
If t = 0 Then
   MsgBox "请选择要保存的数据！", vbInformation, "提示"
   Exit Sub
End If

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, 180     '表的第一个字段
    tbl.Columns.Append "购图单位", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "经办人及电话", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "比例尺", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "图号", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "地区类别", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "全额", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "购图用途", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "购图日期", adVarWChar, 180    '表的第一个字段
    tbl.Columns.Append "经办人", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "经办人备注", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "审核人", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "审核人备注", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "财务部", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "财务部实收额", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "财务部备注", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "出图部门", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "出图部门备注", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "档案部", adVarWChar, 180  '表的第一个字段
    tbl.Columns.Append "档案部备注", adVarWChar, 180  '表的第一个字段
  zcat.Tables.Append tbl    '建立数据表'
  zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & zstrTableName, zconn, adOpenKeyset, adLockPessimistic

 For m = 1 To Form42.ListView1.ListItems.Count
       If Form42.ListView1.ListItems.Item(m).Checked = True Then
         With zrs
          .AddNew
          .Fields(0).Value = Form42.ListView1.ListItems.Item(m)
           For ghz = 1 To 19
            .Fields(ghz).Value = Form42.ListView1.ListItems.Item(m).SubItems(ghz)
           Next
         End With
       End If
  Next
  zrs.Update
  zrs.Close
  zconn.Close
  MsgBox "数据保存完毕！", vbInformation, "提示"



Else   ' 用户按下“否”。
   MyString = "No"   ' 完成某操作。
  
   For p = 1 To Form42.ListView1.ListItems.Count
      Form42.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
     lty13 = "12"
For i = 1 To Form42.ListView1.ListItems.Count
  If Form42.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 Form42.ListView1.ListItems.Count
  If Form42.ListView1.ListItems.Item(i).Checked = True Then
              gzrs.CursorLocation = adUseClient
              gzrs.Open "出图", gzconn
l = 0
  For j = 1 To gzrs.RecordCount
   If gzrs.Fields(1).Value = Form42.ListView1.ListItems.Item(i).ListSubItems(1) Then
    For m = 0 To 19
    If gzrs.Fields(m) = 0 Then
        hh(m) = ""
        Else
        hh(m) = gzrs.Fields(m)
     End If
    Next
    For m = 0 To 19
      Form39.Text1(m).Text = hh(m)
    Next

    Form39.Show vbModal
   End If
gzrs.MoveNext
Next
gzrs.Close
  End If
Next

End Sub