?? 分部統計.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 = 15
Text = "Text6"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text5
DataField = "收入累計"
DataSource = "Data2"
Height = 315
Left = 7290
TabIndex = 14
Text = "Text5"
Top = 3030
Visible = 0 'False
Width = 945
End
Begin VB.TextBox Text4
DataField = "年份"
DataSource = "Data2"
Height = 315
Left = 6174
TabIndex = 13
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.Frame Frame1
Caption = "統計單位選擇"
Height = 1095
Left = 660
TabIndex = 6
Top = 6210
Width = 6465
Begin VB.OptionButton Option6
Caption = "食 品 部"
Height = 225
Left = 1860
TabIndex = 12
Top = 690
Width = 1305
End
Begin VB.OptionButton Option5
Caption = "鞋 帽 部"
Height = 225
Left = 300
TabIndex = 11
Top = 690
Width = 1305
End
Begin VB.OptionButton Option4
Caption = "服 裝 部"
Height = 225
Left = 4980
TabIndex = 10
Top = 240
Width = 1305
End
Begin VB.OptionButton Option3
Caption = "文教用品部"
Height = 225
Left = 1860
TabIndex = 9
Top = 240
Width = 1305
End
Begin VB.OptionButton Option2
Caption = "家用電器部"
Height = 225
Left = 3420
TabIndex = 8
Top = 240
Width = 1305
End
Begin VB.OptionButton Option1
Caption = "糖茶飲料部"
Height = 225
Left = 300
TabIndex = 7
Top = 240
Width = 1305
End
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 = "日期"
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 = "打 印"
Enabled = 0 'False
Height = 345
Left = 8070
TabIndex = 0
Top = 6960
Width = 1365
End
Begin VB.Shape Shape1
BorderColor = &H80000001&
BorderWidth = 2
Height = 645
Left = 2370
Shape = 4 'Rounded Rectangle
Top = 210
Width = 7455
End
Begin VB.Line Line1
BorderColor = &H80000005&
BorderWidth = 2
X1 = 2
X2 = 800
Y1 = 66
Y2 = 66
End
Begin VB.Label Label1
Caption = " 分 部 統 計"
BeginProperty Font
Name = "隸書"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 2580
TabIndex = 2
Top = 300
Width = 7005
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(6) As String, B(1 To 13) As String
Dim S(1 To 6) As String, D(1 To 6) As String, E(1 To 6) As String
Dim I As Integer, J As Integer, K As String
Dim T1 As Single, T2 As Single, N As String, Num As Integer
Dim H1(12) As Single, H2(12) As Single, H3(12) As Single
Dim Hj1 As Single, Hj2 As Single
Dim L1(12) As Single, L2(12) As Single, L3(12) As Single
Dim Y As Single, X 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -