📄 frm_材料消耗.frm
字号:
TabIndex = 16
Top = 480
Width = 735
End
Begin VB.Label Label3
Caption = "产品料号："
ForeColor = &H00C00000&
Height = 375
Left = 4200
TabIndex = 15
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "产品名称："
ForeColor = &H00C00000&
Height = 255
Left = 2160
TabIndex = 14
Top = 480
Width = 1215
End
End
Begin VB.Frame Frame2
Caption = "材料消耗"
ForeColor = &H00004080&
Height = 6135
Left = 360
TabIndex = 9
Top = 1800
Width = 11655
Begin VB.TextBox Text25
DataField = "打印页码"
DataSource = "Data1"
Height = 270
Left = 3120
TabIndex = 57
Text = "Text25"
Top = 4080
Visible = 0 'False
Width = 2055
End
Begin VB.TextBox Text22
DataField = "产品编号"
DataSource = "Data1"
Height = 375
Left = 3120
TabIndex = 52
Text = "Text22"
Top = 3360
Visible = 0 'False
Width = 3495
End
End
Begin VB.Frame Frame1
Caption = "查询"
ForeColor = &H00FF0000&
Height = 975
Left = 7560
TabIndex = 7
Top = 600
Width = 4455
Begin VB.CommandButton Command6
BackColor = &H00FF0000&
Caption = "查 找"
Height = 375
Left = 3480
MaskColor = &H00FF0000&
TabIndex = 1
Top = 360
Width = 855
End
Begin VB.ComboBox Combo1
DataSource = "Data1"
ForeColor = &H000000FF&
Height = 300
Left = 1320
TabIndex = 0
Text = "6140TC3006A"
Top = 480
Width = 2055
End
Begin VB.Label Label1
Caption = "请输入料号:"
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 8
Top = 480
Width = 1095
End
End
Begin VB.Label Label15
Caption = "以确保数据录入数据库!"
ForeColor = &H00FF0000&
Height = 255
Left = -68160
TabIndex = 73
Top = 8205
Width = 2895
End
Begin VB.Label Label14
Caption = "注意:数据录入或者修改之后,"
ForeColor = &H00FF0000&
Height = 255
Left = -72000
TabIndex = 72
Top = 8205
Width = 2415
End
Begin VB.Label Label13
Caption = "以确保数据录入数据库!"
ForeColor = &H00FF0000&
Height = 255
Left = -68160
TabIndex = 70
Top = 8205
Width = 2895
End
Begin VB.Label Label12
Caption = "注意:数据录入或者修改之后,"
ForeColor = &H00FF0000&
Height = 255
Left = -72000
TabIndex = 69
Top = 8205
Width = 2415
End
Begin VB.Label Label34
Caption = "以确保数据录入数据库!"
ForeColor = &H00FF0000&
Height = 255
Left = 6840
TabIndex = 67
Top = 8205
Width = 2895
End
Begin VB.Label Label32
Caption = "注意:数据录入或者修改之后,"
ForeColor = &H00FF0000&
Height = 255
Left = 3000
TabIndex = 66
Top = 8205
Width = 2415
End
End
End
Attribute VB_Name = "Frm_消耗"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/02
'描 述：小型企业进销存源代码
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim butt As Integer
Dim NJZG0001
Dim X001
Dim LG0001
Private Sub LSave_Click() '连接线SAVE
Data3.UpdateRecord
Text10.Locked = True
Text12.Locked = True
Text11.Locked = True
DBGrid3.AllowAddNew = False
DBGrid3.AllowDelete = False
DBGrid3.AllowUpdate = False
LNew.Enabled = False
LDel.Enabled = False
Combo3.Clear
Call DataLoad3
Combo3.Text = Text11.Text
End Sub
Private Sub CDOILSave_Click() '线圈Save
Data1.UpdateRecord
Text9.Locked = True
Text1.Locked = True
Text2.Locked = True
DBGrid1.AllowAddNew = False
DBGrid1.AllowDelete = False
DBGrid1.AllowUpdate = False
DCOILNew.Enabled = False
DCOILDel.Enabled = False
Combo1.Clear
Call DataLoad1
Combo1.Text = Text2.Text
End Sub
Private Sub LDel_Click() '连接线DEL
If Me.Data3.Recordset.RecordCount > 0 And Not Me.Data3.Recordset.EOF And Not Me.Data3.Recordset.BOF Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
If HXFYN = vbYes Then
Me.Data3.Recordset.Delete
Me.Data3.Recordset.MoveNext
If Me.Data3.Recordset.EOF And Me.Data3.Recordset.RecordCount > 0 Then
Me.Data3.Recordset.MovePrevious
End If
End If
End If
End Sub
Private Sub CDTDel_Click() '地线DEL
If Me.Data2.Recordset.RecordCount > 0 And Not Me.Data2.Recordset.EOF And Not Me.Data2.Recordset.BOF Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
If HXFYN = vbYes Then
Me.Data2.Recordset.Delete
Me.Data2.Recordset.MoveNext
If Me.Data2.Recordset.EOF And Me.Data2.Recordset.RecordCount > 0 Then
Me.Data2.Recordset.MovePrevious
End If
End If
End If
End Sub
Private Sub CDTNew_Click() '地线ADDNEW
Text6.Text = Text4.Text
Text8.Text = Text5.Text
Text7.Text = Text3.Text
Data2.Recordset.AddNew
Data2.UpdateRecord
Data2.Recordset.MoveLast
Text4.Text = Text6.Text
Text5.Text = Text8.Text
Text3.Text = Text7.Text
End Sub
Private Sub LNew_Click() '连接线ADDNEW
Text16.Text = Text10.Text
Text17.Text = Text12.Text
Text18.Text = Text11.Text
Data3.Recordset.AddNew
Data3.UpdateRecord
Data3.Recordset.MoveLast
Text10.Text = Text16.Text
Text12.Text = Text17.Text
Text11.Text = Text18.Text
End Sub
Private Sub CDTSave_Click() '地线Save
Data2.UpdateRecord
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
DBGrid2.AllowAddNew = False
DBGrid2.AllowDelete = False
DBGrid2.AllowUpdate = False
CDTNew.Enabled = False
CDTDel.Enabled = False
Combo2.Clear
Call DataLoad2
Combo2.Text = Text4.Text
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command6_Click
End If
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1_Click
End If
End Sub
Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command2_Click
End If
End Sub
Private Sub DCOILDel_Click() '线圈DEL
If Me.Data1.Recordset.RecordCount > 0 And Not Me.Data1.Recordset.EOF And Not Me.Data1.Recordset.BOF Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
If HXFYN = vbYes Then
Me.Data1.Recordset.Delete
Me.Data1.Recordset.MoveNext
If Me.Data1.Recordset.EOF And Me.Data1.Recordset.RecordCount > 0 Then
Me.Data1.Recordset.MovePrevious
End If
End If
End If
End Sub
Private Sub DCOILNew_Click() '线圈ADDNEW
Text13.Text = Text9.Text
Text14.Text = Text1.Text
Text15.Text = Text2.Text
Data1.Recordset.AddNew
Data1.UpdateRecord
Data1.Recordset.MoveLast
Text9.Text = Text13.Text
Text1.Text = Text14.Text
Text2.Text = Text15.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
主窗体.Picture2.Visible = True
End Sub
Private Sub 编辑_Click()
Select Case SSTab1.Tab
Case 0
Text9.Locked = False
Text1.Locked = False
Text2.Locked = False
DBGrid1.AllowDelete = True
DBGrid1.AllowUpdate = True
'Text13.Text = Text9.Text
'Text14.Text = Text1.Text
'Text15.Text = Text2.Text
DCOILNew.Enabled = True
DCOILDel.Enabled = True
Case 1
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
DBGrid2.AllowDelete = True
DBGrid2.AllowUpdate = True
'Text6.Text = Text4.Text
'Text8.Text = Text5.Text
'Text7.Text = Text3.Text
CDTNew.Enabled = True
CDTDel.Enabled = True
Case 2
Text10.Locked = False
Text11.Locked = False
Text12.Locked = False
DBGrid3.AllowDelete = True
DBGrid3.AllowUpdate = True
'Text16.Text = Text10.Text
'Text17.Text = Text12.Text
'Text18.Text = Text11.Text
LNew.Enabled = True
LDel.Enabled = True
End Select
End Sub
Private Sub 删除_Click()
Select Case SSTab1.Tab
Case 0
DCOILNew.Enabled = False
DCOILDel.Enabled = False
Dim Mun1
Dim Mun2
Dim m1
m1 = 1
Mun2 = 0
For Mun1 = 0 To Data1.Recordset.RecordCount - 1
If Me.Data1.Recordset.RecordCount > 0 And Not Me.Data1.Recordset.EOF And Not Me.Data1.Recordset.BOF Then
If Mun2 = 0 Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
Mun2 = 1
End If
If HXFYN = vbYes Then
Me.Data1.Recordset.Delete
Me.Data1.Recordset.MoveNext
If Me.Data1.Recordset.EOF And Me.Data1.Recordset.RecordCount > 0 Then
Me.Data1.Recordset.MovePrevious
End If
Else
m1 = 0
End If
End If
Next
If m1 <> 0 Then
Dim str1
Dim i
Dim j
For i = 0 To Data4.Recordset.RecordCount
If Combo1.Text = Combo1.List(i) Then
j = i + 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -