📄 form2.frm
字号:
Caption = "上月发运量："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 0
Left = 6684
TabIndex = 40
Top = 2040
Width = 1572
End
Begin VB.Label Label3
Caption = "上月结存量："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 0
Left = 6720
TabIndex = 39
Top = 3048
Width = 1452
End
Begin VB.Label Label4
Caption = "上月结存金额："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 0
Left = 6720
TabIndex = 38
Top = 4056
Width = 1452
End
Begin VB.Label Label2
Caption = "本月发运量："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 1
Left = 6720
TabIndex = 37
Top = 2544
Width = 1572
End
Begin VB.Label Label3
Caption = "本月结存量："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 1
Left = 6720
TabIndex = 36
Top = 3552
Width = 1452
End
Begin VB.Label Label4
Caption = "本月结存金额："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 1
Left = 6720
TabIndex = 35
Top = 4560
Width = 1452
End
Begin VB.Label lblLabels
Caption = "运输方式:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 14
Left = 3840
TabIndex = 28
Top = 3552
Width = 996
End
Begin VB.Label lblLabels
Caption = "结算方式:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 15
Left = 3840
TabIndex = 27
Top = 4056
Width = 996
End
Begin VB.Label lblLabels
Caption = "是否冻结:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 20
Left = 3840
TabIndex = 26
Top = 4560
Width = 996
End
Begin VB.Label lblLabels
Caption = "单 价:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 8
Left = 3816
TabIndex = 22
Top = 2040
Width = 996
End
Begin VB.Label lblLabels
Caption = "金 额:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 9
Left = 3840
TabIndex = 21
Top = 2544
Width = 996
End
Begin VB.Label lblLabels
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "开票时间:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 10
Left = 3840
TabIndex = 20
Top = 3048
Width = 996
End
Begin VB.Label lblLabels
Caption = "票 号:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 0
Left = 840
TabIndex = 16
Top = 2040
Width = 996
End
Begin VB.Label lblLabels
Caption = "合同量:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 1
Left = 840
TabIndex = 15
Top = 2544
Width = 996
End
Begin VB.Label lblLabels
Caption = "已发量:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 2
Left = 840
TabIndex = 14
Top = 3048
Width = 996
End
Begin VB.Label lblLabels
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "欠存量:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 3
Left = 840
TabIndex = 13
Top = 3552
Width = 996
End
Begin VB.Label lblLabels
Caption = "媒 种:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 4
Left = 840
TabIndex = 12
Top = 4056
Width = 996
End
Begin VB.Label lblLabels
Caption = "发货人:"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 5
Left = 840
TabIndex = 11
Top = 4560
Width = 996
End
Begin VB.Line Line2
X1 = 0
X2 = 10200
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line1
X1 = 0
X2 = 10320
Y1 = 1800
Y2 = 1800
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 3960
TabIndex = 2
Top = 600
Width = 1152
End
Begin VB.Label lblLabels
Caption = "发货单位:"
Height = 252
Index = 6
Left = 840
TabIndex = 1
Top = 1440
Width = 960
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Dim ii As Integer
Dim lis As Object
Dim name1 As String
Dim g As String
g = "lin"
Dim Found, MyObject, MyCollection
'Printer.NewPage
Found = False ' 设置变量初始值。
For Each MyObject In Me
' 对每个成员作一次迭代。
name1 = MyObject.Name
'If InStr(1, MyObject.Name, "lin") > 0 Then ' 如果 Text 属性值等于“Hello”。)
If MyObject.BorderStyle > 0 Then
'If MyObject Is Line Then
x1 = MyObject.x1
x2 = MyObject.x2
y1 = MyObject.y1
y2 = MyObject.y2
Printer.DrawWidth = MyObject.BorderWidth
Printer.Line (x1, y1)-(x2, y2)
Else
x1 = MyObject.Left
y1 = MyObject.Top
Printer.Font.Size = MyObject.Font.Size
Printer.CurrentX = x1
Printer.CurrentY = y1
Printer.Print MyObject.Text
Printer.Print MyObject.Caption
'Exit For ' 退出循环。
End If
x1 = 0: x2 = 0: y1 = 0: y2 = 0
20:
Next
Printer.EndDoc
'Printer.NewPage
End Sub
Private Sub CurtButton1_Click()
jl_hth = Me.txtFields(0)
httz.Show
Unload Me
'httz.WindowState = 3
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim byfyl As Long '本月发运量
Dim byjcl As Long '本月结存量
Dim byjcje As Long '本月结存金额
Dim dj As Long
Dim syfyl As Long '上本月发运量
Dim syjcl As Long ' 上月结存量
Dim syjcje As Long '上月结存金额
Dim sjj As String
Set dat = New ADODB.Connection
Set rest = New ADODB.Recordset
Me.Adodc1.ConnectionString = connetstr
Me.Adodc1.RecordSource = "SELECT hth, htl, yfl, wfl, hwm, fhr, fhdw, qydw, dj,je, sj, bz, htldx, jedx, ysfs,jsfs, fphm, tbr, fzr, id, sj1 FROM htk"
sjj = Format(DateSerial(Year(Date), Month(Date) - 1, Day(Date)), "yyyy-mm")
rest.Open "select sum(jz) from jlk where sj like '%" & Format(Date, "yyyy-dd") & "%' and hth='" & jl_hth & "'", dat, adOpenForwardOnly
byfyl = rest.Fields(0)
rest.Close
rest.Open "select dj,yfl,wfl from htk where hth='" & jl_hth & "'", cn, adOpenForwardOnly
dj = rest.Fields(0)
byjcl = rest.Fields(2)
byjcje = (byjcl * dj) / 1000
rest.Close
rest.Open "select sum(jz) from jlk where sj like '%" & sjj & "%' and hth='" & jl_hth & "'", dat, adOpenForwardOnly
syfyl = rest.Fields(0)
syjcl = byjcl + byfyl '上本月结存量=本月发运量+本月结存量
syjcje = (syjcl * dj) / 1000
Text1.Text = syfyl
Text2.Text = byfyl
Text3.Text = syjcl
Text4.Text = byjcl
Text5.Text = syjcje
Text6.Text = byjcje
Me.Label7.Caption = Format(Now, "yyyy-mm-dd-hh-nn-ss")
End Sub
Private Sub XPButton1_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -