form65.frm

办公自动化 vb+server2

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form65 
   BorderStyle     =   0  'None
   Caption         =   "Form65"
   ClientHeight    =   8010
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12045
   LinkTopic       =   "Form65"
   Picture         =   "Form65.frx":0000
   ScaleHeight     =   8010
   ScaleWidth      =   12045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   64768
      Left            =   10200
      Top             =   7545
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确定"
      Height          =   300
      Left            =   3360
      Picture         =   "Form65.frx":2C55
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   7545
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   300
      Left            =   8040
      Picture         =   "Form65.frx":3DF9
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   7545
      Width           =   855
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   6975
      Left            =   0
      TabIndex        =   2
      Top             =   465
      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        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "序号"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Text            =   "姓名"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "工程编号"
         Object.Width           =   2648
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   3
         Text            =   "工程名称"
         Object.Width           =   4939
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   4
         Text            =   "建设单位"
         Object.Width           =   4410
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   5
         Text            =   "结算员"
         Object.Width           =   2247
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   6
         Text            =   "结算时间"
         Object.Width           =   2647
      EndProperty
      Picture         =   "Form65.frx":4F9D
   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            =   3240
      TabIndex        =   4
      Top             =   120
      Width           =   2055
   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            =   7080
      TabIndex        =   3
      Top             =   120
      Width           =   2775
   End
End
Attribute VB_Name = "Form65"
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 Form65.ListView1.ListItems.Count
  If Form65.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 Form65.ListView1.ListItems.Count
  If Form65.ListView1.ListItems.Item(i).Checked = True Then
     For j = 0 To hzrs.RecordCount - 1
        If hzrs.Fields(0).Value = Form65.ListView1.ListItems.Item(i) Then
        Form66.Text1(0).Text = hzrs.Fields(0).Value
        Form66.Combo1.Text = hzrs.Fields(1).Value
         For l = 2 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form66.Text1(l - 1).Text = ""
            Else
            Form66.Text1(l - 1).Text = hzrs.Fields(l).Value
          End If
         Next
        Form66.Combo2.Text = hzrs.Fields(7).Value
         For l = 8 To 16
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form66.Text1(l - 2).Text = ""
            Else
            Form66.Text1(l - 2).Text = hzrs.Fields(l).Value
          End If
         Next
         
        End If
      hzrs.MoveNext
     Next
   End If
Next
hzrs.Close
If ii(73) <> "0" Then
Form66.Text1(11).Text = username
If kk(14) = "0" Then
  Form66.Text1(12).Enabled = True
End If
Form66.Command1.Visible = True
Form66.Command2.Visible = True
End If
If ii(75) <> "0" Then
Form66.Text1(13).Text = username
If kk(16) = "0" Then
  Form66.Text1(14).Enabled = True
End If
Form66.Command1.Visible = True
Form66.Command2.Visible = True
End If
   Form66.Show vbModal
For p = 1 To Form65.ListView1.ListItems.Count
   Form65.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

Form65.ListView1.ListItems.Clear
   hzrs.CursorLocation = adUseClient
   hzrs.Open "select * from 经营人员结算单 order by ID", hzconn, adOpenKeyset, adLockPessimistic
    For n = 1 To hzrs.RecordCount
    If ii(73) <> "0" Then
     If hzrs.Fields(13).Value = "0" Then
          b = b + 1
        Form65.ListView1.ListItems.Add , , hzrs.Fields(0).Value
        Form65.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(1).Value
        Form65.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(2).Value
        Form65.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(3).Value
        Form65.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(4).Value
        Form65.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(10).Value
        Form65.ListView1.ListItems.Item(b).SubItems(6) = hzrs.Fields(11).Value
                If hzrs.Fields(13).Value = "0" Then
                        Form65.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form65.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
        End If
      End If
    If ii(75) <> "0" Then
     If hzrs.Fields(15).Value = "0" Then
          b = b + 1
        Form65.ListView1.ListItems.Add , , hzrs.Fields(0).Value
        Form65.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(1).Value
        Form65.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(2).Value
        Form65.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(3).Value
        Form65.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(4).Value
        Form65.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(10).Value
        Form65.ListView1.ListItems.Item(b).SubItems(6) = hzrs.Fields(11).Value
                If hzrs.Fields(13).Value = "0" Then
                        Form65.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form65.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
                If hzrs.Fields(15).Value = "0" And hzrs.Fields(13).Value <> "0" Then
                        Form65.ListView1.ListItems.Item(b).ForeColor = &HC0C000 '天蓝色
                  For m = 1 To 5
                    Form65.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000 '天蓝色
                  Next
                End If
        End If
      End If
     hzrs.MoveNext
    Next
   hzrs.Close
   If b <> 0 Then
    Form65.ListView1.ListItems(Form65.ListView1.ListItems.Count).Selected = True
    Form65.ListView1.SelectedItem.EnsureVisible
    Form65.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 Form65.ListView1.ListItems.Count
  If Form65.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 Form65.ListView1.ListItems.Count
  If Form65.ListView1.ListItems.Item(i).Checked = True Then
     For j = 0 To hzrs.RecordCount - 1
        If hzrs.Fields(0).Value = Form65.ListView1.ListItems.Item(i) Then
        Form66.Text1(0).Text = hzrs.Fields(0).Value
        Form66.Combo1.Text = hzrs.Fields(1).Value
         For l = 2 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form66.Text1(l - 1).Text = ""
            Else
            Form66.Text1(l - 1).Text = hzrs.Fields(l).Value
          End If
         Next
        Form66.Combo2.Text = hzrs.Fields(7).Value
         For l = 8 To 16
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form66.Text1(l - 2).Text = ""
            Else
            Form66.Text1(l - 2).Text = hzrs.Fields(l).Value
          End If
         Next
         
        End If
      hzrs.MoveNext
     Next
   End If
Next
hzrs.Close
If ii(73) <> "0" Then
Form66.Text1(11).Text = username
If kk(14) = "0" Then
  Form66.Text1(12).Enabled = True
End If
Form66.Command1.Visible = True
Form66.Command2.Visible = True
End If
If ii(75) <> "0" Then
Form66.Text1(13).Text = username
If kk(16) = "0" Then
  Form66.Text1(14).Enabled = True
End If
Form66.Command1.Visible = True
Form66.Command2.Visible = True
End If
   Form66.Show vbModal
For p = 1 To Form65.ListView1.ListItems.Count
   Form65.ListView1.ListItems.Item(p).Checked = False
Next
End Sub