m7.bas

办公自动化 vb+server2

kong(42) = "                                          "
kong(43) = "                                           "
kong(44) = "                                            "
kong(45) = "                                             "
kong(46) = "                                              "
kong(47) = "                                               "
kong(48) = "                                                "
kong(49) = "                                                 "
kong(50) = "                                                  "
kong(51) = "                                                   "
kong(52) = "                                                    "
kong(53) = "                                                     "
kong(54) = "                                                      "
kong(55) = "                                                       "
kong(56) = "                                                        "
kong(57) = "                                                         "
kong(58) = "                                                          "
kong(59) = "                                                           "
kong(60) = "                                                            "
kong(61) = "                                                             "
kong(62) = "                                                              "
kong(63) = "                                                               "
kong(64) = "                                                                "
kong(65) = "                                                                 "
kong(66) = "                                                                  "
kong(67) = "                                                                   "
kong(68) = "                                                                    "
kong(69) = "                                                                     "
kong(70) = "                                                                      "
kong(71) = "                                                                       "
kong(72) = "                                                                        "
kong(73) = "                                                                         "
kong(74) = "                                                                          "
kong(75) = "                                                                           "
kong(76) = "                                                                            "
kong(77) = "                                                                             "
kong(78) = "                                                                              "
kong(79) = "                                                                               "
kong(80) = "                                                                                "
kong(81) = "                                                                                 "
kong(82) = "                                                                                  "
kong(83) = "                                                                                   "
kong(84) = "                                                                                    "
kong(85) = "                                                                                     "
kong(86) = "                                                                                      "
kong(87) = "                                                                                       "
kong(88) = "                                                                                        "
kong(89) = "                                                                                         "
kong(90) = "                                                                                          "
kong(91) = "                                                                                           "
kong(92) = "                                                                                            "
kong(93) = "                                                                                             "
kong(94) = "                                                                                              "
kong(95) = "                                                                                               "
kong(96) = "                                                                                                "
kong(97) = "                                                                                                 "
kong(98) = "                                                                                                  "
kong(99) = "                                                                                                   "
kong(100) = "                                                                                                     "
  With Form2.CommonDialog4
  .Filter = "数据库文件(*.txt)|*.txt|" '在commondialog控件中过滤文件
  .FilterIndex = 2
  .ShowSave
  End With
If Form2.CommonDialog4.FileName = "" Then
   MsgBox "你必须输入一个文件名，请重新保存一次！"
   Exit Sub
Else
   zfm = Form2.CommonDialog4.FileName
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(zfm, True)

                  For n = 1 To grs.RecordCount
                     max1 = Len(n)
                     If max1 > max1n Then
                        max1n = max1
                     End If
                           
                      For i = 1 To Len(grs("工程编号"))
                        z4 = Mid(grs("工程编号"), i, 1)
                         If Asc(z4) < 0 Then '是汉字
                          max4 = max4 + 1
                         End If
                      Next
                      max2 = Len(grs("工程编号")) + max4
                      max4 = 0
                      If max2 > max2n Then
                         max2n = max2 'max2n是最大空格数
                      End If
                      
                      If Len(grs("单位名称")) > 20 Then
                        z6 = left(grs("单位名称"), 20)
                        For i = 1 To Len(z6)
                        z4 = Mid(z6, i, 1)
                         If Asc(z4) < 0 Then '是汉字
                          max5 = max5 + 1
                         End If
                        Next
                        max3 = Len(z6) + max5
                        max5 = 0
                       Else
                        For i = 1 To Len(grs("单位名称"))
                        z4 = Mid(grs("单位名称"), i, 1)
                         If Asc(z4) < 0 Then '是汉字
                          max5 = max5 + 1
                         End If
                        Next
                        max3 = Len(grs("单位名称")) + max5
                        max5 = 0
                       End If
                        If max3 > max3n Then
                            max3n = max3
                        End If
                        
                         grs.MoveNext
                       Next
                    grs.MoveFirst



                          zfm1 = "序号" & kong(2) & "工程编号" & kong(max2n - 6) & "单位名称" & kong(max3n - 6) & "状态"
                         a.writeline zfm1
                         a.writeline kong(77)
                        For n = 1 To grs.RecordCount
                          s1 = Len(n)
                          s2 = max1n - s1
                          If s2 = 0 Then
                            z1 = n
                           Else
                            z1 = n & kong(s2)
                          End If

                      For i = 1 To Len(grs("工程编号"))
                        z4 = Mid(grs("工程编号"), i, 1)
                         If Asc(z4) < 0 Then '是汉字
                          max6 = max6 + 1
                         End If
                       Next
                         max7 = Len(grs("工程编号")) + max6
                         max6 = 0

                          s4 = max2n - max7
                          If s4 = "0" Then
                            z2 = grs("工程编号") & kong(2)
                           Else
                            z2 = grs("工程编号") & kong(s4 + 2)
                          End If

                      If Len(grs("单位名称")) > 20 Then
                        z7 = left(grs("单位名称"), 20)
                        For i = 1 To Len(z7)
                        z5 = Mid(z7, i, 1)
                         If Asc(z5) < 0 Then '是汉字
                          max8 = max8 + 1
                         End If
                        Next
                         max9 = Len(z7) + max8
                         max8 = 0
                       Else
                        For i = 1 To Len(grs("单位名称"))
                        z5 = Mid(grs("单位名称"), i, 1)
                         If Asc(z5) < 0 Then '是汉字
                          max8 = max8 + 1
                         End If
                        Next
                         max9 = Len(grs("单位名称")) + max8
                         max8 = 0
                       End If
                       
                           s6 = max3n - max9
                           If Len(grs("单位名称")) > 20 Then
                             If s6 = "0" Then
                               z3 = z7 & kong(2)
                                Else
                               z3 = z7 & kong(s6 + 2)
                             End If
                            Else
                             If s6 = "0" Then
                               z3 = grs("单位名称") & kong(2)
                                Else
                               z3 = grs("单位名称") & kong(s6 + 2)
                             End If
                            
                           End If
                           

                           If grs("院长签字") = 0 Then
                               str(n) = "进行中"
                               Else
                               str(n) = "已完成"
                            End If
                         a.writeline z1 & kong(4) & z2 & z3 & str(n)
                         a.writeline kong(77)
                         grs.MoveNext
                       Next
                    
                     grs.Close


MsgBox "大屏幕数据完成！", vbInformation, "提示"









                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
        Case 2
        Form2.VerticalMenu2(7).Visible = False
    End Select
End Sub