?? frmputin.frm
字號(hào):
Width = 1125
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品代碼："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 600
TabIndex = 20
Top = 1185
Width = 1125
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入庫數(shù)量："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 9
Left = 5400
TabIndex = 19
Top = 2160
Width = 1125
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入庫日期："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 8
Left = 2640
TabIndex = 18
Top = 2160
Width = 1125
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "價(jià)格："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 7
Left = 600
TabIndex = 17
Top = 2160
Width = 675
End
Begin VB.Label Label3
AutoSize = -1 'True
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 360
TabIndex = 15
Top = 3240
Width = 90
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "商 品 入 庫 信 息"
BeginProperty Font
Name = "宋體"
Size = 18
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 0
Top = 0
Width = 5175
End
End
Attribute VB_Name = "frmPutin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Cnumber As Integer
Private Sub Display()
txtIcode.Text = RS.Fields("code")
txtIname.Text = RS.Fields("name")
txtJG.Text = RS.Fields("rate")
DTPdate.Value = RS.Fields("date")
txtNumber.Text = RS.Fields("number")
txtIcode.Enabled = False
txtIname.Enabled = False
txtJG.Enabled = False
DTPdate.Enabled = False
txtNumber.Enabled = False
End Sub
Private Sub KJZT() '設(shè)定控件的可用狀態(tài)
txtIcode.Enabled = ZJ
txtIname.Enabled = ZJ
txtJG.Enabled = ZJ
txtNumber.Enabled = ZJ
DTPdate.Enabled = ZJ
cmdSave.Enabled = ZJ
cmdMoveF.Enabled = Not ZJ
cmdMoveP.Enabled = Not ZJ
cmdMoveL.Enabled = Not ZJ
cmdMoveN.Enabled = Not ZJ
cmdAdd.Enabled = Not ZJ
cmdDel.Enabled = Not ZJ
cmdUp.Enabled = Not ZJ
End Sub
Private Sub cmdAdd_Click()
ZJ = True
KJZT
txtIcode.SetFocus
txtIcode.Text = ""
txtIname.Text = ""
txtJG.Text = ""
txtNumber.Text = ""
DTPdate.Value = Date
cmdSave.Enabled = True
RS.AddNew
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDel_Click()
Dim Queren As Integer
Queren = MsgBox("記錄刪除后將無法恢復(fù)，請(qǐng)謹(jǐn)慎使用此功能", vbYesNo + vbExclamation)
If Queren = vbYes Then
sql = "select * from 庫存表 where 商品編號(hào)='" & txtIcode.Text & "'"
Set RSUP = Db.OpenRecordset(sql)
RSUP.Edit
RSUP.Fields("庫存數(shù)量") = RSUP.Fields("庫存數(shù)量").Value - Val(txtNumber.Text)
RSUP.Update
RSUP.Close
RS.Delete
cmdMoveN_Click
End If
End Sub
Private Sub cmdMoveF_Click()
RS.MoveFirst
cmdMoveP.Enabled = False
cmdMoveN.Enabled = True
Display
End Sub
Private Sub cmdMoveL_Click()
RS.MoveLast
cmdMoveP.Enabled = True
cmdMoveN.Enabled = False
Display
End Sub
Private Sub cmdMoveN_Click()
RS.MoveNext
cmdMoveP.Enabled = True
If RS.EOF Then
RS.MoveLast
cmdMoveN.Enabled = False
End If
Display
End Sub
Private Sub cmdMoveP_Click()
RS.MovePrevious
cmdMoveN.Enabled = True
If RS.BOF Then
RS.MoveFirst
cmdMoveP.Enabled = False
End If
Display
End Sub
Private Sub cmdSave_Click()
RS.Fields("code") = txtIcode.Text
RS.Fields("name") = txtIname.Text
RS.Fields("rate") = txtJG.Text
RS.Fields("date") = DTPdate.Value
RS.Fields("number") = txtNumber.Text
RS.Update
RS.MoveLast
sql = "select * from 庫存表 where 商品編號(hào)='" & txtIcode.Text & "'"
Set RSUP = Db.OpenRecordset(sql)
If RSUP.EOF Then
RSUP.AddNew
RSUP.Fields("商品編號(hào)") = txtIcode.Text
RSUP.Fields("商品名稱") = txtIname.Text
RSUP.Fields("庫存數(shù)量") = txtNumber.Text
RSUP.Update
Else
RSUP.Edit
RSUP.Fields("庫存數(shù)量") = Val(txtNumber.Text) + RSUP.Fields("庫存數(shù)量").Value - Cnumber
RSUP.Update
Cnumber = 0
End If
RSUP.Close
cmdSave.Enabled = False
ZJ = False
KJZT
End Sub
Private Sub cmdUp_Click()
Cnumber = Val(txtNumber.Text)
ZJ = True
KJZT
txtIcode.Enabled = False
txtIname.Enabled = False
RS.Edit
End Sub
Private Sub Form_Load()
Me.Top = MDIForm1.Top + 1200
Me.Left = MDIForm1.Left + 1800
sql = "select * from 進(jìn)貨單 ORDER BY date"
Set Db = OpenDatabase(App.Path + "\db1.mdb")
Set RS = Db.OpenRecordset(sql)
If RS.EOF Then
MsgBox "記錄為空，請(qǐng)先添加記錄"
ZJ = True
KJZT
RS.AddNew
Else
Display
End If
End Sub
Private Sub txtIcode_Validate(Cancel As Boolean)
Cancel = True
If txtIcode = "" Then
MsgBox "請(qǐng)輸入商品代碼"
Else
Cancel = False
End If
End Sub
Private Sub txtIname_Validate(Cancel As Boolean)
Cancel = True
If txtIname = "" Then
MsgBox "請(qǐng)輸入商品名稱"
Else
Cancel = False
End If
End Sub
Private Sub txtJG_Validate(Cancel As Boolean)
Cancel = True
If Val(txtJG) <= 0 Then
MsgBox "商品價(jià)格必須大于零"
Else
Cancel = False
End If
End Sub
Private Sub txtNumber_Validate(Cancel As Boolean)
Cancel = True
If Val(txtNumber) <= 0 Then
MsgBox "商品入庫數(shù)量必須大于零"
Else
Cancel = False
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -