📄 form1.frm
字号:
Begin VB.TextBox txt_old_passwd
Height = 270
IMEMode = 3 'DISABLE
Left = 1920
PasswordChar = "*"
TabIndex = 40
Top = 960
Width = 1455
End
Begin VB.TextBox txt_name
Height = 270
Left = 1920
TabIndex = 39
Top = 360
Width = 1455
End
Begin VB.Label Label14
Caption = "密码确认"
Height = 255
Left = 720
TabIndex = 43
Top = 2160
Width = 735
End
Begin VB.Label Label13
Caption = "新密码："
Height = 255
Left = 720
TabIndex = 38
Top = 1560
Width = 735
End
Begin VB.Label Label12
Caption = "原密码："
Height = 255
Left = 720
TabIndex = 37
Top = 960
Width = 975
End
Begin VB.Label Label11
Caption = "用户名："
Height = 255
Left = 720
TabIndex = 36
Top = 360
Width = 855
End
End
Begin VB.PictureBox pic_user_manage
Height = 5775
Left = 0
ScaleHeight = 5715
ScaleWidth = 9315
TabIndex = 31
Top = 0
Width = 9375
Begin VB.CommandButton cmd_upd
Caption = "修改用户密码"
Height = 375
Left = 4560
TabIndex = 34
Top = 2160
Width = 1335
End
Begin VB.CommandButton cmd_del
Caption = "删除用户"
Height = 375
Left = 4560
TabIndex = 33
Top = 720
Width = 1335
End
Begin MSFlexGridLib.MSFlexGrid msf_user
Height = 2895
Left = 480
TabIndex = 32
Top = 360
Width = 2535
_ExtentX = 4471
_ExtentY = 5106
_Version = 393216
Rows = 100
AllowUserResizing= 3
End
End
Begin VB.PictureBox pic_user_add
Height = 5775
Left = 0
ScaleHeight = 5715
ScaleWidth = 9315
TabIndex = 22
Top = 0
Width = 9375
Begin VB.CommandButton cmd_user_add_cancel
Caption = "取消"
Height = 375
Left = 6480
TabIndex = 30
Top = 3960
Width = 1455
End
Begin VB.CommandButton cmd_user_add_OK
Caption = "确定"
Height = 375
Left = 3840
TabIndex = 29
Top = 3960
Width = 1455
End
Begin VB.TextBox txt_user_passwd2
Height = 375
IMEMode = 3 'DISABLE
Left = 2520
PasswordChar = "*"
TabIndex = 28
Top = 2160
Width = 2055
End
Begin VB.TextBox txt_user_passwd
Height = 375
IMEMode = 3 'DISABLE
Left = 2520
PasswordChar = "*"
TabIndex = 26
Top = 1200
Width = 2055
End
Begin VB.TextBox txt_user_name
Height = 375
Left = 2520
TabIndex = 24
Top = 360
Width = 2055
End
Begin VB.Label Label10
Caption = "重复密码"
Height = 255
Left = 1320
TabIndex = 27
Top = 2160
Width = 855
End
Begin VB.Label Label9
Caption = "密码"
Height = 255
Left = 1320
TabIndex = 25
Top = 1200
Width = 855
End
Begin VB.Label Label8
Caption = "用户名"
Height = 255
Left = 1320
TabIndex = 23
Top = 480
Width = 975
End
End
Begin VB.PictureBox pic_store
Height = 6015
Left = 0
ScaleHeight = 5955
ScaleWidth = 9315
TabIndex = 0
Top = 0
Width = 9375
Begin VB.CommandButton cmd_unit
Caption = "添加单位"
Height = 375
Left = 8040
TabIndex = 19
Top = 1200
Width = 975
End
Begin VB.ComboBox cmb_unit
Height = 300
Left = 5640
TabIndex = 18
Top = 1320
Width = 2055
End
Begin VB.ComboBox Combo1
Height = 300
Left = 5640
TabIndex = 16
Top = 3600
Width = 2295
End
Begin MSComCtl2.DTPicker dtp_is_time
Height = 375
Left = 1200
TabIndex = 15
Top = 3600
Width = 2655
_ExtentX = 4683
_ExtentY = 661
_Version = 393216
Format = 25427969
CurrentDate = 39589
End
Begin VB.TextBox txt_is_hand
Height = 375
Left = 5640
TabIndex = 12
Top = 2400
Width = 3255
End
Begin VB.TextBox txt_is_num
Height = 375
Left = 1200
TabIndex = 11
Top = 1200
Width = 2655
End
Begin VB.TextBox txt_is_supplier
Height = 375
Left = 1200
TabIndex = 10
Top = 2400
Width = 2655
End
Begin VB.TextBox txt_is_price
Height = 375
Left = 5640
TabIndex = 9
Top = 360
Width = 2775
End
Begin VB.TextBox txt_is_name
Height = 375
Left = 1200
TabIndex = 4
Top = 360
Width = 2655
End
Begin VB.CommandButton s_cancel
Caption = "取消"
Height = 375
Left = 6840
TabIndex = 2
Top = 5280
Width = 1095
End
Begin VB.CommandButton s_ok
Caption = "确定"
Height = 375
Left = 5040
TabIndex = 1
Top = 5280
Width = 1095
End
Begin VB.Label Label7
Caption = "货物进\出库"
Height = 375
Left = 4320
TabIndex = 17
Top = 3600
Width = 1215
End
Begin VB.Label Label4
Caption = "时间"
Height = 255
Left = 240
TabIndex = 14
Top = 3720
Width = 735
End
Begin VB.Label label
Caption = "货物单位"
Height = 255
Left = 4320
TabIndex = 13
Top = 1320
Width = 855
End
Begin VB.Label Label1
Caption = "货物经手人"
Height = 255
Left = 4320
TabIndex = 8
Top = 2520
Width = 1215
End
Begin VB.Label Label6
Caption = "数量"
Height = 255
Left = 240
TabIndex = 7
Top = 1320
Width = 855
End
Begin VB.Label Label5
Caption = "供货商\客户"
Height = 255
Left = 120
TabIndex = 6
Top = 2520
Width = 1095
End
Begin VB.Label Label3
Caption = "进\出货单价"
Height = 255
Left = 4320
TabIndex = 5
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "货物名称"
Height = 375
Left = 240
TabIndex = 3
Top = 480
Width = 1335
End
End
Begin VB.Image Image1
Height = 495
Left = 4080
Top = 3000
Width = 1215
End
Begin VB.Menu store
Caption = "货物管理"
End
Begin VB.Menu empty1
Caption = ""
End
Begin VB.Menu view_store
Caption = "货物查看"
End
Begin VB.Menu empty2
Caption = ""
End
Begin VB.Menu damage
Caption = "损坏管理"
End
Begin VB.Menu empty3
Caption = ""
End
Begin VB.Menu user
Caption = "用户管理"
Begin VB.Menu user_add
Caption = "添加新用户"
End
Begin VB.Menu user_manage
Caption = "用户管理"
End
End
Begin VB.Menu user_passwd
Caption = "修改密码"
End
Begin VB.Menu empty4
Caption = ""
End
Begin VB.Menu about
Caption = "关于"
End
Begin VB.Menu empty5
Caption = ""
End
Begin VB.Menu exit
Caption = "退出"
End
End
Attribute VB_Name = "main"
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
Dim num As String
Dim min As String
Private Sub about_Click()
frmAbout.Show '打开“关于”对话框
End Sub
Private Sub cmd_dam_cancel_Click()
Me.txt_dam_name = ""
Me.txt_dam_num = ""
End Sub
Private Sub cmd_dam_OK_Click()
'报损数据入库
If txt_dam_name.Text <> "" And txt_dam_num.Text <> "" And Trim(cmb_dam_unit.Text) <> "" And Trim(cmb_dam_state.Text) <> "" Then
If Trim(cmb_dam_state.Text) = "已修复" Then
Sql = "select * from [库存] where 货物名称='" & Trim(txt_dam_name.Text) & "'"
Set RS = dbSelect(Sql)
If RS.EOF Then
MsgBox "库中无此货物信息，请重新输入！"
Else
If Me.cmb_dam_unit = RS.Fields("单位") Then
num = RS.Fields("单位")
Sql = "update [库存] set 库存='" & Val(Trim(txt_dam_num.Text)) + Val(num) & "'"
Sql = Sql & "where 货物名称='" & txt_dam_name.Text & "'"
dbOperate Sql
Sql = "insert into [damage] values('" & Trim(txt_dam_name.Text)
Sql = Sql & "','" & Trim(cmb_dam_state.Text)
Sql = Sql & "'," & Str(Val(Trim(txt_dam_num.Text)))
Sql = Sql & ",'" & Trim(cmb_dam_unit.Text)
Sql = Sql & "','" & Trim(dtp_dam_time.Value) & "')"
dbOperate Sql
Else
MsgBox "请使用统一的单位！"
End If
End If
Else
Sql = "select * from [库存] where 货物名称='" & Trim(txt_dam_name.Text) & "'"
Set RS = dbSelect(Sql)
If RS.EOF Then
MsgBox "仓库中无此货物！"
Else
If Me.cmb_dam_unit = RS.Fields("单位") Then
num = RS.Fields("库存")
min = RS.Fields("报警值")
If Val(num) - Val(Trim(txt_dam_num.Text)) >= 0 Then
If Val(num) - Val(Trim(txt_dam_num.Text)) < Val(min) Then
MsgBox "库存不足！请尽快购买此货物！"
End If
Sql = "update [库存] set 库存='" & Val(num) - Val(Trim(txt_dam_num.Text)) & "'"
Sql = Sql & "where 货物名称='" & txt_dam_name.Text & "'"
dbOperate Sql
Sql = "insert into [damage] values('" & Trim(txt_dam_name.Text)
Sql = Sql & "','" & Trim(cmb_dam_state.Text)
Sql = Sql & "'," & Str(Val(Trim(txt_dam_num.Text)))
Sql = Sql & ",'" & Trim(cmb_dam_unit.Text)
Sql = Sql & "','" & Trim(dtp_dam_time.Value) & "')"
dbOperate Sql
Else
MsgBox "库存不足提供此次报损数目，请确认数目！"
End If
Else
MsgBox "请使用统一的单位！"
End If
End If
End If
Else: MsgBox "请将货物信息输入完整！"
End If
End Sub
Private Sub cmd_del_Click()
user_del.Show '打开“用户删除”对话框
End Sub
Private Sub cmd_unit_Click()
unit.Show '打开“添加单位”对话框
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -