📄 form1.frm
字号:
TabIndex = 31
Top = 4800
Width = 1455
End
Begin VB.Label Label17
Height = 300
Left = 2040
TabIndex = 30
Top = 4800
Width = 2130
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "司磅员："
Height = 300
Left = 5160
TabIndex = 29
Top = 4800
Width = 1095
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "主管："
Height = 180
Left = 1200
TabIndex = 28
Top = 4800
Width = 735
End
Begin VB.Label Label14
Height = 300
Left = 2640
TabIndex = 27
Top = 4320
Width = 4095
End
Begin VB.Label Label13
Height = 300
Left = 6480
TabIndex = 26
Top = 3900
Width = 1455
End
Begin VB.Label Label12
Height = 300
Left = 6480
TabIndex = 25
Top = 3540
Width = 1455
End
Begin VB.Label Label11
Height = 300
Left = 2640
TabIndex = 24
Top = 3720
Width = 1575
End
Begin VB.Line Line6
X1 = 6360
X2 = 6360
Y1 = 3480
Y2 = 4200
End
Begin VB.Line Line5
X1 = 4920
X2 = 8040
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line4
X1 = 4920
X2 = 4920
Y1 = 3480
Y2 = 4200
End
Begin VB.Line Line3
X1 = 1200
X2 = 8040
Y1 = 4200
Y2 = 4200
End
Begin VB.Label Label10
Height = 300
Left = 2640
TabIndex = 23
Top = 3120
Width = 5175
End
Begin VB.Line Line2
X1 = 2400
X2 = 2400
Y1 = 3000
Y2 = 4680
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "检斤时间"
Height = 255
Left = 1320
TabIndex = 22
Top = 3120
Width = 735
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "流水号"
Height = 255
Left = 1320
TabIndex = 21
Top = 4320
Width = 855
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "历史皮重"
Height = 255
Left = 5160
TabIndex = 20
Top = 3960
Width = 1215
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "实时皮重"
Height = 375
Left = 5160
TabIndex = 19
Top = 3600
Width = 1335
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "车号"
Height = 255
Left = 1320
TabIndex = 18
Top = 3720
Width = 1215
End
End
Begin VB.PictureBox Picture3
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 435
Left = 0
ScaleHeight = 435
ScaleWidth = 10260
TabIndex = 0
Top = 6045
Width = 10260
Begin VB.CommandButton Command1
Height = 375
Left = 0
Picture = "Form1.frx":000C
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "存盘打印"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command2
Height = 375
Left = 1148
Picture = "Form1.frx":0316
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "存盘不打印"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command3
Height = 375
Left = 2296
Picture = "Form1.frx":0758
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "不存盘打印"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command4
Enabled = 0 'False
Height = 375
Left = 3444
Picture = "Form1.frx":0A62
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "放弃"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command5
Height = 375
Left = 4592
Picture = "Form1.frx":0D6C
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "查询使用皮重库"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command6
Height = 375
Left = 5740
Picture = "Form1.frx":11AE
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "查询历史皮重库"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command7
Height = 375
Left = 6888
Picture = "Form1.frx":15F0
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "帮助"
Top = 0
Width = 1095
End
Begin VB.CommandButton Command8
Height = 375
Left = 8040
Picture = "Form1.frx":18FA
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "退出系统"
Top = 0
Width = 1095
End
End
Begin VB.Menu viwe
Caption = "视图"
Begin VB.Menu gjt
Caption = "工具条"
Begin VB.Menu top
Caption = "顶部显示"
Shortcut = ^A
End
Begin VB.Menu bot
Caption = "底部显示"
Shortcut = ^S
End
End
End
Begin VB.Menu sjgl
Caption = "数据管理"
Begin VB.Menu cpdy
Caption = "存盘打印"
Shortcut = {F2}
End
Begin VB.Menu cpbdy
Caption = "存盘不打印"
Shortcut = {F3}
End
Begin VB.Menu bcpdy
Caption = "不存盘打印"
Shortcut = {F6}
End
Begin VB.Menu fq
Caption = "错误放弃"
Shortcut = {F7}
End
End
Begin VB.Menu cx
Caption = "数据查询"
Begin VB.Menu zcls
Caption = "重车流水"
End
Begin VB.Menu nullw
Caption = "-"
End
Begin VB.Menu syoz
Caption = "查询使用皮重库"
Shortcut = ^{F3}
End
Begin VB.Menu lspz
Caption = "查询历史皮重库"
Shortcut = ^{F4}
End
Begin VB.Menu wert
Caption = "-"
End
Begin VB.Menu pzbht
Caption = "皮重变化图"
End
End
Begin VB.Menu hlep
Caption = "邦助"
Begin VB.Menu about
Caption = "关于"
End
Begin VB.Menu hlp
Caption = "帮助"
Shortcut = {F1}
End
End
Begin VB.Menu quit
Caption = "退出"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：PrintBarCode
'## 参数：ByVal 为BarCode As String型
'## 参数：Optional 为al intXPos As Integer = 0型
'## 参数：Optional 为al intYPos As Integer = 0型
'## 参数：Optional 为al intPrintHeight As Integer = 10型
'## 参数：Optional 为al bolPrintText As Boolean = True型
'##################################################################
'##################################################################
'## 过程名称：bcpdy_Click
'## 参数： 无
'##################################################################
Private Sub bcpdy_Click()
Call Command3_Click
End Sub
'##################################################################
'## 过程名称：bot_Click
'## 参数： 无
'##################################################################
Private Sub bot_Click()
Picture3.Align = 2
End Sub
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
'‘On Error Resume Next
Call Command2_Click
Label14.Caption = Val(Label4.Caption) + 1
Command4.Enabled = True
' Label12.Caption = Val(Label2.Caption) + 1
strBarCode = Text1.Text & "*" & Trim(Label1.Caption)
Call PrintBarCode(test.Picture1, strBarCode, 66, 37, 9, True)
Call PrintBarCode(test.Picture1, strBarCode, 66, 105, 9, True)
Call PrintBarCode(test.Picture1, strBarCode, 66, 180, 9, True)
test.Show
'Form1.Show
End Sub
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
On Error Resume Next
Adodc1.RecordSource = "select * from chk where ch='" & jl_ch & "' order by ch"
DoEvents
jl_pz = Val(Label1.Caption)
Adodc1.refresh
Adodc1.Recordset.delete
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("ch") = jl_ch
Adodc1.Recordset.Fields("pz") = Val(Label1.Caption)
Adodc1.Recordset.Fields("sj") = Format(Now, "yyyy-mm-dd-hh-nn-ss")
Adodc1.Recordset.UpdateBatch adAffectCurrent
Adodc1.Recordset.Close
Adodc3.RecordSource = "select * from kck where ch='" & jl_ch & "' order by ch"
DoEvents
Adodc3.refresh
'If jl_pz1 = 0 Then
Adodc3.Recordset.AddNew
'Data5.RecordSource = "insert into kck (pz,ch,sj) select " & Val(Label1.Caption) & ",'" & Text9.Text & "','" & Format(Now, "yyyy-mm-dd") & "';"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -