form55.frm

办公自动化 vb+server2

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form55 
   BorderStyle     =   0  'None
   Caption         =   "Form55"
   ClientHeight    =   8010
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12045
   LinkTopic       =   "Form55"
   Picture         =   "Form55.frx":0000
   ScaleHeight     =   8010
   ScaleWidth      =   12045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   300
      Left            =   8040
      Picture         =   "Form55.frx":2C55
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   7485
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确定"
      Height          =   300
      Left            =   3360
      Picture         =   "Form55.frx":3DF9
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   7485
      Width           =   855
   End
   Begin VB.Timer Timer1 
      Interval        =   64768
      Left            =   10200
      Top             =   7485
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   6975
      Left            =   0
      TabIndex        =   2
      Top             =   405
      Width           =   12045
      _ExtentX        =   21246
      _ExtentY        =   12303
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      Checkboxes      =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      HotTracking     =   -1  'True
      _Version        =   393217
      ForeColor       =   0
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   6
      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           =   3706
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "合同额"
         Object.Width           =   3175
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   3
         Text            =   "下拨合计"
         Object.Width           =   3175
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   4
         Text            =   "结算员"
         Object.Width           =   2600
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   5
         Text            =   "结算时间"
         Object.Width           =   3176
      EndProperty
      Picture         =   "Form55.frx":4F9D
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "财务部没有确认"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   375
      Left            =   8880
      TabIndex        =   5
      Top             =   60
      Width           =   1815
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "勘察经营部长没有审批"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4800
      TabIndex        =   4
      Top             =   60
      Width           =   2775
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "主管院长没有审批"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   60
      Width           =   2055
   End
End
Attribute VB_Name = "Form55"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Dim i, m, j, n, p, l As Integer
Dim p1, p2, p3 As Single
m = 0
For i = 1 To Form55.ListView1.ListItems.Count
  If Form55.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "修改一条记录！", vbInformation, "提示"
   Exit Sub
End If
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
For i = 1 To Form55.ListView1.ListItems.Count
  If Form55.ListView1.ListItems.Item(i).Checked = True Then
     For j = 0 To hzrs.RecordCount - 1
        If hzrs.Fields(1).Value = Form55.ListView1.ListItems.Item(i) Then

         For l = 1 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 1 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 26 To 50
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 51 To 79
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l + 2).Text = ""
            Else
            Form56.Text1(l + 2).Text = hzrs.Fields(l).Value
          End If
         Next

        End If
      hzrs.MoveNext
     Next
   End If
Next
hzrs.Close
If ii(65) <> "0" Then
   Form56.Text1(44).Text = username
   Form56.Text1(45).Enabled = True
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
If ii(66) <> "0" Then
   Form56.Text1(46).Text = username
   Form56.Text1(47).Enabled = True
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
If ii(67) <> "0" Then
   Form56.Text1(48).Text = username
   Form56.Text1(49).Enabled = True
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
   Form56.Show vbModal
For p = 1 To Form55.ListView1.ListItems.Count
   Form55.ListView1.ListItems.Item(p).Checked = False
Next
End Sub

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

Form55.ListView1.ListItems.Clear
   hzrs.CursorLocation = adUseClient
   hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
    For n = 1 To hzrs.RecordCount
    If ii(65) <> "0" Then
     If hzrs.Fields(44).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
        End If
      End If
    If ii(66) <> "0" Then
     If hzrs.Fields(46).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
                If hzrs.Fields(46).Value = "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HC0C000 '天蓝色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000 '天蓝色
                  Next
                End If
        End If
      End If
    If ii(67) <> "0" Then
     If hzrs.Fields(48).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
                If hzrs.Fields(46).Value = "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HC0C000 '天蓝色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000 '天蓝色
                  Next
                End If
                If hzrs.Fields(48).Value = "0" And hzrs.Fields(46).Value <> "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF00FF    '紫色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF00FF    '紫色
                  Next
                End If
        End If
      End If
     hzrs.MoveNext
    Next
   hzrs.Close
   If b <> 0 Then
    Form55.ListView1.ListItems(Form55.ListView1.ListItems.Count).Selected = True
    Form55.ListView1.SelectedItem.EnsureVisible
    Form55.ListView1.Refresh
  End If
End Sub

Private Sub ListView1_DblClick()
Dim i, m, j, n, p, l As Integer
Dim p1, p2, p3 As Single
m = 0
For i = 1 To Form55.ListView1.ListItems.Count
  If Form55.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "修改一条记录！", vbInformation, "提示"
   Exit Sub
End If
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
For i = 1 To Form55.ListView1.ListItems.Count
  If Form55.ListView1.ListItems.Item(i).Checked = True Then
     For j = 0 To hzrs.RecordCount - 1
        If hzrs.Fields(1).Value = Form55.ListView1.ListItems.Item(i) Then
        
         For l = 1 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 1 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 26 To 50
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l).Text = ""
            Else
            Form56.Text1(l).Text = hzrs.Fields(l).Value
          End If
         Next
         For l = 51 To 79
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form56.Text1(l + 2).Text = ""
            Else
            Form56.Text1(l + 2).Text = hzrs.Fields(l).Value
          End If
         Next
         
        End If
      hzrs.MoveNext
     Next
   End If
Next
hzrs.Close
If ii(65) <> "0" Then
   Form56.Text1(44).Text = username
   If kk(45) = "0" Then
      Form56.Text1(45).Enabled = True
   End If
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
If ii(66) <> "0" Then
   Form56.Text1(46).Text = username
   If kk(47) = "0" Then
      Form56.Text1(47).Enabled = True
   End If
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
If ii(67) <> "0" Then
   Form56.Text1(48).Text = username
   If kk(49) = "0" Then
      Form56.Text1(49).Enabled = True
   End If
   Form56.Command1.Visible = True
   Form56.Command2.Visible = True
End If
   Form56.Show vbModal
For p = 1 To Form55.ListView1.ListItems.Count
   Form55.ListView1.ListItems.Item(p).Checked = False
Next
End Sub