prodcutmove.frm

用VB做的一个数据库管理系统

VERSION 5.00
Begin VB.Form ProductMove 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "产品调拨向导"
   ClientHeight    =   4140
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6915
   Icon            =   "ProdcutMove.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4140
   ScaleWidth      =   6915
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "请选择各仓库"
      ForeColor       =   &H00000000&
      Height          =   1140
      Left            =   2595
      TabIndex        =   6
      Top             =   1665
      Width           =   4050
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   2235
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   615
         Width           =   1545
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   255
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   615
         Width           =   1620
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "目标仓库"
         ForeColor       =   &H00808000&
         Height          =   180
         Index           =   1
         Left            =   2235
         TabIndex        =   8
         Top             =   375
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "源仓库"
         ForeColor       =   &H00808000&
         Height          =   180
         Index           =   0
         Left            =   270
         TabIndex        =   7
         Top             =   375
         Width           =   540
      End
   End
   Begin VB.CommandButton NextButton 
      Caption         =   "下一步(&N)"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   390
      Left            =   4485
      TabIndex        =   2
      Top             =   3195
      Width           =   1050
   End
   Begin VB.CommandButton ExitButton 
      Caption         =   "退出(&X)"
      Height          =   390
      Left            =   5595
      TabIndex        =   3
      Top             =   3195
      Width           =   1050
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00808000&
      Height          =   3570
      Left            =   195
      ScaleHeight     =   3510
      ScaleWidth      =   1980
      TabIndex        =   4
      Top             =   210
      Width           =   2040
      Begin VB.Image Image1 
         Height          =   2595
         Left            =   195
         Picture         =   "ProdcutMove.frx":030A
         Stretch         =   -1  'True
         Top             =   810
         Width           =   1710
      End
      Begin VB.Image Image2 
         Height          =   705
         Left            =   345
         Picture         =   "ProdcutMove.frx":25F2
         Stretch         =   -1  'True
         Top             =   300
         Width           =   1455
      End
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "第一步"
      ForeColor       =   &H000000FF&
      Height          =   180
      Left            =   5715
      TabIndex        =   9
      Top             =   1335
      Width           =   540
   End
   Begin VB.Label Label1 
      Caption         =   $"ProdcutMove.frx":2F9E
      Height          =   1005
      Left            =   2625
      TabIndex        =   5
      Top             =   420
      Width           =   3960
   End
End
Attribute VB_Name = "ProductMove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
If Combo1.Text <> Combo2.Text Then
   NextButton.Enabled = True
   Else
   NextButton.Enabled = False
End If
End Sub

Private Sub Combo2_Click()
If Combo1.Text <> Combo2.Text Then
   NextButton.Enabled = True
   Else
   NextButton.Enabled = False
End If
End Sub

Private Sub ExitButton_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim DB As Database, Ef As Recordset, TempStr As String, IA As Integer
'配置产品类型
    Set DB = OpenDatabase(App.Path & "\Sys\Store.mdb", 0, 0, Constr)
    Set Ef = DB.OpenRecordset("SELECT * FROM CkLx", dbOpenDynaset)
    IA = 0
    Do Until Ef.EOF()
     If Not IsNull(Ef.Fields(0)) Then
        TempStr = Ef.Fields(0).Value
        Combo1.AddItem TempStr, IA
        Combo2.AddItem TempStr, IA
        IA = IA + 1
     End If
     Ef.MoveNext
     If Ef.EOF = True Then Exit Do
    Loop
    DB.Close
If IA > 0 Then
   Combo1.ListIndex = 0
   Combo2.ListIndex = 0
End If
End Sub

Private Sub NextButton_Click()
  ProductMove.MousePointer = 11
  ResourceCK = Combo1.Text
  ObjectCK = Combo2.Text
  Unload Me
  ProductMove1.Show 1
End Sub