Visual basic Net 2005
SQL Server
Anda ingin ……. CD e-book (PDF/ Chm) database/ programming BUKU2 luar negri sbg bahan Referensi/ wawasan pemograman, dll Silahkan lihat halaman awal modul ini (Toko)
!
"
$
) *
#$ %&
'(
"(
IT Programmer for PPIC System
1
+
Promosi My website
www.KutuProgram.com
2
%
www.KutuProgram.com
3
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
,23490;=>,6,,-
,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,3233.
. . + . + + + ' / /
/ / )
.0(+ * ' . . +
1 /
. .
)
. 5 ! . / 5& : .
* . / .0-6 ' . < / .0 2, " . < / .0$ 2, " + / ? (' .7 8 0-6$ + 32 +$ + * / .
..
" "+
/
.0-67+ .0-6
( /
.8
# )
266=7 .. 8 266=(@ ? . + 7)A B / . -? 8 .2669 .2669 )A ) (@ ? . + 5 . / -?)'( )A C . ) . * . / .-?)' & . / .2669 7' C " . ' . " )A / 2669 & . ( . ) $ . . / .2669 7+ C 8 $ . + / .2669( 70 ) 8 &&+( # 5 * . / .-?)' + / 266= -?)' 3-9 + (' ) + +@* / 266=( * + @ * -?)' 3-9 7+ 8 + / 2669 7+ + 8 + . / .2669(' ' / .2669(-?)' $ 5 ./ / -?)' 5 5 $ ? / .-?)' / .-?)' . / .-?)' + / .-?)' + * ' / .2669 )A ) @ / .2669 ? / .2669 + B # . 7+ + 8 / .2669 # . ( + C . 7)A B / . -? 8 / .2669( B ? / .266=+ B # . 7+ + 8 / .266=# . ( + C . / .7 8-?)'(' 5 # . / .-?)' D (% +* D / -?)' . / .-?)' ( ,6) + . / .-? * @ + / .-?)'
Semuanya Rp. 25.000
/
/ / /
8
Berminat? SMS aja: indraes 0852-17-609-601
4
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM: ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>969,92-
+-?)' 235 +-?)' ,-, $ +-?)' 2-6 + * +-?)' 2-6) " " @ +-?)' 2-6$ # 7+ + 8 +-?)' 2-6 + . ( " . + +-?)' 3-9 @ +-?)' 3-9 +-?)' E D + B # . (* +-?)' 2-6 +-?)' 3-9 Semuanya +-?)' + 5 ) +-? 5 F. Rp. 25.000 +-?)' +-?)' 06 " +-? $ ? ( . ) +-?)' F. +-?)' ( . ) +-?)' + (/ .-?)' ) (+ ( ( A* +-?)' 7 8 +-?)' ,-, * / -?)' 26637 8 +-?)' 2-6 +-?)' 2-6 E D 7+ + 8 +-?)' 2-6 7 A G 8 +-?)' 3-9 5H 266=(@ ? . + ( . ) +-?)' / -?)' ? ? 4-6 5 / 2669 * / 2669 )A & .C& +-?)' 2-6* / -?)'(@ ? . + ( ( +-?)' E D(@ ? . + 2-6+ * +-?)' 3-9 * +-?)' &-?)' 5 $ . * +-?)' 2-675 8 . +-?)' 5 5 . * / .- ?)' +-?)' ) +-?)' 2-6 $ +-?)' A I +-?)'(# (& .C& . +-?)' 2-6 " . +-?)' 5 * . +-?)' ' . +-?)' + * . / 5H -?)' / 2663 " + +-?)' 2-6)C5 . 5H 2669 7)A B / . -? 8 + +-?)' 2-6 5H 2669( . ) + +-?)' 2-6 / 2669( . ) 7+ 8 + +-?)' 3-9 5H 266=( . ) + +-?)' 3-9 5 E D5 7+ 8 + +-?)' (% + . .. + +-?)' ,-, 7+ + 8 + +-?)' 2-6 . "( ( # + ? ? 4(& . . @ * +-?)' 2-6 + +-?)' E D( .( 2-6C " $* +-?)' E D + + . +-?)' 2-65 # . ' . < +-?)' 2-6 24% (5 F ' . < +-?)' 2, "( . )
Berminat? SMS aja: indraes 0852-17-609-601
5
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM: ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,4243444940-
,23-
G . * +%+ A(@ ? . + +%+ " )C5 . (@ ? . + ( . ) +%+ " (@ ? . + (' ) +%+ + )C5 . (@ ? . + +%+( . ( " 5 $ # +%+ . 5 . * +%+ " 5 . * +%+ +7$ 8 @ +%+9 @ @ +) #(# +%+ % * ) " * +%+ " +%+! " ( C "C G 5 C +%+ & . & .C& +%+(5 . (' . 1 ( 5 & .C& + * +%+9 +%+! " @ 3 Semuanya +%+! " C C& # . @ Rp. 25.000 +%+9 " + +%+9 . (/ .+ G +%+9 " +%+9 + * + +%+ " ( . ) +%+ " " . (/ .+ G 72 ) 8 +%+ + . + +%+ ( . ) 7/ . G 8 +%+G + +%+ ? +%+ " + +%+& . (+ ( + . .( . ) +%++ +%++ * +) # Berminat? SMS aja: indraes 0852-17-609-601 +%+ 2-6 + . +%+C? G + .. 2-6 . * +%+ + +%++ + +%+9 7+ + 8 # " # +%+ E ' . < +%+( " . & 73 ) 8 ' . < +%+( " . C C& . +%+ ( 96+ . . . $ +%+9 7 $ 8 ' G " "7 G 8 ' +) # $ . * +%+4-6 + * +%+ @ > ( ( . . ( G $ * +%+5 #
. +
+5 +-?)' .
72 5 +
)
8 +.
#
.
6
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
! ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>-
"
. E ? * 72 ) 8 E * (% ). 7 B "8 E 7' 8(5 5 * ' C . E 5 (# E 5 E 2 E F9 ) E J )0+ (@ ? . + 7)A B / .8 E . E ( G ' + E 5 . ."( E + 5 . 5 E 5 . # C' + E 5 E 2(/ $( @ ( ) 5 E 7' 8(/ $CC@ 7= ) 8 5 E (/ - 2( . @ (= ) Semuanya . E 72 ) 8 Rp. 25.000 + E . * E ) . E + G ) E . "( . " . )A & . E 5+ @ ? * E G J' 4(+ E . 7' ) G 5 8 G ' ( 5 ! % . E % . B E + 5 $ E 2+ . "( . . ( +$ ( $ ( . ) $ E / . 7E 8 $ . E + C5 / 70 ) 8 E 2+ + E 2 G . E 3 + E % (,6+ . < B ? E C$ C& # . @ 7@ 75 88 E +$ ' . " +7+ ' .B 8 E & + Berminat? SMS aja: indraes 0852-17-609-601 E D (3 ) E 5 . ." + . . E + E + ( . + . +5 + . E 5 7&B# "E 8 E @ -4 ) E G . 5 . E G $+ B+ ( E % * + 70 ) 8 7% * + 7 88 E $ ? (@ ) E )A E @ . ) ( . @ . $ E ? * +
7
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
!
"
? 5 . (' E + B G ? . 5 & . + . ' +. G 7+ . G 8 +* ' Berminat? SMS aja: indraes 0852-17-609-601 + . " # $ . " ' ( . ) ' ( D ()E (5 ( & + 7' 8 . A7#8 7' 8 + (' 74 ) 8 7E 8 7' 8(' # $ . G E 7 82( B G E (E (E (& .C& + 73 ) 8 E D(E +$ D F. E@5 * ' ( G 5 . G $ ( . ) E. 7' 8 E ? AG E ' (' ?G . 5 . & *( E . . C . + . + . " E + . ' E * E + E ))9 + . & I + E + ( . ) 7+ 8 + . 7)A B / . E 8 + D * E ' . " + . D * E ( G D( & (E & (E D+( ' D + E ? $ . * ' E@ . 7+ + 8 + E + II (' + 5 5 + B G E 5 . ( 5 + ( . ) + + . E (5 $ # (. E * # " ' . < E 0 2, " 79 ) 8 . B & . * E ( . ) . E (G * * 5 (2 ) Semuanya & E 7' 8 . Rp. 25.000 . ) E 2 ) * % . 7% . 8 * ( . ) ' . < $ G + * E 2, " ' . < E 2, " ' . < + * E 24% (@ ) ' . . E ( . . . ) ' G # 7)A B / .8 ' G E # 7)A B / .8 ' G E * (' ) 7 G 8 ' E ' ( 5 . (4 ) 7' E 8 ' E 73 ) 8 96* E ( % (E +
,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>-
E E E E E E E E E E E E
8
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
#
$%&
' ( )* !
+, *
+, *
-.
Ajax ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,323334-
..
&
.
*
A( +$ (
A . A( . . + .. A #) ' # . ( + C . A@ A . 7 B "8 A . A & . E A + .. A E A # Berminat? SMS aja: indraes 0852-17-609-601 A . " A(' 5 # . A(' G A* +%+(@ ? . + D * & A(@ ? . + < &* E D . * A(/ .+ .G A7/ . ' 8 5 ( %' ( A(@ ) 7/ . G 8 @ (# A * +-?)' 2-6 G ' A G ' . () " A* G ' +-?)' 2-6* E D( + . . % C G . E D ") (5 C +-?)' E D,-6)A + .. A+ . * E ' . "7+ . . 8 + A E 7+ 8 + A -?)' 2-6+ 7+ 8 + #. $ . (E D " 7+ + " . . . ' . < E D ,6 . A . () " " . E D( E . 5 #. $ . ( A( +$ ( ( % .
35. KF(
A*
E
.
@
Semuanya Rp. 25.000
+
8
) "
*
JavaScript & Jscript ,2-
&
. E .
. (
(3
) *
E
.
.
&
.
9
3490;=>,6,,,2,3,4,9,0,;-
% *' E . E . E . E . " "# E
)
" 0
*
E
.
)
)A
(' ) 4 ) + .
+ .
5
E
.
Berminat? SMS aja: indraes 0852-17-609-601 . G . "( $ . * E . ' . 1 + E . ' . 1 7+ 8 + " . - . - (< ? F *E . 5 ' L ' ! . . E . ' E . (2 ) ( + .. G $ . + ' 5 $ B G E . ' E . "(,6, ) ' (' . ! % .
Rich Internet Application ,23490-
.) @ A @ A () @ @ A @ @ A E @D . ( " I .
7.
. ' .
( .
.E
( @ A2
1 C
#. 3
D
. #. $
* 5
+%+( C
+-?)'(5 .
@
(
@
+-?)' #
SEO ,2-
3.
. ) . ) )&(
& / . )
I " &
I
VBScript ,2- / 3- / 4- /
. . . .
/ +
. ?
. (2 ) B #
* .
10
'
C
)C
(
" " M
11
Pertemuan 1 5
12
'
)
)#/)#
1 '
/0 1
)
'
)
,-
1
// @$) F& )N+) ?GG ? ? N+) ?GG ? F) $? 'G N %$#
2-
%
# ?GNE
'<+) . .
$K) ,6 26
'<+) .
$K) ,6
& ?
F)' +2 + 3043
& ?
F)' +2 + 3043
& ?
F)' +2 + 3043
& ?
F)'
/ / /
/ /
% &$ @$) ?&N )#/$5) 'G F& )N+) ?GG ? '&' N )#/$5) % &1 /
4-
$K) ,6 26 ,
/5
@$) F& )N ? % #G 3-
'<+) . . .
' .
,6 / !
! +6 +
% &$ 5%& $& @$) ?&N )#/$5) F& )N # ?GNE % #G E % '&' ?&N # '
'<+) . .
$K) ,6 ,6
+2 + 3043*$
/ / / / / "O< ( $
"$ .
O,
13
5
2 F&?)F $
)#/)#
F
" • • •
5 5 $)?' 7 &)
.
/ 0O / 0O / 0O
&
8
( & & &
&
.P
& &
F
O D B C " ' %
F&?)F $ )"
5&?'#& + ?) "
$?$ '# '$&? '&& & 5(" 1& 0 0 %-/% 7
-% -
')#C
/ 7
%
& 5 @' # P ')#C#)G$ ')#
? &
P #$/)#
'
)
5-
-8 $ Program Database
ODBC Report
+
1
/0
7 7 9
5&?'#& + ?) :
.
&
( " (& . (
-8 $ $?$ '# '$&? '&&
:
&
5
5
14
Daftar koneksi user yg telah dibuat
F&?)F $ #)G$ ')#
$? &
( &
5M
"
$ 0 8919M
#$/)#
'
)
')#C
8%& %
Database koneksi yg sudah ter-register di Windows ODBC. Oracle, Paradox, MySQL, SQL NativeClient (sql2005), SQL server (sql2000)
15
7 7 9 7,8F
'
0)#
?7
0 &-8 $ . ?
8
--728F
738--
?
'
) " 7
)#/)#8(748
@$?$ %
Ketik NAMA ODBC nya
Ketik NAMA SERVER, jika local computer diketik (local) atau
798
.
M 708
.
titik
?)D'
16
.
Di kotak ini, biasanya kita memilih DEFAULT dalam koneksi kedatabase SQL server.
Tapi jika sewaktu INSTALL SQL server di setting untuk LOGIN nya, maka LOGIN ID dan PASSWORD harus diberikan juga…
7;8
?)D'(
.
Pilih NAMA DATABASE nya
7=8+
?
'
) " M 7>8
?)D' : ?)D' (
.
17
7,68
') '
'
& #5)
"
M-
Koneksi ODBC yang baru dibuat OK bro…
18
$
$
4-8 $
+ +
.F&?)F $ .A
+
.5&??N
+
.5
+
. '#
+ +
. ' . '
N
. N
: -& .5 ? * - : -& .5 . - : -& .
N .
? *-
. ? *? * '
: 90 5 ;1
)A. A*7
-
: -&
&
5
7-891
.
BPP BPP
1
BP
&
BP #
.( $
5
(
(
BP
1
.
BP BP
%
' " F&?)F $ OQ+ O &) R 5&??N .O ? * & .-& .5 5&??N .-& 78 5 .
'#$?G
7-891
.
N
6 5&??)5'$&?
G
G / * / *
"
. "
"
%5 <5-8 $'.
O-8 $5 /0 1R . 7F&?)F $8
(Q)
F
Q(
$ OR+
A
OR
-&F(
N.
.
O< RQ
A$. -)
8
) ) ' " : == -8 $5
/0 1
&
5"
5&?'#& + ?)
C&
5
19
SQL CLIENT, OLEDB ;1 $1& -1 8
.
F%
.
7 ..
5 $)?'
&)
"
(
)#/)# (
(
( "
5& )F&?)F $
"
(
(+&
( 8
"
)''$?G
/ 7
• • •
? ? +
•
+ . @$ )')D' 5&?@$G #
%
)#/)# )# ' )#
;1$1&
) '
) ( $"
"
)' FF ? ( .
#)G$ ')# 5 $)?'
$? &
P
*-1 8 Program
Database
Connection string Report
.. +
( " ( (& . ( 2(+ Connection membaca settingan: Nama server: User login: Password: di Register
di FILE TXT config
(jadi pada saat install program di computer client, harus di setting dulu nama SERVER, User dan Password database nya)
20
$
$
6 5&??)5'$&?
4 ;1$ 4
+ +
.F&?)F $ .A
+
.5&??
+
.5
+
. '#
+ +
. ' . '
BPP BPP ? *
? *
>$ 4 >$ 4 >$ 4
- 15
.
7-891
- 1
1 BPP
- 15
>$ 4
? * ? *
%
5 $)?'
BPP1 #
"7
.( $
(
BPP
- 1
(
8
.
BPP BPP
'
: 90 5 ;1
.
;1$1&
7-891
' " F&?)F $ O Q 4+!4+O7 . 8R8 5&?? O ? * 15 - 15 5&??-& 78 5
'#$?G
G G
/ * / *
" "
%5 <5 ;1$ 4 '. : 4O )?GF) R
.
$ OR+
*
OR$
.
"O'
Q
7F&?)F $8
)A. A-
*7
-
(Q)
F
Q(
A
-&F(
A$. -)
8
) ) ' " :
21
$
$
6 5&??)5'$&?
4-1 8
+ +
.F&?)F $ .A
+
.5&??N
+
.5
+
. '#
+ +
. ' . '
5
? * - 48:-&
5
? * - 48:-&
N N
BP #
-&
(
(
BP BP
. G G
/ * / *
" "
%5 <5-1 8 '.
O ;1-1 8 R $ OR+ OR N.
O? *& -& 78
.( $
BP
? * - 48:-& ? * '
%
1
.
5
- 48:-&
N
.
7-891
SP BP
N
' " F&?)F $ O Q+
-1 8
7-891
: 90 5 ;1
5&??N 5&??N
'#$?G
5
. O?R$ 5 . O< RQ
.
O
/0 1R
nyambung
7F&?)F $8
)A. A-
*7
-
(Q)
F
Q(
A
-&F(
A$. -)
8
) ) ' " :
22
( '
!
?
'2 +, 8-8$
.0 ( /$
$5 ?)'
"
8
' @-%7
@ ' +$ . # F '
.(
@ )7 "
"
.
& 5" )'<< -
@
<4 8% /
?G ' #$?GF$ )F $ 6 M- $ ( @ ' )'
+
1 A4
'
2 @-%7 4 +
)
@
<
)?E
<M-
$
@ ( 8
@$)
"
@
"M M
GAMBARAN DATASET:
@-%7 1 3< < A 2 @-%7?
8
1& 0 A48
%
-%
: 4
)#/)#( O
* ?$
( B<
23
@
?$
'
&
B<
)'
?$- @&/
5
#)G$ '#<*
*
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <section name="BENGKEL.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
Yg Pokok disini bro..
24
Latihan Dataset:
FORM PELANGGAN dengan DATASET ,,-
' O
'
& #5)
:
'
& #5)(
2-
3-
.
'
?) 5&??)5'$&?
)(
?)D'(
.
'
) " M(
.
25
4-
5% ?G)
E)?$
" M-
.
98-
)#/)#--
&F(
.
F
?
?
08
?
)#/)#(
? .
'
) " --
&F(
C
26
;8
P5)F '
)
M
@& &
& 4
%
"
.
/0 18
4 ?)
"
'
)
'
)"
@
27
FORM PELANGGAN '
) $G?
F%$# @ +) ?GG ?
'
)'
Componen yg digunakan
1 ,8 28
# ( .
'
& #5)7
'
: %&
'
& #5)8
FORM nya
Data Source
28
38 '
'
)+) ?GG ?
@
Otomatis Muncul Binding Navigator
1 2
TARIK/Drag table Pelanggan ke dalam Form
3
48
@$)
@ 7
Otomatis Muncul datagridview
8
TARIK/Drag FIELD ke dalam Form
44
DDDDDDDDDDDDDDD??
29
%
@
M-
II7
.
"
M8
30
Pertemuan 2 5
...
31
Latihan ODBC:
FORM BARANG dengan ODBC '
@
Code di MODULE BPCC + .F&?)F $ + .A + . ' ' N
+ + + + +
1 BP BP BP'# )O
O@
.5&??N . ? * & .-& .5 .5 N . ? * & .-& .5 . '# N . & .-& . . ' N . ? * & .-& . ' N . ? * '
. # .
BP SPB BP BP BP
1 @
& 1 G G
5 "7
)O
.( $ ( 1 " / * " / * "
(
8
32
:
90 5 ;1
%
%5 <5-8 $'.
' " F&?)F $ O Q O& 5N )?GF) R 5&??N .O ? * & .-& .5 . 5&??N .-& 78 5 .
)A. A*7
-
$ OR+ OR 7F&?)F $8
(Q)
F
N.
Q(
.
A
O< RQ
-&F(
A$. -)
8
) ) ' " )
Code di FORM '
?)
BP ' ' 5 5
' ' N$?+ 'O N O'
'& F
BP -' A -' A
&N 78
$ +?
78
A, A,-) O' A,-@ . 78
'
"
"
'$F ?
/)
BCC. ( $ ' 7 BP
+#$ #
8 A
-&F(
A$. -$
8
)A ) $
B $ +? 5
FN
' )#/)#N N&
578
33
$
' '
N
O'
'
BCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC B5)F + F % +#$ #
7
-' A
A,-' A8 ! QBQ
BCC. . "J $ '# N .-% # * ' B A7Q ' F& )+) ?GG ? % (+#& ) $ ' F ?---Q( A " -$ 8 A*7Q ' F& )+) ?GG ? % (+#& ) $ ' F ?---Q(Q) A -&F( A$. -$ 8 '# N .-5 5&??N .-5 78 )A
Q(
78
) )
'# $
N
.-5
78
BCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC B $ +? ' BCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ' " A O Q $? )#' $?'& +) ?GG ? Q ! N Q 7F& )N+) ?GG ?(? N+) ?GG ?( F) Q/ ) Q!N Q 7BQ ! -' A A,-' A ! QB( Q!N Q BQ ! -' A A2-' A ! QB( Q!N Q BQ ! -5 A,-' A ! QB(Q ! N Q BQ ! ' +. ,-' A ! QB8Q 5 5
N N
.O ? * & .-)A . ?
.5 "78
7A
(5&??N
.8
5 .
)
)A. A*7 A$. -) 8 ' "
.-&
$?( 'G N %$#8 Q ! N
' '
N
-
(Q$
)
Q(
A
-&F(
O@
) ' "
34
A
5 5
OQ Q Q Q Q Q N N
+ ')+) ?GG ? )' Q ! N F& )N+) ?GG ? OBQ ! ' 7 -' A A,-' A8 ! QB(Q ! N ? N+) ?GG ? OBQ ! ' 7 -' A A2-' A8 ! QB(Q ! N F) $? OBQ ! -5 A,-' A ! QB(Q ! N 'G N %$#OBQ ! ' +. ,-' A ! QB Q ! N %)#)F& )N+) ?GG ? OBQ ! ' 7 -' A A,-' A8 ! QB Q .O ? * & .-)A . ?
.-&
7A
(5&??N
.8
5 .
)
)A. A*7 A$. -) 8 ' "
.5 "78
' ' )
N
'& -' A
)
Q(
A
-&F(
O@
'
78 78
&N A,-) A-
5 5
(Q
$
5 N .5&??N .-5
5
-
78 O@ *7Q
'
$
$ + ?--Q(Q
Q(
A
-&F(
A$. -$
8
5 ?5) '& F
&N 78
78
BCC -' A A,-) ' ' N O@ A-
'&
*7Q
A A, O@
'
--Q(Q5
+#$
. Q(
#
A
-&F(
A$. -$
8
&N
Call MUNCULIN_DATA_dari_TABLE_ke_GRID()
'--VB6=(TGL = CONVERT(DATETIME, '2008-05-12 00:00:00', 102))
35
Code di FORM. PROCEURE :0
<'.
-' A A,-' A -' A A2-' A -5 A,-' ' +.
O QQ O QQ A O QQ ,-' A O ? *78
)
-7 -156
: -'& -'& -'& -'& -'& -'& -'&
& & & & & & &
,'.
N *-/ O' N -/ O' N. . -/ O@ N -/ O' N -/ O' N A -/ O' N -/ O'
) )
-7 -152
: -'& -'& -'& -'& -'& -'& -'&
& & & & & & &
'.
N *-/ O@ N -/ O' N. . -/ O' N -/ O@ N -/ O@ N A -/ O@ N -/ O@
) )
: 79 5
$91& 58
FN
A A '
)#/)#N N&
5
+5
1 5A45/%&8'.
578
O QQ O Q ) )5' T@#& +) ?GG ? )#
.-5
78
36
'
N .O ? * & .-& . -# . 8 ' N .-@ 7 ' N .8 '+) ?GG ? 7# -&+)? ---8
7A
(F&?)F $8
B
7 )' # O?)
&
-
G / *, . O ' N . O G / * ' # * O@
. *
B
.
-@ # *
.
)
' N .78 ' N .78 ' N .O ? # O? 8 5&??N
.-5
B
7
78
)
: 79 & )
#
$91& 58
5
+5/%&85A45@-%7'.
? A
-' A A,-' A -' A A2-' A -5 A,-' ' +.
O G / O G / AO G ,-' A O -
*,. 5 768-/ *,. 5 7,8-/ / *,. 5 728-/ G / *,. 5 738-/
)
37
Pertemuan 2 Form 1 - Many • •
•
@ , " . @ +)?5 #$ ? ' # ?G $ • @ ?G $ ')# $ ?G G / * $?+ ' # ?GPE • 5 &? )#/$5)7 G 8
)#/$5)
38
FORM 1 – MANY dg ODBC:
Transaksi Pembelian barang Jasa Service 7
4+
Mengisi COMBO BOX dengan DATA DARI TABLE Menampilkan DATA hasil PILIHAN COMBO BOX Pembuatan Pembuatan Pembuatan Pembuatan
FORM TRANSAKSI 1-Many menggunakan DataGridView FORM PENCARIAN DATA BARANG dan JASA secara INTERAKTIF FUNGSI TERBILANG REPORT BON SERVICE
OUTPUT FORM 1 - Many :
Isi combo dari DATA TABLE
Tekan F1 di GRID untuk mencari barang
Input data langsung di GRID
Fungsi TERBILANG
39
FORM MENCARI DATA BARANG & JASA INTERAKTIF: @
.
')F ? @,
F& & F& )
G
/ *
40
REPORT BON SERVICE:
Report menggunakan GROUP dg FIELD NO_SERVICE (karena 1 No.Service terdiri dari banyak BARANG & JASA SERVICE
41
DESIGN FORM 1-Many SERVICE:
NAMA BARANG JASA, SUBTOTAL dibuat READ ONLY=True Karena hanya akan membaca saja, tidak di input
Rubah nama tombol: TOMBOL_BARANG_hapus, TOMBOL_baru, TOMBOL_simpan, TOMBOL_batal, TOMBOL_hapus, TOMBOL_cari, TOMBOL_print_bon, TOMBOL_exit
CODE di MODULE MODULE1 E + +
B ! + :4 .F&?)F $ .A
2 2
> B B
1
42
B ! + :4 A@-%7 + . ' ' N + . #$ N $
B ! + :4 A + .5&??N + .5 N + . '# + . '# #$?5$ ?
+ +
. ' . '
:
2
3 O@ O6
4A ;1 % % 4 < -1 8 . ? * & .-& .5 . . ? * & .-& .5 N . & .-& . # 2N . & .-& . #
N N
.
. ? * & .-& ? * '
90 5 ;1
%
)
.
)A. A*7 A$. -) 8
) ' "
-
@ )O G#$ "
+& $ $
-8 $ BCC BCC BCC BCC
.
1
P
& 5 " 1 1
BCC BCC
G G
/ * / *
" "
" "
%5 <5-8 $'.
' " F&?)F $ O Q8 F-8 $5 /0 1G Q $ OR+ OR N. . O< RQ 5&??N .O ? * & .-& .5 . 5&??N .-& 78 5
BCC'# )O BCC
(Q)
BCC 7F&?)F $8
F
Q(
A
-&F( nyambung
:
43
MODULE2 : code untuk fungsi TERBILANG Code ini menggunakan FONT: Courier New sehingga bisa di COPY PASTE ' ' ' ' ' ' ' ' ' ' ' ' '
******************************************************** *** *** Class : Terbilang.vb *** sumber : dari INTERNET *** Usage : *** Dim instance As New Terbilang() *** Dim value as string --> MaxLength = 18 Character *** Dim result as string *** *** instance.Text = value *** result = instance.Text *** ********************************************************
Code ini bisa di
COPY PASTE aja
Public Class Terbilang Private STRANGKA As String() = {"", "satu ", "dua ", "tiga ", "empat ", "lima ", _ "enam ", "tujuh ", "delapan ", "sembilan "} Private STRDESIMAL As String() = {"puluh ", "ratus ", "ribu ", "juta ", _ "milyar ", "trilyun ", "bilyun "} Private m_Text As String Property Text() As String Get Return FormatTerbilang(m_Text) End Get Set(ByVal value As String) m_Text = value End Set End Property Private Function Satuan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = "" Dim i As Integer = Val(s(x)) Hasil = IIf(i = 1, "se", STRANGKA(i)) Return Hasil End Function Private Function Puluhan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = ""
44
Dim i As Integer = Val(s(x)) Dim j As Integer = Val(s(x + 1)) Select Case i Case 0 Hasil = STRANGKA(j) Case 1 Select Case j Case 0 Hasil = "sepuluh " Case 1 Hasil = "sebelas " Case Else Hasil = STRANGKA(j) Hasil = Hasil + "belas " End Select Case Else Hasil = STRANGKA(i) Hasil = Hasil + STRDESIMAL(0) + STRANGKA(j) End Select Return Hasil End Function Private Function Ratusan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = "" Dim i As Integer = Val(s(x)) Select Case i Case 0 Hasil Case Else Hasil Hasil Hasil End Select Return Hasil End Function
= Puluhan(s, x + 1) = IIf(i = 1, "se", STRANGKA(i)) = Hasil + STRDESIMAL(1) = Hasil + Puluhan(s, x + 1)
Private Function SemuaNol(ByVal s As String, ByVal x As Integer) As Boolean On Error Resume Next Dim i As Integer = Val(s(x - 1)) Dim j As Integer = Val(s(x - 2)) Dim k As Integer = Val(s(x - 3)) Return ((i = 0) And (j = 0) And (k = 0)) End Function Private Function FormatTerbilang(ByVal s As String) As String On Error Resume Next Dim strTemp As String = s
45
If strTemp.Length = 0 Then Return "" Exit Function End If If strTemp.Length > 18 Or Not IsNumeric(strTemp) Then Return "Cannot convert this string." Exit Function End If If strTemp.IndexOf(",") > 0 Then strTemp = strTemp.Replace(",", "") If Not IsNumeric(strTemp.Substring(strTemp.Length - 1, 1)) Then strTemp = strTemp.Substring(0, strTemp.Length - 1) If Not IsNumeric(strTemp.Substring(1, 1)) Then strTemp = strTemp.Substring(0, strTemp.Length - 1)
nyambung
nyambung
Dim hasilCent As String = "" If strTemp.IndexOf(".") > 0 Then Dim posCent As Integer = strTemp.IndexOf(".") + 2 Dim strCent As String = strTemp.Substring(strTemp.IndexOf(".") + 1) strTemp = strTemp.Substring(0, strTemp.Length - (strCent.Length + 1)) hasilCent = IIf(strCent.Length = 1, IIf(Satuan(strCent, 0) <> "", Satuan(strCent, 0) & "sen", ""), IIf(Puluhan(strCent, 0) <> "", Puluhan(strCent, 0) & "sen", "")) End If
nyambung
Dim Hasil As String = "" Dim len As Integer = strTemp.Length If (len = 1) Then If Val(strTemp(0)) = 0 Then Hasil = "nol " Else Hasil = STRANGKA(Val(strTemp(0))) End If Return Hasil & "rupiah" End If Dim counter As Integer = 0 Dim sisa As Integer = len Mod 3 Select Case sisa Case 2 Hasil = Puluhan(strTemp, 0) counter = 2 Case 1 Hasil = Satuan(strTemp, 0) counter = 1 Case 0 Hasil = Ratusan(strTemp, 0) counter = 3
46
End Select Dim x As Integer = IIf(sisa = 0, (len \ 3), (len \ 3) + 1) While (counter < len) If Not SemuaNol(strTemp, counter) Then Hasil = Hasil + STRDESIMAL(x) Select Case Mid(Hasil, 1, 4) Case "seju" Hasil = "satu juta " Case "semi" Hasil = "satu milyar " Case "setr" Hasil = "satu trilyun " Case "sebi" Hasil = "satu bilyun " End Select Hasil = Hasil + Ratusan(strTemp, counter) counter += 3 x = x - 1 End While Return Hasil & "rupiah " & hasilCent End Function
End Class
47
CODE di FORM : Procedure + .
.
@ ,C
"
URUTAN KOLOM pada DataGridView yang digunakan dalam CODE
0
2
0
J@
< &&+$?G 7@ ? A8 :
/%&856
& )
#
A A' ? A
$ O
-'D'N
5
')# $
<5
0
.- F
2
47
'&'
0
8
2 H
0
2 I
.
5 4+! 4'.
? A
E 6 < E < * A' A @
'&'
2
: A .
, <+
2 O6
<+ !4K + *: A
O 6' G / *,-# * -5 G / *,-$ 7I( 8-/ . O A' . :A
N
?G78
. -' A O A'
+
C,
Looping menghitung TOTAL service. Kolom 4 di jumlahkan
. Panggil fungsi TERBILANG.. setelah dapat TOTAL lalu di konversi ke terbilang
)
48
J@
<
$?+ '
!
G#$
(
?
# ?G
'&' :
/%&85 , '.
& ) 5
# ? A ?5 $?N N
78
E 6 < 9 - 1 A% #G O G / *,-$ AE %O G / *,-$ A 5
'&' G
O A% #G TAE / *,-$ 7I(
G#$ N
N
N
7 ( 7H( -
G / *,-5 G / *,-5
# *-$ # *-$
% -
G
/ *,-5
# *-$
A8-/
. 78
<
:
5&
& &5$-7 -5,4
5
FN
)#/)#N N&
OA
'&'
Ambil Harga di KOLOM 2, Jumlah di KOLOM 3, lalu hitung SUBTOTAL di KOLOM 4
)
J@
A8-/ A8-/
<<
& &D
'.
578
A O QQ A O Q ) )5' T@#& +) ?GG ? )#
-5 $
'#
N
N
-$
-5
N .-% # * ' '# N .-# -5 N N -$
78 Looping untuk memasukkan data ke COMBO BOX
-
7 '#
N
.7QF& )N+) ?GG ?Q88
) ) A*7Q A$. -$ )
$
'
+) ?GG ? '$ 8
F
--Q(Q+
Q(
A
-&F( nyambung
'# N .-5 78 5 N .78 5&??N .-5 78 )
49
J@
<
:
?
79 $91& 5
5
FN
)#/)#N N&
O QQ O Q ) )5' T@#& 7 G / *,-$
5
N '#
.O ? * & N .O 5
$
'# '#
N .-# ' G / *,-$ 7,( N .7Q 7 Q8
-
G / *,-$ 72( N .7Q %/ Q8
)
F& )
# ?G
G#$
2 5: + <'.
A A '
'#
# ?G(% #G
578
# ?GNE 76( -
.-& .5 N .-)A .
G
nyambung
%)#)F& )N # ?GNE OBQ ! / *,-5 # *-$ A8-/ 8 ! QB Q
7A #
(5&??N 78
.8
-
G
/ *,-5
# *-$
A8-/
O
-
G
/ *,-5
# *-$
A8-/
O
nyambung
nyambung
$
'# N .-5 78 5 N .78 5&??N .-5 78 )
J@
<
:
79 $91& 5
5
FN
A A ' 5
$
?
+) ?GG ?
2 5,4
)#/)#N N&
5&
<<
& &D
5 $5F
'.
578
O QQ O Q ) )5' T@#& +) ?GG ? %)#)F& )N+) ?GG ?OBQ ! 7 -5 N N -' A8 ! QB Q
N '#
.O ? * & N .O 5
'# N -'D'N ) $
.-# N
.-& .5 N .-)A .
7A #
(5&??N 78
nyambung
.8
' -' A O '#
N
.7Q
7 5
1
//
Q8
50
'# N .-5 78 5 N .78 5&??N .-5 78 )
J@
<
. @ ?G $ ')# $
% &1
:
EL : A -' A O -'D'N
?G
.(
C
/'. Ambil ANGKA TOTAL service… lalu di KONVERSIKAN ke TextBox
4+: < -'D'N N . -' A -' A O -' A
)
J@ :
<
A
A
A
<'.
-'D'N N . -' A O QQ -'D'N N . -' A O Q6Q ' +. ,-' A O ? *78 -5 N N -' A O QQ -'D'N -' A O QQ E A -
E :A @ ? A
$
A 78
<* , 98910-1-7 4 , 2
L: + A < A , O , ' A'&' N #$ G / *,-# * 78
6 Kosongkan juga DATAGRIDVIEW, setelah kosong BUAT BARIS KOSONG untuk persiapan INPUT berikutnya
4
)
J@
<
: -'& -'& -'& -'& -'&
-
2: 56 & & & & &
N -/ N -/ N -/ N -/ N. -/
)@
'
,'. O' O' O@ O' O'
51
-'& -'&
&N N & N A -/
-'&
&N
-/ O'
# ?GN
O'
-/
O'
) )
J@
<
:
+#& ) $?+ '
2: 52
-'& -'& -'& -'& -'& -'& -'&
& & & & & & &
-'&
&N
'
'.
N -/ O@ N -/ O' N -/ O' N -/ O@ N. -/ O@ N N -/ O@ N A -/ O@ # ?GN
-/
O'
) )
52
CODE di FORM : Tombol Tombol $ 5 5
N 78 -'D'N N
' '
$
-7 -15: +
4
N
'
5
. -) N
O'
. O'
$
A
0 8 -0-0 98 8&& &' %&7 %M 0 M * 811. -'D'N N . -' A8 O QQ ' A*7Q ' ?& )#/$5)% # $ $ $Q(Q+ Q( A$. -$ 8
A
-&F( nyambung
)A $
' " " O
A7Q + F % A$. 8
$ ' " O )A ) $
EL EL EL EL EL
A
78
-7 -15 2,
4
EL $ 0 $ ' 7
)
$
'
F?
$
$ + ?JQ(
A " -< ? :
nyambung
? '
L &7
8 L FN
)#/)#N N&
578
ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL EL N& 9 8 ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL
53
$
' '
N
N
EL EL $ 0 EL A OQ 5
N '#
$
'#
. O'
' L
0
%&7 %M 0 M 98
. T@ .O ? * & N .O 5
.
8 O L . OBQ ! '
? N
.-& .5 N .-)A .
N .-% # * ' A7Q?& )#/$5) %
7A #
(5&??N 78
(+#& )
$
'
7
-'D'N N
. -' A8 ! QBQ
.8
F ?---Q(
A " -$
8
-'D'N N . -' A O QQ -'D'N N . -@ . 78 '# N .-5 78 5&??N .-5 78 ' '
) 5
)
N
N
. O'
)A $
N '#
.N
78 .-5
78
$
ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL EL N 8& 8 EL 8 M /1 7 8& 9 8919 ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL $ ' ' N N . O@ ' 5
FN
)#/)#N N&
578
EL 6 , + L 4 A O QQ A OQ @ . N# . 5 N .O ? * & .-& .5 5 N .-)A . ? "78 5 N .78
7A
? N . OBQ ! (5&??N .8
EL 6 , 64 4+ 3 A O QQ A O Q ) )')@#& )#/$5) %)#)?&N )#/$5)OBQ ! 5 N .O ? * & .-& .5 7A (5&??N .8
-'D'N N
-'D'N N
. -' A ! QB Q
. -' A ! QB Q
54
5 5
N N
)
$
EL EL EL EL
%&7
.-)A . .-
? 78
"78
L 8
8 %0
1
% &$ L
xSQL = " INSERT INTO SERVICE" & _ " (NO_SERVICE, TGL, KODE_PELANGGAN, TOTAL_SERVICE,TERBILANG) " & _ " VALUES " & _ " ('" & Trim(Me.TXT_no_service.Text) & "', " & _ "'" & Me.DateTimePicker1.Text & "', " & _ "'" & Me.CMB_kode_pelanggan.Text & "', " & _ Me.TXT_total_service.Text & ", " & _ "'" & Me.TXT_terbilang.Text & "' ) " 5 5 5
N N N
.O ? * & .-& .5 .-)A . ? "78 .78
7A
(5&??N
.8
ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL EL %EL &7 8 %& $& % &$ 0 1 % &$ 5%& $& ELFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFL AF& ) O QQ A? O QQ A% #G O6 AE % O6 A '&' O6 $ O 6'
@
-
G
/ *,-# * -5
C,
E 2: +8 /+ 4K AF& )O G / *,-$ 76( 8-/ A% #G O G / *,-$ 72( 8-/ AE %O G / *,-$ 73( 8-/ A '&' O G / *,-$ 74( 8-/
$ AF& )UV QQ ' E 2
AA
A4
2
:4
% &$ 5%& $&
55
A
O QQ
xSQL = " INSERT INTO SERVICE_RINCIAN" & _ " (NO_SERVICE, KODE_BARANG_JASA, HARGA, JUMLAH, SUBTOTAL) " & _ " VALUES " & _ " ('" & Trim(Me.TXT_no_service.Text) & "', " & _ "'" & xKODE & "', " & _ xHARGA & ", " & _ xJUMLAH & ", " & _ xSUBTOTAL & ") " 5 5 5
N N N
)
$
.O ? * & .-& .5 .-)A . ? "78 .78
7A
(5&??N
'
A " -$
.8
? A
A7Q
') %
$
$ + ?Q(
8
EL 9 9 0- 0 &8 5&??N .-5 78 5 5
$ 5 5
78 N -'D'N N
78 . -)
O@
-7 -15:
4
78 N A7Q
E ( < ' ' N
$ 4 EL $ 0 $ ' 7
' , N
$
A
78 $
'
F ?Q(
A " -$
8
A B A . O@
-7 -156 , 0 8 -'D'N N
$
-0-0 98 . -' A8 O QQ '
A 8&& &' %&7 %M 0 M * 811.
56
A*7Q A$. -$ )
'
$ $ $Q(Q+
Q(
FN
A7Q + F %
'
F?
$
) )')JQ(
)#/)#N N&
A A 5 5 5
O QQ OQ @ . N# . N .O ? * & .-& .5 N .-)A . ? "78 N .78
5&??N
.-5
5
78 A*7Q A$. -$
FN
A " -
:
7A
? N . OBQ ! (5&??N .8
-'D'N N
. -' A ! QB Q
-'D'N N
. -' A ! QB Q
78
nyambung
'
') % 8
$% +
-7 -15 + $
4 . $ . O QQ ' )A ) $
A A 5
nyambung
578
O QQ O Q ) )')@#& )#/$5) %)#)?&N )#/$5)OBQ ! N .O ? * & .-& .5 7A (5&??N .8 N .-)A . ? "78 N .78
5
-&F(
nyambung
A A 5 5 5
$
A
)A $
" O A " -< ? 8 $ " O ? ' )A ) $
5
)#/$5)% # 8
O$
Q(Q%
Q(
A
-&F(
A
A7Q$?+ ' ?& )#/$5)OQ8
)#/)#N N&
578
O QQ O Q ) )5' T@#& )#/$5) %)#)?&N )#/$5)OBQ ! ' N .O ? * & .-& .5 7A (5&??N .8
7. 8 ! QB Q
57
'#
N
$ ?
.O 5
N
.-)A .
'# N .-# ' A7Q?& +)?E ? '$
F
#
78
Q(
A " -$
8
'# N .-5 78 5 N .78 5&??N .-5 78 )A )
$
EL EL 2 EL
L A
4+
+
:4
% &$ L
5 EL
64
78 7 &18 D?& D'G DF& ) D'&'
M 8919 O '# N .7Q?&N )#/$5)Q8 O '# N .7Q'G Q8 O '# N .7QF& )N+) ?GG ?Q8 O '# N .7Q'&' N )#/$5)Q8
EL 79 $910 0 @-%7 -'D'N N . -' A O D?& ' +. ,-' A O D'G -5 N N -' A O DF& ) -'D'N N . -' A O D'&' '# N .-5 78 5 N .78 5&??N .-5 78
EL EL 2 EL 5 A
L A
+
A48
/+
4K L
FN
)#/)#N N&
578
O QQ
58
xSQL = " SELECT SERVICE_RINCIAN.KODE_BARANG_JASA, NAMA, " & _ " SERVICE_RINCIAN.HARGA, JUMLAH, SUBTOTAL " & _ " FROM SERVICE_RINCIAN INNER JOIN " & _ " BARANG_JASA ON SERVICE_RINCIAN.KODE_BARANG_JASA = BARANG_JASA.KODE_BARANG_JASA " & _ " WHERE SERVICE_RINCIAN.NO_SERVICE ='" & cari & "' " & _ " ORDER BY SERVICE_RINCIAN.KODE_BARANG_JASA "
5 N 8 %4
.O ? * & .-& .5 7A 4+ 5 : O 5 N .-)A . # $ '#
E 2
.-#
A4<+
G / *, 76( 8-/ O '# 7,( 8-/ O '# 72( 8-/ O '# 73( 8-/ O '# 74( 8-/ O '# O :,
-$ -$ -$ -$ -$
.8
O6 2N
AA
(5&??N 78
2N 2N 2N 2N 2N
.7QF& )N # ?GNE .7Q? Q8 .7Q% #G Q8 .7QE %Q8 .7Q '&' Q8
Q8
) )
E
5
4 A -'D'N '# N
< N 2N .-
.-5 78
5
')# $
?G78
5
?5
$?N
$ $
4
4+ ! 4 . -' A O D'&' 78
N
78
-7 -15+ 4, +
-'D'N N
$
A
. -' A O QQ '
59
A*7Q?&- )#/$5) ) A$. -$ 8
$ +$ $%--Q(Q+
Q(
A
-&F( nyambung
)A ) $
@ / *
? *@ ,,N+#$?'N &? ? *5 " # N &?N )#/$5)
-# .
.
@
@ / * -5 " # "G ' O@ -# . O -# 78
ELB + 2 EL$+ 3
B+ 2
& # % $+ 3
%4, +
O QW )#/$5)-?&N )#/$5)XOBQ !
$+ 3
%4, +
%4, +
-'D'N N
-
. -' A ! QBQ
/ * ,
) @ / * -
*78
-7 -15
$ 4 BCC G / *,-# * -# 5 G#$ N N N
%
/56 , 7
-8
/+
$
A
4K ?$ + +4 % K?& 4)8
. 78
Ambil POSISI BARIS di Grid
CODE di FORM : Object lainnya $
4
@-%7
'8 $1 %
A% #G AE % A '&' A'&' ' '
N #$ N N
? *'
$
O 96 .
78
&- . EL! + /%&8
A
%/
EL! +
/%&8
A
971
EP! + /%&8
A
E : 3A3 :+ L EP 9 ,+ 4 , EP! + : 4 4+:
9 8
-
1
&1* +: 6 4
A4:
6
4
<
60
@-%7
$
4
5 5 5
78 N 78 $ $N5& &N
E
$
A B A -'D'N N
4
5
$
78 ,+2 + 3A43' O@
. -)
$7 5A ?5
4
1- 8
$?N
8
-
N
/+
EL 4A, $ & N
45,4
4+ ! 4.
<<
44 4 & 4)$6
<4
78
4K
0438 K
A+ +
0-1-7 0
4
G
/ *,-5
7
-
G
/ *,-5
5
-5
$
A8-%
' A O QF
G
/ *,-5
7
-
G
/ *,-5
5
-5
$
A8-%
' A O Q?
Q'
E $
nyambung
,A6 -F "5
4A @ N2 O 043 -@ '
A*7Q A$. -$ #$ N
O
-
$
)
$
A
A
Q(Q
A %-#
* Q(
L1--09 8
A
%
/
-&F(
8 G
/ *,-5
@ +2 5:+ K 45: +
Q
*
# *-$ 78
A SESUAI dgn FORM masing2. Ini adalah FORM MENCARI DATA interaktif
61
$
4
8
/+
4K
% K14 !4
4K
$4
A% #G O 6 AE % O6 A '&' O6
4 5
8
G#$ N
/+
4$6
<4
78
62
FORM mencari data BARANG & JASA Interaktif: Form muncul pada saat TOMBOL F1 ditekan : di GRID di KOLOM (0) KODE / (1) NAMA BARANG
CODE di FORM : Procedure : ' 5 A A ' ' '
79 $91& 58
5
+5
( % #G ( F& )N
# ?GNE
N .-5 78 FN )#/)#N N& O QQ O Q ) )5' ? N N N
.-5 78 .O ? * & .-@ 7 '
1 5A45/%&8'.
578
.-& . N .8
7A
@#&
(5&??N
# ?GNE
)#
Q
.8
63
-
G / *, . O ' N . O G / * ' # * O@
. *
.
-@ # *
.
) ' ' '
N
.N N
5&??N
:
78 ..O ?
.-5
78
79 $91& 58
5
FN
' A
N O QQ
& ) $
78
)#/)#N N& .-5
#
578
78
? A
-# A
5 44A '.
,-5
.
O'
'
O QQ
xSQL = "SELECT NAMA,HARGA,KODE_BARANG_JASA FROM BARANG_JASA " & _ " WHERE NAMA LIKE '%" & Me.TEXTBOX_cari.Text & "%' " & _ " ORDER BY NAMA " )
$
$
-# A
2-5
.
O'
'
O QQ
xSQL = "SELECT NAMA,HARGA,KODE_BARANG_JASA FROM BARANG_JASA " & _ " WHERE KODE_BARANG_JASA LIKE '%" & Me.TEXTBOX_cari.Text & "%' " & _ " ORDER BY KODE_BARANG_JASA " )
$
' ' '
N N N
-
. *
.-5 78 .O ? * & .-@ 7 '
.-& . N .8
G / *, . O ' N . O G / * ' # * O@
7A
.
(5&??N
-@ # *
.8
.
64
) ' N .' N .5&??N .-5 78
78 78
)
:
7 &158
& ) 5 EL
#
5
? A
FN
)#/)#N N&
2: A? A% #G AF& )
0-1-7 O O O -
@+ 2 @+ 2 @+ 2 -
G G G
/ *,-$ / *,-$ / *,-$
'# N .-5 78 5 N .78 5&??N .-5 78 -5
+5/%&8'.
76( 7,( 72(
578 %& , A + + G / *,. 5 -$ 768-/ G / *,. 5 -$ 7,8-/ G / *,. 5 -$ 728-/ #$ N #$ N #$ N
8-/ 8-/ 8-/
E
7
E
%/
E 0-8 5
%
/5
O AF& ) O A? O A% #G
FORM 9 sesuai dengan FORM masing2…. Yaitu FORM 1-Many
78
)
65
CODE di FORM : Tombol Tombol $
4
5
$
?5
4
5
$
-7 -1% @% $?N
-5
N'
A
)N NG#$ 78
-7 -1 7 &18 $ N
4
' N
$
' N
%
/ $
A
NG#$ 78
-7 -1 C&
$
A
78
CODE di FORM : Lainnya $ $
4
8
-F "5 5 ) $
/+ O F " -# $ N ' N
4K
0438 K
' NG#$ 78
66
Design Report
CETAK BON SERVICE:
•
#
•
0-
/%-9 0 & 4<
% &$ ?
5 4+ ! 4
-8 $
67
68
69
70
VV ? A
VV ? A
71
@$?$ %
G#& +
72
73
FORM Viewer CrystalReport:
Viewer CrystalReport
'
5
M
74
Crystal Report Dasar 0 2,
:<
A4+
A+4, +
% 7
P
-%
8 %
.
,A
/
8 %
"
7
P
*
8
.
8
/%-9 %
)' $ 7
"
.
8
/%-9 @
/ @-7
P
.
% 7
P
"
%
*
-% @-.
8
% P
8
75
8 B +8
4
Q
$& 1@& 18
Special Field. Fungsi2 yg siap digunakan dl report
76
& / 909%
0 %
9A + 04+
04+ ++ 1
L ,4
77
7 %/& 0 %
Y ?
'2 +<
C
9 484B
*: K 6*A+*A
7 + <
+4, +.
2
"Z
78
742:
7
/9%9 0
Y
@$)
"
8
' -% -%8 %.
# 'F ?(
V
F $F 2AZ
79
7
/
9% 91
/
A
: 4+4, + 'A +4
:4+,
F
5
6 B
? *5
. 9 8
4+L +!4.
(
80
Imut, Manis, Guanteng, Keren & penyayang Indra Erawan Sanjaya, SKom
[email protected] [email protected]
0852-17-609-601
***- F
+
-.
cara cepat menjadi programmer & membuat system
| toko online | | free source code, tutorial, referensi system, unek2 programmer | BAHASA: |Vb6|Delphi|vbNet|C#|ASPnet|PHP|Access|SQLserver|MySQL|PostgreSQL|Oracle10g|Excel|dll| REPORT: |Crystal Report|Active Report|HTML report|XML report|Excel|TextFile|dll| SYSTEM: |Purchase|Sales|Inventory|PPIC|Production|WH|Payroll|Attendance|Sekolah|Kampus|Toko|Apotik|dll|
81