< prev

Page 1Page 2Page 3Page 4Page 5Page 6Page 7Page 8Page 9Page 10Page 11Page 12Page 13Page 14

Page 14 of 14

Majalah Ilmiah UNIKOM

Vol.9, No. 2

244

H a l a m a n

On Error GoTo Err_Hitung_Click

If Forms![ManajemenBarang]![LeadTime

Subform].Form.RecordsetClone.RecordCo

unt = 0 Then

MsgBox "Masukan informasi

pembelian "

Else

If Forms![ManajemenBarang]!

[LeadTime Subform]!Lead = 0 Then

LT = CLng(Forms!

[ManajemenBarang]![LeadTime Subform]!

Lead) + 1

Else

If Forms![ManajemenBarang]!

[LeadTime Subform]!Lead - CLng(Forms!

[ManajemenBarang]![LeadTime Subform]!

Lead) > 0 Then

LT = CLng(Forms!

[ManajemenBarang]![LeadTime Subform]!

Lead) + 1

Else

LT = CLng(Forms!

[ManajemenBarang]![LeadTime Subform]!

Lead)

End If

End If

End If

If Forms![ManajemenBarang]!

[ManajemenBarangSubform].Form.Record

setClone.RecordCount = 0 Then

MsgBox "Masukan informasi

pembelian"

Else

If (Forms![ManajemenBarang]!

[ManajemenBarangSubform]!RataJual *

1.5) - CLng(Forms![ManajemenBarang]!

[ManajemenBarangSubform]!RataJual *

1.5) > 0 Then

Me!MinimalStok = (CLng(Forms!

[ManajemenBarang]!

[ManajemenBarangSubform]!RataJual *

1.5) + 1) * LT

Else

Me!MinimalStok = (Forms!

[ManajemenBarang]!

[ManajemenBarangSubform]!RataJual *

1.5) * LT

End If

End If

Exit_Hitung_Click:

Exit Sub

Err_Hitung_Click:

MsgBox Err.Description

Resume Exit_Hitung_Click

End Sub

REFERENCES

Blaha, M., W. Premerlani, “Object-Oriented

Modeling and Design for Database

Applications (Book style)”, NJ: Prentice

Hall, 1998.

Fogarty, D W., J. H. Blackstone, and T.

Hoffmann, “Production & Inventory

Management, 2

nd

Edition (Book style)”,

OH: South-Western, 1991.

Fowler, M., “UML Distilled, Edisi 3,

Panduan Singkat Bahasa Permodelan

Objek Standar (Book style)”, Penerbit

Andi, 2005.

Rumbaugh, J., M. Blaha, W. Premelani, F.

Eddy, and W. Lorensen “Object-

Oriented Modeling and Design (Book

style)”, NJ: Prentice Hall, 1991.

Schreibfeder, J., “Efective Inventory Mana-

gement (Web Article style)”, TX, Aug

2008.

Tersine, “Principles of Inventory and

Materials Management, Fourth Edition

(Book

style),”

Prentice

Hall

International, NJ:Prentice Hall, 1994.

Alam Santosa