📄 form39.frm

📁 办公自动化 vb+server2
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
     .Fields(19) = a19
  End With
  ln = MsgBox("档案部信息增加完成！", vbInformation, "提示")
End If



  End If

gzrs.MoveNext
Next
gzrs.Close




                 Form44.ListView1.ListItems.Clear
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                     l = 0
                    If lty13 = "4" Then
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(11).Value = "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                    End If
                    If lty13 = "6" Then
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(13).Value = "0" And gzrs.Fields(11).Value <> "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                    End If
                     If lty13 = "8" Then
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(16).Value = "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                    End If
                     If lty13 = "10" Then
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(18).Value = "0" And gzrs.Fields(16).Value <> "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                    End If


                  gzrs.Close
                 If Form44.ListView1.ListItems.Count <> 0 Then
                   Form44.ListView1.ListItems(Form44.ListView1.ListItems.Count).Selected = True
                   Form44.ListView1.SelectedItem.EnsureVisible
                   Form44.ListView1.Refresh
                End If


   If lty13 = "7" Or lty13 = "9" Or lty13 = "11" Then
      chututongyong
    End If
   If lty13 = "5" Then
      chututongyong1
    End If
Unload Me
End Sub

Private Sub Command7_Click()
For i = 1 To Form44.ListView1.ListItems.Count
  Form44.ListView1.ListItems.Item(i).Checked = False
Next
Unload Me
End Sub

Private Sub Command8_Click()
For i = 1 To Form43.ListView1.ListItems.Count
  Form43.ListView1.ListItems.Item(i).Checked = False
Next
Unload Me
End Sub


Private Sub Command9_Click()
Dim i, m, n, j, k As Integer

           With Form39.Cell1
     '////////////////////////////////////////////////////////////公共部分

        For i = 2 To 12
            .DoDrawHLine 1, 4, i, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)左右横线
        Next
        For j = 0 To 4
            .DoDrawVLine 3, 12, j, False, vbBlack, 1 '(开始行,结束行,所在列,上下线,颜色,线粗细)上下竖线
        Next
'   '////////////////////////////////////////////////////////////1行
                .DoSetCellAlignment 1, 0, 5 '使字体居中..列行
                 .DoJoinCells 1, 1, 4, 1 '合并列成为一行'列行列行
                 .DoDelHLine 1, 1, 1, True '删除网格线
                 .DoSetCellString 1, 1, "  哈尔滨市勘察测绘研究院购图单" '列行
                 .DoSetCellFont 1, 1, 18, 1, 宋体 '字体大小
                 .DoSetRowHeight 1, 80
'   '////////////////////////////////////////////////////////////二行
                .DoSetCellAlignment 1, 0, 5 '使字体居中..列行
                 .DoJoinCells 1, 2, 4, 2 '合并列成为一行'列行列行
                 .DoSetRowHeight 2, 40

'  '////////////////////////////////////////////////////////////三行

         For m = 3 To 12
           .DoSetCellAlignment 1, m, 5 '使字体居中
           .DoSetCellAlignment 2, m, 5 '使字体居中
           .DoSetCellFont 1, m, 8, 1, 宋体
           .DoSetCellFont 2, m, 8, 1, 宋体
           .DoSetCellString 2, m, gzrs.Fields(m - 3)
         Next
         .DoSetCellString 1, 3, "购图编号" '列行
         .DoSetCellString 1, 4, "购图单位" '列行
         .DoSetCellString 1, 5, "经办人及电话" '列行
         .DoSetCellString 1, 6, "比例尺" '列行
         .DoSetCellString 1, 7, "图号" '列行
         .DoSetCellString 1, 8, "地区类别" '列行
         .DoSetCellString 1, 9, "全额" '列行
         .DoSetCellString 1, 10, "购图用途" '列行
         .DoSetCellString 1, 11, "购图日期" '列行
         .DoSetCellString 1, 12, "经办人" '列行
    For n = 3 To 12
           .DoSetCellAlignment 3, n, 5 '使字体居中
           .DoSetCellAlignment 4, n, 5 '使字体居中
           .DoSetCellFont 3, n, 8, 1, 宋体
           .DoSetCellFont 4, n, 8, 1, 宋体
           .DoSetCellString 4, n, gzrs.Fields(n + 7)
         Next
         .DoSetCellString 3, 3, "经办人备注" '列行
         .DoSetCellString 3, 4, "审核人" '列行
         .DoSetCellString 3, 5, "审核人备注" '列行
         .DoSetCellString 3, 6, "财务部" '列行
         .DoSetCellString 3, 7, "财务部收款" '列行
         .DoSetCellString 3, 8, "财务部备注" '列行
         .DoSetCellString 3, 9, "出图部门" '列行
         .DoSetCellString 3, 10, "出图部门备注" '列行
         .DoSetCellString 3, 11, "档案部" '列行
         .DoSetCellString 3, 12, "档案部备注" '列行
         For i = 2 To 12
            .DoSetRowHeight i, 50 '行高
         Next
            .DoSetColWidth 1, 100 '列宽
            .DoSetColWidth 2, 200 '列宽
            .DoSetColWidth 3, 100 '列宽
            .DoSetColWidth 4, 200 '列宽

'                   .DoRedrawAll
             End With
 Form39.Cell1.DoPrintPreview True
End Sub

Private Sub Form_Load()
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With
da = Date
Text1(8).Text = da
If lty14 = "1" Then
     For m = 0 To 8
      Form39.Text1(m).Enabled = True
     Next
     Form39.Text1(10).Enabled = True
     Form39.Text1(9).Text = username
     Form39.ListView1.Visible = True
     Form39.Command1.Visible = True
     Form39.Command2.Visible = True
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command6.Visible = False
     Form39.Command7.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
     
End If
If lty13 = "2" Then
    Form39.Command3.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command6.Visible = False
     Form39.Command7.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "3" Then
     Form39.Command4.Visible = True
     Form39.Command5.Visible = True
     Form39.Text1(0).Enabled = False
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command6.Visible = False
     Form39.Command7.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "4" Then
      Form39.Command6.Visible = True
      Form39.Command7.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "5" Then
      Form39.Command6.Visible = True
      Form39.Command8.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command7.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "6" Then
      Form39.Command6.Visible = True
      Form39.Command7.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "7" Then
      Form39.Command6.Visible = True
      Form39.Command8.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command7.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "8" Then
      Form39.Command6.Visible = True
      Form39.Command8.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command7.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "9" Then
      Form39.Command6.Visible = True
      Form39.Command8.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command7.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "10" Then
      Form39.Command6.Visible = True
      Form39.Command7.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command8.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "11" Then
      Form39.Command6.Visible = True
      Form39.Command8.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command7.Visible = False
     Form39.Command9.Visible = False
     Form39.Command10.Visible = False
End If
If lty13 = "12" Then
      Form39.Command9.Visible = True
      Form39.Command10.Visible = True
     Form39.ListView1.Visible = False
     Form39.Command1.Visible = False
     Form39.Command2.Visible = False
     Form39.Command3.Visible = False
     Form39.Command4.Visible = False
     Form39.Command5.Visible = False
     Form39.Command6.Visible = False
     Form39.Command7.Visible = False
     Form39.Command8.Visible = False
End If
End Sub
上一页 1 2 34
💿 文件大小 2918 K
👤 上传用户 libin2722
📂 所属分类 SQL Server
🏷️ 相关标签

#server #vb #办公自动化
⌨️ 快捷键说明

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