frmpjadd.frm

很好用的通用库存管理程序

VERSION 5.00
Begin VB.Form FrmPJAdd 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "新增配件"
   ClientHeight    =   4530
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3675
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4530
   ScaleWidth      =   3675
   Begin VB.TextBox TxtDJ 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000006&
      Height          =   270
      Left            =   1440
      TabIndex        =   4
      Top             =   2392
      Width           =   1935
   End
   Begin VB.TextBox TxtDW 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000006&
      Height          =   270
      Left            =   1440
      TabIndex        =   3
      Top             =   1912
      Width           =   1935
   End
   Begin VB.TextBox TxtModel 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000006&
      Height          =   270
      Left            =   1440
      TabIndex        =   2
      Top             =   1432
      Width           =   1935
   End
   Begin VB.TextBox TxtBZ 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000006&
      Height          =   735
      Left            =   1440
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取  消"
      Height          =   495
      Left            =   2040
      TabIndex        =   7
      Top             =   3840
      Width           =   1095
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保  存"
      Height          =   495
      Left            =   360
      TabIndex        =   6
      Top             =   3840
      Width           =   1095
   End
   Begin VB.ComboBox Cmb1 
      Height          =   300
      Left            =   1440
      TabIndex        =   0
      Top             =   480
      Width           =   1935
   End
   Begin VB.TextBox TxtName 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000006&
      Height          =   270
      Left            =   1440
      TabIndex        =   1
      Top             =   960
      Width           =   1935
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "单  价"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   14
      Top             =   2400
      Width           =   615
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Transparent
      Caption         =   "单  位"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   13
      Top             =   1920
      Width           =   615
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "备 注"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   480
      TabIndex        =   12
      Top             =   3120
      Width           =   450
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "新增配件"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   255
      Left            =   1440
      TabIndex        =   11
      Top             =   120
      Width           =   975
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "规格型号"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   10
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "配件名称:"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   9
      Top             =   1020
      Width           =   735
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "配件类型:"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   8
      Top             =   540
      Width           =   735
   End
End
Attribute VB_Name = "FrmPJAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Cmb1_Click()
TxtName.Enabled = True
End Sub

Private Sub CmdSave_Click()
If TxtName.Text = "" Then
 MsgBox "请输入配件名称！"
 Exit Sub
End If
If TxtModel.Text = "" Then
 MsgBox "请输入规格型号！"
 Exit Sub
End If
If TxtDW.Text = "" Then
 MsgBox "请输入单位！"
 Exit Sub
End If
If TxtDJ.Text = "" Then
 MsgBox "请输入单价！"
 Exit Sub
End If

  
        sSql = "SELECT * FROM 配件库存表  where 配件名称 = '" & CStr(TxtName.Text) & "'"
     Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
    If Not Rs.EOF Then
      MsgBox "配件名称已经存在，请重新确定其名称！"
      Rs.Close
     Exit Sub
    End If
    Rs.Close
Dim a As Integer
 a = MsgBox("********你确定此操作吗？**********" & vbCrLf _
        & "配件名称：" & TxtName.Text & vbCrLf _
        & "配件型号：" & TxtModel.Text & vbCrLf _
        & "单价：" & TxtDJ.Text & "元" & vbCrLf _
        , vbExclamation + vbOKCancel + vbApplicationModal, "提示")
If a = 1 Then
  
        sSql = "SELECT * FROM 配件库存表"
     Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
     
   Rs.AddNew
   Rs!配件名称 = TxtName.Text
   Rs!规格型号 = TxtModel.Text
   Rs!分类 = Cmb1.Text
   Rs!单位 = TxtDW.Text
   Rs!单价 = TxtDJ.Text
   Rs!数量 = 0
   If TxtBZ.Text = "" Then Rs!备注 = "-" Else Rs!备注 = TxtBZ.Text
   Rs.Update
   Rs.Close
  MsgBox "添加配件成功！"
FrmPJGL.Show
Unload Me
End If
If a = 2 Then Exit Sub
End Sub
Private Sub Command2_Click()
FrmPJGL.Show
Unload Me
End Sub

Private Sub Form_Load()
 Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
 Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
 Set Rs = New Recordset
 Set_Init
 TxtName.Enabled = False
End Sub
Private Sub Set_Init()
Dim i As Integer
 On Error GoTo DataErr
  
  sSql = "SELECT 分类 FROM 配件分类表"
 Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
 Cmb1.Clear
Do While Not Rs.EOF
 Cmb1.AddItem Rs.Fields(0)
 Rs.MoveNext
 Loop
Rs.Close

  Exit Sub
DataErr:
     MsgBox Err.Description
End Sub