📄 frmmainvis.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{7B78673D-6A82-11D7-ADA7-887C5F370755}#1.0#0"; "menu.ocx"
Begin VB.Form FrmMain
BackColor = &H00EFF2EC&
Caption = "BLacK PeaRL Billing Server_v.004"
ClientHeight = 10335
ClientLeft = 330
ClientTop = 750
ClientWidth = 15240
Icon = "FrmMainvis.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10335
ScaleWidth = 15240
Begin VB.CommandButton MyButton18
Caption = "Laporan Penjualan"
Height = 495
Left = 2940
TabIndex = 17
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton17
Caption = "Pendaftaran Member"
Height = 495
Left = 4440
TabIndex = 18
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton16
Caption = "MP3 Player"
Height = 495
Left = 5925
TabIndex = 19
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton15
Caption = "Konfigurasi"
Height = 495
Left = 7440
TabIndex = 20
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton14
Caption = "Pendaftaran Operator"
Height = 495
Left = 8940
TabIndex = 21
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton13
Caption = "Backup"
Height = 495
Left = 10440
TabIndex = 22
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton4
Caption = "Exit"
Height = 495
Left = 11925
TabIndex = 23
Top = 9600
Width = 1500
End
Begin VB.CommandButton MyButton19
Caption = "Penjualan"
Height = 495
Left = 1440
TabIndex = 16
Top = 9600
Width = 1500
End
Begin VB.CommandButton BLacKCandyButton1
Caption = "a"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 0
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton3
Caption = "l"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
TabIndex = 2
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton2
Caption = "k"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1080
TabIndex = 1
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton4
Caption = "u"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3000
TabIndex = 3
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton6
Caption = "d"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4680
TabIndex = 5
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton5
Caption = """"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
TabIndex = 4
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton7
Caption = "f"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5640
TabIndex = 6
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton9
Caption = "z"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7320
TabIndex = 8
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton8
Caption = "b"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6480
TabIndex = 7
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton10
Caption = "r"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8400
TabIndex = 9
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton12
Caption = "i"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10080
TabIndex = 11
Top = 240
Width = 855
End
Begin VB.CommandButton BLacKCandyButton11
Caption = "s"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9240
TabIndex = 10
Top = 240
Width = 855
End
Begin VB.CommandButton XPButton3
Caption = "Jam"
Height = 495
Left = 12720
TabIndex = 15
Top = 8520
Width = 1455
End
Begin VB.CommandButton XPButton2
Caption = "Tanggal"
Height = 495
Left = 7440
TabIndex = 14
Top = 8520
Width = 1455
End
Begin VB.CommandButton XPButton1
Caption = "Status"
Height = 495
Left = 360
TabIndex = 13
Top = 8520
Width = 1455
End
Begin VB.Frame xpframe3
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 855
Left = 0
TabIndex = 34
Top = 0
Width = 16200
Begin VB.Shape Shape4
BackColor = &H00FFFFC0&
BackStyle = 1 'Opaque
BorderColor = &H00C0C0C0&
Height = 735
Left = 120
Top = 75
Width = 15015
End
End
Begin VB.Frame XPFrame1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 8415
Left = 120
TabIndex = 28
Top = 960
Width = 15015
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1575
Left = 5640
ScaleHeight = 1575
ScaleWidth = 9255
TabIndex = 39
Top = 0
Width = 9255
Begin VB.Label Txtalamat2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Bukittinggi - Sumatra Barat"
BeginProperty Font
Name = "Bookman Old Style"
Size = 14.25
Charset = 0
Weight = 600
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 42
Top = 960
Width = 9255
End
Begin VB.Label Txtalamat1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Jl. Raya Bukittinggi - Medan Km.4"
BeginProperty Font
Name = "Bookman Old Style"
Size = 14.25
Charset = 0
Weight = 600
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -