📄 各部合计.frm
字号:
VERSION 5.00
Begin VB.Form 各部合计
AutoRedraw = -1 'True
BorderStyle = 0 'None
ClientHeight = 7560
ClientLeft = 90
ClientTop = -90
ClientWidth = 11835
Icon = "各部合计.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 504
ScaleMode = 3 'Pixel
ScaleWidth = 789
ShowInTaskbar = 0 'False
Begin VB.TextBox Text6
DataField = "支出累计"
DataSource = "Data2"
Height = 315
Left = 8370
TabIndex = 8
Text = "Text6"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text5
DataField = "收入累计"
DataSource = "Data2"
Height = 315
Left = 7290
TabIndex = 7
Text = "Text5"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text4
DataField = "年份"
DataSource = "Data2"
Height = 315
Left = 6174
TabIndex = 6
Text = "Text4"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 6330
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "告立庭年度余额"
Top = 3870
Visible = 0 'False
Width = 1755
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 4170
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3870
Visible = 0 'False
Width = 1755
End
Begin VB.TextBox Text3
DataField = "支出"
DataSource = "Data1"
Height = 315
Left = 5076
TabIndex = 5
Text = "Text3"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text2
DataField = "收入"
DataSource = "Data1"
Height = 315
Left = 3978
TabIndex = 4
Text = "Text2"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text1
DataField = "日期"
DataSource = "Data1"
Height = 315
Left = 2880
TabIndex = 3
Text = "Text1"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.CommandButton Command2
Caption = "返 回"
Height = 345
Left = 9450
TabIndex = 1
Top = 6960
Width = 1365
End
Begin VB.CommandButton Command1
Caption = "打 印"
Height = 345
Left = 8070
TabIndex = 0
Top = 6960
Width = 1365
End
Begin VB.Shape Shape1
BorderColor = &H80000001&
BorderWidth = 2
Height = 645
Left = 2790
Shape = 4 'Rounded Rectangle
Top = 210
Width = 6165
End
Begin VB.Line Line1
BorderColor = &H80000005&
BorderWidth = 2
X1 = 2
X2 = 800
Y1 = 66
Y2 = 66
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "各 部 年 度 合 计"
BeginProperty Font
Name = "隶书"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3180
TabIndex = 2
Top = 300
Width = 5280
End
End
Attribute VB_Name = "各部合计"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim A(3) As String, B(14) As String, C(1 To 6) As String, E(1 To 6) As String
Dim H1 As Single, H2 As Single, Num As Integer
Dim L1 As Single, L2 As Single
Dim T1 As Single, T2 As Single, T3 As Single, N As String
Dim I As Integer, J As Integer, K As Integer, Y As Single, X As Single
Dim Z1(1 To 6) As Single, Z2(1 To 6) As Single
Private Sub Form_Load()
Me.Left = 0: Me.Top = 0
Label1.Left = (Me.ScaleWidth - Label1.Width) / 2
Shape1.Left = (Me.ScaleWidth - Shape1.Width) / 2
T1 = 0: T2 = 0: T3 = 0
ScaleMode = 3
Y = 134
Line (22, Y + 1)-(765, Y + 200), RGB(255, 255, 255), BF
For Y = 135 To 335 Step 25
Line (22, Y)-(766, Y)
Next Y
For X = 22 To 768 Step 186
Line (X, 135)-(X, 335)
Next X
Data1.DatabaseName = App.Path + "\" + "db1.mdb"
Data2.DatabaseName = App.Path + "\" + "db1.mdb"
A(0) = " 单 位": A(1) = "收 入": A(2) = "支 出": A(3) = "余 额"
B(1) = "糖茶饮料部": B(2) = "家用电器部 ": B(3) = "文教用品部": B(4) = "服 装 部"
B(5) = "鞋 帽 部": B(6) = "食 品 部": B(7) = "合 计 "
C(1) = "糖茶饮料部": C(2) = "家用电器部 ": C(3) = "文教用品部": C(4) = "服装部"
C(5) = "鞋帽部": C(6) = "食品部"
E(1) = "糖茶饮料部年度累计": E(2) = "家用电器部年度累计": E(3) = "文教用品部年度累计"
E(4) = "服装部年度累计": E(5) = "鞋帽部年度累计": E(6) = "食品部年度累计"
FontSize = 14
CurrentX = 375: CurrentY = 380
Print "统计日期： " + Format(Date, "yyyy 年 m 月 d 日")
I = 0
For X = 75 To 760 Step 188
CurrentX = X: CurrentY = 140
Print A(I)
I = I + 1
Next X
I = 0
For Y = 140 To 425 Step 25
CurrentX = 75: CurrentY = Y
Print B(I)
I = I + 1
Next Y
Data1.DatabaseName = App.Path + "\" + "db1.mdb"
Y = 165
For J = 1 To 6
Call Hj
X = 263
CurrentX = X: CurrentY = Y: Print Right(H1, 9, 2)
T1 = T1 + H1: Z1(J) = H1
X = X + 188
CurrentX = X: CurrentY = Y
T2 = T2 + H2: Z2(J) = H2
Print Right(H2, 9, 2)
X = X + 188
CurrentX = X: CurrentY = Y
T3 = T3 + H1 - H2
Print Right(H1, 9, 2)
Y = Y + 25
Next J
X = 263
CurrentX = X: CurrentY = Y: Print Right(T1, 9, 2)
X = X + 188
CurrentX = X: CurrentY = Y: Print Right(T2, 9, 2)
X = X + 188
CurrentX = X: CurrentY = Y: Print Right(T3, 9, 2)
End Sub
Private Sub Command1_Click()
Call Prn
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Hj()
On Error Resume Next
Data1.RecordSource = C(J)
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Num = Data1.Recordset.RecordCount
N = 年度选择.YearData - 1
Data2.RecordSource = "Select * from " + E(J) + " Where [年份] = " + "'" + N + "'"
Data2.Refresh
If Text5 <> "" Then
L1 = Text5: L2 = Text6
Else
L1 = 0: L2 = 0
End If
H1 = L1: H2 = L2
For K = 1 To Num
If Mid(Text1, 1, 4) = 年度选择.YearData Then
H1 = H1 + Text2: H2 = H2 + Text3
End If
Data1.Recordset.MoveNext
Next K
End Sub
Private Sub Prn()
Printer.ScaleMode = 6
For Y = 47 To 92 Step 5.6
Printer.Line (25, Y)-(151, Y)
Next Y
For X = 25 To 153 Step 31.5
Printer.Line (X, 47)-(X, 92)
Next X
Printer.CurrentX = 53: Printer.CurrentY = 36
Printer.FontSize = 14
Printer.Print Format(Date, "yyyy ") + "年 各 部 年 度 合 计 "
Printer.FontSize = 12
I = 0
For X = 34 To 135 Step 31.5
Printer.CurrentX = X: Printer.CurrentY = 48
Printer.Print A(I)
I = I + 1
Next X
I = 0
For Y = 47.5 To 125 Step 5.65
Printer.CurrentX = 30: Printer.CurrentY = Y
Printer.Print B(I)
I = I + 1
Next Y
Printer.CurrentX = 82: Printer.CurrentY = 96
Printer.Print "统计日期： " + Format(Date, "yyyy 年 m 月 d 日")
Y = 54
For I = 1 To 6
X = 60
Printer.CurrentX = X: Printer.CurrentY = Y
Printer.Print Right(Z1(I), 11, 2)
X = X + 32
Printer.CurrentX = X: Printer.CurrentY = Y
Printer.Print Right(Z2(I), 11, 2)
X = X + 32
Z1(I) = Z1(I) - Z2(I)
Printer.CurrentX = X: Printer.CurrentY = Y
Printer.Print Right(Z1(I), 11, 2)
Y = Y + 5.5
Next I
X = 60
Printer.CurrentX = X: Printer.CurrentY = Y
Printer.Print Right(T1, 11, 2)
X = X + 32
Printer.CurrentX = X: Printer.CurrentY = Y
Printer.Print Right(T2, 11, 2)
X = X + 32
Printer.CurrentX = X: Printer.CurrentY = Y
T1 = T1 - T2
Printer.Print Right(T1, 11, 2)
Printer.EndDoc
Printer.KillDoc
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -