📄 frm_材料消耗.frm
字号:
End If
Next
If j = Data4.Recordset.RecordCount Then
j = 0
End If
str1 = Combo1.List(j)
Data1.RecordSource = "select * from 线圈消耗总表 where (产品料号 = '" & str1 & " ') order by 序号 aSc"
Data1.Refresh
Combo1.Clear
Call DataLoad1
Combo1.Text = Text2.Text
End If
Case 1
CDTDel.Enabled = False
CDTNew.Enabled = False
Dim Mun4
Dim Mun3
Dim m2
m2 = 1
Mun3 = 0
For Mun4 = 0 To Data2.Recordset.RecordCount - 1
If Me.Data2.Recordset.RecordCount > 0 And Not Me.Data2.Recordset.EOF And Not Me.Data2.Recordset.BOF Then
If Mun3 = 0 Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
Mun3 = 1
End If
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
Else
m2 = 0
End If
End If
Next
If m2 <> 0 Then
Dim str2
Dim i1
Dim j1
For i1 = 0 To Data5.Recordset.RecordCount
If Combo2.Text = Combo2.List(i1) Then
j1 = i1 + 1
End If
Next
If j1 = Data5.Recordset.RecordCount Then
j1 = 0
End If
str2 = Combo2.List(j1)
Data2.RecordSource = "select * from 地线消耗总表 where (产品料号 = '" & str2 & " ') order by 序号 aSc"
Data2.Refresh
Combo2.Clear
Call DataLoad2
Combo2.Text = Text4.Text
End If
Case 2
LDel.Enabled = False
LNew.Enabled = False
Dim Mun5
Dim Mun6
Dim m3
m3 = 1
Mun6 = 0
For Mun5 = 0 To Data3.Recordset.RecordCount - 1
If Me.Data3.Recordset.RecordCount > 0 And Not Me.Data3.Recordset.EOF And Not Me.Data3.Recordset.BOF Then
If Mun6 = 0 Then
HXFYN = MsgBox("是否删除?", 36, "信息提示")
Mun6 = 1
End If
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
Else
m3 = 0
End If
End If
Next
If m3 <> 0 Then
Dim str3
Dim i2
Dim j2
For i2 = 0 To Data6.Recordset.RecordCount
If Combo3.Text = Combo3.List(i2) Then
j2 = i2 + 1
End If
Next
If j2 = Data6.Recordset.RecordCount Then
j2 = 0
End If
str3 = Combo3.List(j2)
'Combo3.RemoveItem Combo3.ListIndex
Data3.RecordSource = "select * from 连接线消耗总表 where (产品料号 = '" & str3 & " ') order by 序号 aSc"
Data3.Refresh
'**********************************************************
Combo3.Clear
Call DataLoad3
Combo3.Text = Text11.Text
End If
End Select
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
DCOILNew.Enabled = True
DCOILDel.Enabled = True
Data1.RecordSource = "select * from 线圈消耗总表 where (产品料号 = '1') order by 序号 aSc"
Data1.Refresh
Data1.Recordset.AddNew
Data1.UpdateRecord
Data1.Recordset.MoveLast
Case 1
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
DBGrid2.AllowDelete = True
DBGrid2.AllowUpdate = True
CDTNew.Enabled = True
CDTDel.Enabled = True
Data2.RecordSource = "select * from 地线消耗总表 where (产品料号 = '1') order by 序号 aSc"
Data2.Refresh
Data2.Recordset.AddNew
Data2.UpdateRecord
Data2.Recordset.MoveLast
Case 2
Text10.Locked = False
Text11.Locked = False
Text12.Locked = False
DBGrid3.AllowDelete = True
DBGrid3.AllowUpdate = True
LNew.Enabled = True
LDel.Enabled = True
Data3.RecordSource = "select * from 连接线消耗总表 where (产品料号 = '1') order by 序号 aSc"
Data3.Refresh
Data3.Recordset.AddNew
Data3.UpdateRecord
Data3.Recordset.MoveLast
End Select
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
Private Sub 打印预览_Click()
On Error GoTo err
ManText = "材料消耗"
Set gobjFormToPrint = Me
frmPrintPreview.Show vbModal
Exit Sub
err:
End Sub
Private Sub 打印_Click()
打印预览_Click
End Sub
'每个表单的列印副程式皆取名为 PrintResult
'则 frmPrintPreview 这个表单可以支援所有表单的预览列印工作
'若是只有一个表单需要列印 ,则将 PrintResult 放至一般模组亦可
'参数 zoom 代表将资料列印到 PictureBox 时的比例,介于 0 ~ 无限大的数值
'通常传入0~100即可 ,详细的说明请参考 frmPrintPreview 表单宣告区之变数 lngZoom 的说明
'对于将资料列印到印表机时 ,zoom会被设定成1.0, 即使传入的数值不等于1.0
Public Sub PrintResult(Dest As Object, zoom As Long)
On Error GoTo ErrorTrap
Dim lngTM As Long, lngBM As Long, lngLM As Long, lngRM As Long '上、下、左、右边界
Dim lngSW As Long, lngSH As Long ' 扣掉边界之后的可印范围
Dim temp As Long, isPrinter As Boolean, i As Long, destParent As Form, r As Single
isPrinter = Dest Is Printer
'r 只取到小数以下1位 , 否则字型的输出将无法配何正确的比例
'以下程式码中任何与大小、距离有关的设定都要乘上 r
'对于印表机而言 , r=1.0
If isPrinter Then r = 1 Else r = CSng(Format(zoom / 100, "0.0"))
Printer.ScaleMode = vbTwips '设置scalemode属性 vbtwips为缇
Printer.Orientation = vbPRORPortrait '是横的还是纵的：以纸的短边为顶边打印
Printer.PaperSize = vbPRPSA4 '设置纸型
'VbPRPSLetter 1 信笺，81/2x11英寸 ;VbPRPSLetterSmall 2 小型信笺，81/2x11英寸
'VbPRPSTabloid 3 小型报，11x17英寸 ;VbPRPSLedger 4分类帐，17x11英寸
'VbPRPSLegal 5 法律文件，81/2x14英寸;VbPRPSStatement 6 声明书，51/2x81/2英寸 ;
'VbPRPSExecutive 7 行政文件，71/2x101/2英寸 ;VbPRPSA3 8 A3,297x420毫米
'VbPRPSA4 9 A4,210x297毫米 ;VbPRPSA4Small 10 A4小号，210x297毫米
lngTM = glngTopMargin: lngBM = glngBottomMargin: lngLM = glngLeftMargin: lngRM = glngRightMargin
lngSH = Printer.ScaleHeight - lngTM - lngBM
lngSW = Printer.ScaleWidth - lngLM - lngRM
If Not isPrinter Then
temp = (Printer.Height - Printer.ScaleHeight) / 2
lngTM = (lngTM + temp) * r
lngBM = (lngBM + temp) * r
temp = (Printer.Width - Printer.ScaleWidth) / 2
lngLM = (lngLM + temp) * r
lngRM = (lngRM + temp) * r
lngSH = lngSH * r
lngSW = lngSW * r
Set destParent = Dest.Parent
Dest.AutoRedraw = True
End If
For i = 1 To 1
With Dest
If Not isPrinter Then
Dest.Cls
Dest.Width = glngPAPERW * r
Dest.Height = glngPAPERH * r
'以下输出边界,列印时不会印出来
Dest.DrawStyle = 3 '点画线
Dest.Line (lngLM, lngTM)-Step(lngSW, lngSH), QBColor(7), B
End If
'***********************************************************************
'以下为表头程序。
lngLM = 567 * 8 / 5
lngTM = 567 * 2
.Font.Name = "黑体"
.Font.Size = 20
.CurrentX = lngLM * 5
.CurrentY = lngTM
Dest.Print "材 料 消 耗"
Dest.DrawStyle = 2 '虚线
Dest.Line (lngLM * 8.5, lngTM * 1.37)-(lngLM * 4.5, lngTM * 1.37)
Dest.Line (lngLM * 8.5, lngTM * 1.43)-(lngLM * 4.5, lngTM * 1.43)
.Font.Name = "宋体"
.Font.Size = 10
.CurrentX = lngLM * 1.2
.CurrentY = lngTM * 2
Dest.Print "产品编号： "
Dest.DrawStyle = 0 '实线
Dest.Line (lngLM * 4.8, lngTM * 2.25)-(lngLM * 1.1, lngTM * 2.25)
.Font.Name = "宋体"
.Font.Size = 10
.CurrentX = lngLM * 9.5
.CurrentY = lngTM * 2
Dest.Print "打印日期： " & Date & ""
Dest.Line (lngLM * 9.4, lngTM * 2.25)-(lngLM * 11.9, lngTM * 2.25)
'********************************************************************
'***********************************************************************************
'***********************************************************
'最后一行
'备注
.Font.Name = "标楷体"
.Font.Size = 10
.CurrentX = lngLM * 1.2
.CurrentY = lngTM * 13.3
Dest.Print "未注单位说明：1、长度单位为mm；2、端子为只；3、胶带为卷；4、重量为g。"
.Font.Name = "宋体"
.Font.Size = 10
.CurrentX = lngLM * 1.8
.CurrentY = lngTM * 13
Dest.Print "核准："
.CurrentX = lngLM * 4.3
.CurrentY = lngTM * 13
Dest.Print "审核："
.CurrentX = lngLM * 6.8
.CurrentY = lngTM * 13
Dest.Print "填表人："
.CurrentX = lngLM * 9.3
.CurrentY = lngTM * 13
Dest.Print "填表日期："
'第一行字
.CurrentX = lngLM * 1.4
.CurrentY = lngTM * 2.75
Dest.Print "产品编号"
.CurrentX = lngLM * 7
.CurrentY = lngTM * 2.75
Dest.Print "文件编号"
'第2行字
.CurrentX = lngLM * 1.4
.CurrentY = lngTM * 3.15
Dest.Print "产品料号"
'第3行字
.CurrentX = lngLM * 1.6
.CurrentY = lngTM * 3.55
Dest.Print "产品名称"
.CurrentX = lngLM * 7.5
.CurrentY = lngTM * 3.55
Dest.Print "客 户"
'第4行字
.Font.Size = 14
.CurrentX = lngLM * 5
.CurrentY = lngTM * 4
Dest.Print "材 料 消 耗 表"
'第5行字
.Font.Size = 10
.CurrentX = lngLM * 1.45
.CurrentY = lngTM * 4.55
Dest.Print "NO"
.CurrentX = lngLM * 2.5
.CurrentY = lngTM * 4.55
Dest.Print "材料名称"
.CurrentX = lngLM * 4.9
.CurrentY = lngTM * 4.55
Dest.Print "材料规格"
.CurrentX = lngLM * 7.1
.CurrentY = lngTM * 4.55
Dest.Print "用 量"
.CurrentX = lngLM * 8.8
.CurrentY = lngTM * 4.55
Dest.Print "现供厂家"
.CurrentX = lngLM * 10.7
.CurrentY = lngTM * 4.55
Dest.Print "备 注"
'********************************************************************
'以下这节程序为画表格两边的。
Dest.Line (lngLM * 1.1, lngTM * 2.6)-(lngLM * 11.9, lngTM * 12.7), , B '边框
Dest.Line (lngLM * 1.1, lngTM * 3)-(lngLM * 11.9, lngTM * 3) '第一行
Dest.Line (lngLM * 1.1, lngTM * 3.4)-(lngLM * 11.9, lngTM * 3.4) '第二行
Dest.Line (lngLM * 1.1, lngTM * 3.8)-(lngLM * 11.9, lngTM * 3.8) '第3行
Dest.Line (lngLM * 1.1, lngTM * 4.4)-(lngLM * 11.9, lngTM * 4.4) '第4行
Dest.Line (lngLM * 1.1, lngTM * 4.8)-(lngLM * 11.9, lngTM * 4.8) '第5行
Dest.Line (lngLM * 2.5, lngTM * 2.6)-(lngLM * 2.5, lngTM * 3.4) '第一列1
Dest.Line (lngLM * 6.7, lngTM * 2.6)-(lngLM * 6.7, lngTM * 3) '第2列1
Dest.Line (lngLM * 8.1, lngTM * 2.6)-(lngLM * 8.1, lngTM * 3) '第3列1
Dest.Line (lngLM * 3, lngTM * 3.4)-(lngLM * 3, lngTM * 3.8) '第1列2
Dest.Line (lngLM * 7, lngTM * 3.4)-(lngLM * 7, lngTM * 3.8) '第2列2
Dest.Line (lngLM * 8.5, lngTM * 3.4)-(lngLM * 8.5, lngTM * 3.8) '第3列2
'以下为表的列
Dest.Line (lngLM * 2.1, lngTM * 4.4)-(lngLM * 2.1, lngTM * 12.7) '第1列
Dest.Line (lngLM * 3.9, lngTM * 4.4)-(lngLM * 3.9, lngTM * 12.7) '第2列
Dest.Line (lngLM * 6.7, lngTM * 4.4)-(lngLM * 6.7, lngTM * 12.7) '第3列
Dest.Line (lngLM * 8.3, lngTM * 4.4)-(lngLM * 8.3, lngTM * 12.7) '第4列
Dest.Line (lngLM * 10.2, lngTM * 4.4)-(lngLM * 10.2, lngTM * 12.7) '第5列
'**************************************************************************
Dim i1 As Long, j As Long, k As Long
Dim PrintString As String
'---------------------------------------------------------------------------------------
If SSTab1.Tab = 0 Then
'最后列内容
For i1 = 0 To Data1.Recordset.RecordCount - 1
If k = DBGrid1.VisibleRows Then
DBGrid1.Scroll 0, DBGrid1.VisibleRows
k = 0
End If
'For J = 0 To DBGrid1.Columns.Count - 1
PrintString = DBGrid1.Columns(DBGrid1.Columns.count - 1).CellText(DBGrid1.RowBookmark(k))
'Next
'Printer.Print PrintString
.CurrentX = lngLM * 10.3
.CurrentY = lngTM * (4.95 + k / 2.5)
Dest.Print PrintString
PrintString = ""
k = k + 1
DoEvents
Next
'第一列内容
For i1 = 0 To Data1.Recordset.RecordCount - 1
If k = DBGrid1.VisibleRows Then
DBGrid1.Scroll 0, DBGrid1.VisibleRows
k = 0
End If
'For J = 0 To DBGrid1.Columns.Count - 1
PrintString = DBGrid1.Columns(0).CellText(DBGrid1.RowBookmark(k))
'Next
'Printer.Print PrintString
.CurrentX = lngLM * 1.5
.CurrentY = lngTM * (4.95 + k / 2.5)
Dest.Print PrintString
PrintString = ""
k = k + 1
DoEvents
Next
'第二列内容
For i1 = 0 To Data1.Recordset.RecordCount - 1
If k = DBGrid1.VisibleRows Then
DBGrid1.Scroll 0, DBGrid1.VisibleRows
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -