frm_qckc.frm

这是个库存管理系统

         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "编号："
         Height          =   330
         Left            =   135
         TabIndex        =   5
         Top             =   255
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frm_qckc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim Prices As Long                  '定义一个计算价格的变量
Dim i As Integer                    '运用在FOR循环中的变量
Dim StrTemp                         '用于显示编号信息的变量
Dim StrNum As Long                  '用于显示编号信息的变量
Dim STrId As String
Dim ETemp As Integer                '定义一个日志标识变量
'*** “添加”货品期初设置的事件过程 ***
Private Sub Cmd_Add_Click()
   For i = 0 To 5                                   '清空文本框中的内容
      Text1(i).Text = ""
   Next i
        Adodc1.RecordSource = "select * from tb_kcxx order by kc_ID"
        Adodc1.Refresh
           If Adodc1.Recordset.RecordCount > 0 Then
               Adodc1.Recordset.MoveLast
               StrNum = Val(Adodc1.Recordset.Fields("kc_ID")) + 1    '编号加1
               
                 STrId = Val(Mid(Adodc1.Recordset.Fields("Kc_IDs"), 2, Len(Adodc1.Recordset.Fields("Kc_IDs"))))
                 Select Case Len(Trim(STrId))    '位数不足者补0
                    Case 1
                      StrTemp = "00000"
                    Case 2
                      StrTemp = "0000"
                    Case 3
                      StrTemp = "000"
                    Case 4
                      StrTemp = "00"
                    Case 5
                      StrTemp = "0"
                    Case 6
                      StrTemp = ""
                End Select
                STrId = STrId + 1
              STrId = "J" & Trim(StrTemp) & Trim(Str(STrId))
              Text1(0).Text = StrNum
           Else
               STrId = "L000001"    '给出货编号赋一个初值
               Text1(0).Text = 1    '给编号赋一个初值
           End If
   Text1(1).SetFocus
   Cmd_Save.Enabled = True
End Sub
Private Sub Cmd_exit_Click()
   Unload Me
End Sub

'*** “保存”货品期初设置的事件过程 ***
Private Sub Cmd_save_Click()
  rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)      '运用API函数SetWindowPos，来实现取消窗体置前的功能
  Adodc1.RecordSource = "select * from tb_kcxx where kc_ID=" + Str(Text1(0).Text) + ""   '判断要保存的记录信息在数据库中是否存在
  Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        MsgBox "该信息已经存在,信息保存不成功", 64, "保存信息提示"
        Call TRefresh
    Else
        c = MsgBox("您确认要保存该信息吗?", 33, "保存信息提示")
          If c = vbOK Then
               If Text1(1).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Then
                  MsgBox "货品数量、单价或名称不能为空值!", 48, "保存信息提示"
               Else
                      'IsNumeric函数用于判断输入的信息是否为数值型数据，关于该函数的具体用法请参阅明日公司《Visual Basic 编程词典》中的函数应用部分 网址 www.cccxy.com
                      If Not IsNumeric(Text1(3).Text) Or Not IsNumeric(Text1(4).Text) Then
                         MsgBox "输入的货品数量或单价必须为数值型数据", 48, "保存信息提示"
                      Else
                            Call main
                               NumId = Val(Mid(Text1(0).Text, 2, Len(Text1(0).Text)))
                               Prices = Val(Text1(3).Text) * Val(Text1(4).Text)
                               '保存期初货品入库信息
                               Set adoRs = adoCon.Execute("insert into tb_kcxx (kc_ID,kc_IDs,kc_Name,kc_SPEC,kc_UNIT,kc_Num,kc_Price,kc_Remark) values(" & Text1(0) & ",'" & STrId & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Combo1.Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "')")
                                     MsgBox "信息保存成功", 64, "保存信息提示"
                                  Cmd_Save.Enabled = False
                                  Call TRefresh
                             adoCon.Close
                     End If
                End If
          Else
          End If
     End If
        Call TRefresh         '调用数据刷新过程
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then
     Text1(3).SetFocus
   End If
End Sub
Private Sub DataGrid1_Click()
  Call JionBack               '调用数据反绑定过程
  Cmd_Save.Enabled = False
End Sub

Private Sub DTPicker1_DropDown()
   If KeyCode = 13 Then
       Text1(5).SetFocus
   End If
End Sub
Private Sub Form_Load()
    rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)      '运用API函数SetWindowPos，来实现使窗体置前的功能
'利用代码连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_kcxx"           '连接库存信息数据表
Adodc1.Refresh
   Me.Left = (Screen.Width - Me.Width) / 2              '使窗体居中
   Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)     '运用API函数SetWindowPos，来实现取消窗体置前的功能
    If Index = 0 Then
        Adodc1.RecordSource = "select * from tb_kcxx where kc_ID=" + Str(Text1(0).Text) + ""
        Adodc1.Refresh
        On Error Resume Next
        If Adodc1.Recordset.RecordCount > 0 Then
           Text1(1).Text = Adodc1.Recordset.Fields("kc_name")
           Text1(2).Text = Adodc1.Recordset.Fields("KC_SPEC")
           Combo1.Text = Adodc1.Recordset.Fields("KC_UNIT")
           Text1(3).Text = Adodc1.Recordset.Fields("KC_Num")
           Text1(4).Text = Adodc1.Recordset.Fields("KC_Price")
           Text1(5).Text = Adodc1.Recordset.Fields("kc_remark")
        Else
          MsgBox "没有相关的库存信息", 48, "提示信息"
        End If
      ElseIf Index = 1 Then
          Text1(2).SetFocus
      ElseIf Index = 2 Then
          Combo1.SetFocus
      ElseIf Index = 3 Then
          Text1(4).SetFocus
      ElseIf Index = 4 Then
          Text1(5).SetFocus
      End If
  End If
End Sub
'*** 自定义数据反绑定过程 ***
Private Sub JionBack()
Dim SLen As Integer
  If Adodc1.Recordset.RecordCount > 0 Then
      StrNum = Val(Adodc1.Recordset.Fields("kc_ID"))
      SLen = Len(Trim(StrNum))
      Select Case SLen    '位数不足者补0
         Case 1
           StrTemp = "00000"
         Case 2
           StrTemp = "0000"
         Case 3
           StrTemp = "000"
         Case 4
           StrTemp = "00"
         Case 5
           StrTemp = "0"
         Case 6
           StrTemp = ""
     End Select
     On Error Resume Next                    '执行错误处理
     Text1(0).Text = "S" & Trim(StrTemp) & Trim(Str(StrNum))
     Text1(1).Text = Adodc1.Recordset(1)
     Text1(2).Text = Adodc1.Recordset(2)
     Combo1.Text = Adodc1.Recordset(3)
     Text1(3).Text = Adodc1.Recordset(4)
     Text1(4).Text = Adodc1.Recordset(5)
     Text1(5).Text = Adodc1.Recordset(9)
  End If
End Sub
'*** 自定义数据刷新过程 ***
Private Sub TRefresh()
    Adodc1.RecordSource = "select * from tb_kcxx order by kc_ID"
    Adodc1.Refresh
End Sub
'*** 自定义添加日志的过程 ***
Private Sub joinRZ()
     Open (App.Path & "\系统日志.ini") For Input As #1
          Do While Not EOF(1)
               Line Input #1, Intext
               TStr = TStr + Intext + Chr(13) + Chr(10)
          Loop
      Close #1
        If ETemp = 0 Then                         '添加修改信息日志
            TStr = TStr + "   " + Name1 + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "            " + "修改库存 " + Text1(0).Text + "(" + Text1(1).Text + ")" + Chr(13) + Chr(10)
        ElseIf ETemp = 1 Then                     '添加删除信息日志
            TStr = TStr + "   " + Name1 + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "            " + "删除库存 " + Text1(0).Text + "(" + Text1(1).Text + ")" + Chr(13) + Chr(10)
        End If
      Open (App.Path & "\系统日志.ini") For Output As #1         '将日志信息保存到文件当中
      Print #1, TStr
      Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
   frm_main.Enabled = True
End Sub