frmfphw.frm

VB库存管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmfphw 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "分配货位编号"
   ClientHeight    =   2760
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2760
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消分配"
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确定分配"
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   1800
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   4455
      Begin VB.ComboBox Combo4 
         Height          =   300
         ItemData        =   "frmfphw.frx":0000
         Left            =   3360
         List            =   "frmfphw.frx":000D
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   960
         Width           =   975
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         ItemData        =   "frmfphw.frx":001A
         Left            =   1080
         List            =   "frmfphw.frx":0054
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   960
         Width           =   975
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         ItemData        =   "frmfphw.frx":0097
         Left            =   3360
         List            =   "frmfphw.frx":00D1
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   240
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "frmfphw.frx":0114
         Left            =   1080
         List            =   "frmfphw.frx":0121
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "请选择要分配的层数"
         Height          =   495
         Index           =   3
         Left            =   2280
         TabIndex        =   8
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "请选择要分配的列号"
         Height          =   495
         Index           =   2
         Left            =   120
         TabIndex        =   6
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "请选择要分配的行号"
         Height          =   495
         Index           =   1
         Left            =   2280
         TabIndex        =   4
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "请选择要分配的储区号"
         Height          =   495
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   975
      End
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   2400
      Width           =   4695
      _ExtentX        =   8281
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
      Max             =   900
      Scrolling       =   1
   End
End
Attribute VB_Name = "frmfphw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'分配货位编号
'实现方法: 本模块完全智能化进行分配货位编号 , 不能人工进行一个个输入货位编号
'        只须输入储区号 , 行号, 列号, 层数, 系统就会自动进行分配
'        本模块是利用VB中的数组功能进行实现的,是一个四维数据
'        在分配过程中 , 会显示进度和分配的情况
'        本系统分配货位编号范围是1-22500个,可以适用不用的仓库
Dim str As String
Dim i, j, k, l As Integer
Dim q
Dim s As Integer
Private Sub CmdCancel_Click()
Unload Me
End Sub


Private Sub CmdOK_Click()
Check
If Checks = False Then
    Exit Sub
Else
    str = MsgBox("你输入的信息如下:" & vbCrLf & "储区号:" & Combo1.Text & "" & vbCrLf & _
                                               "行  号:" & Combo2.Text & "" & vbCrLf & _
                                               "列  号:" & Combo3.Text & "" & vbCrLf & _
                                               "层  数:" & Combo4.Text & "" & vbCrLf & _
                                               "是否确定?", vbYesNo + vbInformation, "询问")
    If str = vbNo Then
        Exit Sub
    Else
        
        SQL = "delete from [货位表]"
        Call TransactSQL(SQL)
        MsgBox "已经删除旧的货位编号!", vbInformation + vbOKOnly, "提示"
        
        s = 0
        ProgressBar1.Value = 0
        ProgressBar1.Min = 0
        ProgressBar1.Max = (Val(Combo1.Text) * Val(Combo2.Text) * Val(Combo3.Text) * Val(Combo4.Text))
        For l = 1 To Combo1.Text
            For i = 1 To Combo2.Text
                For j = 1 To Combo3.Text
                    For k = 1 To Combo4.Text
                        q = l & "-" & i & "-" & j & "-" & k
                        SQL = "insert into [货位表](货位编号)values('" & q & "')"
                        Call TransactSQL(SQL)
                        s = s + 1
                        Me.Caption = "正在分配第[" & s & "]个货位编号,请稍候...."
                        ProgressBar1.Value = s
                    Next
                Next
            Next
        Next
        ProgressBar1.Max = s
'        ProgressBar1.Max = (Val(Combo1.Text) * Val(Combo2.Text) * Val(Combo3.Text) * Val(Combo4.Text))
        Me.Caption = "分配货位编号"
        MsgBox "成功分配空间" & vbCrLf & "一共分配：" & ProgressBar1.Max & " 个货位号"
        Unload Me
    End If
                                               
End If
End Sub





Public Function Check()
If Combo1.Text = "" Then
    MsgBox "储区号不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告"
    Combo1.SetFocus
    Checks = False
    Exit Function
End If
If Combo2.Text = "" Then
    MsgBox "行号不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告"
    Combo2.SetFocus
    Checks = False
    Exit Function
End If
If Combo3.Text = "" Then
    MsgBox "列号不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告"
    Combo3.SetFocus
    Checks = False
    Exit Function
End If
If Combo4.Text = "" Then
    MsgBox "层数不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告"
    Combo4.SetFocus
    Checks = False
    Exit Function
End If
Checks = True
End Function