?? 各部合計.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 + -