📄 frm_材料消耗.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frm_消耗
Caption = "在制品材料消耗"
ClientHeight = 9570
ClientLeft = 60
ClientTop = 285
ClientWidth = 13230
ControlBox = 0 'False
LinkTopic = "Form3"
LockControls = -1 'True
MDIChild = -1 'True
MousePointer = 1 'Arrow
ScaleHeight = 9570
ScaleWidth = 13230
WindowState = 2 'Maximized
Begin VB.CommandButton 编辑
Caption = "编辑"
Height = 375
Left = 2880
TabIndex = 74
Top = 8880
Width = 855
End
Begin VB.CommandButton 退出
Caption = "退出"
Height = 375
Left = 9600
TabIndex = 64
Top = 8880
Width = 855
End
Begin VB.CommandButton 打印
Caption = "打印"
Height = 375
Left = 8160
TabIndex = 63
Top = 8880
Width = 975
End
Begin VB.CommandButton 打印预览
Caption = "打印预览"
Height = 375
Left = 7080
TabIndex = 62
Top = 8880
Width = 1095
End
Begin VB.CommandButton Command16
Caption = "数据统计"
Height = 375
Left = 5400
TabIndex = 61
Top = 8880
Width = 1215
End
Begin VB.CommandButton Command15
Caption = "更改记录"
Height = 375
Left = 4440
TabIndex = 60
Top = 8880
Width = 975
End
Begin VB.CommandButton 删除
Caption = "删除"
Height = 375
Left = 2040
TabIndex = 59
Top = 8880
Width = 855
End
Begin VB.CommandButton 新建
Caption = "新建"
Height = 375
Left = 1080
TabIndex = 58
Top = 8880
Width = 975
End
Begin VB.Data Data3
Caption = "连接线"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 5160
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "连接线消耗总表"
Top = 9840
Width = 2415
End
Begin VB.Data Data2
Caption = "地线"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 2880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "地线消耗总表"
Top = 9840
Width = 2175
End
Begin VB.Data Data1
Caption = "消磁线圈"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "线圈消耗总表"
Top = 9840
Width = 2295
End
Begin TabDlg.SSTab SSTab1
Height = 8775
Left = -120
TabIndex = 6
Top = 0
Width = 13095
_ExtentX = 23098
_ExtentY = 15478
_Version = 393216
Style = 1
TabsPerRow = 4
TabHeight = 520
ForeColor = 16384
TabCaption(0) = "消磁线圈"
TabPicture(0) = "Frm_材料消耗.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label32"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label34"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame2"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame3"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Text19"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Data4"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Data5"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Data6"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "CDOILSave"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "DCOILDel"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "DCOILNew"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).ControlCount= 12
TabCaption(1) = "地线"
TabPicture(1) = "Frm_材料消耗.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "CDTDel"
Tab(1).Control(1)= "CDTNew"
Tab(1).Control(2)= "CDTSave"
Tab(1).Control(3)= "Frame6"
Tab(1).Control(4)= "Frame5"
Tab(1).Control(5)= "Frame4"
Tab(1).Control(6)= "Label13"
Tab(1).Control(7)= "Label12"
Tab(1).ControlCount= 8
TabCaption(2) = "线束连接线"
TabPicture(2) = "Frm_材料消耗.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "LNew"
Tab(2).Control(1)= "LDel"
Tab(2).Control(2)= "LSave"
Tab(2).Control(3)= "Frame9"
Tab(2).Control(4)= "Frame8"
Tab(2).Control(5)= "Frame7"
Tab(2).Control(6)= "Label15"
Tab(2).Control(7)= "Label14"
Tab(2).ControlCount= 8
Begin VB.CommandButton LNew
Caption = "新建材料"
Enabled = 0 'False
Height = 375
Left = -65400
TabIndex = 80
Top = 8160
Width = 975
End
Begin VB.CommandButton LDel
Caption = "删除材料"
Enabled = 0 'False
Height = 375
Left = -64440
TabIndex = 79
Top = 8160
Width = 975
End
Begin VB.CommandButton DCOILNew
Caption = "新建材料"
Enabled = 0 'False
Height = 375
Left = 9600
TabIndex = 78
Top = 8160
Width = 975
End
Begin VB.CommandButton DCOILDel
Caption = "删除材料"
Enabled = 0 'False
Height = 375
Left = 10560
TabIndex = 77
Top = 8160
Width = 975
End
Begin VB.CommandButton CDTDel
Caption = "删除材料"
Enabled = 0 'False
Height = 375
Left = -64440
TabIndex = 76
Top = 8160
Width = 975
End
Begin VB.CommandButton CDTNew
Caption = "新建材料"
Enabled = 0 'False
Height = 375
Left = -65400
TabIndex = 75
Top = 8160
Width = 975
End
Begin VB.CommandButton LSave
Caption = "请按这里保存"
Height = 310
Left = -69645
MaskColor = &H8000000F&
TabIndex = 71
Top = 8160
Width = 1335
End
Begin VB.CommandButton CDTSave
Caption = "请按这里保存"
Height = 310
Left = -69645
MaskColor = &H8000000F&
TabIndex = 68
Top = 8160
Width = 1335
End
Begin VB.CommandButton CDOILSave
Caption = "请按这里保存"
Height = 310
Left = 5355
MaskColor = &H8000000F&
TabIndex = 65
Top = 8160
Width = 1335
End
Begin VB.Data Data6
Caption = "Data6"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 7560
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6360
Visible = 0 'False
Width = 1935
End
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 4800
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6240
Visible = 0 'False
Width = 2295
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 9000
Visible = 0 'False
Width = 2535
End
Begin VB.Frame Frame9
Caption = "查询"
ForeColor = &H00FF0000&
Height = 975
Left = -67440
TabIndex = 46
Top = 600
Width = 4455
Begin VB.ComboBox Combo3
DataSource = "Data1"
ForeColor = &H000000FF&
Height = 300
Left = 1320
TabIndex = 48
Text = "PANDA-L1"
Top = 480
Width = 2055
End
Begin VB.CommandButton Command2
BackColor = &H00FF0000&
Caption = "查 找"
Height = 375
Left = 3480
MaskColor = &H00FF0000&
TabIndex = 47
Top = 360
Width = 855
End
Begin VB.Label Label11
Caption = "请输入料号:"
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 49
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame8
Caption = "材料消耗"
ForeColor = &H00004080&
Height = 6135
Left = -74640
TabIndex = 44
Top = 1800
Width = 11655
Begin VB.TextBox Text27
DataField = "打印页码"
DataSource = "Data3"
Height = 375
Left = 4080
TabIndex = 56
Text = "页码text27"
Top = 3840
Visible = 0 'False
Width = 1095
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -