📄 form1.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form main
BackColor = &H8000000B&
Caption = "货物管理系统"
ClientHeight = 6450
ClientLeft = 165
ClientTop = 870
ClientWidth = 9435
Icon = "Form1.frx":0000
LinkTopic = "main"
ScaleHeight = 6450
ScaleWidth = 9435
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "欢迎"
Height = 615
Left = 0
TabIndex = 79
Top = 5760
Width = 5295
Begin VB.Label Label25
Caption = "欢迎使用仓库管理系统"
Height = 255
Left = 720
TabIndex = 80
Top = 240
Width = 3855
End
End
Begin VB.Frame frm_time
Caption = "时间"
Height = 615
Left = 5280
TabIndex = 20
Top = 5760
Width = 4095
Begin VB.Timer Timer1
Left = 2880
Top = 120
End
Begin VB.Label lbl_time
Height = 375
Left = 480
TabIndex = 21
Top = 120
Width = 3375
End
End
Begin VB.PictureBox pic_view_store
Height = 5775
Left = 0
ScaleHeight = 5715
ScaleWidth = 9315
TabIndex = 59
Top = 0
Width = 9375
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 0
TabIndex = 60
Top = 0
Width = 9255
_ExtentX = 16325
_ExtentY = 9975
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "库存查看"
TabPicture(0) = "Form1.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "msf_view_store"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame3"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmb_view_del"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "cmd_view_upd"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "cmd_view_del"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame2"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmb_view"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmd_view_view"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).ControlCount= 8
TabCaption(1) = "进出货查看"
TabPicture(1) = "Form1.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "msf_io_store"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "txt_sea_io"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "cmb_sea_io"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "cmb_io"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cmd_view_io"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
Begin VB.CommandButton cmd_view_io
Caption = "查看"
Height = 375
Left = -69600
TabIndex = 75
Top = 1800
Width = 1335
End
Begin VB.ComboBox cmb_io
Height = 300
Left = -71760
TabIndex = 74
Top = 1920
Width = 2055
End
Begin VB.ComboBox cmb_sea_io
Height = 300
Left = -72720
TabIndex = 73
Top = 1080
Width = 1935
End
Begin VB.TextBox txt_sea_io
Height = 375
Left = -70080
TabIndex = 72
Top = 960
Width = 1815
End
Begin VB.CommandButton cmd_view_view
Caption = "查看"
Height = 375
Left = 4080
TabIndex = 65
Top = 1800
Width = 1335
End
Begin VB.ComboBox cmb_view
Height = 300
Left = 1800
TabIndex = 64
Top = 1800
Width = 2055
End
Begin VB.Frame Frame2
Caption = "查看"
Height = 2055
Left = 240
TabIndex = 66
Top = 480
Width = 5655
Begin VB.TextBox txt_sea_view
Height = 375
Left = 3360
TabIndex = 68
Top = 480
Width = 1815
End
Begin VB.ComboBox cmb_sea_view
Height = 300
Left = 960
TabIndex = 67
Top = 480
Width = 1935
End
Begin VB.Frame Frame4
Caption = "查找（为空默认不查找）"
Height = 855
Left = 120
TabIndex = 81
Top = 240
Width = 5295
Begin VB.Label Label26
Caption = "查找"
Height = 255
Left = 240
TabIndex = 82
Top = 240
Width = 375
End
End
Begin VB.Label Label20
Caption = "查看方式"
Height = 255
Left = 240
TabIndex = 69
Top = 1440
Width = 855
End
End
Begin VB.CommandButton cmd_view_del
Caption = "删除"
Height = 375
Left = 6120
TabIndex = 63
Top = 1680
Width = 1215
End
Begin VB.CommandButton cmd_view_upd
Caption = "修改"
Height = 375
Left = 7560
TabIndex = 62
Top = 1680
Width = 1335
End
Begin VB.ComboBox cmb_view_del
Height = 300
Left = 7320
TabIndex = 61
Top = 960
Width = 1575
End
Begin VB.Frame Frame3
Caption = "修改"
Height = 2055
Left = 6000
TabIndex = 70
Top = 480
Width = 3015
Begin VB.Label Label22
Caption = "货物名称"
Height = 375
Left = 240
TabIndex = 71
Top = 480
Width = 855
End
End
Begin MSFlexGridLib.MSFlexGrid msf_view_store
Height = 2775
Left = 240
TabIndex = 76
Top = 2640
Width = 8775
_ExtentX = 15478
_ExtentY = 4895
_Version = 393216
Rows = 1000
Cols = 6
AllowUserResizing= 3
End
Begin MSFlexGridLib.MSFlexGrid msf_oi_store
Height = 2775
Left = -74760
TabIndex = 77
Top = 2520
Width = 8655
_ExtentX = 15266
_ExtentY = 4895
_Version = 393216
Rows = 10000
Cols = 8
AllowUserResizing= 3
End
Begin MSFlexGridLib.MSFlexGrid msf_io_store
Height = 2775
Left = -74760
TabIndex = 78
Top = 2640
Width = 8775
_ExtentX = 15478
_ExtentY = 4895
_Version = 393216
Rows = 1000
Cols = 8
AllowUserResizing= 3
End
Begin VB.Frame Frame5
Caption = "查看"
Height = 1815
Left = -74640
TabIndex = 83
Top = 480
Width = 7935
Begin VB.Frame Frame6
Caption = "查找（为空默认不查找）"
Height = 975
Left = 720
TabIndex = 85
Top = 240
Width = 6615
Begin VB.Label Label24
Caption = "查找"
Height = 255
Left = 240
TabIndex = 86
Top = 360
Width = 495
End
End
Begin VB.Label Label27
Caption = "查看方式"
Height = 615
Left = 840
TabIndex = 84
Top = 1320
Width = 975
End
End
End
End
Begin VB.PictureBox pic_dam
Height = 5775
Left = 0
ScaleHeight = 5715
ScaleWidth = 9315
TabIndex = 46
Top = 0
Width = 9375
Begin VB.ComboBox cmb_dam_state
Height = 300
Left = 1920
TabIndex = 56
Top = 2040
Width = 1695
End
Begin VB.ComboBox cmb_dam_unit
Height = 300
Left = 5400
TabIndex = 55
Top = 1200
Width = 1695
End
Begin VB.TextBox txt_dam_num
Height = 390
Left = 1920
TabIndex = 54
Top = 1200
Width = 1575
End
Begin VB.TextBox txt_dam_name
Height = 390
Left = 1920
TabIndex = 53
Top = 360
Width = 1575
End
Begin VB.CommandButton cmd_dam_cancel
Caption = "取消"
Height = 375
Left = 4800
TabIndex = 48
Top = 3840
Width = 1215
End
Begin VB.CommandButton cmd_dam_OK
Caption = "确定"
Height = 375
Left = 2400
TabIndex = 47
Top = 3840
Width = 1215
End
Begin MSComCtl2.DTPicker dtp_dam_time
Height = 375
Left = 5400
TabIndex = 58
Top = 2040
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Format = 25427969
CurrentDate = 39589
End
Begin VB.Label Label19
Caption = "时间"
Height = 255
Left = 4080
TabIndex = 57
Top = 2040
Width = 615
End
Begin VB.Label Label18
Caption = "报损状态"
Height = 255
Left = 840
TabIndex = 52
Top = 2040
Width = 855
End
Begin VB.Label Label17
Caption = "单位"
Height = 255
Left = 4080
TabIndex = 51
Top = 1320
Width = 855
End
Begin VB.Label Label16
Caption = "数量"
Height = 255
Left = 840
TabIndex = 50
Top = 1320
Width = 855
End
Begin VB.Label Label15
Caption = "货物名称"
Height = 255
Left = 840
TabIndex = 49
Top = 480
Width = 855
End
End
Begin VB.PictureBox pic_passwd_upd
Height = 5775
Left = 0
ScaleHeight = 5715
ScaleWidth = 9315
TabIndex = 35
Top = 0
Width = 9375
Begin VB.CommandButton cmd_user_cancel
Caption = "取消"
Height = 375
Left = 4200
TabIndex = 45
Top = 1920
Width = 1455
End
Begin VB.CommandButton cmd_user_OK
Caption = "确定"
Height = 375
Left = 4200
TabIndex = 44
Top = 840
Width = 1455
End
Begin VB.TextBox txt_new_passwd2
Height = 270
IMEMode = 3 'DISABLE
Left = 1920
PasswordChar = "*"
TabIndex = 42
Top = 2160
Width = 1455
End
Begin VB.TextBox txt_new_passwd
Height = 270
IMEMode = 3 'DISABLE
Left = 1920
PasswordChar = "*"
TabIndex = 41
Top = 1560
Width = 1455
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -