【VB开源代码栏目提醒】:本文主要为网学会员提供choose.frm,希望对需要choose.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form form6
Caption = "库房"
ClientHeight = 1080
ClientLeft = 5385
ClientTop = 5025
ClientWidth = 4680
LinkTopic = "Form6"
ScaleHeight = 1080
ScaleWidth = 4680
Begin VB.Timer Timer1
Interval = 1000
Left = 3840
Top = 120
End
Begin VB.Label 进货信息记录
AutoSize = -1 'True
Caption = "欢迎进入库房
管理系统"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 960
TabIndex = 0
Top = 360
Width = 2850
End
Begin VB.Menu sys
Caption = "系统"
Begin VB.Menu getin
Caption = "登入"
Shortcut = ^I
End
Begin VB.Menu getout
Caption = "登出"
Enabled = 0 'False
Shortcut = ^O
End
Begin VB.Menu end
Caption = "退出
系统"
Shortcut = ^E
End
End
Begin VB.Menu deal
Caption = "处理"
Enabled = 0 'False
Begin
VB.Menu income
Caption = "进货处理"
End
Begin VB.Menu draw
Caption = "提货处理"
End
End
Begin VB.Menu view
Caption = "浏览"
Enabled = 0 'False
Begin VB.Menu monthcount
Caption = "盘点信息浏览"
End
Begin VB.Menu drawview
Caption = "提货信息浏览"
End
End
End
Attribute VB_Name = "form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mytime
Dim loadtime As String
Private rz As New ADODB.Recordset
Private re As New ADODB.Recordset
Private rf As New ADODB.Recordset
Dim counter
Dim temp1 As String
Dim temp2 As String
Dim temp3 As Integer
Dim temp4 As String
Dim temp8 As Integer
Private Sub add_Click()
Form2.Show
End Sub
Private Sub Command1_Click()
Form5.Show
End Sub
Private Sub Command2_Click()
Form4.Show
End Sub
Private Sub Command3_Click()
Form4.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub draw_Click()
Form4.Show
End Sub
Private Sub drawview_Click()
Form5.Show
End Sub
Private Sub end_Click()
End
End Sub
Private Sub Form_Load()
loadtime = "6:45:00 AM"
End Sub
Private Sub getin_Click()
frmLogin.Show
End Sub
Private Sub income_Click()
Form2.Show
End Sub
Private Sub moncount_Click()
Form3.Show
End Sub
Private Sub monthcount_Click()
Form3.Show
End Sub
Private Sub getout_Click()
form6.getout.Enabled = False
form6.deal.Enabled = False
form6.view.Enabled = False
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
End Sub
Private Sub Timer1_Timer()
mytime = time
If mytime = loadtime Then
re.Open "select count(*) as counter from 每日销售记录", db, adOpenStatic, adLockOptimistic
counter = re("counter")
re.Close
re.Open "select * from 每日销售记录", db, adOpenStatic, adLockOptimistic
If re.BOF = True Or re.EOF = True Then
MsgBox ("读取每日销售记录失败!")
Else
For i = 1 To counter
temp1 = re("商品编码")
temp2 = re("商品名称")
temp3 = re("销售数量")
temp4 = re("销售年月日")
rz.Open "SELECT * FROM 商品库信息 where 商品编码 = '" & temp1 & "'", db, adOpenStatic, adLockOpti
mistic
temp8 = rz("商品数量") - temp3
rz.Close
rf.Open "update 商品库信息 set 商品数量 = " & temp8 & "where 商品编码 ='" & temp1 & "'", db, adOpenStatic, adLockOptimistic
re.MoveNext
Next i
re.Close
End If
End If
End Sub