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

📄 pgbaozhuangwutongji.frm

📁 这是一个啤酒行业的软件,用VB6开发的
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         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_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 Command1_Click()
     Const password = "1111"
     Dim strpassword As String
     Dim intcount As Integer
  
          For intcount = 1 To 3
               strpassword = InputBox("请输入你的密码：", "输入密码")
               If strpassword = password Then Exit For
          Next intcount
          If intcount > 3 Then
                MsgBox "对不起！你是非法用户。", vbOKOnly + vbCritical, "拒绝"
                Exit Sub
          Else
                 MSF.FormatString = "  开票日期  |^单   据   号|^ 地区|^单位名称|^单据标志|^  包装物名称   |^ 酒桶数 |^ 成套数 |^ 空箱数 |^ 空瓶数 |^  验收车间|^  验收人|^  制表人 |^是否搭赠"
                Label8.Visible = True
                Combo6.Visible = True
          End If
End Sub

Private Sub Command2_Click()
     cn.Close
     xshcn.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 pgysd 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
     
     If Combo5.Text <> "" Then
         SQL = SQL & " and 验收车间='" & Trim(Combo5.Text) & "'"
     End If
     
     If Combo6.Text <> "" Then
         SQL = SQL & " and 是否搭赠='" & Trim(Combo6.Text) & "'"
     End If
     
     SQL = SQL & " and 是否掰过票='否' 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.TextArray(i * MSF.Cols + 11) = Trim(result("验收人"))
                     MSF.TextArray(i * MSF.Cols + 12) = Trim(result("制表人"))
                     If Trim(MSF.TextArray(0 * MSF.Cols + 13)) = "" Then
                           MSF.TextArray(i * MSF.Cols + 13) = ""
                     Else
                           MSF.TextArray(i * MSF.Cols + 13) = Trim(result("是否搭赠"))
                     End If
                     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 + 6) = sum1
                    MSF.TextArray(i * MSF.Cols + 7) = sum2
                    MSF.TextArray(i * MSF.Cols + 8) = sum3
                    MSF.TextArray(i * MSF.Cols + 9) = sum4
        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) = ""
                 MSF.TextArray(i * MSF.Cols + 11) = ""
                 MSF.TextArray(i * MSF.Cols + 12) = ""
                 MSF.TextArray(i * MSF.Cols + 13) = ""
            Next i
        End If
     
End Sub

Private Sub Form_Load()
      Move Screen.Width / 2 - pgbaozhuangwutongji.Width / 2, Screen.Height / 2 - pgbaozhuangwutongji.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
           
          SQL = "select  distinct 验收车间  from  pgyanshouchejian   "
          Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
           If result.RowCount <> 0 Then
                result.MoveFirst
                  Do While Not result.EOF
                       Combo5.AddItem Trim(result("验收车间"))
                       result.MoveNext
                  Loop
           End If
           result.Close
           
           Combo3.AddItem "验"
           Combo3.AddItem "换"
           Combo3.AddItem "借"
           For i = 0 To MSF.Rows - 1
                MSF.RowHeight(i) = 300
           Next i
           MSF.FixedCols = 2
           
           Combo6.AddItem "是"
           Combo6.AddItem "否"
           Combo6.Text = "否"
           MSF.ColWidth(0) = 1420
End Sub

Private Sub Mask1_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 Mask2_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 MSF_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
       ''''得到选中一行的记录，然后存储在数组中'''''
       Dim iCount As Integer
       ReDim m_TmpReportLoss(MSF.Cols + 1) As String
       For iCount = 0 To MSF.Cols - 2
           m_TmpReportLoss(iCount) = MSF.TextArray(MSF.Row * MSF.Cols + iCount)
       Next
       'MsgBox MSF.Cols
       'MsgBox m_TmpReportLoss(12)
       '''''''''''''''''''''''''''''''''''''''''''''
       m_TmpBillCode = MSF.TextArray(MSF.Row * MSF.Cols + 1)
       PopupMenu PGMenu.kl
       'MsgBox m_TmpBillCode
    End If
End Sub
123

⌨️ 快捷键说明

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