Membuat Rekayasa Perangkat Lunak (RPL): Kode Program Membuat Aplikasi Database Satu Tabel Dengan Bahasa Pemrograman Foxpro 9

Kode Program Membuat Aplikasi Database Satu Tabel Dengan Bahasa Pemrograman Foxpro 9

Visual Foxpro 9

Listing kode :

í€ VERSION = 3.00 dataenvironment dataenvironment Dataenvironment _Top = 220

Left = 1

Width = 520

Height = 200

DataSource = .NULL.

Name = "Dataenvironment"

cursor cursor Cursor1 Dataenvironment †Top = 20

Left = 10

Height = 90

Width = 91

Alias = "brgptun"

Database = dataptun.dbc

CursorSource = "brgptun"

Name = "Cursor1"

2 1

form

form Form1 Top = 0

Left = 0

Height = 594

Width = 944

DoCreate = .T.

Caption = "Data/ Daftar Barang Penjualan"

Icon = gambar\formico\actifast.ico

Name = "Form1"

PROCEDURE tampildataptun

SELECT brgptun

thisform.text1.Value=brgptun.kbrgptun

thisform.text2.Value=brgptun.nmbrgptun

thisform.text3.Value=brgptun.typebrgptun

thisform.text4.Value=brgptun.pictfilebrgptun

thisform.text5.Value=brgptun.vabrgptun

thisform.text6.Value=brgptun.pictfilewebbrgptun

thisform.image1.picture=brgptun.pictfilebrgptun

thisform.grid1.column1.Enabled= .F.

thisform.grid1.column2.Enabled= .F.

thisform.grid1.column3.Enabled= .F.

thisform.grid1.column4.Enabled= .F.

thisform.grid1.column5.Enabled= .F.

thisform.grid1.column6.Enabled= .F.

thisform.grid1.column7.Enabled= .F.

thisform.command6.Enabled=.f.

thisform.command5.Caption='Add'

thisform.command7.Caption='Edit'

thisform.initialreccountbrgptun

thisform.pageframe1.page1.command19.Enabled=.f.

thisform.pageframe1.page2.command19.Enabled=.f.

thisform.pageframe1.page4.command8.Enabled=.f.

ENDPROC

PROCEDURE settinggrid1brgptun

thisform.grid1.column1.Width=89

thisform.grid1.column2.Width=119

thisform.grid1.column3.Width=119

thisform.grid1.column4.Width=167

thisform.grid1.column5.Width=47

thisform.grid1.column6.Width=83

thisform.grid1.column7.Width=80

ENDPROC

PROCEDURE initialreccountbrgptun

SELECT brgptun

thisform.Label18.Caption=STR(recno())

thisform.Label20.Caption=STR(reccount())

thisform.Label18.Refresh

thisform.Label20.Refresh

ENDPROC

PROCEDURE Destroy

ENDPROC

PROCEDURE Activate

SET EXCLUSIVE OFF

SET DELETED ON

SET MULTILOCKS ON

SELECT brgptun

thisform.tampildataptun

thisform.text1.SetFocus()

IF thisform.text4.Value=""

thisform.image1.picture=""

ENDIF

IF thisform.text4.Value<>""

thisform.image1.picture=thisform.text5.Value

ENDIF

thisform.Refresh

thisform.settinggrid1brgptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.column1.Enabled= .F.

thisform.grid1.column2.Enabled= .F.

thisform.grid1.column3.Enabled= .F.

thisform.grid1.column4.Enabled= .F.

thisform.grid1.column5.Enabled= .F.

thisform.grid1.column6.Enabled= .F.

thisform.grid1.column7.Enabled= .F.

ENDPROC

PROCEDURE Load

SET EXCLUSIVE OFF

UNLOCK

SELECT brgptun

SET FILTER TO

ENDPROC

þòÿ h h -% % ü

U œ N T÷ üCû- Apakah anda siap akan menghapus semua data ?!ø$û
Informasionêxýþ%ü÷ øýùv þTô ôô

÷ üaýþ ù• þTô ôô

÷ ü-ýþ

‑þ

U PPTHISFORM

PAGEFRAME1PAGE4COMMAND8ENABLEDClick, ÿÿ1 ä

r qA 2 ç ) h

Pþòÿ 7

¿¯ % £î ‑ ²ü

U «G þM T÷ üCû, Apakah anda yakin data akan dihapus semua ?!ø$û
Informasionêxýþ%ü÷ øýù…þF÷ þ
%üC3ýù€ þ

Zþ

‑þ

™ô

÷þTô

ô÷ üÙ ýþTô

ô ÷ üÙ ýþTô

÷ üÙ ýþTô

ô
÷ üÙ ýþTô

ô
÷ üÙ ýþ™üCô

ôö

ýþQ¼ûbrgptunþ

3þ

™ô

÷
þ

QþQÂûbrgptunþF÷ þTô

÷ üÙbrgptunýþ

™ô

÷þTô

ôôô÷ ü-ýþ ù¤þTô

ôôô÷ ü-ýþ

‑þ

U PPBRGPTUN

ALLTHISFORMGRID1REFRESHTEXT1VALUETEXT2TEXT3TEXT4TEXT5TEXT6SETFOCUSINITIALRECCOUNTBRGPTUN
RECORDSOURCESETTINGGRID1BRGPTUN

PAGEFRAME1PAGE4COMMAND8ENABLEDClick, ÿÿ1 b Ò

q Ã Q A A Ô 211111ò A ¢ A ñ q ¡¡ q qA 2 ¼ ) 7

þòÿ ì ì Ø1 % z £

‰ ü

U È Tô ô ôô

üø ýþ

™ô ÷þ4 %üô ô ôô

ø ðô ô ôô÷

ø ýùÁ þF÷þG((þTô ô÷ ü-ýþ

™ô ô

÷
þ

™ô ô
÷
þTô ô ôô

üø ýþTô ô ôô÷

üø ýþ

‑þ

THISFORM

PAGEFRAME1PAGE3CHECK1VALUE
TAMPILDATAPTUNCHECK2BRGPTUNCOMMAND6ENABLEDOLEBOUNDCONTROL1REFRESHGRID1Click, ÿÿ1 ’¢ C

q a Ó Ñ “‘A 1 ¤ ) ì ’þòÿ y y ë % 0 ‑ ü

U m F÷ þG((þTô ô÷

ü-ýþ

™ô ô

÷þ

™ô ô÷þTô ôôô ÷

üø ýþTô ôôô
÷

üø ýþ

U
BRGPTUNTHISFORMCOMMAND6ENABLEDOLEBOUNDCONTROL1REFRESHGRID1

PAGEFRAME1PAGE3CHECK1VALUECHECK2 Click, ÿÿ1 q a Ó Ñ “‘3 ø ) y BArial, 0, 9, 5, 15, 12, 32, 3, 0

Arial, 0, 8, 5, 14, 11, 29, 3, 0

Command1 C*tampildataptun

*settinggrid1brgptun

*initialreccountbrgptun

shape shape Shape3 Form1 ATop = 84

Left = 744

Height = 85

Width = 193

Name = "Shape3"

shape shape Shape1 Form1 CTop = 300

Left = 552

Height = 108

Width = 204

Name = "Shape1"

label label Label1 Form1 XCaption = "Kode Barang"

Height = 17

Left = 84

Top = 84

Width = 96

Name = "Label1"

label label Label2 Form1 YCaption = "Nama Barang"

Height = 17

Left = 84

Top = 120

Width = 84

Name = "Label2"

label label Label3 Form1 YCaption = "Type Barang"

Height = 17

Left = 84

Top = 156

Width = 84

Name = "Label3"

label label Label4 Form1 ZCaption = "Picture File"

Height = 17

Left = 84

Top = 192

Width = 72

Name = "Label4"

label label Label5 Form1 bCaption = "Video/ Audio Barang"

Height = 17

Left = 84

Top = 228

Width = 120

Name = "Label5"

label label Label6 Form1 YCaption = "Picture Web"

Height = 17

Left = 84

Top = 264

Width = 72

Name = "Label6"

textbox textbox Text1 Form1 TControlSource = ""

Height = 25

Left = 228

Top = 84

Width = 193

Name = "Text1"

textbox textbox Text2 Form1 AHeight = 25

Left = 228

Top = 120

Width = 193

Name = "Text2"

textbox textbox Text3 Form1 AHeight = 25

Left = 228

Top = 156

Width = 193

Name = "Text3"

textbox textbox Text4 Form1 AHeight = 25

Left = 228

Top = 192

Width = 193

Name = "Text4"

textbox textbox Text5 Form1 AHeight = 25

Left = 228

Top = 228

Width = 193

Name = "Text5"

textbox textbox Text6 Form1 AHeight = 25

Left = 228

Top = 264

Width = 193

Name = "Text6"

label label Label7 Form1 FontBold = .T.

FontSize = 16

Caption = "Data/ Daftar Barang"

Height = 24

Left = 396

Top = 12

Width = 204

Name = "Label7"

commandbutton

commandbutton Command1 Form1 rTop = 324

Left = 36

Height = 27

Width = 84

Picture = gambar\formico\top.bmp

Caption = ""

Name = "Command1"

PROCEDURE Click

SELECT brgptun

GO TOP IN brgptun

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.Refresh

ENDPROC

íþòÿ Ô Ô þ¦ % r ‹ ü

U G(þ #÷ )þ

™ô ô÷

BRGPTUNTHISFORMGRID1REFRESH Click, ÿÿ1 a ‘ Ñ 1 J ) Ô Form1.Pageframe1.Page4

commandbutton

commandbutton label

commandbutton

commandbutton Command2 Form1 xTop = 324

Left = 132

Height = 27

Width = 84

Picture = gambar\formico\previous.bmp

Caption = ""

Name = "Command2"

APROCEDURE Click

SELECT brgptun

IF.not. BOF()

SKIP - 1

IF BOF()

MESSAGEBOX('Sudah di awal record',48,'Informasi')

GO TOP IN brgptun

endif

ELSE

GO TOP IN brgptun

endif

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.Refresh

ENDPROC

Kþòÿ 2 2 ® % Î é Ý ü

U R Tô ô ôô

üÙ ýþ™ô ô ôô

÷þTô ô ôô÷

üø ýþ

™ô ÷þ

U THISFORM

PAGEFRAME1PAGE2TEXT7VALUEREFRESHCHECK1
TAMPILDATAPTUNClick, ÿÿ1 ‘1‘¢ 1 § ) 2 _Top = 56

Left = 11

Height = 24

Width = 96

Caption = " Siap Delete All"

Name = "Command1"

commandbutton

commandbutton Command3 Form1 tTop = 324

Left = 228

Height = 27

Width = 84

Picture = gambar\formico\next.bmp

Caption = ""

Name = "Command3"

HPROCEDURE Click

SELECT brgptun

IF.not. EOF()

SKIP

IF EOF()

MESSAGEBOX('Sudah di akhir record',48,'Informasi')

GO Bottom IN brgptun

endif

ELSE

GO Bottom IN brgptun

endif

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.Refresh

ENDPROC

Kþòÿ 2 2 ® % Î é Ý ü

U R Tô ô ôô

üÙ ýþ™ô ô ôô

÷þTô ô ôô÷

üø ýþ

™ô ÷þ

U THISFORM

PAGEFRAME1PAGE1TEXT7VALUEREFRESHCHECK1
TAMPILDATAPTUNClick, ÿÿ1 ‘1‘¢ 1 § ) 2 Form1.Pageframe1.Page4 Label17 label Form1.Pageframe1.Page4

commandbutton

commandbutton Command4 Form1 vTop = 324

Left = 324

Height = 27

Width = 84

Picture = gambar\formico\bottom.bmp

Caption = ""

Name = "Command4"

®PROCEDURE Click

SELECT brgptun

GO Bottom IN brgptun

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.Refresh

ENDPROC

<þòÿ # # h( % ¿ Ú Î ü

U A F÷ þG(üô ÷ Côô

›ýþ™üCôôöýþ

™ôô÷þ

U BRGPTUN NMBRGPTUNTHISFORMTEXT8VALUEGRID1REFRESHOLEBOUNDCONTROL1Click, ÿÿ1 q £

Ñ 2 ¨ ) #

commandbutton

commandbutton Command5 Form1 STop = 372

Left = 36

Height = 27

Width = 84

Caption = "Add"

Name = "Command5"

£PROCEDURE Click

IF thisform.command5.Caption='Add'

thisform.command5.Caption='CancelAdd'

thisform.text1.Value=""

thisform.text2.Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.text6.Value=""

thisform.text1.SetFocus()

thisform.command6.Enabled=.t.

ELSE

thisform.command5.Caption='Add'

thisform.tampildataptun

endif

ENDPROC

þòÿ ì ì Ø1 % z £

‰ ü

U È Tô ô ôô

üø ýþ

™ô ÷þ4 %üô ô ôô÷

ø ðô ô ôô

ø ýùÁ þF÷þG((þTô ô÷ ü-ýþ

™ô ô

÷
þ

™ô ô
÷
þTô ô ôô÷

üø ýþTô ô ôô

üø ýþ

‑þ

THISFORM

PAGEFRAME1PAGE3CHECK2VALUE
TAMPILDATAPTUNCHECK1BRGPTUNCOMMAND6ENABLEDOLEBOUNDCONTROL1REFRESHGRID1Click, ÿÿ1 ’¢ B

q a Ó Ñ “‘A 1 ¢ ) ì Command8

commandbutton Label2

commandbutton

commandbutton Command6 Form1 UTop = 372

Left = 132

Height = 27

Width = 84

Caption = "Save"

Name = "Command6"

PROCEDURE Click

IF EMPTY(thisform.text1.Value)

pe=MESSAGEBOX('Kode Barang masih kosong, isi dulu Oke',48,'perhatian')

thisform.text1.SetFocus()

RETURN

ENDIF

SELECT brgptun

LOCATE FOR kbrgptun=(ALLTRIM(thisform.text1.Value))

IF FOUND()

pp=MESSAGEBOX('Data ada (Kode Barangnya sudah ada)!',48,'perhatian')

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

else

p=MESSAGEBOX('Inggin di simpan',4+64,'Informasi')

IF p=6

SELECT brgptun

GO BOTTOM in brgptun

APPEND blank

replace brgptun.kbrgptun WITH thisform.text1.Value

replace brgptun.nmbrgptun WITH thisform.text2.Value

replace brgptun.typebrgptun WITH thisform.text3.Value

replace brgptun.pictfilebrgptun WITH thisform.text4.value

replace brgptun.vabrgptun WITH thisform.text5.Value

replace brgptun.pictfilewebbrgptun WITH thisform.text6.value

GO BOTTOM in brgptun

thisform.grid1.Refresh

thisform.text1.Value=""

thisform.text2.Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.text6.Value=""

thisform.text1.setfocus()

thisform.initialreccountbrgptun

ENDIF

endif

ENDPROC

×þòÿ ¾¾T

% Du Sü

U F÷ þ

™ô ô÷

þTô ô

÷ üô ÷ýþTô ô÷ üô ÷ýþTô ô ÷ üô ÷

ýþTô ô
÷ üô ÷
ýþTô ô

÷ üô ÷
ýþTô ô÷ üô ÷ýþTô ô÷ üô ÷
ýþ

™ô ÷þ
%üC+ýùþ4 T÷ üCû Data tidak ada lagi !ø0û PerhatianêxýþTô ô ôô÷ ü-ýþ

‑þ

U BRGPTUNTHISFORMGRID1REFRESHTEXT1VALUEKBRGPTUNTEXT2 NMBRGPTUNTEXT3
TYPEBRGPTUNTEXT4PICTFILEBRGPTUNTEXT5 VABRGPTUNTEXT6PICTFILEWEBBRGPTUNIMAGE1PICTUREINITIALRECCOUNTBRGPTUNPE

PAGEFRAME1PAGE2 COMMAND19ENABLEDClick, ÿÿ1 q A Ñ baaaaaa£ Á B

rC 1 & ) ¾ þòÿ ÿ ÿ ]\ % ‘ ¶ ¬ ü

U ! ¯÷ þ

™ô ô÷

™ô ÷

U NCOLINDEXTHISFORMOLEBOUNDCONTROL1REFRESH
TAMPILDATAPTUN AfterRowColChange, ÿÿ1 q Ò ¢ 1 r ) ÿ ZTop = 56

Left = 131

Height = 24

Width = 84

Caption = "Delete All"

Name = "Command8"

commandbutton

commandbutton Command7 Form1 UTop = 372

Left = 228

Height = 27

Width = 84

Caption = "Edit"

Name = "Command7"

PROCEDURE Click

IF thisform.command7.Caption='Edit'

thisform.command7.Caption='CancelEdit'

thisform.text1.Enabled=.t.

thisform.text2.Enabled=.t.

thisform.text3.Enabled=.t.

thisform.text4.Enabled=.t.

thisform.text5.Enabled=.t.

thisform.text6.Enabled=.t.

p=MESSAGEBOX('Apakah anda yakin, data ini akan di edit atau save changes ?',4+32,'Informasi')

IF p=6

IF RLOCK()

thisform.grid1.column1.Enabled= .t.

thisform.grid1.column2.Enabled= .t.

thisform.grid1.column3.Enabled= .t.

thisform.grid1.column4.Enabled= .t.

thisform.grid1.column5.Enabled= .t.

thisform.grid1.column6.Enabled= .t.

thisform.grid1.column7.Enabled= .t.

SELECT brgptun

replace brgptun.kbrgptun WITH thisform.text1.Value

replace brgptun.nmbrgptun WITH thisform.text2.Value

replace brgptun.typebrgptun WITH thisform.text3.Value

replace brgptun.pictfilebrgptun WITH thisform.text4.value

replace brgptun.vabrgptun WITH thisform.text5.Value

replace brgptun.pictfilewebbrgptun WITH thisform.text6.value

UNLOCK

ELSE

pp=MESSAGEBOX('Data sedang di pakai terminal lain oke!',16,'WARNING')

ENDIF

thisform.grid1.Refresh

thisform.tampildataptun

ELSE

thisform.grid1.column1.Enabled= .F.

thisform.grid1.column2.Enabled= .F.

thisform.grid1.column3.Enabled= .F.

thisform.grid1.column4.Enabled= .F.

thisform.grid1.column5.Enabled= .F.

thisform.grid1.column6.Enabled= .F.

thisform.grid1.column7.Enabled= .F.

UNLOCK

ENDIF

ELSE

thisform.command7.Caption='Edit'

thisform.grid1.column1.Enabled= .F.

thisform.grid1.column2.Enabled= .F.

thisform.grid1.column3.Enabled= .F.

thisform.grid1.column4.Enabled= .F.

thisform.grid1.column5.Enabled= .F.

thisform.grid1.column6.Enabled= .F.

thisform.grid1.column7.Enabled= .F.

UNLOCK

thisform.grid1.Refresh

thisform.tampildataptun

ENDIF

thisform.grid1.Refresh

ENDPROC

ëþòÿ Ò

‑ % *

‰

( 9

U C

4 %üô ô ôô

ø ðô ô ôô÷

ø ýùŠ þV ™üCû; Harus memilih salahsatunya Kode Barang atau Nama Barang Okeø0û Perhatianêxýþ

‑þ4 %üô ô ôô

øðô ô ôô÷

ø ýùþV ™üCû; Harus memilih salahsatunya Kode Barang atau Nama Barang Okeø0û Perhatianêxýþ

‑þ7 %üô ô ôô

øðô ô ôôô÷

ø ýù þF÷þG((ûkbrgptunþ

™ô ÷

™ô ô
÷
þ

™ô ô

÷
þTô ô
÷ ü-ýþ

‑þ7 %üô ô ôô÷

øðô ô ôôô÷

ø ýù)þF÷þG((û nmbrgptunþ

™ô ÷

™ô ô
÷
þ

™ô ô

÷
þTô ô
÷ ü-ýþ

‑þ7 %üô ô ôô

øðô ô ôôô÷

ø ýù²þF÷þG((ûkbrgptun<þ

™ô ÷

™ô ô
÷
þ

™ô ô

÷
þTô ô
÷ ü-ýþ

‑þ7 %üô ô ôô÷

øðô ô ôôô÷

ø ýù<

þF÷þG((û nmbrgptun<þ

™ô ÷

™ô ô
÷
þ

™ô ô

÷
þTô ô
÷ ü-ýþ

‑þ

U THISFORM

PAGEFRAME1PAGE3CHECK1VALUECHECK2
OPTIONGROUP1OPTION1BRGPTUNKBRGPTUN
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1COMMAND6ENABLED NMBRGPTUNOPTION2Click, ÿÿ1 B

aB C

aB w

q ¡ Ñ Ñ B r

q !£ Ò Ñ B y

q !¡ Ñ Ñ B r

q 1£ Ò Ñ B 6 ¢ ) Ò

ìþòÿ Ó Ó Ü % u Š

„ ü

U Tô ô ÷ üô ô

ýþ

U THISFORMIMAGE1PICTURETEXT4VALUEClick, ÿÿ1 ‘3 A ) Ó Form1.Pageframe1.Page4 label label Form1.Pageframe1.Page4

commandbutton

commandbutton Command8 Form1 WTop = 372

Left = 324

Height = 27

Width = 84

Caption = "Delete"

Name = "Command8"

JPROCEDURE Click

SET DELETED ON

pp=MESSAGEBOX('Apakah data akan dihapus!',36,'Informasion')

IF pp=6

SELECT brgptun

IF RLOCK()

DELETE

UNLOCK

ENDIF

thisform.grid1.Refresh

thisform.text1.Value=""

thisform.text2.Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.text6.Value=""

thisform.text1.SetFocus()

USE brgptun EXCLUSIVE

PACK

thisform.initialreccountbrgptun

USE

USE brgptun SHARED

SELECT brgptun

thisform.grid1.RecordSource="brgptun"

thisform.settinggrid1brgptun

ENDIF

ENDPROC

’þòÿ yy\ % ý 0
ü

U :Tô ô ôô

üÙ ýþ™ô ô ôô

÷þTô ô ôô÷

üø ýþ

™ô ÷þ4 %üô ô ôô÷

ø ðô ô ôô÷

ø ýù3þF÷ þG((þTô ô ôô

üÙ ýþTô ô ôô

üaýþTô ô
÷

ü-ýþ™üCô ô ôô

ö
ýþ

™ô ô

÷þ

™ô ô
÷þTô ô ôô÷

üø ýþTô ô ôô÷

üø ýþ

‑þ

U THISFORM

PAGEFRAME1PAGE2TEXT7VALUEREFRESHCHECK2
TAMPILDATAPTUNCHECK1BRGPTUNENABLEDCOMMAND6SETFOCUSOLEBOUNDCONTROL1GRID1Click, ÿÿ1 ‘1‘¢ C

q a “qaÒ Ñ “‘A 2 ‚ ) y Label1 label label Form1.Pageframe1.Page3

commandbutton

commandbutton Command9 Form1 UTop = 372

Left = 444

Height = 27

Width = 84

Caption = "Exit"

Name = "Command9"

_PROCEDURE Click

thisform.release

UNLOCK ALL

SELECT brgptun

SET FILTER TO

ENDPROC

ëþòÿ Ò Ò ŒÏ % r ‰

U % F÷ þ?ûreportbrgptun.frxÁ9þ

BRGPTUN

REPORTBRGPTUN

FRXClick, ÿÿ1 q ²1 S ) Ò

commandbutton

commandbutton Command12 Form1 XTop = 324

Left = 444

Height = 27

Width = 84

Caption = "Report"

Name = "Command12"

^PROCEDURE Click

SELECT brgptun

REPORT FORM reportbrgptun.frx NOCONSOLE PREVIEW

ENDPROC

èþòÿ Ï Ï ®' % k † z ü

™ô ÷ þZ

þF÷þG(þ

THISFORMRELEASEBRGPTUN Click, ÿÿ1 ¡ Q r a 3 T ) Ï

commandbutton

commandbutton Command13 Form1 ]Top = 180

Left = 768

Height = 27

Width = 91

Caption = "View Gambar"

Name = "Command13"

LPROCEDURE Click

thisform.image1.picture=thisform.text4.Value

ENDPROC

òPROCEDURE Click

pp=MESSAGEBOX('Apakah anda siap akan menghapus semua data ?!',36,'Informasion')

IF pp=6

thisform.pageframe1.page4.command8.Enabled=.t.

ELSE

thisform.pageframe1.page4.command8.Enabled=.f.

ENDIF

ENDPROC

image image Image1 Form1 PStretch = 1

Height = 144

Left = 768

Top = 216

Width = 156

Name = "Image1"

grid

grid Grid1 Form1 „ColumnCount = 7

HeaderHeight = 0

Height = 145

Left = 24

RecordSource = "brgptun"

Top = 444

Width = 744

Name = "Grid1"

Column1.ControlSource = ""

Column1.Width = 75

Column1.Name = "Column1"

Column2.ControlSource = ""

Column2.Width = 75

Column2.Name = "Column2"

Column3.ControlSource = ""

Column3.Width = 75

Column3.Name = "Column3"

Column4.ControlSource = ""

Column4.Width = 75

Column4.Name = "Column4"

Column5.ControlSource = ""

Column5.Width = 75

Column5.Name = "Column5"

Column6.ControlSource = ""

Column6.Width = 75

Column6.Name = "Column6"

Column7.ControlSource = ""

Column7.Width = 75

Column7.Name = "Column7"

}PROCEDURE AfterRowColChange

LPARAMETERS nColIndex

thisform.oleboundcontrol1.Refresh

thisform.tampildataptun

ENDPROC

†FontSize = 8

Caption = "Ket:disini untuk delete semua Data Barang "

Height = 12

Left = 11

Top = 8

Width = 204

Name = "Label17"

„FontSize = 8

Caption = "di filter tadi yang akan semua di delete"

Height = 12

Left = 11

Top = 32

Width = 204

Name = "Label2"

header header Header1 Form1.Grid1.Column1 (Caption = "Kbrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column1 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column2 )Caption = "Nmbrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column2 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column3 +Caption = "Typebrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column3 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column4 /Caption = "Pictfilebrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column4 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column5 +Caption = "Pictbrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column5 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column6 )Caption = "Vabrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column6 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

header header Header1 Form1.Grid1.Column7 2Caption = "Pictfilewebbrgptun"

Name = "Header1"

textbox textbox Text1 Form1.Grid1.Column7 YBorderStyle = 0

Margin = 0

ForeColor = 0,0,0

BackColor = 255,255,255

Name = "Text1"

oleboundcontrol oleboundcontrol Oleboundcontrol1 Form1 Top = 444

Left = 768

Height = 145

Width = 156

ControlSource = "brgptun.pictbrgptun"

Stretch = 1

Name = "Oleboundcontrol1"

commandbutton

commandbutton Command14 Form1 XTop = 372

Left = 564

Height = 27

Width = 84

Caption = "Filter"

Name = "Command14"

³PROCEDURE Click

SELECT brgptun

SET FILTER TO brgptun.nmbrgptun = ALLTRIM(thisform.text8.Value)

thisform.grid1.Refresh()

thisform.oleboundcontrol1.Refresh

ENDPROC

7þòÿ ‑ ‑ è’ % ¶ Õ Å ü

U A F÷ þ #÷ 6þ

™ô ÷þ

™ô ô

™ô ô÷

™ô ÷

U BRGPTUNTHISFORM
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1 Click, ÿÿ1 q ’ ¢ Ò Ñ ¡ 1 £ ) ‑ label

commandbutton

commandbutton Command15 Form1 \Top = 372

Left = 660

Height = 27

Width = 84

Caption = "End Filter"

Name = "Command15"

UPROCEDURE Click

SET FILTER TO

GO TOP IN brgptun

thisform.grid1.Refresh

ENDPROC

ƒFontSize = 8

Caption = "apabila data di filter maka data yang "

Height = 12

Left = 11

Top = 20

Width = 204

Name = "Label1"

Optiongroup1
optiongroup
optiongroup      Form1.Pageframe1.Page3      Label17      textbox      textbox      Text8      Form1      AHeight = 25

Left = 564

Top = 336

Width = 181

Name = "Text8"

commandbutton

commandbutton Command16 Form1 `Top = 384

Left = 768

Height = 27

Width = 96

Caption = "Append General"

Name = "Command16"

;PROCEDURE Click

IF EMPTY(thisform.text4.Value)

pe=MESSAGEBOX('Picture Filenya isi dulu dong ! dengan file gambar/ image misalnya: `d:/gambar.jpg` Oke',48,'perhatian')

thisform.text4.SetFocus()

RETURN

ENDIF

try

SELECT brgptun

APPEND GENERAL brgptun.pictbrgptun FROM alltrim(thisform.text4.Value)

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

CATCH

MESSAGEBOX('Penulisan alamat dir/urlnya file gambar/imagenya salah atau yang anda tulis bukan file gambar',16,'Informasi kesalahan')

FINALLY

thisform.text4.SetFocus()

endtry

ENDPROC

ïþòÿ Ö Ö ½ñ % f
u ü

U ³ F÷ þG((þTô ôô

÷ üÙ ýþTô ôô

÷ üaýþTô ô÷ ü-ýþ™üCô ôô

öýþ

™ô ô ÷

™ô ô
÷

þTô ôô

ô
÷ üø ýþTô ôô

÷ üø ýþ

U
BRGPTUNTHISFORM

PAGEFRAME1PAGE2TEXT7VALUEENABLEDCOMMAND6SETFOCUSOLEBOUNDCONTROL1REFRESHGRID1CHECK1CHECK2Click, ÿÿ1 q a “qaÒ Ñ “‘3 ‡ ) Ö ~FontSize = 8

Caption = "Ket: sort/ indeks berdasarkan ..."

Height = 17

Left = 23

Top = 20

Width = 180

Name = "Label17"

label Form1.Pageframe1.Page3 Check2 label label Label9 Form1 YCaption = "Kode Barang"

Height = 17

Left = 48

Top = 420

Width = 72

Name = "Label9"

label label Label10 Form1 [Caption = "Nama Barang"

Height = 17

Left = 144

Top = 420

Width = 84

Name = "Label10"

label label Label11 Form1 [Caption = "Type Barang"

Height = 17

Left = 264

Top = 420

Width = 72

Name = "Label11"

label label Label12 Form1 \Caption = "Picture File"

Height = 17

Left = 408

Top = 420

Width = 72

Name = "Label12"

label label Label13 Form1 YCaption = "VA Barang"

Height = 17

Left = 600

Top = 420

Width = 70

Name = "Label13"

label label Label14 Form1 [Caption = "Picture Web"

Height = 17

Left = 684

Top = 420

Width = 72

Name = "Label14"

label label Label15 Form1 WCaption = "Picture"

Height = 17

Left = 540

Top = 420

Width = 48

Name = "Label15"

line

line Line1 Form1 ?Height = 0

Left = 24

Top = 420

Width = 744

Name = "Line1"

line

line Line2 Form1 >Height = 24

Left = 24

Top = 420

Width = 0

Name = "Line2"

line

line Line3 Form1 ?Height = 24

Left = 132

Top = 420

Width = 0

Name = "Line3"

line

line Line4 Form1 ?Height = 24

Left = 252

Top = 420

Width = 0

Name = "Line4"

line

line Line5 Form1 ?Height = 24

Left = 372

Top = 420

Width = 0

Name = "Line5"

line

line Line6 Form1 ?Height = 24

Left = 540

Top = 420

Width = 0

Name = "Line6"

line

line Line7 Form1 ?Height = 24

Left = 588

Top = 420

Width = 0

Name = "Line7"

line

line Line8 Form1 ?Height = 24

Left = 672

Top = 420

Width = 0

Name = "Line8"

line

line Line9 Form1 ?Height = 24

Left = 768

Top = 420

Width = 0

Name = "Line9"

line

line Line10 Form1 ?Height = 24

Left = 36

Top = 420

Width = 0

Name = "Line10"

label label Label16 Form1 „FontSize = 8

Caption = " Ket: ke format file exel 2003 (.xls)"

Height = 17

Left = 756

Top = 144

Width = 168

Name = "Label16"

commandbutton

commandbutton Command17 Form1 ZTop = 84

Left = 756

Height = 27

Width = 60

Caption = "Export to"

Name = "Command17"

xPROCEDURE Click

IF EMPTY(thisform.text9.Value) then

MESSAGEBOX('Isi dulu alamat dir/urlnya misalnya:`C:/fileexport.xls` atau ke folder anda !, Keterangan lainnya: apabila ada kesalahan penulisan maka fileexport.xls tadi akan disimpan pada folder program files aplikasi ini',48,'Perhatian')

thisform.text9.SetFocus()

thisform.text9.Value='C:/fileexport.xls'

else

p=MESSAGEBOX('Apakah data ingin di export',4+64,'Informasi')

IF p=6

SELECT brgptun

EXPORT TO ALLTRIM(thisform.text9.Value) TYPE xl5 FIELDS kbrgptun,nmbrgptun,typebrgptun,pictfilebrgptun,pictbrgptun,vabrgptun,pictfilewebbrgptun

ENDIF

endif

ENDPROC

×þòÿ ¾¾T

% Du Sü

U F÷ þ

™ô ô÷

þTô ô

÷ üô ÷ýþTô ô÷ üô ÷ýþTô ô ÷ üô ÷

ýþTô ô
÷ üô ÷
ýþTô ô

÷ üô ÷
ýþTô ô÷ üô ÷ýþTô ô÷ üô ÷
ýþ

™ô ÷þ
%üC+ýùþ4 T÷ üCû Data tidak ada lagi !ø0û PerhatianêxýþTô ô ôô÷ ü-ýþ

‑þ

U BRGPTUNTHISFORMGRID1REFRESHTEXT1VALUEKBRGPTUNTEXT2 NMBRGPTUNTEXT3
TYPEBRGPTUNTEXT4PICTFILEBRGPTUNTEXT5 VABRGPTUNTEXT6PICTFILEWEBBRGPTUNIMAGE1PICTUREINITIALRECCOUNTBRGPTUNPE

PAGEFRAME1PAGE1 COMMAND19ENABLEDClick, ÿÿ1 q A Ñ baaaaaa£ Á B

rC 1 & ) ¾ checkbox checkbox Form1.Pageframe1.Page3 textbox textbox Text9 Form1 AHeight = 25

Left = 756

Top = 120

Width = 169

Name = "Text9"

label label Label8 Form1 yFontSize = 8

Caption = "Filter Nama Barang disini :"

Height = 17

Left = 564

Top = 312

Width = 180

Name = "Label8"

image image Image2 Form1 gPicture = gambar\formico\actifast.png

Height = 22

Left = 468

Top = 36

Width = 40

Name = "Image2"

label label Label18 Form1 `Alignment = 1

Caption = ""

Height = 17

Left = 192

Top = 300

Width = 132

Name = "Label18"

label label Label19 Form1 TCaption = "Dari"

Height = 17

Left = 336

Top = 300

Width = 24

Name = "Label19"

label label Label20 Form1 `Alignment = 0

Caption = ""

Height = 17

Left = 360

Top = 300

Width = 132

Name = "Label20"

pageframe pageframe

Pageframe1 Form1 "ErasePage = .T.

PageCount = 4

Top = 84

Left = 480

Width = 228

Height = 180

Name = "Pageframe1"

Page1.Caption = "Find1"

Page1.Name = "Page1"

Page2.Caption = "Find2"

Page2.Name = "Page2"

Page3.Caption = "Sort"

Page3.Name = "Page3"

Page4.Caption = "Delete"

Page4.Name = "Page4"

shape shape Shape2 Form1.Pageframe1.Page1 @Top = 8

Left = 11

Height = 132

Width = 204

Name = "Shape2"

textbox textbox Text7 Form1.Pageframe1.Page1 yHeight = 25

Left = 23

ToolTipText = "Find/ cari Nama Barang di text ini oke :"

Top = 68

Width = 181

Name = "Text7"

commandbutton

commandbutton Command10 Form1.Pageframe1.Page1 UTop = 104

Left = 23

Height = 24

Width = 36

Caption = "Find"

Name = "Command10"

ùPROCEDURE Click

IF thisform.pageframe1.page1.check1.Value=0.and.thisform.pageframe1.page1.check2.Value=0

p=MESSAGEBOX('Harus memilih salahsatunya di indeks atau tanpa di indeks Oke',48,'Perhatian')

IF p=6

thisform.pageframe1.page1.text7.SetFocus()

ENDIF

IF thisform.pageframe1.page1.check1.Value=1.and.thisform.pageframe1.page1.check2.Value=1

p=MESSAGEBOX('Harus memilih salahsatunya di indeks atau tanpa di indeks Oke',48,'Perhatian')

IF p=6

thisform.pageframe1.page1.text7.SetFocus()

ENDIF

IF thisform.pageframe1.page1.check1.Value=1 then

SELECT brgptun

SET ORDER TO tag kbrgptun

SEEK (ALLTRIM(thisform.pageframe1.page1.text7.Value))

IF FOUND()

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

SELECT brgptun

SET ORDER TO

ELSE

MESSAGEBOX('Datanya tidak ada',48,'Informasi')

thisform.pageframe1.page1.text7.SetFocus()

SET ORDER TO

ENDIF

thisform.command6.Enabled=.f.

ENDIF

IF thisform.pageframe1.page1.check2.Value=1 then

SELECT brgptun

LOCATE FOR brgptun.kbrgptun=(ALLTRIM(thisform.pageframe1.page1.text7.Value))

IF FOUND()

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page1.command19.Enabled=.t.

ELSE

MESSAGEBOX('Datanya tidak ada',48,'Informasi')

thisform.pageframe1.page1.text7.SetFocus()

ENDIF

thisform.command6.Enabled=.f.

endif

ENDPROC

’þòÿ yy\ % ý 0
ü

U :Tô ô ôô

üÙ ýþ™ô ô ôô

÷þTô ô ôô÷

üø ýþ

™ô ÷þ4 %üô ô ôô÷

ø ðô ô ôô÷

ø ýù3þF÷ þG((þTô ô ôô

üÙ ýþTô ô ôô

üaýþTô ô
÷

ü-ýþ™üCô ô ôô

ö
ýþ

™ô ô

÷þ

™ô ô
÷þTô ô ôô÷

üø ýþTô ô ôô÷

üø ýþ

‑þ

U THISFORM

PAGEFRAME1PAGE1TEXT7VALUEREFRESHCHECK2
TAMPILDATAPTUNCHECK1BRGPTUNENABLEDCOMMAND6SETFOCUSOLEBOUNDCONTROL1GRID1Click, ÿÿ1 ‘1‘¢ C

q a “qaÒ Ñ “‘A 2 ‚ ) y ïþòÿ Ö Ö ½ñ % f
u ü

U ³ F÷ þG((þTô ôô

÷ üÙ ýþTô ôô

÷ üaýþTô ô÷ ü-ýþ™üCô ôô

öýþ

™ô ô ÷

™ô ô
÷

þTô ôô

ô
÷ üø ýþTô ôô

÷ üø ýþ

U
BRGPTUNTHISFORM

PAGEFRAME1PAGE1TEXT7VALUEENABLEDCOMMAND6SETFOCUSOLEBOUNDCONTROL1REFRESHGRID1CHECK1CHECK2Click, ÿÿ1 q a “qaÒ Ñ “‘3 ‡ ) Ö vTop = 44

Left = 107

Height = 17

Width = 96

FontSize = 8

Alignment = 0

Caption = "Nama Barang"

Name = "Check2"

commandbutton

commandbutton Command11 Form1.Pageframe1.Page1 YTop = 104

Left = 59

Height = 24

Width = 60

Caption = "End Find"

Name = "Command11"

’PROCEDURE Click

SELECT brgptun

SET ORDER TO

thisform.pageframe1.page1.text7.Value=""

thisform.pageframe1.page1.text7.Enabled=.t.

thisform.command6.Enabled=.f.

thisform.pageframe1.page1.text7.SetFocus()

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page1.check1.Value=0

thisform.pageframe1.page1.check2.Value=0

ENDPROC

þòÿ ” ” ×s % K + ü

U § F÷ þ

%üC+

ýùa þ

Hþ
%üC+ýù] þ0 ™üCû Sudah di akhir recordø0û Informasiêxýþ #÷ 6þ

‑þ ùr þ #÷ 6þ

‑þ

™ô ÷þ

™ô ô

™ô ô÷

™ô ÷

U BRGPTUNTHISFORM
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1 Click, ÿÿ1 q Ò A Â

‘ B ‚ ‘ B ¢ Ò Ñ ¡ 1 = ) ” Check1 checkbox checkbox Command11 checkbox checkbox Check1 Form1.Pageframe1.Page1 sTop = 44

Left = 23

Height = 17

Width = 60

FontSize = 8

Alignment = 0

Caption = "di indeks"

Name = "Check1"

PROCEDURE Click

thisform.pageframe1.page1.text7.Value=""

thisform.pageframe1.page1.text7.Refresh

thisform.pageframe1.page1.check2.Value=0

thisform.tampildataptun

IF thisform.pageframe1.page1.check1.Value=0.and.thisform.pageframe1.page1.check2.Value=0

SELECT brgptun

SET ORDER TO

thisform.pageframe1.page1.text7.Value=""

thisform.pageframe1.page1.text7.Enabled=.t.

thisform.command6.Enabled=.f.

thisform.pageframe1.page1.text7.SetFocus()

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page1.check1.Value=0

thisform.pageframe1.page1.check2.Value=0

ENDIF

ENDPROC

4þòÿ ”_ % £ Ò ² ü

U ø %üô ô ÷û

AddýùÉ þTô ô ÷ üû CancelAddýþTô ô

üÙ ýþTô ô÷

üÙ ýþTô ô ÷

üÙ ýþ™üCô ô

ýþTô ô
÷
üaýþ ùñ þTô ô ÷ üû

Addýþ

™ô ÷

‑þ

U
THISFORMCOMMAND5CAPTIONTEXT1VALUETEXT2TEXT3TEXT4TEXT5TEXT6SETFOCUSCOMMAND6ENABLED
TAMPILDATAPTUNClick, ÿÿ1 ¡Á311111„ b¡ C 1 ˜ ) ZTop = 104

Left = 131

Height = 27

Width = 72

Caption = "End Sort"

Name = "Command11"

checkbox checkbox Check2 Form1.Pageframe1.Page1 zTop = 44

Left = 107

Height = 17

Width = 96

FontSize = 8

Alignment = 0

Caption = "tanpa di indeks"

Name = "Check2"

²PROCEDURE Click

thisform.pageframe1.page1.text7.Value=""

thisform.pageframe1.page1.text7.Refresh

thisform.pageframe1.page1.check1.Value=0

thisform.tampildataptun

ENDPROC

7þòÿ ‑ ‑ è’ % ¶ Õ Å ü

U A F÷ þ #÷ )þ

™ô ÷þ

™ô ô

™ô ô÷

™ô ÷

U BRGPTUNTHISFORM
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1 Click, ÿÿ1 q “ ¢ Ò Ñ ¡ 1 ¢ ) ‑ Command10 label label Label17 Form1.Pageframe1.Page1 €FontSize = 8

Caption = "Ket: disini untuk cari Kode Barang "

Height = 17

Left = 23

Top = 20

Width = 180

Name = "Label17"

commandbutton

commandbutton Command19 Form1.Pageframe1.Page1 `Top = 104

Left = 119

Height = 24

Width = 84

Caption = "Continue/ lagi"

Name = "Command19"

1PROCEDURE Click

SELECT brgptun

CONTINUE

thisform.grid1.Refresh

thisform.text1.Value=brgptun.kbrgptun

thisform.text2.Value=brgptun.nmbrgptun

thisform.text3.Value=brgptun.typebrgptun

thisform.text4.Value=brgptun.pictfilebrgptun

thisform.text5.Value=brgptun.vabrgptun

thisform.text6.Value=brgptun.pictfilewebbrgptun

thisform.image1.picture=brgptun.pictfilebrgptun

thisform.initialreccountbrgptun

IF EOF()

pe=MESSAGEBOX('Data tidak ada lagi !',48,'Perhatian')

thisform.pageframe1.page1.command19.Enabled=.f.

ENDIF

ENDPROC

¯þòÿ ––NÄ % M +ü

U Ž %üCô ô ÷¡ýùŸ þv T÷

üCûW Picture Filenya isi dulu dong ! dengan file gambar/ image misalnya: `d:/gambar.jpg` Okeø0û perhatianêxýþ™üCô ô ö

ýþ

Bþ

‑þºùå þF÷þ Õô÷ üCô ô ÷›ýþ

™ô ô÷þ

™ô ô ÷þ»ùoþ‚ ™üCû] Penulisan alamat dir/urlnya file gambar/imagenya salah atau yang anda tulis bukan file gambarøûInformasi kesalahanêxýþ¼ù‡þ™üCô ô ö

ýþ

¾þ

THISFORMTEXT4VALUEPESETFOCUSBRGPTUN
PICTBRGPTUNOLEBOUNDCONTROL1REFRESHGRID1Click, ÿÿ1 QaA A ‚ q ‘Ò Ñ ! A 1 0 ) – Form1.Pageframe1.Page3 shape shape shape Shape2 Form1.Pageframe1.Page2 @Top = 8

Left = 10

Height = 132

Width = 204

Name = "Shape2"

textbox textbox Text7 Form1.Pageframe1.Page2 yHeight = 25

Left = 22

ToolTipText = "Find/ cari Nama Barang di text ini oke :"

Top = 68

Width = 181

Name = "Text7"

commandbutton

commandbutton Command10 Form1.Pageframe1.Page2 UTop = 104

Left = 22

Height = 24

Width = 37

Caption = "Find"

Name = "Command10"

÷PROCEDURE Click

IF thisform.pageframe1.page2.check1.Value=0.and.thisform.pageframe1.page2.check2.Value=0

p=MESSAGEBOX('Harus memilih salahsatunya di indeks atau tanpa di indeks Oke',48,'Perhatian')

IF p=6

thisform.pageframe1.page2.text7.SetFocus()

ENDIF

IF thisform.pageframe1.page2.check1.Value=1.and.thisform.pageframe1.page2.check2.Value=1

p=MESSAGEBOX('Harus memilih salahsatunya di indeks atau tanpa di indeks Oke',48,'Perhatian')

IF p=6

thisform.pageframe1.page2.text7.SetFocus()

ENDIF

IF thisform.pageframe1.page2.check1.Value=1 then

SELECT brgptun

SET ORDER TO tag nmbrgptun

SEEK (ALLTRIM(thisform.pageframe1.page2.text7.Value))

IF FOUND()

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

SELECT brgptun

SET ORDER TO

ELSE

MESSAGEBOX('Datanya tidak ada',48,'Informasi')

thisform.pageframe1.page2.text7.SetFocus()

SET ORDER TO

ENDIF

thisform.command6.Enabled=.f.

ENDIF

IF thisform.pageframe1.page2.check2.Value=1 then

SELECT brgptun

LOCATE FOR brgptun.nmbrgptun=(ALLTRIM(thisform.pageframe1.page2.text7.Value))

IF FOUND()

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page2.command19.Enabled=.t.

ELSE

MESSAGEBOX('Datanya tidak ada',48,'Informasi')

thisform.pageframe1.page2.text7.SetFocus()

ENDIF

thisform.command6.Enabled=.f.

endif

ENDPROC

þòÿ ñ

x % ?

- N

U c

4 %üô ô ôô

ø ðô ô ôô÷

ø ýù» þ\ T÷ üCû= Harus memilih salahsatunya di indeks atau tanpa di indeks Okeø0û Perhatianêxýþ%ü÷øýù· þ™üCô ô ôôöýþ

‑þ

‑þ4 %üô ô ôô

øðô ô ôô÷

ø ýùzþ\ T÷ üCû= Harus memilih salahsatunya di indeks atau tanpa di indeks Okeø0û Perhatianêxýþ%ü÷øýùvþ™üCô ô ôôöýþ

‑þ

‑þ%üô ô ôô

øýùnþF÷ þG((û nmbrgptunþEüCô ô ôô÷

›

ýþ
%üC4ýù þ

™ô ÷
þ

™ô ô
÷

þF÷ þG((þ ùYþ, ™üCûDatanya tidak adaø0û Informasiêxýþ™üCô ô ôôöýþG((þ

‑þTô ô÷ ü-ýþ

‑þ%üô ô ôô÷

øýù\

þF÷ þ -üô ÷

Cô ô ôô÷

›

ýþ
%üC4ýùýþ

™ô ÷
þ

™ô ô
÷

þTô ô ôô÷ üaýþ ùG

þ, ™üCûDatanya tidak adaø0û Informasiêxýþ™üCô ô ôôöýþ

‑þTô ô÷ ü-ýþ

‑þ

U THISFORM

PAGEFRAME1PAGE2CHECK1VALUECHECK2 PTEXT7SETFOCUSBRGPTUN NMBRGPTUN
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1COMMAND6ENABLED COMMAND19Click, ÿÿ1 B

ÁaA A C

ÁaA A ×q !Á ¡ Ò Ñ q a Âaa A B Ôq Á ¡ Ò Ñ q ÂaA B 1 ì ) ñ

commandbutton

commandbutton Command11 Form1.Pageframe1.Page2 YTop = 104

Left = 59

Height = 24

Width = 60

Caption = "End Find"

Name = "Command11"

’PROCEDURE Click

SELECT brgptun

SET ORDER TO

thisform.pageframe1.page2.text7.Value=""

thisform.pageframe1.page2.text7.Enabled=.t.

thisform.command6.Enabled=.f.

thisform.pageframe1.page2.text7.SetFocus()

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page2.check1.Value=0

thisform.pageframe1.page2.check2.Value=0

ENDPROC

²þòÿ ™ ™ ¤² % ! P 0 ü

U ¬ F÷ þ

%üC‑

ýùf þ

Hüùÿÿýþ
%üC‑ýùb þ/ ™üCûSudah di awal recordø0û Informasiêxýþ #÷ )þ

‑þ ùw þ #÷ )þ

‑þ

™ô ÷þ

™ô ô

™ô ô÷

™ô ÷

U BRGPTUNTHISFORM
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1Click, ÿÿ1 q Ò ¡ Â ñ‘ B ’ B ¢ Ò Ñ ¡ 1 6 ) ™

commandbutton

commandbutton Shape2 checkbox checkbox Check1 Form1.Pageframe1.Page2 sTop = 44

Left = 22

Height = 17

Width = 60

FontSize = 8

Alignment = 0

Caption = "di indeks"

Name = "Check1"

PROCEDURE Click

thisform.pageframe1.page2.text7.Value=""

thisform.pageframe1.page2.text7.Refresh

thisform.pageframe1.page2.check2.Value=0

thisform.tampildataptun

IF thisform.pageframe1.page2.check1.Value=0.and.thisform.pageframe1.page2.check2.Value=0

SELECT brgptun

SET ORDER TO

thisform.pageframe1.page2.text7.Value=""

thisform.pageframe1.page2.text7.Enabled=.t.

thisform.command6.Enabled=.f.

thisform.pageframe1.page2.text7.SetFocus()

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page2.check1.Value=0

thisform.pageframe1.page2.check2.Value=0

ENDIF

ENDPROC

”ButtonCount = 2

Value = 1

ControlSource = ""

Height = 48

Left = 23

Top = 68

Width = 96

Name = "Optiongroup1"

Option1.Caption = "Ascending"

Option1.Value = 1

Option1.Height = 17

Option1.Left = 5

Option1.Top = 5

Option1.Width = 79

Option1.Name = "Option1"

Option2.Caption = "Descending"

Option2.Height = 17

Option2.Left = 5

Option2.Top = 24

Option2.Width = 91

Option2.Name = "Option2"

uTop = 44

Left = 23

Height = 17

Width = 84

FontSize = 8

Alignment = 0

Caption = "Kode Barang"

Name = "Check1"

]Top = 68

Left = 131

Height = 27

Width = 72

Caption = "Sort/ Indeks"

Name = "Command10"

Form1.Pageframe1.Page3 checkbox checkbox Check2 Form1.Pageframe1.Page2 zTop = 44

Left = 106

Height = 17

Width = 96

FontSize = 8

Alignment = 0

Caption = "tanpa di indeks"

Name = "Check2"

²PROCEDURE Click

thisform.pageframe1.page2.text7.Value=""

thisform.pageframe1.page2.text7.Refresh

thisform.pageframe1.page2.check1.Value=0

thisform.tampildataptun

ENDPROC

PROCEDURE Click

SELECT brgptun

SET ORDER TO

thisform.command6.Enabled=.f.

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page3.check1.Value=0

thisform.pageframe1.page3.check2.Value=0

ENDPROC

commandbutton

commandbutton Form1.Pageframe1.Page3 label label Label17 Form1.Pageframe1.Page2 €FontSize = 8

Caption = "Ket: disini untuk cari Nama Barang "

Height = 17

Left = 22

Top = 20

Width = 180

Name = "Label17"

commandbutton

commandbutton Command19 Form1.Pageframe1.Page2 `Top = 104

Left = 119

Height = 24

Width = 84

Caption = "Continue/ lagi"

Name = "Command19"

1PROCEDURE Click

SELECT brgptun

CONTINUE

thisform.grid1.Refresh

thisform.text1.Value=brgptun.kbrgptun

thisform.text2.Value=brgptun.nmbrgptun

thisform.text3.Value=brgptun.typebrgptun

thisform.text4.Value=brgptun.pictfilebrgptun

thisform.text5.Value=brgptun.vabrgptun

thisform.text6.Value=brgptun.pictfilewebbrgptun

thisform.image1.picture=brgptun.pictfilebrgptun

thisform.initialreccountbrgptun

IF EOF()

pe=MESSAGEBOX('Data tidak ada lagi !',48,'Perhatian')

thisform.pageframe1.page2.command19.Enabled=.f.

ENDIF

ENDPROC

Õþòÿ ¼¼z- % .s =ü

U aG þ: T÷ üCûApakah data akan dihapus!ø$û
Informasionêxýþ%ü÷ øýùZþF÷ þ
%üCSýùl þ

Zþ

‑þ

™ôô

þTôô÷ üÙ ýþTôô÷ üÙ ýþTôô÷ üÙ ýþTôô ÷ üÙ ýþTôô

÷ üÙ ýþTôô
÷ üÙ ýþ™üCôôö
ýþQ¼ûbrgptunþ

3þ

™ô÷

QþQÂûbrgptunþF÷ þTôô

÷
üÙbrgptunýþ

™ô÷þ

‑þ

U PPBRGPTUNTHISFORMGRID1REFRESHTEXT1VALUETEXT2TEXT3TEXT4TEXT5TEXT6SETFOCUSINITIALRECCOUNTBRGPTUN
RECORDSOURCESETTINGGRID1BRGPTUNClick, ÿÿ1 b ¢

q Ã A A A Ô 211111ò A ¢ A ñ q ¡¡ A 2 ? ) ¼ shape @Top = 8

Left = 11

Height = 132

Width = 204

Name = "Shape2"

PROCEDURE Click

IF thisform.pageframe1.page3.check1.Value=0.and.thisform.pageframe1.page3.check2.Value=0

MESSAGEBOX('Harus memilih salahsatunya Kode Barang atau Nama Barang Oke',48,'Perhatian')

ENDIF

IF thisform.pageframe1.page3.check1.Value=1.and.thisform.pageframe1.page3.check2.Value=1

MESSAGEBOX('Harus memilih salahsatunya Kode Barang atau Nama Barang Oke',48,'Perhatian')

ENDIF

IF thisform.pageframe1.page3.check1.Value=1 .and. thisform.pageframe1.page3.optiongroup1.option1.Value=1 then

SELECT brgptun

SET ORDER TO tag kbrgptun

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.command6.Enabled=.f.

ENDIF

IF thisform.pageframe1.page3.check2.Value=1 .and. thisform.pageframe1.page3.optiongroup1.option1.Value=1 then

SELECT brgptun

SET ORDER TO tag nmbrgptun

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.command6.Enabled=.f.

ENDIF

IF thisform.pageframe1.page3.check1.Value=1 .and. thisform.pageframe1.page3.optiongroup1.option2.Value=1 then

SELECT brgptun

SET ORDER TO tag kbrgptun DESCENDING

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.command6.Enabled=.f.

ENDIF

IF thisform.pageframe1.page3.check2.Value=1 .and. thisform.pageframe1.page3.optiongroup1.option2.Value=1 then

SELECT brgptun

SET ORDER TO tag nmbrgptun DESCENDING

thisform.tampildataptun

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.command6.Enabled=.f.

ENDIF

ENDPROC

þòÿ ï

™¤ % =

- L

U b

4 %üô ô ôô

ø ðô ô ôô÷

ø ýù» þ\ T÷ üCû= Harus memilih salahsatunya di indeks atau tanpa di indeks Okeø0û Perhatianêxýþ%ü÷øýù· þ™üCô ô ôôöýþ

‑þ

‑þ4 %üô ô ôô

øðô ô ôô÷

ø ýùzþ\ T÷ üCû= Harus memilih salahsatunya di indeks atau tanpa di indeks Okeø0û Perhatianêxýþ%ü÷øýùvþ™üCô ô ôôöýþ

‑þ

‑þ%üô ô ôô

øýùmþF÷ þG((ûkbrgptunþEüCô ô ôô÷

›

ýþ
%üC4ýùþ

™ô ÷
þ

™ô ô
÷

þF÷ þG((þ ùXþ, ™üCûDatanya tidak adaø0û Informasiêxýþ™üCô ô ôôöýþG((þ

‑þTô ô÷ ü-ýþ

‑þ%üô ô ôô÷

øýù[

þF÷ þ -üô ÷

Cô ô ôô÷

›

ýþ
%üC4ýùüþ

™ô ÷
þ

™ô ô
÷

þTô ô ôô÷ üaýþ ùF

þ, ™üCûDatanya tidak adaø0û Informasiêxýþ™üCô ô ôôöýþ

‑þTô ô÷ ü-ýþ

‑þ

U THISFORM

PAGEFRAME1PAGE1CHECK1VALUECHECK2 PTEXT7SETFOCUSBRGPTUNKBRGPTUN
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1COMMAND6ENABLED COMMAND19Click, ÿÿ1 B

ÁaA A C

ÁaA A ×q Á ¡ Ò Ñ q a Âab A B Ôq Á ¡ Ò Ñ q ÂaA B 1 î ) ï

þòÿ øøbÆ % †¯

•ü

U É %üCô ô ÷¡ýù4þë ™üCûÐ Isi dulu alamat dir/urlnya misalnya:`C:/fileexport.xls` atau ke folder anda !, Keterangan lainnya: apabila ada kesalahan penulisan maka fileexport.xls tadi akan disimpan pada folder program files aplikasi iniø0û Perhatianêxýþ™üCô ô ö

ýþ$ Tô ô ÷ üûC:/fileexport.xlsýþ ùÂþ: T÷

üCûApakah data ingin di exportø

Dû Informasiêxýþ%ü÷

øýù¾þF÷þ0 V(üCô ô ÷›ý÷ ÷ ÷ ÷ ÷

÷
÷
Ô»þ

‑þ

THISFORMTEXT9VALUESETFOCUS PBRGPTUNKBRGPTUN NMBRGPTUN
TYPEBRGPTUNPICTFILEBRGPTUN
PICTBRGPTUN VABRGPTUNPICTFILEWEBBRGPTUNClick, ÿÿ1 Q±
A ¢

B A 1 m ) ø ¯PROCEDURE Click

thisform.pageframe1.page3.check1.Value=0

thisform.tampildataptun

IF thisform.pageframe1.page3.check1.Value=0.and.thisform.pageframe1.page3.check2.Value=0

SELECT brgptun

SET ORDER TO

thisform.command6.Enabled=.f.

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page3.check1.Value=0

thisform.pageframe1.page3.check2.Value=0

ENDIF

ENDPROC

PROCEDURE Click

thisform.pageframe1.page3.check2.Value=0

thisform.tampildataptun

IF thisform.pageframe1.page3.check1.Value=0.and.thisform.pageframe1.page3.check2.Value=0

SELECT brgptun

SET ORDER TO

thisform.command6.Enabled=.f.

thisform.oleboundcontrol1.Refresh

thisform.grid1.Refresh

thisform.pageframe1.page3.check1.Value=0

thisform.pageframe1.page3.check2.Value=0

ENDIF

ENDPROC

9þòÿ ó] % V×9 eü

%üô ô ÷û

Editýù4

þTô ô ÷ üû

CancelEditýþTô ô

üaýþTô ô÷

üaýþTô ô ÷

üaýþ[ T÷

üCû< Apakah anda yakin, data ini akan di edit atau save changes ?ø

$û Informasiêxýþ%ü÷

øýù˜þ
%üCSýù1þTô ô
ô
÷

üaýþTô ô
ô

üaýþTô ô
ô
÷

üaýþTô ô
ô÷

üaýþF÷þ>ô÷Ñüô ô

÷ ýþ>ô÷Ñüô ô÷ ýþ>ô÷Ñüô ô÷ ýþ>ô÷Ñüô ô÷ ýþ>ô÷Ñüô ô÷ ýþ>ô÷Ñüô ô ÷ ýþ

Zþ ù}þD T÷ üCû' Data sedang di pakai terminal lain oke!øûWARNINGêxýþ

‑þ

™ô ô
÷þ

™ô ÷þ ù0

þTô ô
ô
÷

ü-ýþTô ô
ô

ü-ýþTô ô
ô
÷

ü-ýþTô ô
ô÷

ü-ýþ

Zþ

‑þ ùú

þTô ô ÷ üû

EditýþTô ô
ô
÷

ü-ýþTô ô
ô

ü-ýþTô ô
ô
÷

ü-ýþTô ô
ô÷

ü-ýþ

Zþ

™ô ô
÷þ

™ô ÷þ

‑þ

™ô ô
÷þ

U‑ THISFORMCOMMAND7CAPTIONTEXT1ENABLEDTEXT2TEXT3TEXT4TEXT5TEXT6 PGRID1COLUMN1COLUMN2COLUMN3COLUMN4COLUMN5COLUMN6COLUMN7BRGPTUNKBRGPTUNVALUE NMBRGPTUN
TYPEBRGPTUNPICTFILEBRGPTUN VABRGPTUNPICTFILEWEBBRGPTUNPPREFRESH
TAMPILDATAPTUNClick, ÿÿ1 ±Ñ³Á AAAAAAAr baaaaaA A

A Ò ¡ AAAAAAAA B qCAAAAAAA Ñ ¡ A Ñ 1 ù )

tþòÿ [

[

ŸË % ·

& Æ

U ’ %üCô ô ÷¡ýùn þE T÷

üCû& Kode Barang masih kosong, isi dulu Okeø0û perhatianêxýþ™üCô ô ö

ýþ

Bþ

‑þF÷þ-ü÷Cô ô ÷›

ýþ
%üC4ýù

þD T÷ üCû% Data ada (Kode Barangnya sudah ada)!ø0û perhatianêxýþ

™ô ÷þ

™ô ô ÷

™ô ô
÷

þ ù‹þ/ T÷
üCûInggin di simpanø

Dû Informasiêxýþ%ü÷
øýù‡þF÷þ #÷6þ þ>ô÷Ñüô ô ÷ýþ>ô÷

Ñüô ô
÷ýþ>ô÷Ñüô ô÷ýþ>ô÷Ñüô ô÷ýþ>ô÷Ñüô ô÷ýþ>ô÷ Ñüô ô÷ýþ #÷6þ

™ô ô
÷

þTô ô ÷ üÙ ýþTô ô
÷ üÙ ýþTô ô÷ üÙ ýþTô ô÷ üÙ ýþTô ô÷ üÙ ýþTô ô÷ üÙ ýþ™üCô ô ö

ýþ

™ô ÷þ

‑þ

U THISFORMTEXT1VALUEPESETFOCUSBRGPTUNKBRGPTUNPP
TAMPILDATAPTUNOLEBOUNDCONTROL1REFRESHGRID1 P NMBRGPTUNTEXT2
TYPEBRGPTUNTEXT3PICTFILEBRGPTUNTEXT4 VABRGPTUNTEXT5PICTFILEWEBBRGPTUNTEXT6INITIALRECCOUNTBRGPTUNClick, ÿÿ1 QQ

A A r sÁ A

¡ Ò Ñ ‚ üq ’ Q aaaaaa’ Ñ 211111¡ A C 1 •

) [

ÇPROCEDURE Click

SET DELETED ON

pp=MESSAGEBOX('Apakah anda yakin data akan dihapus semua ?!',36,'Informasion')

IF pp=6

SELECT brgptun

IF FLOCK()

DELETE ALL

UNLOCK

ENDIF

thisform.grid1.Refresh

thisform.text1.Value=""

thisform.text2.Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.text6.Value=""

thisform.text1.SetFocus()

USE brgptun EXCLUSIVE

PACK

thisform.initialreccountbrgptun

USE

USE brgptun SHARED

SELECT brgptun

thisform.grid1.RecordSource="brgptun"

thisform.settinggrid1brgptun

thisform.pageframe1.page4.command8.Enabled=.f.

ELSE

thisform.pageframe1.page4.command8.Enabled=.f.

ENDIF

ENDPROC

åþòÿ ÌÌ % '3C ü

U ½F÷ þTô ô÷

üô ÷

ýþTô ô÷

üô ÷ýþTô ô÷

üô ÷ýþTô ô ÷

üô ÷

ýþTô ô
÷

üô ÷
ýþTô ô

üô ÷
ýþTô ô÷ üô ÷

ýþTô ôô÷ ü-ýþTô ôô÷ ü-ýþTô ôô ÷ ü-ýþTô ôô÷ ü-ýþTô ôô÷ ü-ýþTô ôô÷ ü-ýþTô ôô÷ ü-ýþTô ô÷ ü-ýþTô ô÷ üû

AddýþTô ô÷ üû

Editýþ

™ô ÷‑ þTô ô ô ô! ÷ ü-ýþTô ô ô" ô! ÷ ü-ýþTô ô ô# ô$ ÷ ü-ýþ

U% BRGPTUNTHISFORMTEXT1VALUEKBRGPTUNTEXT2 NMBRGPTUNTEXT3
TYPEBRGPTUNTEXT4PICTFILEBRGPTUNTEXT5 VABRGPTUNTEXT6PICTFILEWEBBRGPTUNIMAGE1PICTUREGRID1COLUMN1ENABLEDCOLUMN2COLUMN3COLUMN4COLUMN5COLUMN6COLUMN7COMMAND6COMMAND5CAPTIONCOMMAND7INITIALRECCOUNTBRGPTUN

PAGEFRAME1PAGE1 COMMAND19PAGE2PAGE4COMMAND8 Tô ô ô÷

üøYýþTô ô ô

üø

wýþTô ô ô÷

üø

wýþTô ô ô÷

üø

§ýþTô ô ô÷

üø/ýþTô ô ô÷

üøSýþTô ô ô ÷

üøPýþ

THISFORMGRID1COLUMN1WIDTHCOLUMN2COLUMN3COLUMN4COLUMN5COLUMN6 COLUMN7L F÷ þTô ô÷

üCCOZýþTô ô

üCCNZýþ

™ô ô÷þ

™ô ô

÷þ

U BRGPTUNTHISFORMLABEL18CAPTIONLABEL20REFRESH

U EGþGþG_ þF÷ þ

™ô ÷þ™üCô ô

ýþ%üô ô÷ Ù ýù] þTô ô÷ üÙ ýþ

‑þ%üô ô÷ Ù ýù‘ þTô ô÷ üô ô ÷ýþ

‑þ

™ô ÷

™ô ÷
þ

™ô ô
÷

þTô ô

ô
÷ ü-ýþTô ô

ô÷ ü-ýþTô ô

ô ÷ ü-ýþ

U BRGPTUNTHISFORM
TAMPILDATAPTUNTEXT1SETFOCUSTEXT4VALUEIMAGE1PICTURETEXT5REFRESHSETTINGGRID1BRGPTUNOLEBOUNDCONTROL1GRID1COLUMN1ENABLEDCOLUMN2COLUMN3COLUMN4COLUMN5COLUMN6COLUMN7 Gþ

ZþF÷ þG(þ

U BRGPTUN
tampildataptun, ÿÿsettinggrid1brgptunX

ÿÿinitialreccountbrgptunP

ÿÿDestroy×

ÿÿActivateÞ

ÿÿ

Load ÿÿ1 q baaaaaaBAAAAAAbq£ sqr6 caaaaaa2 q BAÒ Ñ 2 4 a a a r § r1A r‘A ¡ ¡ Ñ BAAAAAA; a A s a 5 Ì

' ¦2 & ÄÇ; ' æ§? > Â j ) Ì

Membuat Rekayasa Perangkat Lunak (RPL)

Minggu, 28 Mei 2017

Kode Program Membuat Aplikasi Database Satu Tabel Dengan Bahasa Pemrograman Foxpro 9

Tidak ada komentar:

Posting Komentar