📄 frm_part_inout.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_Part_InOut
Caption = "进销货"
ClientHeight = 9135
ClientLeft = 2430
ClientTop = 1200
ClientWidth = 11355
Icon = "Frm_Part_InOut.frx":0000
LinkTopic = "Form1"
ScaleHeight = 9135
ScaleWidth = 11355
Begin VB.CheckBox Chk_Details
Caption = "在列表中显示明细"
Height = 255
Left = 7680
TabIndex = 43
Top = 120
Width = 2175
End
Begin VB.CommandButton Cmd_Preview
Caption = "打印预览"
Height = 255
Left = 6240
TabIndex = 42
Top = 120
Width = 1215
End
Begin VB.CommandButton Cmd_Print
Caption = "打印列表"
Height = 255
Left = 4800
TabIndex = 41
Top = 120
Width = 1215
End
Begin VB.TextBox Txt_CangGuan
Height = 270
Left = 1560
Locked = -1 'True
TabIndex = 40
Text = "Text1"
Top = 120
Width = 1215
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 255
Left = 3360
TabIndex = 38
Top = 120
Width = 1215
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 31
Top = 8880
Width = 11355
_ExtentX = 20029
_ExtentY = 450
SimpleText = "单价指出售价格,成本是购入价; ID和日期不需要填写."
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Caption = "列表显示"
Height = 3975
Left = 480
TabIndex = 24
Top = 600
Width = 10575
Begin VB.CommandButton Cmd_ShowDedeucePart
Caption = "同品种合并显示"
Height = 255
Left = 7320
TabIndex = 37
Top = 240
Width = 1455
End
Begin VB.CommandButton Cmd_ShowExistPart
Caption = "显示存货"
Height = 255
Left = 5760
TabIndex = 36
Top = 240
Width = 1335
End
Begin VB.CommandButton Cmd_ShowNeedPart
Caption = "显示所缺的"
Height = 255
Left = 4320
TabIndex = 35
Top = 240
Width = 1335
End
Begin VB.CommandButton Cmd_S_All
Caption = "显示全部记录"
Height = 255
Left = 9000
TabIndex = 30
Top = 240
Width = 1335
End
Begin VB.CommandButton Cmd_S_Name
Caption = "按名称查询"
Height = 255
Left = 3000
TabIndex = 29
Top = 240
Width = 1095
End
Begin VB.TextBox Txt_SearchName
Height = 270
Left = 1560
TabIndex = 27
Top = 240
Width = 1335
End
Begin MSFlexGridLib.MSFlexGrid Grid_Part_InOut
Bindings = "Frm_Part_InOut.frx":08CA
Height = 3135
Left = 120
TabIndex = 25
Top = 720
Width = 10335
_ExtentX = 18230
_ExtentY = 5530
_Version = 393216
SelectionMode = 1
AllowUserResizing= 1
End
Begin VB.Label Label1
Caption = "输入零配件名称:"
Height = 255
Left = 120
TabIndex = 28
Top = 240
Width = 1455
End
End
Begin VB.Frame Frame2
Caption = "单项明细显示"
Height = 3975
Left = 480
TabIndex = 0
Top = 4680
Width = 10815
Begin VB.CommandButton Cmd_BuySame
Caption = "同品种 采购"
Height = 495
Left = 9720
TabIndex = 44
Top = 1200
Width = 855
End
Begin VB.ComboBox Comb_Way
BackColor = &H0080FFFF&
Height = 300
ItemData = "Frm_Part_InOut.frx":08E4
Left = 9600
List = "Frm_Part_InOut.frx":08E6
Style = 2 'Dropdown List
TabIndex = 33
Top = 720
Width = 855
End
Begin VB.CommandButton Cmd_Sale
Caption = "出售"
Height = 255
Left = 9720
TabIndex = 26
Top = 3360
Width = 855
End
Begin VB.CommandButton Cmd_TuiHuo
Caption = "退货"
Height = 255
Left = 9720
TabIndex = 22
Top = 2400
Width = 855
End
Begin VB.CommandButton Cmd_Discard
Caption = "报废"
Height = 255
Left = 9720
TabIndex = 21
Top = 2880
Width = 855
End
Begin VB.ComboBox Comb_Array
Appearance = 0 'Flat
Height = 300
Index = 0
Left = 1320
TabIndex = 20
Text = "Combo1"
Top = 1920
Visible = 0 'False
Width = 3015
End
Begin VB.TextBox Txt_Array
Appearance = 0 'Flat
Height = 270
Index = 0
Left = 360
TabIndex = 19
Text = "Text2"
Top = 960
Width = 495
End
Begin VB.CommandButton Cmd_Buy
Caption = "采购新品"
Height = 255
Left = 9720
TabIndex = 9
Top = 1920
Width = 855
End
Begin VB.CommandButton Command2
Caption = "ID"
Height = 255
Left = 360
TabIndex = 8
ToolTipText = "按ID号查询"
Top = 480
Width = 375
End
Begin VB.Line Line_Array
Index = 20
X1 = 9480
X2 = 9480
Y1 = 2760
Y2 = 3720
End
Begin VB.Label Label19
Caption = "同品种ID"
Height = 255
Left = 7200
TabIndex = 34
Top = 2400
Width = 855
End
Begin VB.Line Line_Array
Index = 19
X1 = 9480
X2 = 9480
Y1 = 3240
Y2 = 3720
End
Begin VB.Label Label18
Caption = "结算方式"
Height = 255
Left = 9600
TabIndex = 32
Top = 360
Width = 855
End
Begin VB.Line Line_Array
Index = 18
X1 = 1200
X2 = 1200
Y1 = 2760
Y2 = 3720
End
Begin VB.Line Line_Array
Index = 17
X1 = 6720
X2 = 6720
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 16
X1 = 5640
X2 = 5640
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 15
X1 = 4800
X2 = 4800
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 14
X1 = 3840
X2 = 3840
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 13
X1 = 3000
X2 = 3000
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 12
X1 = 2160
X2 = 2160
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 11
X1 = 1200
X2 = 1200
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 10
X1 = 240
X2 = 240
Y1 = 2280
Y2 = 3240
End
Begin VB.Line Line_Array
Index = 9
X1 = 8280
X2 = 8280
Y1 = 1320
Y2 = 2280
End
Begin VB.Line Line_Array
Index = 8
X1 = 7200
X2 = 7200
Y1 = 1320
Y2 = 2280
End
Begin VB.Line Line_Array
Index = 7
X1 = 6240
X2 = 6240
Y1 = 1320
Y2 = 2280
End
Begin VB.Line Line_Array
Index = 6
X1 = 720
X2 = 720
Y1 = 1320
Y2 = 2280
End
Begin VB.Line Line_Array
Index = 5
X1 = 240
X2 = 240
Y1 = 1320
Y2 = 2280
End
Begin VB.Line Line_Array
Index = 4
X1 = 7920
X2 = 7920
Y1 = 360
Y2 = 1320
End
Begin VB.Line Line3
BorderWidth = 2
X1 = 240
X2 = 9480
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line2
X1 = 240
X2 = 9480
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line_Array
Index = 3
X1 = 6960
X2 = 6960
Y1 = 360
Y2 = 1320
End
Begin VB.Line Line_Array
Index = 2
X1 = 2280
X2 = 2280
Y1 = 360
Y2 = 1320
End
Begin VB.Line Line_Array
Index = 1
X1 = 960
X2 = 960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -