formtoko.frm
来自「Application for mini shop」· FRM 代码 · 共 628 行 · 第 1/2 页
FRM
628 行
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form FormToko
Caption = "Form Transaksi Toko Kelontong"
ClientHeight = 8475
ClientLeft = 60
ClientTop = 345
ClientWidth = 11835
LinkTopic = "Form1"
ScaleHeight = 8475
ScaleWidth = 11835
StartUpPosition = 3 'Windows Default
Begin TabDlg.SSTab SSTab1
Height = 8295
Left = 120
TabIndex = 0
Top = 120
Width = 11655
_ExtentX = 20558
_ExtentY = 14631
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "Edit Data Barang"
TabPicture(0) = "FormToko.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Shape2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label3"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label4"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Shape3"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Txt_Kode"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Txt_Nama"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Txt_Harga"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Dta_Barang"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Txt_Jenis"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "DBGrid1"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "CmdTambah"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "CmdEdit"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "CmdDel"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "CmdSimpan"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "CmdExit"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).ControlCount= 17
TabCaption(1) = "Kasir"
TabPicture(1) = "FormToko.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label6"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label7"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Lbl_Nama"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Lbl_Harga"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label8"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Lbl_Total"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label9"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Label10"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "Label11"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Lbl_Kembali"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "Shape1"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "CmdCetak"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "CmdBayar"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "Txt_Kode1"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "Txt_Jumlah"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "CmdNext"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "CmdBaru"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "Txt_Bayar"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).Control(19)= "LstKode"
Tab(1).Control(19).Enabled= 0 'False
Tab(1).Control(20)= "LstNama"
Tab(1).Control(20).Enabled= 0 'False
Tab(1).Control(21)= "LstHarga"
Tab(1).Control(21).Enabled= 0 'False
Tab(1).Control(22)= "LstJumlah"
Tab(1).Control(22).Enabled= 0 'False
Tab(1).Control(23)= "LstTotal"
Tab(1).Control(23).Enabled= 0 'False
Tab(1).ControlCount= 24
Begin VB.CommandButton CmdExit
Caption = "&Keluar"
Height = 495
Left = -65400
TabIndex = 37
Top = 1920
Width = 1215
End
Begin VB.CommandButton CmdSimpan
Caption = "&Simpan Data"
Height = 495
Left = -68280
TabIndex = 36
Top = 1920
Width = 1215
End
Begin VB.CommandButton CmdDel
Caption = "&Hapus Data"
Height = 495
Left = -65400
TabIndex = 35
Top = 1200
Width = 1215
End
Begin VB.CommandButton CmdEdit
Caption = "&Edit Data"
Height = 495
Left = -66840
TabIndex = 34
Top = 1200
Width = 1215
End
Begin VB.CommandButton CmdTambah
Caption = "&Tambah Data"
Height = 495
Left = -68280
TabIndex = 33
Top = 1200
Width = 1215
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "FormToko.frx":0038
Height = 3495
Left = -74400
OleObjectBlob = "FormToko.frx":004D
TabIndex = 32
Top = 4200
Width = 10575
End
Begin VB.ListBox LstTotal
Height = 3375
Left = 8880
TabIndex = 31
Top = 4200
Width = 2055
End
Begin VB.ListBox LstJumlah
Height = 3375
Left = 7800
TabIndex = 30
Top = 4200
Width = 1095
End
Begin VB.ListBox LstHarga
Height = 3375
Left = 5640
TabIndex = 29
Top = 4200
Width = 2175
End
Begin VB.ListBox LstNama
Height = 3375
Left = 1920
TabIndex = 28
Top = 4200
Width = 3735
End
Begin VB.ListBox LstKode
Height = 3375
ItemData = "FormToko.frx":0D57
Left = 720
List = "FormToko.frx":0D59
TabIndex = 27
Top = 4200
Width = 1215
End
Begin VB.TextBox Txt_Bayar
Height = 285
Left = 7920
TabIndex = 23
Top = 1440
Width = 1935
End
Begin VB.CommandButton CmdBaru
Caption = "B&aru"
Height = 495
Left = 6240
TabIndex = 19
Top = 2760
Width = 1335
End
Begin VB.CommandButton CmdNext
Caption = "&Berikutnya"
Height = 495
Left = 7680
TabIndex = 18
Top = 2760
Width = 1335
End
Begin VB.TextBox Txt_Jumlah
Height = 285
Left = 2040
TabIndex = 16
Top = 2520
Width = 855
End
Begin VB.TextBox Txt_Kode1
Height = 285
Left = 2040
TabIndex = 12
Top = 720
Width = 1455
End
Begin VB.TextBox Txt_Jenis
DataField = "Jenis"
DataSource = "Dta_Barang"
Height = 285
Left = -72480
TabIndex = 8
Top = 2640
Width = 3255
End
Begin VB.Data Dta_Barang
Caption = "Data Barang"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = -74160
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3480
Width = 4935
End
Begin VB.TextBox Txt_Harga
DataField = "Harga"
DataSource = "Dta_Barang"
Height = 285
Left = -72480
TabIndex = 7
Top = 2160
Width = 3255
End
Begin VB.TextBox Txt_Nama
DataField = "Nama"
DataSource = "Dta_Barang"
Height = 285
Left = -72480
TabIndex = 6
Top = 1680
Width = 3255
End
Begin VB.TextBox Txt_Kode
DataField = "Kode"
DataSource = "Dta_Barang"
Height = 285
Left = -72480
TabIndex = 5
Top = 1200
Width = 3255
End
Begin VB.CommandButton CmdBayar
Caption = "Bia&ya"
Height = 495
Left = 9120
TabIndex = 26
Top = 2760
Width = 1335
End
Begin VB.CommandButton CmdCetak
Caption = "&Cetak"
Height = 495
Left = 7680
TabIndex = 20
Top = 3360
Width = 1335
End
Begin VB.Shape Shape3
BorderColor = &H008080FF&
Height = 1935
Left = -68520
Top = 840
Width = 4575
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?