pgbaozhuangwumingcheng.frm

这是一个啤酒行业的软件,用VB6开发的

         Width           =   7215
         _ExtentX        =   12726
         _ExtentY        =   9975
         _Version        =   393216
         AllowUserResizing=   3
      End
   End
End
Attribute VB_Name = "pgbaozhuangwumingcheng"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim en As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim SQL As String
Dim i As Integer

Private Sub Combo1_GotFocus()
       Combo1.Clear
       SQL = "select distinct 车间名称  from  pgbaozhuangwu "
       Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
         If result.RowCount <> 0 Then
             result.MoveFirst
             Do While Not result.EOF
                If Trim(result("车间名称")) <> "" Then
                   Combo1.AddItem Trim(result("车间名称"))
                   result.MoveNext
                End If
             Loop
         End If
         result.Close
End Sub

Private Sub Combo2_GotFocus()
'       Combo2.Clear
'       sql = "select distinct 箱色  from  pgbaozhuangwu "
'       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
'         If result.RowCount <> 0 Then
'             result.MoveFirst
'             Do While Not result.EOF
'                If Trim(result("箱色")) <> "" Then
'                   Combo2.AddItem Trim(result("箱色"))
'                   result.MoveNext
'                End If
'             Loop
'         End If
'         result.Close
End Sub

Private Sub Combo3_GotFocus()
'       Combo3.Clear
'       sql = "select distinct 瓶色  from  pgbaozhuangwu "
'       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
'         If result.RowCount <> 0 Then
'             result.MoveFirst
'             Do While Not result.EOF
'                 If Trim(result("瓶色")) <> "" Then
'                     Combo3.AddItem Trim(result("瓶色"))
'                     result.MoveNext
'                End If
'             Loop
'         End If
'         result.Close
End Sub

Private Sub Combo4_GotFocus()
'       Combo4.Clear
'       sql = "select *  from  pgbaozhuangwu "
'       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
'         If result.RowCount <> 0 Then
'             result.MoveFirst
'             Do While Not result.EOF
'                 If Trim(result("箱规格")) <> "" Then
'                      Combo4.AddItem Trim(result("箱规格"))
'                      result.MoveNext
'                 End If
'            Loop
'            result.Close
'         Else
'                 Combo4.AddItem ""
'         End If
        
End Sub

Private Sub Combo5_GotFocus()
'       Combo5.Clear
'       sql = "select *  from  pgbaozhuangwu "
'       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
'         If result.RowCount <> 0 Then
'             result.MoveFirst
'             Do While Not result.EOF
'                 If Trim(result("瓶规格")) <> "" Then
'                      Combo5.AddItem Trim(result("瓶规格"))
'                      result.MoveNext
'                 End If
'             Loop
'             result.Close
'         Else
'              Combo5.AddItem ""
'         End If
        
End Sub

Private Sub Command1_Click()
     Combo1.Text = ""
     Combo2.Text = ""
     Combo3.Text = ""
     Combo4.Text = ""
     Combo5.Text = ""
     Text1.Text = ""
       SQL = "select max(序号)  from  pgbaozhuangwu "
       Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
         If IsNull(result.RowCount) = True Then
                Label8.Caption = 1
         Else
                Label8.Caption = Val(Trim(result(0))) + 1
         End If
         result.Close
     
End Sub

Private Sub Command2_Click()
     If Combo1.Text = "" Or Text1.Text = "" Then
          Exit Sub
     End If
     If MsgBox("确认是否存盘", vbYesNo, "提示") = vbYes Then
           SQL = "select * from  pgbaozhuangwu  where  序号= '" & Trim(Label8.Caption) & "'"
           Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
                If result.RowCount <> 0 Then
                   MsgBox "存盘失败"
                   result.Close
                   Exit Sub
                End If
           SQL = "insert into pgbaozhuangwu values('" & Trim(Label8.Caption) & "','" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Combo4.Text) & "','" & Trim(Combo5.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "')"
           Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
             result.Close
            SQL = "select *  from  pgbaozhuangwu "
            Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
             MSF.Rows = 2
            If result.RowCount <> 0 Then
                  result.MoveFirst
                  i = 1
                  Do While Not result.EOF
                       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("包装物名称"))
                       MSF.TextArray(i * MSF.Cols + 7) = Trim(result("单价"))
                       MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包装物规格"))
                       MSF.RowHeight(i) = 300
                       MSF.Rows = MSF.Rows + 1
                       i = i + 1
                       result.MoveNext
                  Loop
                  Label8.Caption = i
                  MSF.Rows = MSF.Rows - 1
              Else
                   Label8.Caption = 1
              End If
              result.Close
           '   MsgBox "存盘结束"
     End If
