?? alerm.frm
字號:
VERSION 5.00
Begin VB.Form alerm
Caption = "庫存報(bào)警值"
ClientHeight = 1635
ClientLeft = 4365
ClientTop = 4440
ClientWidth = 4380
Icon = "alerm.frx":0000
LinkTopic = "Form1"
ScaleHeight = 1635
ScaleWidth = 4380
Begin VB.CommandButton Command2
Caption = "確定"
Height = 375
Left = 3120
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "取消"
Height = 375
Left = 3120
TabIndex = 2
Top = 840
Width = 1095
End
Begin VB.TextBox txt_min
Height = 375
Left = 360
TabIndex = 1
Top = 840
Width = 1815
End
Begin VB.Label lab
Caption = "請輸入該貨物庫存報(bào)警值:"
Height = 375
Left = 240
TabIndex = 0
Top = 360
Width = 2775
End
End
Attribute VB_Name = "alerm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sql As String
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
Me.Hide
End Sub
Private Sub Command2_Click()
Sql = "insert into [庫存] values('" & Trim(main.txt_is_name.Text) '向庫存表寫數(shù)據(jù)
Sql = Sql & "'," & Str(Val(Trim(main.txt_is_num.Text)))
Sql = Sql & ",'" & Trim(main.cmb_unit.Text)
Sql = Sql & "'," & Str(Val(Trim(main.txt_is_price.Text)))
Sql = Sql & "," & Str(Val(Trim(main.txt_is_price.Text)))
Sql = Sql & "," & Str(Val(Trim(txt_min.Text))) & ")"
dbOperate Sql
Sql = "insert into [進(jìn)出庫] values('" & Trim(main.txt_is_name.Text) '向出入庫表寫數(shù)據(jù)
Sql = Sql & "','" & Trim(main.Combo1.Text)
Sql = Sql & "'," & Str(Val(Trim(main.txt_is_num.Text)))
Sql = Sql & ",'" & Trim(main.cmb_unit.Text)
Sql = Sql & "'," & Str(Val(Trim(main.txt_is_price.Text)))
Sql = Sql & ",'" & Trim(main.dtp_is_time.Value)
Sql = Sql & "','" & main.txt_is_supplier.Text
Sql = Sql & "','" & main.txt_is_hand.Text & "')"
dbOperate Sql
Me.Hide
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -