frmhpkc.frm

一个不错的进销存系统,在其中可以看到很多的功能

         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label Label7 
      Caption         =   "单位："
      Height          =   225
      Left            =   2010
      TabIndex        =   20
      Top             =   2010
      Width           =   870
   End
   Begin VB.Label Label6 
      Caption         =   "仓库："
      Height          =   255
      Left            =   5415
      TabIndex        =   16
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label5 
      Caption         =   "单价："
      Height          =   270
      Left            =   3585
      TabIndex        =   15
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label4 
      Caption         =   "库存量："
      Height          =   255
      Left            =   195
      TabIndex        =   14
      Top             =   1995
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "货编："
      Height          =   255
      Left            =   360
      TabIndex        =   11
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "货品："
      Height          =   255
      Left            =   2025
      TabIndex        =   10
      Top             =   1470
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "规格："
      Height          =   255
      Left            =   4500
      TabIndex        =   9
      Top             =   1455
      Width           =   855
   End
End
Attribute VB_Name = "frmHPKC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DB As Database, Rs As Recordset
Dim SQL As String
'过滤Null类型数据
Function NoNull(xValue As Variant) As Variant
If IsNull(xValue) Then
   NoNull = ""
Else
   If Not IsNull(xValue) Then
   NoNull = ""
   Else
   NoNull = xValue
   End If
   
End If
End Function
Private Sub CmDel_Click()
SQL = "DELETE * FROM DB_KC货品 WHERE 货品编号=" & "'" & TeHB + "'"  '定义SQL操作语句
 Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
 DB.Execute SQL
 DB.Close
  TeHB = ""
  TeHP = ""
  TeGG = ""
  TeCKL = ""
  TeDJ = ""
  CoCK = ""
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品"
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
  Set Data1.Recordset = Rs
  Rs.MoveLast
  
End Sub

Private Sub CmEdit_Click()
 SQL = "UPDATE DB_KC货品 SET 货品名称=" & "'" & TeHP + "'," + "货品规格=" + "'" & TeGG + "'," + "库存量=" + " '" & TeCKL + "'," + "单位=" + " '" & CoDW + "'," + "单价=" + " '" & TeDJ + "'," + "仓库=" + " '" & CoCK + "'" + " WHERE 货品编号=" + "'" & TeHB + "'" '定义SQL操作语句
 Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
 DB.Execute SQL
 DB.Close
  TeHB = ""
  TeHP = ""
  TeGG = ""
  TeCKL = ""
  CoDW = ""
  TeDJ = ""
  CoCK = ""
  SQL = "select 货品编号,货品名称,货品规格,库存量,单价,单位,仓库 from DB_KC货品"
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
  Set Data1.Recordset = Rs
  
End Sub

Private Sub CmNew_Click()
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品"
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
  Set Data1.Recordset = Rs
  If Rs.RecordCount = 0 Then
  TeHB = 1
  Else
  Rs.MoveLast
  TeHB = Rs("货品编号") + 1
  End If
  TeHP = ""
  TeGG = ""
  TeCKL = ""
  CoDW = ""
  TeDJ = ""
  CoCK = ""
  
End Sub

Private Sub CmOK_Click()
With FrmCKHP
   .TeHP = TeHP
   .TeGG = TeGG
   .TeDW = CoDW
   .TeDJ = TeDJ
   .Show
End With
Unload Me

End Sub

Private Sub CmSave_Click()
If TeHB <> "" Then
 If TeHP = "" Then
 MsgBox "请输入货品！"
 Else
  If TeGG = "" Then
  MsgBox "请输入规格！"
  Else
   If CoCK = "" Then
   MsgBox "请选择仓库！"
   Else
   SQL = "INSERT INTO DB_KC货品(货品编号,货品名称,货品规格,库存量,单位,单价,仓库) values" & "('" & TeHB + "','" & TeHP + "','" & TeGG + "','" & TeCKL + "','" & CoDW + "','" & TeDJ + "','" & CoCK + "'" + ")"
   Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
   TeXS.Text = SQL
   DB.Execute SQL
   DB.Close
   SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品"
   Set DB = OpenDatabase("D:\DBB\DATA.mdb")
   Set Rs = DB.OpenRecordset(SQL)
   Set Data1.Recordset = Rs
   Rs.MoveLast
   If Rs.RecordCount = 0 Then
   TeHB = 1
   Else
   TeHB = Rs("货品编号") + 1
   End If
   TeHP = ""
   TeGG = ""
   TeCKL = ""
   TeDJ = ""
   CoCK = ""
   End If
  End If
 End If
Else
MsgBox "货编不能重复或空，请重新输入！"
End If

  
  
End Sub

Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim i As Integer
  If FrmCKHP.CoCK = "" Then
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品"
  Else
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品 where 仓库=" + "'" & FrmCKHP.CoCK + "'"
  End If
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
  Set Data1.Recordset = Rs
  
  For i = 0 To DBGrid1.RowContaining(Y)
  TeHB = Rs("货品编号")
  TeHP = Rs("货品名称")
  TeGG = Rs("货品规格")
  TeCKL = Rs("库存量")
  CoDW = Rs("单位")
  TeDJ = Trim(Rs("单价"))
  CoCK = Rs("仓库")
  Rs.MoveNext
  Next i
   
End Sub

Private Sub Form_Load()
  Dim DBck As Database, Rsck As Recordset
  Dim SQLck As String
  If FrmCKHP.CoCK = "" Then
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品"
  Else
  SQL = "select 货品编号,货品名称,货品规格,库存量,单位,单价,仓库 from DB_KC货品 where 仓库=" + "'" & FrmCKHP.CoCK + "'"
  End If
  Set DB = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rs = DB.OpenRecordset(SQL)
  Set Data1.Recordset = Rs
  
  'DBGrid1.RecordSelectors = False
  Data1.Visible = False
  SQLck = "select 分仓编号,货品分仓 from DB_FL货品仓"
  Set DBck = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rsck = DBck.OpenRecordset(SQLck)
   
  Do Until Rsck.EOF
    CoCK.AddItem Rsck("货品分仓")
    Rsck.MoveNext
  Loop
  
  SQLck = "select 编号,单位 from DB_DW单位"
  Set DBck = OpenDatabase("D:\DBB\DATA.mdb")
  Set Rsck = DBck.OpenRecordset(SQLck)
   
  Do Until Rsck.EOF
    CoDW.AddItem Rsck("单位")
    Rsck.MoveNext
  Loop
  
End Sub