End Sub

Private Sub Command3_Click()
      If MsgBox("确认是否删除", vbYesNo, "提示") = vbYes Then
             SQL = "delete from pgbaozhuangwu where  序号= '" & Trim(Label8.Caption) & "'"
             Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
              result.Close
                 SQL = "select *  from  pgbaozhuangwu "
              Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
              MSF.Rows = 2
            If result.RowCount <> 0 Then
                  result.MoveFirst
                  i = 1
                  Do While Not result.EOF
                       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("包装物名称"))
                       MSF.TextArray(i * MSF.Cols + 7) = Trim(result("单价"))
                       MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包装物规格"))
                       MSF.RowHeight(i) = 300
                       MSF.Rows = MSF.Rows + 1
                       i = i + 1
                       result.MoveNext
                  Loop
                  Label8.Caption = i
                  MSF.Rows = MSF.Rows - 1
              Else
                   Label8.Caption = 1
              End If
              result.Close
      
      End If
End Sub

Private Sub Command4_Click()
      If Combo1.Text = "" Or Text1.Text = "" Then
          Exit Sub
      End If
      If MsgBox("确认是否修改", vbYesNo, "提示") = vbYes Then
             SQL = "update pgbaozhuangwu set 车间名称='" & Trim(Combo1.Text) & "' ,箱色='" & Trim(Combo2.Text) & "',瓶色='" & Trim(Combo3.Text) & "' ,箱规格='" & Trim(Combo4.Text) & "',瓶规格='" & Trim(Combo5.Text) & "',包装物名称='" & Trim(Text1.Text) & "',单价='" & Trim(Text2.Text) & "',包装物规格='" & Trim(Text3.Text) & "' where  序号= '" & Trim(Label8.Caption) & "'"
             Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
              result.Close
              
              SQL = "select *  from  pgbaozhuangwu "
              Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
              MSF.Rows = 2
            If result.RowCount <> 0 Then
                  result.MoveFirst
                  i = 1
                  Do While Not result.EOF
                       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("包装物名称"))
                       MSF.TextArray(i * MSF.Cols + 7) = Trim(result("单价"))
                       MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包装物规格"))
                       MSF.RowHeight(i) = 300
                       MSF.Rows = MSF.Rows + 1
                       i = i + 1
                       result.MoveNext
                  Loop
                  Label8.Caption = i
                  MSF.Rows = MSF.Rows - 1
              Else
                   Label8.Caption = 1
              End If
              result.Close
            '  MsgBox "修改结束"
      End If
End Sub

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

Private Sub Form_Load()
    Move Screen.Width / 2 - pgbaozhuangwumingcheng.Width / 2, Screen.Height / 2 - pgbaozhuangwumingcheng.Height / 2 - 500
    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 = "序号|^ 所属车间  |^ 箱色|^瓶色|^ 箱规格|^瓶规格|^  包装物名称 |^  单价 |^包装物规格"
    For i = 0 To MSF.Rows - 1
        MSF.RowHeight(i) = 300
    Next i
    SQL = "select *  from  pgbaozhuangwu  order by  序号 "
    Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
      If result.RowCount <> 0 Then
            result.MoveFirst
            i = 1
            Do While Not result.EOF
                 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("包装物名称"))
                 MSF.TextArray(i * MSF.Cols + 7) = Trim(result("单价"))
                 MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包装物规格"))
                 MSF.RowHeight(i) = 300
                 MSF.Rows = MSF.Rows + 1
                 i = i + 1
                 result.MoveNext
            Loop
            Label8.Caption = i
            MSF.Rows = MSF.Rows - 1
        Else
             Label8.Caption = 1
        End If
        result.Close
     
     
End Sub

Private Sub MSF_DblClick()
      Label8.Caption = Trim(MSF.TextArray(MSF.Row * MSF.Cols))
      Combo1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 1))
      Combo2.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 2))
      Combo3.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 3))
      Combo4.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 4))
      Combo5.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 5))
      Text1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 6))
      Text2.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 7))
      Text3.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 8))
End Sub

Private Sub Text1_Click()
    ' Text1.Text = Trim(Combo4.Text) & Trim(Combo2.Text) & "箱" & Trim(Combo5.Text) & Trim(Combo3.Text) & "瓶"
End Sub