form44.frm

办公自动化 vb+server2

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form44 
   BorderStyle     =   0  'None
   Caption         =   "Form44"
   ClientHeight    =   8010
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12165
   LinkTopic       =   "Form44"
   Picture         =   "Form44.frx":0000
   ScaleHeight     =   8010
   ScaleWidth      =   12165
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "增加"
      Height          =   300
      Left            =   3720
      Picture         =   "Form44.frx":2C55
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   7560
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      Caption         =   "取消"
      Height          =   300
      Left            =   7440
      Picture         =   "Form44.frx":3DF9
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   7560
      Width           =   735
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   7455
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   12135
      _ExtentX        =   21405
      _ExtentY        =   13150
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      Checkboxes      =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   16711680
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   20
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "购图编号"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Text            =   "购图单位"
         Object.Width           =   7056
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "经办人及电话"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   3
         Text            =   "比例尺"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   4
         Text            =   "图号"
         Object.Width           =   7056
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   5
         Text            =   "地区类别"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   6
         Text            =   "全额"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   7
         Text            =   "购图用途"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   8
         Text            =   "购图日期"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   9
         Text            =   "经办人"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   10
         Text            =   "经办人备注"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   11
         Text            =   "审核人"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   12
         Text            =   "审核人备注"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   13
         Text            =   "财务部"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   14
         Text            =   "财务部实收额"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   15
         Text            =   "财务部备注"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   16
         Text            =   "出图部门"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   17
         Text            =   "出图部门备注"
         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         =   "Form44.frx":4F9D
   End
End
Attribute VB_Name = "Form44"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, m, n, s, j As Integer
For i = 1 To Form44.ListView1.ListItems.Count
  If Form44.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "选择一条记录！", vbInformation, "提示"
   Exit Sub
End If
gzrs.CursorLocation = adUseClient
gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic

For n = 1 To Form44.ListView1.ListItems.Count
  If Form44.ListView1.ListItems.Item(n).Checked = True Then
        For s = 1 To gzrs.RecordCount
          If gzrs.Fields(0).Value = Form44.ListView1.ListItems.Item(n) Then
               lty14 = gzrs.Fields(12).Value
               lty15 = gzrs.Fields(14).Value
               lty16 = gzrs.Fields(17).Value
               lty17 = gzrs.Fields(19).Value
                 If gzrs.Fields(0).Value = 0 Then
                   Form39.Text1(0) = ""
                  Else
                  Form39.Text1(0) = gzrs.Fields(0).Value
                 End If
                For j = 1 To 19
                 If gzrs.Fields(j).Value = 0 Then
                   Form39.Text1(j) = ""
                  Else
                  Form39.Text1(j) = gzrs.Fields(j).Value
                 End If
                Next
                
                Form39.Text1(1) = ""
                Form39.Text1(2) = ""
                Form39.Text1(6) = gzrs.Fields(6).Value
                
          End If
          gzrs.MoveNext
        Next
  End If
Next
gzrs.Close
If lty13 = "4" Then
   Form39.Text1(11).Text = username
   If lty14 = 0 Then
      Form39.Text1(12).Enabled = True
   End If
End If
If lty13 = "6" Then
   Form39.Text1(13).Text = username
   If lty15 = 0 Then
      Form39.Text1(14).Enabled = True
      Form39.Text1(15).Enabled = True
   End If
End If
If lty13 = "8" Then
   Form39.Text1(16).Text = username
   If lty16 = 0 Then
      Form39.Text1(17).Enabled = True
   End If
End If
If lty13 = "10" Then
   Form39.Text1(18).Text = username
   If lty17 = 0 Then
      Form39.Text1(19).Enabled = True
   End If
End If
Form39.Show vbModal
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

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


Private Sub ListView1_DblClick()
Dim i, m, n, s, j As Integer
For i = 1 To Form44.ListView1.ListItems.Count
  If Form44.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "选择一条记录！", vbInformation, "提示"
   Exit Sub
End If
gzrs.CursorLocation = adUseClient
gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic

For n = 1 To Form44.ListView1.ListItems.Count
  If Form44.ListView1.ListItems.Item(n).Checked = True Then
        For s = 1 To gzrs.RecordCount
          If gzrs.Fields(0).Value = Form44.ListView1.ListItems.Item(n) Then
               lty14 = gzrs.Fields(12).Value
               lty15 = gzrs.Fields(14).Value
               lty16 = gzrs.Fields(17).Value
               lty17 = gzrs.Fields(19).Value
                 If gzrs.Fields(0).Value = 0 Then
                   Form39.Text1(0) = ""
                  Else
                  Form39.Text1(0) = gzrs.Fields(0).Value
                 End If
                For j = 1 To 19
                 If gzrs.Fields(j).Value = 0 Then
                   Form39.Text1(j) = ""
                  Else
                  Form39.Text1(j) = gzrs.Fields(j).Value
                 End If
                Next
                Form39.Text1(1) = ""
                Form39.Text1(2) = ""
                Form39.Text1(6) = gzrs.Fields(6).Value
          End If
          gzrs.MoveNext
        Next
  End If
Next
gzrs.Close
If lty13 = "4" Then
   Form39.Text1(11).Text = username
   If lty14 = 0 Then
      Form39.Text1(12).Enabled = True
   End If
End If
If lty13 = "6" Then
   Form39.Text1(13).Text = username
   If lty15 = 0 Then
      Form39.Text1(14).Enabled = True
      Form39.Text1(15).Enabled = True
   End If
End If
If lty13 = "8" Then
   Form39.Text1(16).Text = username
   If lty16 = 0 Then
      Form39.Text1(17).Enabled = True
   End If
End If
If lty13 = "10" Then
   Form39.Text1(18).Text = username
   If lty17 = 0 Then
      Form39.Text1(19).Enabled = True
   End If
End If
Form39.Show vbModal
End Sub