📄 zxsp1.frm
字号:
Left = 720
TabIndex = 6
Top = 120
Width = 1815
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "累计"
ForeColor = &H0080FF80&
Height = 255
Left = 0
TabIndex = 5
Top = 720
Width = 495
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "流量"
ForeColor = &H0000FF00&
Height = 255
Left = 2040
TabIndex = 4
Top = 720
Width = 495
End
Begin VB.Line Line9
BorderColor = &H00C0C0C0&
BorderWidth = 3
X1 = 0
X2 = 3600
Y1 = 2760
Y2 = 2760
End
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销售情况"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 3240
TabIndex = 15
Top = 120
Width = 1500
End
Begin VB.Line Line14
X1 = 0
X2 = 11280
Y1 = 600
Y2 = 600
End
End
Begin MSAdodcLib.Adodc datPrimaryRS
Align = 2 'Align Bottom
Height = 330
Left = 0
Top = 8265
Visible = 0 'False
Width = 11880
_ExtentX = 20955
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=dzqch"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "dzqch"
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = $"zxsp1.frx":315F
Caption = " "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "zxsp1.frx":3212
Height = 2415
Left = 120
TabIndex = 28
Top = 3960
Width = 11775
_ExtentX = 20770
_ExtentY = 4260
_Version = 393216
Cols = 12
FixedCols = 0
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 12
_Band(0)._NumMapCols= 12
_Band(0)._MapCol(0)._Name= "票号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "车号"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "毛重"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(2)._Alignment= 7
_Band(0)._MapCol(3)._Name= "皮重"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(3)._Alignment= 7
_Band(0)._MapCol(4)._Name= "净重"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(4)._Alignment= 7
_Band(0)._MapCol(5)._Name= "货物名"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(6)._Name= "收货人"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(7)._Name= "发货人"
_Band(0)._MapCol(7)._RSIndex= 7
_Band(0)._MapCol(8)._Name= "到货地点"
_Band(0)._MapCol(8)._RSIndex= 8
_Band(0)._MapCol(9)._Name= "司磅员"
_Band(0)._MapCol(9)._RSIndex= 9
_Band(0)._MapCol(10)._Name= "检斤时间"
_Band(0)._MapCol(10)._RSIndex= 10
_Band(0)._MapCol(11)._Name= "流水号"
_Band(0)._MapCol(11)._RSIndex= 11
_Band(0)._MapCol(11)._Alignment= 7
End
Begin VB.Label Label9
Caption = "空车流水"
Height = 375
Left = 120
TabIndex = 30
Top = 6360
Width = 2655
End
Begin VB.Label Label8
Caption = "重车流水"
Height = 375
Left = 0
TabIndex = 29
Top = 3720
Width = 2655
End
End
Attribute VB_Name = "zxsp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim sl As Double
Dim dh As Integer
Dim miaoshu(5) As String
Dim ls(5) As Long
Dim lj(5) As Double
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
On Error Resume Next
Adodc1.refresh
dh = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For jj = 1 To dh
miaoshu(jj) = Adodc1.Recordset.Fields(1)
ls(jj) = Adodc1.Recordset.Fields(2)
lj(jj) = Adodc1.Recordset.Fields(2)
Adodc1.Recordset.MoveNext
Next jj
Adodc3.refresh
'Adodc3.Recordset.Delete
' Label9.Caption = miaoshu(1)
Label10.Caption = miaoshu(2)
Label11.Caption = miaoshu(3)
Label12.Caption = miaoshu(4)
Label13.Caption = miaoshu(5)
Animation1.Open App.Path & "\d0.avi"
Animation2.Open App.Path & "\d1.avi"
Animation3.Open App.Path & "\dem.avi"
Adodc5.refresh
Label15.Caption = Format(Now, "yyyy年m月d日") & "销售动态"
'Label8.Caption = Adodc5.Recordset.Fields(0) & Format(Now, "yyyy年m月d日") & "生产动态"
Label15.Left = (Me.Picture1.Width - Label15.Width) / 2 - 100
' Label8.Left = (Me.Picture4.Width - Label8.Width) / 2 - 100
End Sub
'##################################################################
'## 过程名称：Text11_Change
'## 参数： 无
'##################################################################
Private Sub MSHFlexGrid1_Click()
Me.Timer2.Enabled = Not Me.Timer2.Enabled
End Sub
Private Sub MSHFlexGrid2_Click()
Me.Timer2.Enabled = Not Me.Timer2.Enabled
End Sub
'##################################################################
'## 过程名称：Text2_Change
'## 参数： 无
'##################################################################
Private Sub Text2_Change()
On Error Resume Next
If Image2.Left > 3495 Or Val(Text2.Text) = 0 Then
Image2.Left = 0
Exit Sub
End If
Image2.Left = Image2.Left + 38
End Sub
'##################################################################
'## 过程名称：Text4_Change
'## 参数： 无
'##################################################################
Private Sub Text4_Change()
On Error Resume Next
If Val(Text4.Text) > 0 Then
' Animation1.Open App.Path & "\d0.avi"
' Animation2.Open App.Path & "\d1.avi"
' Animation3.Open App.Path & "\dem.avi"
' Animation1.AutoPlay = True
' Animation2.AutoPlay = True
' Animation3.AutoPlay = True
Else
' Animation1.AutoPlay = False
' Animation2.AutoPlay = False
' Animation3.AutoPlay = False
End If
End Sub
'##################################################################
'## 过程名称：Text5_Change
'## 参数： 无
'##################################################################
Private Sub Text5_Change()
On Error Resume Next
If Image1.Left > 3495 Or Text5 = 0 Then
Image1.Left = 0
Exit Sub
End If
Image1.Left = Image1.Left + 38
End Sub
'##################################################################
'## 过程名称：Text6_Change
'## 参数： 无
'##################################################################
'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
Adodc2.RecordSource = "select zhongliang from chetmp where id=1"
Adodc2.refresh
If Adodc2.Recordset.EOF Then
Text5.Text = 0
Else
Text5.Text = Adodc2.Recordset.Fields(0)
End If
Adodc2.RecordSource = "select zhongliang from chetmp where id=2"
Adodc2.refresh
If Adodc2.Recordset.EOF Then
Text2.Text = 0
Else
Text2.Text = Adodc2.Recordset.Fields(0)
End If
Adodc3.refresh
If Adodc3.Recordset.EOF Or IsNull(Adodc3.Recordset.Fields("累重示数")) Then
Text3.Text = ""
Text4.Text = ""
Else
Text3.Text = Adodc3.Recordset.Fields("累重示数")
Text4.Text = Adodc3.Recordset.Fields("流量示数")
End If
Adodc4.RecordSource = "select * from jlk where sj like '%" & Format(Now, "yyyy-mm-dd") & "%'"
Adodc4.refresh
Label23.Caption = Adodc4.Recordset.RecordCount
Adodc4.RecordSource = "select * from kck where sj like '%" & Format(Now, "yyyy-mm-dd") & "%'"
Adodc4.refresh
Label25.Caption = Adodc4.Recordset.RecordCount
End Sub
'##################################################################
'## 过程名称：Timer2_Timer
'## 参数： 无
'##################################################################
Private Sub Timer2_Timer()
On Error Resume Next
Me.Adodc5.RecordSource = "select ch as 车号,pz as 皮重,sj as 检斤时间 from chk where sj like '%" & Format(Now, "yyyy-mm-dd") & "%'"
Me.Adodc5.refresh
Me.Adodc5.Recordset.MoveLast
Me.datPrimaryRS.RecordSource = "select hth as 票号,ch as 车号,mz as 毛重,pz as 皮重,jz as 净重,hwm as 货物名,shr as 收货人,fhr as 发货人,dhdd as 到货地点,sby as 司磅员,sj as 检斤时间,id as 流水号 from jlk where sj like '%" & Format(Now, "yyyy-mm-dd") & "%'"
Me.datPrimaryRS.refresh
Me.datPrimaryRS.Recordset.MoveLast
Adodc1.refresh
dh = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -