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

📄 pgyjpchaxun.frm

📁 这是一个啤酒行业的软件,用VB6开发的
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
               
            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) = ""
                
            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) = ""
                
            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) = ""
                
            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) = ""
                
            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) = ""
              
            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) = ""
              
            Next i
End Sub

Private Sub Command2_Click()
     cn.Close
     en.Close
     Unload Me
End Sub

Private Sub Command4_Click()
     If IsDate(Trim(Mask1.Text)) = False Or IsDate(Trim(Mask2.Text)) = False Then
         MsgBox "统计日期格式不正确"
         Exit Sub
     End If

     sql = "select * from pgyjp where 开票日期 between '" & Trim(Mask1.Text) & "' and '" & Trim(Mask2.Text) & "'"
     If Combo1.Text <> "" Then
         sql = sql & " and 地区='" & Trim(Combo1.Text) & "'"
     End If
     
     If Combo2.Text <> "" Then
         sql = sql & " and 单位名称='" & Trim(Combo2.Text) & "'"
     End If
     
     If Combo3.Text <> "" Then
         sql = sql & " and 单据标志='" & Trim(Combo3.Text) & "'"
     End If
     
     If Combo4.Text <> "" Then
         sql = sql & " and 包装物名称='" & Trim(Combo4.Text) & "'"
     End If
     
     sql = sql & "  and 是否作废='否' order by 开票日期,单据号"
    ' MsgBox sql
     Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
          Dim sum1, sum2, sum3, sum4 As Double
          MSF.Rows = 2
          For i = 0 To MSF.Rows - 1
                MSF.RowHeight(i) = 300
          Next i
        If result.RowCount <> 0 Then
              i = 1
              result.MoveFirst
              Do While Not result.EOF
                     MSF.RowHeight(i) = 300
                     MSF.TextArray(i * MSF.Cols) = Trim(result("开票日期"))
                     MSF.TextArray(i * MSF.Cols + 1) = Trim(result("单据号"))
                     MSF.TextArray(i * MSF.Cols + 2) = Trim(result("地区"))
                     MSF.TextArray(i * MSF.Cols + 3) = Trim(result("单位名称"))
                     MSF.TextArray(i * MSF.Cols + 4) = Trim(result("单据标志"))
                     MSF.TextArray(i * MSF.Cols + 5) = Trim(result("包装物名称"))
                     MSF.TextArray(i * MSF.Cols + 6) = Trim(result("单价"))
                        ' sum1 = sum1 + Val(Trim(result("酒桶数")))
                     MSF.TextArray(i * MSF.Cols + 7) = Trim(result("数量"))
                          sum2 = sum2 + Val(Trim(result("数量")))
                     MSF.TextArray(i * MSF.Cols + 8) = Trim(result("金额"))
                          sum3 = sum3 + Val(Trim(result("金额")))
                     MSF.TextArray(i * MSF.Cols + 9) = Trim(result("金额大写"))
                       '   sum4 = sum4 + Val(Trim(result("空瓶数")))
                     MSF.TextArray(i * MSF.Cols + 10) = Trim(result("制表人"))
                    
                     MSF.Rows = MSF.Rows + 1
                     i = i + 1
                      result.MoveNext
              Loop
                    MSF.RowHeight(i) = 300
                    MSF.TextArray(i * MSF.Cols) = "合计"
                   
                    MSF.TextArray(i * MSF.Cols + 7) = sum2
                    MSF.TextArray(i * MSF.Cols + 8) = sum3
                   
        Else
          
            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) = 0
                 MSF.TextArray(i * MSF.Cols + 7) = 0
                 MSF.TextArray(i * MSF.Cols + 8) = 0
                 MSF.TextArray(i * MSF.Cols + 9) = 0
                 MSF.TextArray(i * MSF.Cols + 10) = ""
                
            Next i
        End If
End Sub

Private Sub Form_Load()
      Move Screen.Width / 2 - pgyjpchaxun.Width / 2, Screen.Height / 2 - pgyjpchaxun.Height / 2
      Set en = rdoEnvironments(0)
      Set cn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=rongpin2004;")
      MSF.FormatString = "  开票日期  |^单   据   号|^ 地区|^单位名称|^单据标志|^  包装物名称   |^ 单价 |^ 数量 |^  金额   |^   金额大写    |^   制表人   "
      Mask1.Text = Format(Date, "yyyy年mm月dd日")
      Mask2.Text = Format(Date, "yyyy年mm月dd日")
      Set xshcn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=newsale;")
      sql = "select  distinct tradecode  from  trader "
      Set result = xshcn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
       Dim str As String
       If result.RowCount <> 0 Then
            result.MoveFirst
            Do While Not result.EOF
               If str = "" Or str <> Mid(Trim(result("tradecode")), 1, 1) Then
                     Combo1.AddItem Mid(Trim(result("tradecode")), 1, 1)
               End If
               str = Mid(Trim(result("tradecode")), 1, 1)
               result.MoveNext
            Loop
       End If
       result.Close
         
         sql = "select distinct 地区 from  pgdanweimingcheng  "
         Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
             If result.RowCount <> 0 Then
                Combo1.AddItem Trim(result("地区"))
             End If
             result.Close
       
        sql = "select  包装物名称  from  pgbaozhuangwu  order by 序号 "
        Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
           If result.RowCount <> 0 Then
                result.MoveFirst
                  Do While Not result.EOF
                       Combo4.AddItem Trim(result("包装物名称"))
                       result.MoveNext
                  Loop
           End If
           result.Close
           
        
           
           Combo3.AddItem "押"
           Combo3.AddItem "换"
           
           For i = 0 To MSF.Rows - 1
                MSF.RowHeight(i) = 300
           Next i
           MSF.FixedCols = 2
End Sub
12

⌨️ 快捷键说明

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