⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pgbaozhuangwutongji.frm

📁 这是一个啤酒行业的软件,用VB6开发的
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
      Begin VB.PictureBox Picture3 
         BorderStyle     =   0  'None
         Height          =   765
         Left            =   0
         Picture         =   "pgbaozhuangwutongji.frx":0726
         ScaleHeight     =   765
         ScaleWidth      =   9615
         TabIndex        =   1
         Top             =   0
         Width           =   9615
      End
   End
End
Attribute VB_Name = "pgbaozhuangwutongji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim en As rdoEnvironment
Dim xshcn, cn As rdoConnection
Dim result As rdoResultset
Dim SQL As String
Dim i As Integer

Private Sub Combo1_Change()
     Combo2.Text = ""
     Combo2.Clear
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo1_Click()
     Combo2.Text = ""
     Combo2.Clear
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo2_Change()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo2_Click()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo2_GotFocus()
    If Combo1.Text = "" Then
        MsgBox "填写所属区域"
        Exit Sub
    End If
     Combo2.Clear
     SQL = "select  tradename  from  trader where tradecode like '" & Trim(Combo1.Text) & "%'"
  '   MsgBox sql
     Set result = xshcn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
       If result.RowCount <> 0 Then
            result.MoveFirst
            Do While Not result.EOF
                Combo2.AddItem Trim(result("tradename"))
                result.MoveNext
            Loop
       End If
       result.Close
         
        SQL = "select distinct 地区 from  pgdanweimingcheng  "
        Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
             If result.RowCount <> 0 Then
                 If Trim(Combo1.Text) = Trim(result("地区")) Then
                       result.Close
                       SQL = "select * from  pgdanweimingcheng order by 序号 "
                       Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
                            If result.RowCount <> 0 Then
                                result.MoveFirst
                                Do While Not result.EOF
                                    Combo2.AddItem Trim(result("单位名称"))
                                    result.MoveNext
                                Loop
                             End If
                          
                 End If
             End If
            result.Close
         
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo3_Change()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo3_Click()
        MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo4_Change()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo4_Click()
        MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo5_Change()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo5_Click()
         MSF.Rows = 2
         For i = 1 To MSF.Rows - 1
                 MSF.TextArray(i * MSF.Cols) = ""
                 MSF.TextArray(i * MSF.Cols + 1) = ""
                 MSF.TextArray(i * MSF.Cols + 2) = ""
                 MSF.TextArray(i * MSF.Cols + 3) = ""
                 MSF.TextArray(i * MSF.Cols + 4) = ""
                 MSF.TextArray(i * MSF.Cols + 5) = ""
                 MSF.TextArray(i * MSF.Cols + 6) = ""
                 MSF.TextArray(i * MSF.Cols + 7) = ""
                 MSF.TextArray(i * MSF.Cols + 8) = ""
                 MSF.TextArray(i * MSF.Cols + 9) = ""
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
End Sub

Private Sub Combo6_Change()
         MSF.Rows = 2
123

⌨️ 快捷键说明

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