📄 各部合计.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
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 MSAdodcLib.Adodc Adodc2
Height = 330
Left = 6420
Top = 4860
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_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= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
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 MSAdodcLib.Adodc Adodc1
Height = 330
Left = 4170
Top = 4860
Visible = 0 'False
Width = 1605
_ExtentX = 2831
_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= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
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 VB.TextBox Text6
DataField = "支出余额"
DataSource = "Adodc2"
Height = 315
Left = 8370
TabIndex = 8
Text = "Text6"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text5
DataField = "收入余额"
DataSource = "Adodc2"
Height = 315
Left = 7290
TabIndex = 7
Text = "Text5"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text4
DataField = "年份"
DataSource = "Adodc2"
Height = 315
Left = 6174
TabIndex = 6
Text = "Text4"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text3
DataField = "支出"
DataSource = "Adodc1"
Height = 315
Left = 5076
TabIndex = 5
Text = "Text3"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text2
DataField = "收入"
DataSource = "Adodc1"
Height = 315
Left = 3978
TabIndex = 4
Text = "Text2"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text1
DataField = "日期"
DataSource = "Adodc1"
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
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
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
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties= DRIVER=SQL Server;SERVER=YAO_WEI_SERVER;APP=Visual Basic;WSID=YAO_WEI_SERVER;DATABASE=商场帐务;Trusted_Connection=Yes"
Adodc2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties= DRIVER=SQL Server;SERVER=YAO_WEI_SERVER;APP=Visual Basic;WSID=YAO_WEI_SERVER;DATABASE=商场帐务;Trusted_Connection=Yes"
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
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()
Adodc1.RecordSource = C(J)
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
Num = Adodc1.Recordset.RecordCount
N = 年度选择.YearData - 1
Adodc2.RecordSource = "Select * from " + E(J) + " Where [年份] = " + "'" + N + "'"
Adodc2.Refresh
If Text5 <> "" Then
L1 = Val(Text5): L2 = Val(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
Adodc1.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
Public Function Right(ByVal Xz As String, ByVal L As Integer, ByVal D As Integer) As String
Dim L1 As Integer, N As Integer
Dim Space As String, J As Integer
Dim Z As String
For J = 1 To D
Z = Z + "0"
Next J
If D <> 0 Then
Z = "0." & Z
Xz = Format(Xz, Z)
L1 = Len(Xz)
Else
Xz = Format(Xz, Z)
L1 = Len(Xz)
End If
If L1 < L Then
N = L - L1
For J = 1 To N
Space = Space & " "
Next J
Right = Space & Xz
Else
Right = Xz
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -