📄 form63.frm

📁 办公自动化 vb+server2
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
        If hzrs.Fields(0).Value = Form63.ListView1.ListItems.Item(j) Then
          If hzrs.Fields(10).Value = username Then
            MyPos1 = 1
          End If
          
          If hzrs.Fields(13).Value = "0" And hzrs.Fields(15).Value = "0" Then
             MyPos = 1
          End If
          
          If hzrs.Fields(13).Value <> "0" Or hzrs.Fields(15).Value <> "0" Then
            c1 = hzrs.Fields(14).Value
            c2 = hzrs.Fields(16).Value
            c4 = c1 & c2
            SearchString = c4 ' 被搜索的字符串。
            SearchChar = "改"   ' 要查找字符串 "P"
            MyPos = InStr(1, SearchString, SearchChar, 1)
          End If
          
          If MyPos <> 0 And MyPos1 <> 0 Then
            Form61.Text1(0).Text = hzrs.Fields(0).Value
            Form61.Combo1.Text = hzrs.Fields(1).Value
            For e = 2 To 6
              If hzrs.Fields(e).Value = 0 Then
                Form61.Text1(e).Text = ""
              Else
                Form61.Text1(e - 1).Text = hzrs.Fields(e).Value
              End If
            Next
           Form61.Combo2.Text = hzrs.Fields(7).Value
            For f = 8 To 16
             If hzrs.Fields(f).Value = 0 Then
               Form61.Text1(f - 2).Text = ""
             Else
               Form61.Text1(f - 2).Text = hzrs.Fields(f).Value
             End If
            Next
          Else
            l = l + 1
          End If
        End If
      hzrs.MoveNext
     Next
  End If
Next
hzrs.Close

If l = 0 Then
   For z = 1 To 10
     Form61.Text1(z).Enabled = True
   Next
   Form61.Combo1.Enabled = True
   Form61.Combo2.Enabled = True
   Form61.Text1(8).Enabled = False
   Form61.Command1.Visible = True
   Form61.Command2.Visible = True
   Form61.Show vbModal
   Else
   MsgBox "不能修改该数据,没有领导批示或数据录入权属不同！", vbInformation, "提示"
      For p = 1 To Form63.ListView1.ListItems.Count
         Form63.ListView1.ListItems.Item(p).Checked = False
      Next
End If
   
End Sub

Private Sub Picture2_Click()
Dim i, j, m, n, p, k As Integer
Dim a As String
Dim c, MyPos, MyPos1 As Integer
Dim c1, c2, c3, c4, c5, SearchString, SearchChar As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
m = 0
k = 0
For i = 1 To Form63.ListView1.ListItems.Count
  If Form63.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
     normalstring(m) = Form63.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
            hzrs.CursorLocation = adUseClient
            hzrs.Open "select * from 经营人员结算单", hzconn
             For i = 1 To hzrs.RecordCount
             

          

          
               If normalstring(j) = hzrs.Fields(0).Value Then    '总共125个字段
          
                  If hzrs.Fields(10).Value = username Then
                    MyPos1 = 1
                  End If
          
                 If hzrs.Fields(13).Value = "0" And hzrs.Fields(15).Value = "0" Then
                    MyPos = 1
                 End If
          
                 If hzrs.Fields(13).Value <> "0" Or hzrs.Fields(15).Value <> "0" Then
                    c1 = hzrs.Fields(14).Value
                    c2 = hzrs.Fields(16).Value
                    c4 = c1 & c2
                     SearchString = c4 ' 被搜索的字符串。
                     SearchChar = "删"   ' 要查找字符串 "P"
                    MyPos = InStr(1, SearchString, SearchChar, 1)
                 End If
          
                 If MyPos <> 0 And MyPos1 <> 0 Then
                              k = k + 1
                              hzrs.Delete
                 End If
               End If
              hzrs.MoveNext
             Next
            hzrs.Close
         Next
    End If
    If k = 1 Then
        MsgBox "删除完毕！", vbInformation, "提示"
         Unload Me
      Else
        MsgBox "不能删除该数据,没有领导批示或数据录入权属不同！", vbInformation, "提示"
            For p = 1 To Form63.ListView1.ListItems.Count
                Form63.ListView1.ListItems.Item(p).Checked = False
            Next
    End If
    
  Else   ' 用户按下“否”。
   MyString = "No"   ' 完成某操作。
    For p = 1 To Form63.ListView1.ListItems.Count
       Form63.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 Form63.ListView1.ListItems.Count
  If Form63.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 "工程名称", 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 "结算员日期", adDate, 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 Form63.ListView1.ListItems.Count
      If Form63.ListView1.ListItems.Item(m).Checked = True Then
        hzrs.CursorLocation = adUseClient
        hzrs.Open "select * from 经营人员结算单", hzconn, adOpenKeyset, adLockPessimistic
          For n = 1 To hzrs.RecordCount
             If hzrs.Fields(0).Value = Form63.ListView1.ListItems.Item(m) Then
               With zrs
                  .AddNew
                  .Fields(0).Value = hzrs.Fields(1).Value
                 For ghz = 1 To 11
                  .Fields(ghz).Value = hzrs.Fields(ghz + 1).Value
                 Next
               End With
            End If
          hzrs.MoveNext
       Next
     hzrs.Close
    End If
  Next
  zrs.Update
  zrs.Close
  zconn.Close
  MsgBox "数据保存完毕！", vbInformation, "提示"
Else   ' 用户按下“否”。
   MyString = "No"   ' 完成某操作。
   For p = 1 To Form63.ListView1.ListItems.Count
      Form63.ListView1.ListItems.Item(p).Checked = False
   Next
End If
Unload Me
End Sub

Private Sub Picture4_Click()
Unload Me
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -