📄 frmcedit.frm
字号:
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用 量："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
MouseIcon = "FrmCEdit.frx":52B0
TabIndex = 12
Top = 5280
Width = 1110
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "子项名称："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 360
MouseIcon = "FrmCEdit.frx":55BA
TabIndex = 11
Top = 2880
Width = 1575
End
Begin VB.Image Image2
Height = 300
Left = 3240
Picture = "FrmCEdit.frx":58C4
Top = 7680
Width = 300
End
Begin VB.Label LblCancel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 3840
MouseIcon = "FrmCEdit.frx":5CE0
MousePointer = 99 'Custom
TabIndex = 9
Top = 7680
Width = 645
End
Begin VB.Image Image1
Height = 300
Left = 1680
Picture = "FrmCEdit.frx":5FEA
Top = 7680
Width = 300
End
Begin VB.Label lblOk
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2280
MouseIcon = "FrmCEdit.frx":6406
MousePointer = 99 'Custom
TabIndex = 8
Top = 7680
Width = 645
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "父项名称："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 360
MouseIcon = "FrmCEdit.frx":6710
TabIndex = 10
Top = 480
Width = 1575
End
End
Attribute VB_Name = "FrmCEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Public OriParentItem As Integer
Public OriChildItem As Integer
Private Sub CmbCName_Click()
If CmbCName.ListIndex <> 0 Then
'添加选择的子项信息
Adodc2.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
Adodc2.RecordSource = "select * from Item where Name='" + Trim(CmbCName.Text) + "' "
Adodc2.Refresh
'填充子项信息
Set LblCItem.DataSource = Adodc2
LblCItem.DataField = "Item"
Set LblCSpecification.DataSource = Adodc2
LblCSpecification.DataField = "Specification"
Set LblCColor.DataSource = Adodc2
LblCColor.DataField = "Color"
Set LblCUnit.DataSource = Adodc2
LblCUnit.DataField = "Unit"
Set LblCDrawing.DataSource = Adodc2
LblCDrawing.DataField = "Drawing"
TxtQty.Enabled = True
CmbQT.Enabled = True
CmbCT.Enabled = True
TxtScrap.Enabled = True
TxtOffset.Enabled = True
TxtRemark.Enabled = True
Else
LblCItem.Caption = ""
LblCSpecification.Caption = ""
LblCColor.Caption = ""
LblCUnit.Caption = ""
LblCDrawing.Caption = ""
TxtQty.Text = ""
CmbQT.Text = ""
CmbCT.Text = ""
TxtScrap.Text = ""
TxtOffset.Text = ""
TxtRemark.Text = ""
TxtQty.Enabled = False
CmbQT.Enabled = False
CmbCT.Enabled = False
TxtScrap.Enabled = False
TxtOffset.Enabled = False
TxtRemark.Enabled = False
End If
End Sub
Private Sub CmbPName_Click()
If CmbPName.ListIndex <> 0 Then
'添加选择的父项信息
Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
Adodc1.RecordSource = "select * from Item where Name='" + Trim(CmbPName.Text) + "' "
Adodc1.Refresh
'填充父项信息
Set LblPItem.DataSource = Adodc1
LblPItem.DataField = "Item"
Set LblPSpecification.DataSource = Adodc1
LblPSpecification.DataField = "Specification"
Set LblPColor.DataSource = Adodc1
LblPColor.DataField = "Color"
Set LblPUnit.DataSource = Adodc1
LblPUnit.DataField = "Unit"
'激活CmbCName
CmbCName.Enabled = True
CmbCName.Clear
LblCItem.Caption = ""
LblCSpecification.Caption = ""
LblCColor.Caption = ""
LblCUnit.Caption = ""
LblCDrawing.Caption = ""
'装入CmbCName的信息
CmbCName.AddItem "请选择子项"
MyBOM.Load_Child (LblPItem.Caption)
i = 0
Do While Arr_Item(i) <> ""
CmbCName.AddItem Arr_Item(i)
i = i + 1
Loop
CmbCName.ListIndex = 0
Else
'父项信息归位
LblPItem.Caption = ""
LblPSpecification.Caption = ""
LblPColor.Caption = ""
LblPUnit.Caption = ""
CmbPName.ListIndex = 0
'子项信息归位
LblCItem.Caption = ""
LblCSpecification.Caption = ""
LblCColor.Caption = ""
LblCUnit.Caption = ""
LblCDrawing.Caption = ""
TxtQty.Text = ""
CmbQT.Text = ""
CmbCT.Text = ""
TxtScrap.Text = ""
TxtOffset.Text = ""
TxtRemark.Text = ""
CmbCName.Clear
CmbCName.Enabled = False
TxtQty.Enabled = False
CmbQT.Enabled = False
CmbCT.Enabled = False
TxtScrap.Enabled = False
TxtOffset.Enabled = False
TxtRemark.Enabled = False
Exit Sub
End If
End Sub
Private Sub Form_Load()
If Modify = False Then
FrmCEdit.Caption = "添加子项"
'在未选择父项前不能选择子项
CmbCName.Enabled = False
TxtQty.Enabled = False
CmbQT.Enabled = False
CmbCT.Enabled = False
TxtScrap.Enabled = False
TxtOffset.Enabled = False
TxtRemark.Enabled = False
'装入CmbPName的信息
CmbPName.AddItem "请选择父项"
MyBOM.Load_Parent_exist
i = 0
Do While Arr_Item(i) <> ""
CmbPName.AddItem Arr_Item(i)
i = i + 1
Loop
CmbPName.ListIndex = 0
Else
FrmCEdit.Caption = "修改子项信息"
LblPName.Visible = True
LblCName.Visible = True
CmbPName.Visible = False
CmbCName.Visible = False
End If
'装入CmbCT信息
CmbCT.List(0) = "C副 产 品"
CmbCT.List(1) = "D文 件"
CmbCT.List(2) = "N普通物料"
CmbCT.List(3) = "P虚 构 件"
CmbCT.List(4) = "R可替换件"
CmbCT.List(5) = "T发出工具"
CmbCT.List(6) = "U发出返回"
CmbCT.List(7) = "W工作中心"
CmbCT.List(8) = "X参 考"
'装入CmbQT信息
CmbQT.List(0) = "I按 货 号"
CmbQT.List(1) = "O按 订 单"
End Sub
Private Sub LblCancel_Click()
Unload Me
End Sub
Private Function Check() As Boolean
If LblPItem.Caption = "" Then
MsgBox "请选择要添加的父项"
Check = False
Exit Function
End If
If LblCItem.Caption = "" Then
MsgBox "请选择要添加的子项"
Check = False
Exit Function
End If
Check = True
End Function
Private Sub LblOK_Click()
'判断要编辑信息是否完整
If Check = False Then
Exit Sub
End If
With MyBOM
.ParentItem = LblPItem.Caption
.CT = CmbCT.Text
.ChildItem = LblCItem.Caption
.Qty = TxtQty.Text
.QT = CmbQT.Text
.Scrap = TxtScrap.Text
.Offset = TxtOffset.Text
.Remark = TxtRemark.Text
If Modify = False Then
If .In_DBC(LblPItem.Caption, LblCItem.Caption) = True Then
MsgBox "该子项已经属于此父项，请重新选择"
'父项信息归位
LblPItem.Caption = ""
LblPSpecification.Caption = ""
LblPColor.Caption = ""
LblPUnit.Caption = ""
CmbPName.ListIndex = 0
'子项信息归位
LblCItem.Caption = ""
LblCSpecification.Caption = ""
LblCColor.Caption = ""
LblCUnit.Caption = ""
LblCDrawing.Caption = ""
TxtQty.Text = ""
CmbQT.Text = ""
CmbCT.Text = ""
TxtScrap.Text = ""
TxtOffset.Text = ""
TxtRemark.Text = ""
CmbCName.Clear
CmbCName.Enabled = False
TxtQty.Enabled = False
CmbQT.Enabled = False
CmbCT.Enabled = False
TxtScrap.Enabled = False
TxtOffset.Enabled = False
TxtRemark.Enabled = False
Exit Sub
Else
.InsertC '添加
MsgBox "添加成功"
End If
Else
.Update OriParentItem, OriChildItem
MsgBox "修改成功"
End If
End With
Unload Me
End Sub
Private Sub TxtOffset_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
If In_Single(KeyAscii) = False Then
KeyAscii = 0
End If
End Sub
Private Sub TxtQty_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
If In_Single(KeyAscii) = False Then
KeyAscii = 0
End If
End Sub
Private Sub TxtScrap_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
If In_Single(KeyAscii) = False Then
KeyAscii = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -