Description
This project is made for one of the big decorator services in Mumbai, they supply decorating item to film industry for movie shooting. Presently they issue their client handwritten invoice and they enter details in manual register
eBilling and Invoice System
OBJECTIVE.......................................................................................................................................................................1
PROJECT SCOPE.............................................................................................................................................................2
CUSTOMER, PRODUCTS, BILLING GENERATION...............................................................................................................2
REPORT GENERATION SYSTEM.........................................................................................................................................2
OUT OF SCOPE.................................................................................................................................................................3
GOA..................................................................................................................................................................................!
SOLUTION CONCEPT.........................................................................................................................................................3
USER PROFILES................................................................................................................................................................5
USAGE SUMMARY............................................................................................................................................................6
REQUIREMENTS SUMMARY..............................................................................................................................................7
Business Requirements...............................................................................................................................................7
User Requirements.....................................................................................................................................................7
Operational Requirements..........................................................................................................................................8
System Requirements..................................................................................................................................................9
SUCCESS CRITERIA...........................................................................................................................................................9
Sales Automation........................................................................................................................................................9
"ESIG# GOAS A#" CO#STRAI#TS......................................................................................................................1$
PERFORMANCE...............................................................................................................................................................10
AVAILABILITY................................................................................................................................................................10
RELIABILITY...................................................................................................................................................................10
SCALABILITY..................................................................................................................................................................10
SECURITY.......................................................................................................................................................................10
INTEROPERABILITY........................................................................................................................................................10
LOCATION.......................................................................................................................................................................10
SETUPINSTALLATION.....................................................................................................................................................10
%EAT&RES'%&#CTIO#AIT(....................................................................................................................................1$
SO%T)ARE A#" *AR")ARE RE+&IRE,E#T....................................................................................................1!
General Requirement for Server/Client:..................................................................................................................!
"EVEOP,E#T TOOS A#" TEC*#OOGIES...................................................................................................1!
"EVEOP,E#T TOOS A#" TEC*#OOGIES...................................................................................................1-
FRONT END....................................................................................................................................................................1!
BAC" END......................................................................................................................................................................1!
DEVELOPMENT ENVIRONMENT......................................................................................................................................15
&SE CASE S&,,AR(..................................................................................................................................................1.
MANAGE ORDERS..........................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................$
MANAGE PRODUCTS......................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................$
MANAGE CONTACTS......................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................7
ANALY#E CUSTOMERS...................................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
FORECAST SALES...........................................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
ESTABLIS$ SALES GOALS..............................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
USAGE SCENARIOS.........................................................................................................................................................1%
Use Case (": UC ).7. Retrieve Customer "ata.....................................................................................................8
(ntent.........................................................................................................................................................................8
S#enario %arrative...................................................................................................................................................8
Assumptions/'re#on&itions......................................................................................................................................8
A#tors.......................................................................................................................................................................8
Basi# Course............................................................................................................................................................8
Alternate Course......................................................................................................................................................8
Uses/*+ten&s............................................................................................................................................................8
User (mplementation Requests.................................................................................................................................8
,requen#y.................................................................................................................................................................8
Aut-ority...................................................................................................................................................................8
Asso#iate& Spe#ifi#ations.........................................................................................................................................9
(ssues........................................................................................................................................................................9
"e#ision 'oints........................................................................................................................................................9
,uture Requirements................................................................................................................................................9
.o&ifi#ation.............................................................................................................................................................9
Use Case .o&el: Retrieve Customer "ata............................................................................................................../0
USE CASE ID& UC 0!.7.2 MANAGE PRODUCTS.............................................................................................................21
INTENT...........................................................................................................................................................................21
SCENARIO NARRATIVE...................................................................................................................................................21
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................21
ACTORS..........................................................................................................................................................................21
BASIC COURSE&..............................................................................................................................................................21
ALTERNATE COURSE&.....................................................................................................................................................21
USESE'TENDS...............................................................................................................................................................21
USER IMPLEMENTATION REQUESTS...............................................................................................................................21
FREQUENCY...................................................................................................................................................................21
AUT$ORITY....................................................................................................................................................................21
ASSOCIATED SPECIFICATIONS........................................................................................................................................21
ISSUES............................................................................................................................................................................22
DECISION POINTS...........................................................................................................................................................22
FUTURE REQUIREMENTS................................................................................................................................................22
MODIFICATION...............................................................................................................................................................22
USE CASE& MANAGE PRODUCTS....................................................................................................................................23
USE CASE ID& UC 0!.7.3 MANAGE ORDERS.................................................................................................................2!
INTENT...........................................................................................................................................................................2!
SCENARIO NARRATIVE...................................................................................................................................................2!
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................2!
ACTORS..........................................................................................................................................................................2!
BASIC COURSE&..............................................................................................................................................................2!
USESE'TENDS...............................................................................................................................................................2!
USER IMPLEMENTATION REQUESTS...............................................................................................................................2!
FREQUENCY...................................................................................................................................................................2!
AUT$ORITY....................................................................................................................................................................2!
ASSOCIATED SPECIFICATIONS........................................................................................................................................25
ISSUES............................................................................................................................................................................25
DECISION POINTS...........................................................................................................................................................25
FUTURE REQUIREMENTS................................................................................................................................................25
MODIFICATION...............................................................................................................................................................25
USE CASE ID& UC 0!.7.3 MANAGE CONTACTS.............................................................................................................27
INTENT...........................................................................................................................................................................27
SCENARIO NARRATIVE...................................................................................................................................................27
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................27
ACTORS..........................................................................................................................................................................27
BASIC COURSE&..............................................................................................................................................................27
USESE'TENDS...............................................................................................................................................................27
USER IMPLEMENTATION REQUESTS...............................................................................................................................27
FREQUENCY...................................................................................................................................................................27
AUT$ORITY....................................................................................................................................................................27
ASSOCIATED SPECIFICATIONS........................................................................................................................................27
ISSUES............................................................................................................................................................................2%
DECISION POINTS...........................................................................................................................................................2%
FUTURE REQUIREMENTS................................................................................................................................................2%
MODIFICATION...............................................................................................................................................................2%
SO&TIO# ARC*ITECT&RE.....................................................................................................................................!$
INFRASTRUCTURE...........................................................................................................................................................30
VISUAL DESIGN.............................................................................................................................................................30
CONCEPTUAL DESIGN....................................................................................................................................................30
LOGICAL DESIGN...........................................................................................................................................................32
P$YSICAL DESIGN..........................................................................................................................................................3!
EBII#G A#" I#VOICE S(STE, "ATA "ICTIO#AR(...................................................................................!/
EBII#G A#" I#VOICE S(STE, "ATA "ICTIO#AR(....................................................................................!.
TABLE & PRODUCT(MASTER...........................................................................................................................................36
TABLE & BILL..................................................................................................................................................................36
TABLE & BILL(DETAILS...................................................................................................................................................37
TABLE & COMPANY(MASTER..........................................................................................................................................37
TABLE & USER(MASTER..................................................................................................................................................3%
EBII#G A#" I#VOICE S(STE, 0 "ATA SC*E,A ER "IAGRA,..............................................................!1
EBII#G A#" I#VOICE S(STE, "%" 2"ATA %O) "IAGRA,3.................................................................-$
%OR, "ESIG# A#" CO"I#G....................................................................................................................................-1
,rmSplas-................................................................................................................................................................)
,rm1o2in..................................................................................................................................................................)!
,rm.ain...................................................................................................................................................................)$
,rm'ro&u#ts.............................................................................................................................................................)8
,rmBill.....................................................................................................................................................................3)
,rmReports...............................................................................................................................................................7
,rm'rintBill.............................................................................................................................................................7!
'ro&u#tSummary Report..........................................................................................................................................73
,rmBillSummary......................................................................................................................................................7$
,rm*+port"ata........................................................................................................................................................78
,rmUtlity..................................................................................................................................................................8)
,rmCompa#tAn&Repair"ata4ase............................................................................................................................8$
,rmBa#5up"ata4ase................................................................................................................................................88
,rmCompany(nfo.....................................................................................................................................................9
,rmClient(nfo...........................................................................................................................................................9$
,rmC-an2e'ass6or&.............................................................................................................................................0
.o&Gen..................................................................................................................................................................0!
.o&Bro6se.............................................................................................................................................................03
.o&Rs7o8or&........................................................................................................................................................07
EBII#G A#" I#VOICE S(STE, TEST PA#..................................................................................................111
INTRODUCTION.............................................................................................................................................................111
TEST SCOPE..................................................................................................................................................................111
TEST STRATEGY...........................................................................................................................................................111
PRECONDITIONS...........................................................................................................................................................112
TEST PRIORITIES..........................................................................................................................................................112
TEST TEC$NIQUES........................................................................................................................................................112
TEST ORGANI#ATION....................................................................................................................................................113
ROLES AND RESPONSIBILITIES.....................................................................................................................................113
DELIVERABLES.............................................................................................................................................................113
TEST ENVIRONMENT....................................................................................................................................................113
$ARD)ARE AND SOFT)ARE........................................................................................................................................113
TESTING AUTOMATION SOFT)ARE..............................................................................................................................11!
APPLICATION CONFIGURATION.....................................................................................................................................11!
TEST MANAGEMENT....................................................................................................................................................11!
TESTING SC$EDULES....................................................................................................................................................11!
T$REATS TO TESTING...................................................................................................................................................115
CO#C&SIO# A#" %&T&RE E#*A#CE,E#T...................................................................................................11.
BIBIOGRAP*(...........................................................................................................................................................114
)EBSITES.....................................................................................................................................................................117
BOO"S..........................................................................................................................................................................117
OBJECTIVE
T*+, -./0123 +, 4561 7/. /81 /7 3*1 9+: 612/.53/. ,1.;+21, +8 M<495+, 3*1= ,<-->= 612/.53+8: +314 3/
7+>4 +86<,3.= 7/. 4/;+1 ,*//3+8:. P.1,183>= 3*1= +,,<1 3*1+. 2>+183 *586?.+3318 +8;/+21 586 3*1= 1831.
6135+>, +8 458<5> .1:+,31.. A86 45+835+8 MS E@21> 7+>1 7/. -./6<23 .531. T*1= ?583 2/4-<31.+A53+/8
/7 3*1+. 458<5> +8;/+21 586 9+>> :181.53+/8 -./21,,.
T*1 2>+183 <,1, MS E@21>, 586 45+835+8, 3*1+. -./6<23 >+,3, 2<,3/41. >+,3, 586 -.+83, 3*1 +8;/+21,
*/?1;1. +3 +, 8/3 -/,,+9>1 3*14 3/ ,*5.1 3*1 6535 7./4 4<>3+->1 ,=,314 +8 4<>3+ <,1. 18;+./84183,
3*1.1 +, >/3 /7 6<->+2531 ?/.B, 586 2*5821 /7 4+,35B1. )*18 3*1 -./6<23 -.+21 5.1 2*58:16 3*1= 8116
3/ <-6531 152* 586 1;1.= 1@21> 7+>1. T*1.1 +, 8/ /-3+/8 3/ 7+86 586 -.+83 -.1;+/<, ,5;16 +8;/+21.
T*1.1 +, 8/ ,12<.+3=C 58= 9/6= 258 5221,, 58= .1-/.3 586 ,18,+3+;1 6535, 5>,/ 8/ .1-/.3, 3/ 7+86 /<3
3*1 ,5>1, ;/><41, ,3/2B >+,3, 586 ,<445.= .1-/.3. T*+, 1B+>>+8: 586 +8;/+2+8: ,=,314 +, <,16 3/
/;1.2/41 3*1 183+.1 -./9>14 ?*+2* 3*1= 5.1 752+8: 2<..183>=, 586 45B+8: 2/4->131 53/4+A53+/8 /7
458<5> 9+>>+8: 586 +8;/+2+8: ,=,314
1'1$4
$+:* L1;1> S/><3+/8 A.2*+3123<.1
2'1$4
User Profiles
T*1 7/>>/?+8: <,1. 3=-1, 5.1 1@-12316 7/. 3*1 1B+>>+8: 586 I8;/+2+8: S=,314&
&se5 B5ie6 "esc5i7tion o6 &se Actions
S5>1, R1-.1,18353+;1 D/?8>/56, 586 <->/56, 2<,3/41. 586 /.61.
+87/.453+/8, ?*+2* 577123, 522/<83+8:, +8;183/.= 586
-./6<23 6535. V+1? 2<,3/41. 586 -./6<23 6535 5,
61,2.+916 +8 413.+2,, 3.52B /.61., 586 61>+;1.+1,.
M585:1. A>> ,5>1, .1-.1,18353+;1 <,1 523+/8,, 586 4585:14183
.1-/.3,, D</35 1,359>+,*4183, .1-/.3+8: 586
560<,34183.
A22/<83583 V+1? 586 -.+83 ,3/2B,, 3.52B /.61.,. U-6531 -./6<23
6135+>, >+B1 -.+21.
MIS E@12<3+;1 G181.531 .1-/.3,, ;+1? 586 -.+83 +8;183/.= .1-/.3,,
;+1? 586 -.+83 ,3/2B .1-/.3,.
!'1$4
Usage Summary
1B+>>+8: 586 I8;/+2+8: S=,314 V1.,+/8 1.0 ?+>> 566.1,, 3*1 7/>>/?+8: <,1 25,1,. T*1 2/4->131 <,5:1
,2185.+/, ?+>> 91 2/4->1316 6<.+8: 3*1 +87/.453+/8E:53*1.+8: -./21,,. U,1 25,1, ?+>> 91 2.15316 586
-.+/.+3+A16. S1>12316 <,1 25,1, ?+>> 91 1@-58616 +83/ <,5:1 ,2185.+/, 586 7153<.1, 3*53 5.1 61.+;16
7./4 9/3* <,1 25,1, 586 3*1 <,5:1 ,2185.+/,, 5, .1-.1,18316 +8 3*1 7/>>/?+8: 6+5:.54&
U,5:1
,<445.=
<,1 25,1
-'1$4
Requirements Summary
T*1 7/>>/?+8: -.1>+4+85.= >+,3, 5.1 95,16 /8 +8+3+5> +831.;+1?,
Business Requirements
T*1 9<,+81,, :/5> 7/. 3*1 5-->+253+/8 +, 3/ ,<--/.3 58 +82.15,1 3*1 -./6<23+;+3= 586 2/4->131
5<3/453+/8 /7 1@+,3+8: 458<5> 9+>> 586 +8;/+21 :181.53+/8 -./21,,. B<,+81,, .1D<+.14183, 5.1
6+,2<,,16 +8 3*1 S2/-1 ,123+/8, ?+3* 3*1 7/>>/?+8: 566+3+/85> 6135+>&
• S5>1, .1-.1,18353+;1, 8116 5 413*/6 3/ ,3/.1 586 5221,, ,5>1, /--/.3<8+3= 6535, 586 ?*18 5
,5>1 +, :181.5316, 2/8;1.3 ,/41 /. 5>> /7 3*1 +87/.453+/8 +83/ 5 ,5>1, /.61. ?+3*/<3 .1E1831.+8:
+87/.453+/8.
• E52* ,5>1, .1-.1,18353+;1 ,*/<>6 .121+;1 2<,3/41. 586 ,5>1, 6535 -1.3+8183 /8>= 3/ 3*14.
• T*1 522/<83583 ,*/<>6 91 59>1 3/ 1831. /. <-6531 -./6<23 +87/.453+/8 +8 /81 +831.7521 /8>=,
?+3* 5>> 8121,,5.= -./6<23 +87/.453+/8 91+8: .121+;16 9= ,5>1, ,3577.
• M585:1. 4<,3 .121+;1 *+, /. *1. 2<,3/41. 586 5--/+834183 6535 -><, 6135+>16 586 ./>><-
+87/.453+/8 7/. 152* ,5>1, .1-.1,18353+;1 /8 *+, /. *1. 3154.
• T*1 5-->+253+/8 ,*/<>6 ,<--/.3 3*1 25-59+>+3= 3/ <,1 4<>3+ <,1. 18;+./84183.
• T*1 MIS E@12<3+;1 ,*/<>6 59>1 3/ :181.531 5>> 3=-1 /7 .1-/.3, 5, 586 ?*18 .1D<+.16 9= 3*1
4585:14183.
T*1 ,5>1, ,3577 ?583, 3/ +4-./;1 3*1+. 2<..183 59+>+3= 3/ 585>=A1 3*1+. 2<,3/41.,. I8 -5.3+2<>5., 3*1=
?583 3/ 7/2<, /8 +6183+7=+8: 3*1+. 91,3 2<,3/41., 586 9<+>6+8: >/8:E31.4 .1>53+/8,*+-, ?+3*+8 3*53
95,1. T/ 1859>1 3*14 3/ 522/4->+,* 3*+, :/5>, 3*1= ?583 3/ [email protected] 4158+8:7<> 6535 3*53 15,+>=
58,?1., 3*1 7/>>/?+8: D<1,3+/8,&
• )*53 5.1 3*1 15.>= ?5.8+8: ,+:8, /7 -./9>14,F
• )*/ 5.1 4= 91,3 2<,3/41., 52./,, -./6<23 >+81,F
• )+3* ?*/4 6/ I 7/2<, 4= 177/.3, 7/. 9<+>6+8: 5 >/8:E31.4 .1>53+/8,*+-F
• )*53 5.1 4= 2<,3/41.,G +,,<1, 5, :./<-,F
• G1/:.5-*+25>>=, ?*1.1 5.1 4= 91,3 2<,3/41.,F
• )*53 -./6<23, 5.1 4= 2<,3/41., 9<=+8: 586 53 ?*53 .531F
User Requirements
U,1. .1D<+.14183, 5.1 2531:/.+A16 9= <,1. 3=-1.
Sales Sta66 2Re75esentatives and ,anage5s3
• V+1? 3*1 6535 +8 ;5.+/<, ?5=,, 7/. 1@54->1&
o C<,3/41., ?*/ 5.1 3*1 3/- 9<=1., /7 ,-12+7+2 +314,
o B1,3 2<,3/41., 95,16 /8 2.+31.+5 3/ 91 6131.4+816
o B1,3 2<,3/41., 95,16 /8 :1/:.5-*+25> 585>=,+,
o D./-, +8 5 2<,3/41.G, ,5>1,
/'1$4
• S3/.1 4<>3+>+8:<5> 586 4<>3+.1:+/85> +87/.453+/8 +8 3*1 653595,1 .53*1. 3*58 .1>=+8: /8 3*1
,5>1, ,3577 3/ 3.58,>531 3*1 +87/.453+/8
• I6183+7= ?*+2* -./6<23 -.+21, *5;1 9118 4/6+7+16, 1,-12+5>>= /8 2<..183 /.61., +8 -./:.1,,
• U,1 /--/.3<8+3= .<>1,, ?*+2* 5.1 ,35314183, 3*53 *1>- 3*1 ,5>1, .1-.1,18353+;1 2/8;1.3 58
/--/.3<8+3= +83/ 5 ,5>1
• A66 3*+.6E-5.3= 6535 ,/<.21, 586 7+8582+5> 1;5><53+/8 3//>,
• I6183+7= ?*1.1 -./4/3+/8, 586 -./:.54, ?/<>6 91 3*1 4/,3 91817+2+5>
• A-->= 6+,2/<83, 3/ 2<,3/41. /.61.,&
o S5>1, .1-.1,18353+;1, 258 /771. 6+,2/<83, <- 3/ 15 -1.2183, /. <- 3/ 20 -1.2183 ?+3*
5<3*/.+A53+/8.
o S5>1, 4585:1., 258 /771. 6+,2/<83, <- 3/ 20 -1.2183
• E859>1 25-3<.1, 585>=,+,, 586 ,*5.+8: /7 6535 59/<3 5 2<,3/41. 52./,, 3*1 2/4-58=
• U,1 7/.125,3, 3/ 1,359>+,* ,5>1, :/5>,
• A>>/? 5>> ,3577 3/ ;+1? 5>> 2/83523,, 9<3 5>>/? 152* 2/83523 3/ 91 5,,+:816 3/ 5 ,5>1, .1-.1,18353+;1
Acco8ntant
• U-6531 -./6<23 6135+>,, +82><6+8: -.+21, -*/3/, 586 61,2.+-3+/8
• A66, 61>131, 586 <-6531 -./6<23 ,-12+7+253+/8,
• G181.531 ,3/2B .1-/.3, 586 2*12B 3*1 5;5+>59+>+3=, /.61. 3*1 +314 5, 586 ?*18 811616.
,IS E9ec8tive
• G181.531 R1-/.3, 5, -1. .1D<+.14183.
• S*5.1 3*1 6535, 586 2/8;1.3 .1-/.3, 3/ 6+771.183 7/.453 >+B1 T1@3, CSV.
Operational Requirements
T*1 7/>>/?+8: .1D<+.14183, -./;+61 5 *+:*E>1;1> ;+1? /7 */? 3*1 ,=,314 ?+>> .<8&
• P./21,,/. <,5:1 ,*/<>6 8/3 1@2116 %0 -1.2183 6<.+8: 2/82<..183 <,1,.
• B52B<-, ?+>> /22<. +82.141835>>= 3*./<:*/<3 3*1 65=.
• A 7<>> ?11B>= 952B<- +, .1D<+.16 3/ )ORM 6.+;1,.
• E8,<.1 3*53 +87/.453+/8 +, 15,= 3/ 5221,, 1+3*1., 586 4158+8:7<> 7/. 3*1 ,5>1, .1-.1,18353+;1
586 3*1 2/4-58=.
• M+8+4+A1 3*1 312*8+25> B8/?>16:1 3*53 ,5>1, 586 45.B13+8: ,3577 8116 3/ 5221,, 3*1 6535,
:181.531 56 */2 D<1.+1,, 3.52B -./4/3+/8,, 586 ;+1? 2<,3/41. ,1:418353+/8 +87/.453+/8.
• A8= 2*58:1 3/ +87/.453+/8 4<,3 91 .17>12316 +4416+531>=, 586 3*1 2*58:1, 4<,3 91
-./-5:5316 3/ 3*1 ,15.2* 18:+81 ,/ 3*53 14->/=11, 3*53 -1.7/.4 ,15.2*1, ,11 3*+, 81?
+87/.453+/8.
• T*1 5-->+253+/8 ,*/<>6 ?/.B ?+3* 3*1 1@+,3+8: 2/44<8+253+/8, 586 813?/.B+8:
+87.5,3.<23<.1.
.'1$4
• T*1 5-->+253+/8 ,*/<>6 61->/= ?+3* 5 4+8+4<4 /7 566+3+/85> /-1.53+/85> -./21,,1,, 458<5>
/. /3*1.?+,1.
System Requirements
T*1,1 5.1 566+3+/85> 2/8,3.5+83, 7./4 5 ,=,314 -1.,-123+;1&
• P.1;+/<, 6535 /7 2<,3/41., -./6<23 6135+>, 4<,3 91 +4-/.316 +8 3*1 81? ,=,314.
• T*1 564+8+,3.53/. 4<,3 91 59>1 3/ 4/8+3/. 1;1.=3*+8: 7./4 3*1 IT 61-5.34183.
• T*1 +87/.453+/8 4<,3 91 5221,,+9>1 9= 1;1.=/81 +8 3*1 2/4-58= 5, -1. 3*1 .+:*3, ,-12+7=.
Success Criteria
T/ 6131.4+81 3*1 ,<221,, /7 3*+, -./0123, 3*1 7/>>/?+8: 413.+2, 258 91 D<583+7+16 586 <,16 3/ 585>=A1
,<221,, 7523/.,.
Sales Automation
• P5o:lem c8stome5 identi6ication. A9+>+3= 3/ +6183+7= 3/- 10 61;1>/-+8: -./9>14 2<,3/41.,
9= ,5>1, .1-.1,18353+;1.
• Identi6ication o6 :est c8stome5s ac5oss 75od8ct lines and 5egions. A>> 2<,3/41., 258 91
,/.316 9= 3*1 7523/., H3/ 91 6131.4+816I 3*53 .58B 3*14 D<5>+353+;1>=. V5.+59>1 ,/.3, 586
.58B+8:, 258 91 2*/,18 9= 3*1 ,5>1, .1-.1,18353+;1.
• Identi6ication o6 iss8es ac5oss g5o87s. A>> 2<,3/41., 258 91 ,/.316 9= 3*1 +,,<1, H3/ 91
6131.4+816I ?+3*+8 :./<- 2531:/.+1, 3*53 258 91 <-65316. V5.+59>1 ,/.3, 586 .58B+8:, 258 91
2*/,18 9= 3*1 ,5>1, .1-.1,18353+;1 /. /3*1. <,1..
• Analysis o6 ;8antities and 5ates o6 75od8cts. P./6<23, 258 91 ,/.316 9= 3*1 D<583+3= 586
6531, ,/>6. V5.+59>1 ,/.3, 586 .58B+8:, 258 91 2*/,18 9= 3*1 <,1..
4'1$4
Design Goals and Constraints
Performance
N/ 4/.1 3*58 5 5E-1.2183 61:.5653+/8 +8 5;1.5:1 D<1.= .1,-/8,1 +, 5>>/?16 ?*+>1 5>> 2/82<..183 <,1.
5.1 <,+8: 3*1 ,=,314.
P./21,,/. <3+>+A53+/8 ,*/<>6 8/3 1@2116 %0 -1.2183 6<.+8: 5>> 2/82<..183 <,1., 5.1 <,+8: 3*1 ,=,314.
Availability
B125<,1 3*1 ,=,314 +, 5221,,16 9= ,5>1, .1-.1,18353+;1 3/ 9//B 3*1 /.61. 586 -.+83 3*1 +8;/+21, 586
3*1+. ,*/<>6 8/3 91 58= ,+8:>1 -/+83 /7 75+><.1.
Reliability
B125<,1 /7 3*1 8116 8/ ,+8:>1 -/+83 75+><.1, 5<3/453+2 75+>/;1. ?+>> 91 .1D<+.16. I8 566+3+/8, 1@+,3+8:
6+,5,31. .12/;1.= 586 952B<- ->58, 586 -./216<.1, 4<,3 91 .1;+,16 3/ +82/.-/.531 3*1 1B+>>+8: 586
I8;/+2+8: S=,314.
Scalability
1B+>>+8: 586 I8;/+21 S=,314 58 5;1.5:1 >/56 /7 50 2/82<..183 <,1., 5731. 3*1 ,=,314 +, 7<>>=
/-1.53+/85>, 586 1@-123, 3*53 3/ :./? 9= 5 -1.2183 152* =15. 7/. 3*1 81@3 7+;1 =15.,.
Security
F/. 3*1 ,18,+3+;1 2<,3/41. 586 /.61. 6535, 5>> <,1., ?+>> 8116 3/ >/: /8 3*1 ,=,314 ?+3* 3*1+. <,1. +6
586 -5,,?/.6.
E;1.= .1,/<.21 +8 3*1 ,=,314 5.1 617+816 9= 3*1 ./>1 586 -.+;+>1:16. S=,314 564+8+,3.53/. 5,,+:816
<,1. ./>1 586 -.+;+>1:16 7/. 3*1+. 5221,, .+:*3,.
Interoperability
I8 V1.,+/8 1.0 /7 3*1 1B+>>+8: 586 I8;/+21 S=,314, 3*1.1 5.1 8/ .1D<+.14183, 7/. +831./-1.59+>+3= ?+3*
/3*1. ,=,314,.
Location
T*1 1B+>>+8: 586 I8;/+21 S=,314 5.1 <,16 +8 3*1 2/4-58= /77+21 /8>=.
Setup/Installation
S13<- 586 +8,35>>53+/8 4<,3 8/3 +831..<-3 3*1 ,5>1, ,3577J, 65+>= 35,B, 586 ?/.B 7>/?.
<'1$4
Use Case Summary
Manage Orers
Desription
T*+, 7<823+/8 ?+>> 1859>1 ,5>1, .1-.1,18353+;1 3/ ->521 /.61., 7/. 1B+>>+8: 586 I8;/+21 S=,314
-./6<23,, 3.52B ,<94+3316 /.61.,, 586 ;+1? 2/4->1316 /.61., 586 -.+83 3*1 +8;/+21.
Business !eed
T*+, 7<823+/8 ?+>> 1859>1 ,5>1, .1-.1,18353+;1 3/ +831.523 ?+3* 1B+>>+8: 586 I8;/+21 S=,314 2535>/:
6+.123>= ?+3*/<3 3*1 +831.;183+/8 /7 58= /3*1. 14->/=11,.
"riority
$+:*
Manage Proucts
Desription
T*+, 7<823+/8 5>>/?, <,1. /7 1B+>>+8: 586 I8;/+21 S=,314 3/ 2.1531, 45+835+8, 586 61>131 +87/.453+/8
59/<3 -./6<23, +8 3*1 -./6<23 653595,1 3*53 258 3*18 91 ;+1?16 586 /.61.16 9= 2<,3/41.,, 586
5221,,16 586 <-65316 9= 3*1 ,5>1, ,3577.
Business !eed
T*+, 7<823+/8 ?+>> ,<--/.3 3*1 ,5>1, ,3577 ?+3* 522<.531 586 .1>1;583 +87/.453+/8, 586 ?+>> 5>,/
,<--/.3 3*1 M585:1 O.61., 7<823+/8 9= 18,<.+8: <-E3/E6531 -./6<23 +87/.453+/8.
"riority
$+:*
Manage Contacts
Desription
T*+, 7<823+/8 1859>1, 3*1 ,5>1, ,3577 3/ 2.1531 586 4585:1 2/83523, 5, ?1>> 5, ,*5.1 2/83523
+87/.453+/8 ?+3* 3*1 .1,3 /7 3*1 2/4-58=.
Business !eed
T*+, 7<823+/8 1859>1, <,1. /7 1B+>>+8: 586 I8;/+21 S=,314 3/ *5;1 522<.531 586 <-E3/E6531 2/83523
+87/.453+/8 ?*18 ?/.B+8: ?+3* 2<,3/41.,.
1'1$4
"riority
M16+<4
Analy!e Customers
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ 585>=A1 3*1 2<,3/41. 653595,1 586 7+86 /<3 +87/.453+/8, ,<2* 5,
3*1 +6183+3+1, /7 3*1 91,3 2<,3/41.,, 3*1 3/- 9<=1.,, 586 3*1 4/,3 -/-<>5. -./6<23,.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ 6131.4+81 3*1 4/,3 H586 >15,3I -./7+359>1 2<,3/41., 586
-./6<23 >+81,, 1859>+8: 91331. 612+,+/8 45B+8: +8 3*1 .<88+8: /7 3*1 9<,+81,,.
"riority
M16+<4
"orecast Sales
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ ->58 586 3.52B -./6<23+/8 2/,3,, 3.52B ,5>1, .1,<>3,, 586 ->58
,5>1, ,3577+8: 8116,.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ 4585:1 3*1 .1;18<1 ,3.154, /7 3*1 /.:58+A53+/8, 586
2/83./> 2/,3,.
"riority
M16+<4
#stablis$ Sales %oals
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ ;+1? 2<..183 ,5>1, 3.186, 586 14->/=11 -1.7/.45821 586 3/
6131.4+81 ,5>1, :/5>, 7/. 3*1 ,5>1, ,3577 ?+3*+8 3*1 /.:58+A53+/8.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ ,13 :/5>, 7/. ,3577, .1;+1? 3*1 -1.7/.45821 /7 ,3577 41491.,,
586 3.52B 14->/=11 -1.7/.45821.
"riority
M16+<4
1$'1$4
Usage Scenarios
U,5:1 ,2185.+/, 3*53 61,2.+91 */? <,1., ?+>> <,1 3*1 ,/><3+/8 ?+3*+8 3*1 2/831@3 /7 3*1 9<,+81,,, S11
7/>>/?+8: <,5:1 ,2185.+/,.
Use Case ID# UC $%&%' Retrie(e Customer Data
T+3>1& UC 0!.7.1 R13.+1;1 C<,3/41. D535
A99.1;+5316 T+3>1& R13.+1;1 C<,3/41. D535
R1D<+.14183 ID& 21
Intent
R13<.8 3*1 ,1>12316 +87/.453+/8 59/<3 /81 /. 4/.1 2<,3/41.,.
Scenario &arrative
A sales 5e75esentative may =ant to sea5c> 6o5 and 5et5ieve in6o5mation a
8t one o5 mo5e
c8stome5s 6o5 8se in analysis and 6o5ecasting activities.
Assumptions/Preconitions
1. S5>1, .1-.1,18353+;1 *5, 5221,, .+:*3, 3/ ;+1? 2<,3/41. 6535.
Actors
1. S5>1, R1-.1,18353+;1
'asic Course
1. U,1 25,1 91:+8, ?*18 3*1 ,5>1, .1-.1,18353+;1 612+61, 3/ .13.+1;1 2<,3/41. +87/.453+/8.
2. S=,314 -./4-3, 7/. 3*1 3=-1 /7 2<,3/41. +87/.453+/8 3*53 +, .1D<+.16.
3. S5>1, .1-.1,18353+;1 ,1>123, 3*1 3=-1 /7 2<,3/41. +87/.453+/8 3/ 91 .13.+1;16.
!. S=,314 -.1,183, 3*1 5--./-.+531 2<,3/41. +87/.453+/8 3/ 3*1 ,5>1, .1-.1,18353+;1.
5. U,1 25,1 186, ?*18 3*1 ,1>12316 +87/.453+/8 +, -5,,16 3/ 5 413*/6 /7 61>+;1.=.
Alternate Course
1. I7 8/ 5--./-.+531 2<,3/41. +87/.453+/8 258 91 7/<86, ,=,314 .1-/.3, 3*+, 7523.
2. U,1 25,1 .1,35.3, 3/ 1859>1 ,5>1, .1-.1,18353+;1 3/ <-6531 3*1 3=-1 /7 2<,3/41. +87/.453+/8.
Uses/#(tens
1. N/81
User Implementation Requests
1. N/81
"requency
Q<+31 7.1D<183
Aut$ority
1. N/3 5-->+259>1
11'1$4
Assoiated Specifications
#8m:e5 #ame Catego5y Ty7e
Issues
1. N/81 +6183+7+16
)ecision Points
1. N/81
"uture Requirements
1. T*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ 5-->= 7+>31., 3/ 3*1 .13.+1;16 6535.
2. T*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ ,/.3 3*1 6535. F/. 1@54->1, 3*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ >+,3
3*1 8541, /7 2<,3/41., +8 2*./8/>/:+25> /.61. 95,16 /8 3*1 ,5>1 6531.
Moification
"ate A8t>o5 "esc5i7tion
12'1$4
Use Case Moel* Retrieve Customer )ata
1!'1$4
Use Case* Manage Orers
1-'1$4
Use Case I)* UC +,-.-/ Manage Contacts
T+3>1& UC 0!.7.2 M585:1 C/83523,
A99.1;+5316 T+3>1& M585:1 C/83523,
R1D<+.14183 ID& 19
Intent
E859>1 523/. 3/ 2.1531, ;+1?, 4/6+7= /7 3*1 +87/.453+/8 59/<3 2<,3/41. 2/83523,.
Scenario &arrative
An acto5 =ants to c5eate vie=? modi6y? and delete t>e c8stome5 contacts.
Assumptions/Preconitions
• T*1 523/. *5, .+:*3, 3/ 5221,, 3/ 3*1 1B+>>+8: 586 I8;/+21 S=,314, 586 *5;+8: .+:*3, 3/ ;+1?,
56,, 16+3 586 61>131 3*1 2<,3/41. 2/83523,.
Actors
• S5>1, R1-.1,18353+;1
• M585:1.
• A22/<83583
'asic Course*
• U,1 25,1 91:+8, ?*18 523/. 612+61, 3/ ,15.2* 2<,3/41..
• A23/. ,15.2*1, 3*1 2<,3/41..
• S=,314 6+,->5=, 3*1 2<,3/41. 6135+>,.
• A23/. ;+1? 3*1 2<,3/41. 2/83523 6135+>,&
• A23/. 566, 4/6+7= 3*1 2/83523 6135+>,.
Uses/#(tens
1. N/81
User Implementation Requests
1. N/81
"requency
F.1D<183
Aut$ority
2. N/3 5-->+259>1
Associate Specifications
#8m:e5 #ame Catego5y Ty7e
1/'1$4
Issues
2. N/81
)ecision Points
2. N/81
"uture Requirements
3. N/81
Moification
"ate A8t>o5 "esc5i7tion
1.'1$4
Solution Ar)iteture
Infrastructure
N1? ,1.;1., 4<,3 91 6<5> -./21,,/. 1.26 G$A 2/4-<31.,, ?+3* 1 GB /7 RAM. T*1 /-1.53+8: ,=,314
,/73?5.1 ?+>> 91 M+2./,/73® )+86/?,® 2000 ?+3* 3*1 >531,3 ,1.;+21 -52B, 5>3*/<:* <,1 /7 )+86/?,
S1.;1. 2003 ?+>> 91 2/8,+61.16 ?*18 +3 +, 5;5+>59>1.
T*1,1 ,1.;1., ?+>> 91 +8,35>>16 /8 1@+,3+8: 813?/.B.
T/ *1>- -./;+61 ,12<.+3= /7 3*1 5-->+253+/8, 9/3* 58 +831.85> 586 [email protected]> 7+.1?5>> ?+>> 91 +8,35>>16.
0isual )esign
S11 >531. /8 3*1 ;+,<5> +831.7521 61,+:8..
Conceptual )esign
F/. +87/.453+/8 59/<3 3*1 2/821-3<5> 61,+:8 ,11 3*1 <,1 25,1 /7 -.1;+/<, 2*5-31., /7 3*1 1B+>>+8: 586
I8;/+21 S=,314,
B<,+81,, R<>1 C535>/: /7 1B+>>+8: 586 I8;/+21 S=,314
BR ID
Business Rule
Title
Description Authority Current Process
1 Timely Product
Information
Adjustments
The product information,
price in the system must be
current 100% of the time.
Adjustments to this
information must be made at
any time.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
1. Product is identified by
Mana%er
#. &urrent information is
reie!ed and modifications
are identified.
'. Accountant notes chan%es
to information and obtains
approal from Mana%er.
(. Accountant ma)es the
chan%es to the product
information.
*. After approal is %ien by
all o!ners, Accountant saes
the chan%es.
14'1$4
2 +eactiatin%
,eleted
Products
A product can be -deleted,-
meanin% that it is no lon%er
sold by e.illin% and Inoice
/ystem. 0o!eer, the
product information should
be aailable in case the
product is reactiated at a
future time.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
1. Product is identified by
Mana%er.
#. Accountant is notified that
the product should be
remoed from the catalo%.
1otification comes from
Mana%er.
'. Accountant archies
product information and saes
the information in te2t and
%raphics files on an internal
business serer.
(. If a product is reactiated,
the Accountant receies
notification from Mana%er.
*. Accountant creates a ne!
product record in the
database and copies the
information from the files on
the internal business serer to
the database record.
". Accountant notifies product
information -o!ners- in
Mana%er to reie! the ne!
product record.
3. After approal is %ien by
all o!ners, Accountant ma)es
the product record aailable
to the catalo%.
3 Authori4ation
for &atalo%
&han%es
1o chan%e to product
information can be made
publicly aailable !ithout
the approal from the
information -o!ners,- usually
Mana%er.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
,eried from .+1
4 ,eliery of ,aily
Pricin% 5pdates
to /ales
The /ales force needs to use
the most up6to6date
information about product
pricin% and related
information, such as
aailability. 7ther!ise, sales
representaties miss
receiin% chan%es that do
affect them. This results in
the sales representaties
hain% to redo orders and
recalculate pricin%.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
8ery mornin% of eery day9
1. Accountant 5pdate the
pricin% from the endor.
1<'1$4
5 Authori4ation
for Information
Access
&ertain roles hae access to
certain information types
and functions. &urrent roles
include /ales +epresentatie,
/ales Mana%er, Accountant,
MI/ 82ecutie
Mr.ydeep
,as, IT
Mana%er.
Interie!
dated May 1#,
#00$
1. A suitable authority is
re;uested for creation of a
role.
#. The role is created and
authori4ed by the
authori4ation authority.
Logical )esign
#'illing an Invoice System Service Matri(
11'1$4
2$'1$4
B8siness
O
ects
Se5vices Acto5s 2Roles3 Res7onsi:ilities Colla5ation
s
&se Case
Re6e5ence
P./6<23,
M585:1
P./6<23,
• S5>1,
.1-.1,18353+;1
• S13 7+>31.+8:
+87/.453+/8
• G13 -.+21
4/6+7+253+/8,
• S1>123 5
2535>/: +314
7./4 2535>/:
+314
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• S1>123 5 2535>/:
+314
• G13 6135+>, /7
2535>/: +314
• G13 -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• S13 566.1,,
6135+>,
• G13 566.1,, >+,3
• V5>+6531 566.1,,
• C/87+.4
61>+;1.=
• S13 61>+;1.=
566.1,, 7./4
/.61.
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• P.+83 -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• V+1? -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• C<,3/41.
• S5>1,
.1-.1,18353+;1
• V+1? ,<445.=
+87/.453+/8
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• V+1? 6135+>16
+87/.453+/8
• N/81 U,1 C5,1 &
M585:1
P./6<23
E6+3
P./6<23,
• A22/<83583 • A66 +314 3/
2535>/:
• B./?,1
2535>/: +314,
• S13 +314
6135+>, 7./4
2535>/: +314
U,1 C5,1 &
E6+3 P./6<23
• A22/<83583 • G13 16+359>1
+314,
• S13 +314 6135+>,
• V5>+6531 +314
6135+>,
• S5;1 +314
6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
E6+3 P./6<23
S15.2*
P./6<23,
• S5>1,
.1-.1,18353+;1
• A22/<83583
• S5>1, 4585:1.
• L+,3 2531:/.+1,
• B./?,1 3/
2531:/.=
• L+,3 2535>/:
+314,
• V+1?
,<445.=
+87/.453+/8
7./4 2535>/:
+314
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• A22/<83583
• S5>1, 4585:1.
• S13 ,15.2*
2.+31.+5
• S15.2* 2535>/:
• N/81 U,1 C5,1 &
M585:1
P./6<23
O.61. M585:1
58 /.61.
• S5>1,
.1-.1,18353+;1
• S13 6+,-532*
412*58+,4
• E831. 6+,-532*
6135+>,
• V5>+6531
6+,-532* 6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S13 61>+;1.=
566.1,,
• N/81 U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• S13 /.61. 6135+>,
• G13 /.61.
6135+>, 7./4
/.61.
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• C5821> /.61.
• G13 /.61.
6135+>, 7./4
/.61.
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• C.1531 O.61.
• S13 /.61. 6135+>,
• A66 2535>/:
+314 3/ /.61.
• S13 61>+;1.=
566.1,,
• S13 -5=4183
6135+>,
• C/87+.4 /.61.
• S=82*./8+A1
/.61. ?+3* CE
61;+21
• B./?,1
2535>/: +314,
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S=82*./8+A1
/.61. ?+3*
>5-3/-
• S13 2<,3/41.
,+:853<.1
• B./?,1
2535>/: +314,
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S5>1, 4585:1.
• A-->= 5
6+,2/<83
• N/81 U,1 C5,1 &
M585:1
O.61.,
T.52B 58
/.61.
• S5>1,
.1-.1,18353+;1
• G13 /.61. ,353<, • N/81 U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• S13 6+,2/<83
54/<83
• V5>+6531
6+,2/<83 54/<83
• S13 /.61. 6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
M585:1
O.61.,
C<,3/41. T.52B 5
2<,3/41.
• S5>1,
.1-.1,18353+;1
• G13 2<,3/41.
6135+>,
• S15.2* 7/. 5
2<,3/41.
• N/81 U,1 C5,1 &
R13.+1;1
C<,3/41. D535
P$ysical )esign
e'illing an Invoice System P$ysical Ob1ect Moel
21'1$4
A ne2 prouct to prouct master sequence iagram
22'1$4
eBilling and In(oie System Data Ditionary
3able * prouct4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 5
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
Sno +83 N/3 5>>/?16
P5odTy7e 8;5.2*5.H60I N/3 5>>/?16
P5odS8:Ty7e 8;5.2*5.H60I N/3 5>>/?16
Rate +83 N/3 5>>/?16
isactive 8;5.2*5.H30I N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDP5od8ct,aste5Dsno 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
3able * bill
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 15
#8m:e5 o6 inde9esA 3
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
sno +83 N/3 5>>/?16
invoiceno 8;5.2*5.H60I N/3 5>>/?16
canme 8;5.2*5.H60I N/3 5>>/?16
InvoiceDdate 65313+41 N/3 5>>/?16
location 8;5.2*5.H60I N/3 5>>/?16
c>alanDno +83 N/3 5>>/?16
c8stome5Dname 8;5.2*5.H100I N/3 5>>/?16
C8stome5Dadd5ess1 8;5.2*5.H100I N/3 5>>/?16
C8stome5Dadd5ess2 8;5.2*5.H100I A>>/?16
TotalDamt +83 N/3 5>>/?16
disco8nt +83 N/3 5>>/?16
AmtD=o5ds 8;5.2*5.H100I N/3 5>>/?16
PaidDty7e 8;5.2*5.H60I N/3 5>>/?16
C>e;8eDno 8;5.2*5.H60I A>>/?16
Ent5yDdate 65313+41 N/3 5>>/?16
2!'1$4
Inde9es Ty7e Col8mns
PCDBillDS#O 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
IED:illDcname 8/82><,31.16 >/25316 /8
PRIMARY
28541
IED:illDinvoiceno 8/82><,31.16, <8+D<1 >/25316 /8
PRIMARY
+8;/+218/
3able * bill4etails
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 6
#8m:e5 o6 inde9esA 3
#8m:e5 o6 6o5eign BeysA 2
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
sno +83 N/3 5>>/?16
BillDsno +83 N/3 5>>/?16
P5odDsno 8;5.2*5.H60I N/3 5>>/?16
;ty 65313+41 N/3 5>>/?16
5ate 8;5.2*5.H60I N/3 5>>/?16
amt +83 N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDBillDdetailsDS#O 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
IED:illDdetailsD:illDsno 8/82><,31.16 >/25316 /8
PRIMARY
B+>>(,8/
IED:illDdeatilsD75odDsno 8/82><,31.16, <8+D<1 >/25316 /8
PRIMARY
P./6(,8/
3able * Company4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 7
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
Com7anyDname 8;5.2*5.H60I N/3 5>>/?16
Add5ess1 8;5.2*5.H100I N/3 5>>/?16
Add5ess2 8;5.2*5.H100I A>>/?16
city 8;5.2*5.H60I N/3 5>>/?16
7in +83 N/3 5>>/?16
2-'1$4
tele7>one 8;5.2*5.H60I N/3 5>>/?16
vatno 8;5.2*5.H60I N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDcoma7nyDmaste5Dcom7anyDname 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
C/45-85=(8541
IED coma7nyDmaste5D7in 8/82><,31.16 >/25316 /8
PRIMARY
-+8
3able * user4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 3
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
8se5Dname 8;5.2*5.H60I N/3 5>>/?16
&se5D7ass=o5d 8;5.2*5.H60I N/3 5>>/?16
&se5Dty7e 8;5.2*5.H60I A>>/?16
Inde9es Ty7e Col8mns
PCD8se5Dmaste5D8se5Dname 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
<,1.(8541
IED 8se5Dmaste5D8se5Dty7e 8/82><,31.16 >/25316 /8
PRIMARY
U,1.(3=-1
2/'1$4
eBilling and In(oie System * Data S)ema ER Diagram
2.'1$4
eBilling and In(oie System D+D ,Data +lo- Diagram.
24'1$4
+orm Design and Coding
+rmSplas)
(Module to show startup screen)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S!las" S#reen
' $sed %able : &A
'Module to s"o' startu! s#reen
'*************************************
(!tion )*!li#it
Dim r As +nteger
Dim i As +nteger
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.0e4t 5 1S#reen.6eig"t - Me.6eig"t2 7 2
Me.%o! 5 1S#reen.8idt" - Me.8idt"2 7 2
'333 get a random -alue to de#ide "o' many se#onds
'333 startu! s#reen s"ould be dis!layed
r 5 9nd * : ; 1
)nd Sub
,ri-ate Sub .orm/$nload1ByVal Can#el As +nteger2
'333 release all t"e re4eren#es
.rmS!las" 5 &ot"ing
)nd Sub
,ri-ate Sub %imer1/%imer12
2<'1$4
'333 #"e#< t"e ella!sed time
'333 i4 t"e ella!sed time greater t"en random -alue
'333 stored in 4orm load= sto! t"e timer
'333 s"o' main 4rom and #lose t"e startu! s#reen
i 5 i ; 1
+4 r 35 i %"en
i 5 0
%imer1.+nter-al 5 0
$nload1Me2
0oad1.rmMain2
.rmMain.S"o'12
)nd +4
)nd Sub
21'1$4
+rm/ogin
(Module to Authenticate User)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' 0ogin Module
' $sed %able : user/master
'Module to #"e#< user login and load
'user rig"ts as !er user ty!e.
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub Command1/Cli#<12
'333 #"e#< '"eat"er user name and !ass'ord are blan<
'333 i4 its is blan 'arn user to enter
+4 %*t$ser&ame.%e*t 5 >> (r %*t,ass'ord.%e*t 5 >> %"en
MsgBo*1>)nter user name and !ass'ord ...>= -b)*#lamation2
%*t$ser&ame.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< 4or entered #om!any
'333 ?uery to database and i4 no re#ord 4ound 'arn user to sele#t #om!any
4rom t"e list.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master '"ere #om!any/name5'> @
CmbCom!any&ame.%e*t @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
Com!any&ame 5 CmbCom!any&ame.%e*t
)lse
MsgBo*1>Sele#t #om!any name 4rom t"e list>= -b)*#lamation2
CmbCom!any&ame.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< 4or username and !ass'ord
!$'1$4
'333 ?uery to user/master 'it" user/name and !ass'ord
'333 i4 no re#ord 4ound #"e#< 'arn user 4or enter -alid user namne and
!ass'ord
'333 i4 re#ord 4ound store user/nmae= user/ty!e in global -ariable 4or
4uture use.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom user/master '"ere $S)9/name 5'> @ %*t$ser&ame.%e*t
@ >' and user/!ass'ord 5'> @ %*t,ass'ord @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
C"e#<0ogin 5 %rue
$ser&ame 5 ++41+s&ull19s1>$S)9/name>2.Value2 5 %rue= >&A>=
9s1>$S)9/name>2.Value2
$ser%y!e 5 ++41+s&ull19s1>user/ty!e>2.Value2 5 %rue= >&A>=
9s1>user/ty!e>2.Value2
$nload1Me2
)lse
MsgBo*1>+n-alid $ser &ame and ,ass'ord ... >= -b)*#lamation= >0ogin
)rror >2
%*t,ass'ord.%e*t 5 >>
%*t$ser&ame.Set.o#us12
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 #lose t"e a!!li#ation
)nd
.rm0ogin 5 &ot"ing
)nd Sub
,ri-ate Sub .orm/0oad12
'333 o!en t"e global #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
(!enCon12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 4ill t"e #ombo bo* 'it" all #om!any/name 4rom #om!any master
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
CmbCom!any&ame.Clear12
+4 9s.9e#ordCount 3 0 %"en
8"ile 9s.)(. 5 .alse
CmbCom!any&ame.Add+tem19s1>#om!any/name>22
9s.Mo-e&e*t12
)nd 8"ile
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
)nd Sub
!1'1$4
,ri-ate Sub .orm/Auery$nload1ByVal Can#el As +nteger= ByVal $nloadMode As
+nteger2
'333 release all t"e obBe#t -ariable used by 4orm
.rm0ogin 5 &ot"ing
)nd Sub
!2'1$4
+rm0ain
(Give user access to different module)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Main S#reen
' $sed %able : &A
'Module to s"o' di44rent o!tions
'*************************************
(!tion )*!li#it
,ri-ate Sub MD+.orm/A#ti-ate12
'333 s"o' t"e login 4orm as modulas 4or 4irst time
'333 '"en main 4orm a#ti-ate 4irst time
+4 C"e#<0ogin 5 .alse %"en
.rm0ogin.S"o'112
)nd +4
0blCom!any&ame 5 Com!any&ame
)nd Sub
,ri-ate Sub MD+.orm/9esiCe12
'333 re!osition t"e !i#turebo* as !er 4orm siCe
'333 to dis!lay t"e sele#ted #om!any name
,i#ture1.0e4t 5 Me.8idt" - ,i#ture1.8idt" - D00
)nd Sub
,ri-ate Sub %oolbar1/ButtonCli#<1ByVal Button As MSCom#tl0ib.Button2
'333 load a!!ro!riate 4orm as !er user #li#< on toolbar buttons
'333 in design time 'e set <ey -alue 4or ea#" toolbar button
+4 Button.Eey 5 >e*it> %"en
)nd
)lse+4 Button.Eey 5 >!rodu#t/master> %"en
.rm,rodu#ts.S"o'112
)lse+4 Button.Eey 5 >bill> %"en
.rmBill.S"o'112
)lse+4 Button.Eey 5 >utility> %"en
.rm$tility.S"o'112
)lse+4 Button.Eey 5 >re!orts> %"en
.rm9e!orts.S"o'112
)lse+4 Button.Eey 5 >#om!any> %"en
.rmC"angeCom!any.S"o'112
)nd +4
)nd Sub
!!'1$4
+rm"roduts
(Maintain Product master)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Maintain ,rodu#t Master
' $sed %able : !rodu#t/master
'
'Module to allo' user to sele#t !rodu#t
'add7modi4y !rodu#t details
'*************************************
(!tion )*!li#it
'33 de#alre 4orm le-el -alriable
Dim 9s As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Cmb,rodu#t%y!e/C"ange12
'333 as !er !rodu#t ty!e 4ill t"e !rodu#t list
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 sele#t t"e 4irst !rodu#t
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0
Dis!lay9e#ord12
)nd +4
)nd Sub
,ri-ate Sub Cmb,rodu#t%y!e/Cli#<12
'333 #all #"ange e-ent
Cmb,rodu#t%y!e/C"ange12
)nd Sub
!-'1$4
,ri-ate Sub CmdCan#el/Cli#<12
'333 #an#el u!date
)D1.alse= %rue2
Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4ron
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)dit/Cli#<12
'333 set 4lag to edit
)D1%rue= .alse2
Add)dit 5 >)D+%>
)nd Sub
,ri-ate Sub Cmd&e'/Cli#<12
'333 set t"e 4lag to add
'333 #laer te*t bo*
0blSr.Ca!tion 5 0
Cmb%y!e.%e*t 5 >>
%*t&ame.%e*t 5 >>
%*t9ate.%e*t 5 0
C"<A#ti-e.Value 5 1
)D1%rue= .alse2
Add)dit 5 >ADD>
)nd Sub
,ri-ate Sub CmdSa-e/Cli#<12
'333 -alidate t"e entry
+4 %rim1Cmb%y!e.%e*t2 5 >> %"en
MsgBo*1>Sele#t or )nter !rodu#t ty!e.>= -b)*#lamation2
Cmb%y!e.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*t&ame.%e*t2 5 >> %"en
MsgBo*1>)nter !rodu#t name.>= -b)*#lamation2
%*t&ame.Set.o#us12
)*it Sub
)nd +4
+4 +nStr11= %*t&ame.%e*t= C"r1FD22 3 0 %"en
MsgBo*1>Don't use double ?oute in !rodu#t name.>= -b)*#lamation2
%*t&ame.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*t9ate.%e*t2 5 .alse %"en
MsgBo*1>)nter rate= numeri# only>= -b)*#lamation2
%*t9ate.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< t"e 4lag 4rom add7edit
+4 Add)dit 5 >ADD> %"en
+4 9s.State 5 adState(!en %"en 9s.Close12
!/'1$4
9s.(!en1>sele#t ma*1sno2 ;1 4rom !rodu#t/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
Dim sno As +nteger
sno 5 9s102
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere 152>= Cn= ad(!enDynami#=
ad0o#<(!timisti#2
9s.Add&e'12
9s1>sno>2 5 sno
9s1>!rod/ty!e>2 5 Cmb%y!e.%e*t
9s1>!rod/sub/ty!e>2 5 %*t&ame.%e*t
9s1>rate>2 5 Val1%*t9ate.%e*t2
9s1>is/a#ti-e>2 5 Val1C"<A#ti-e.Value2
9s.$!date12
9s.Close12
)lse
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere sno5> @
Val10blSr.Ca!tion2= Cn= ad(!enDynami#= ad0o#<(!timisti#2
9s1>!rod/ty!e>2 5 Cmb%y!e.%e*t
9s1>!rod/sub/ty!e>2 5 %*t&ame.%e*t
9s1>rate>2 5 Val1%*t9ate.%e*t2
9s1>is/a#ti-e>2 5 Val1C"<A#ti-e.Value2
9s.$!date12
9s.Close12
)nd +4
'333 dis!aly and u!date lists
Dim (ld,%y!e As String
(ld,%y!e 5 Cmb%y!e.%e*t
Dim (ld,&ame As String
(ld,&ame 5 %*t&ame.%e*t
Cmb%y!e.Clear12
Cmb,rodu#t%y!e.Clear12
Cmb,rodu#t%y!e.Add+tem1>A00>2
Cmb,rodu#t%y!e.%e*t 5 (ld,%y!e
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master order by
!rod/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
Cmb,rodu#t%y!e.Add+tem19s1>!rod/ty!e>22
Cmb%y!e.Add+tem19s1>!rod/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 4ill t"e !rodu#t list again 'it" u!dated7inserted re#ords
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
!.'1$4
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 s"o' t"e 4irst re#ord
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.%e*t 5 (ld,&ame
Dis!lay9e#ord12
)nd +4
'333 enable7diable button
)D1.alse= %rue2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 reset #onne#tion
(!enCon12
)D1.alse= %rue2
Cmb%y!e.Clear12
'333 4ill t"e !rodu#t ty!e
Cmb,rodu#t%y!e.Clear12
Cmb,rodu#t%y!e.Add+tem1>A00>2
Cmb,rodu#t%y!e.%e*t 5 >A00>
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master order by
!rod/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
Cmb,rodu#t%y!e.Add+tem19s1>!rod/ty!e>22
Cmb%y!e.Add+tem19s1>!rod/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 4ill t"e !rodu#t sub ty!e
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 sele#t t"e 4irst re#ord
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0
!4'1$4
Dis!lay9e#ord12
)nd +4
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay re#ord as !er sele#ted !rodu#t name
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere !rod/sub/ty!e5> @ C"r1FD2 @
0st,rodu#tSub%y!e.%e*t @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
0blSr.Ca!tion 5 9s1>sno>2
Cmb%y!e.%e*t 5 9s1>!rod/ty!e>2
%*t&ame.%e*t 5 9s1>!rod/sub/ty!e>2
%*t9ate.%e*t 5 9s1>rate>2
C"<A#ti-e.Value 5 9s1>is/a#ti-e>2
)lse
0blSr.Ca!tion 5 >>
Cmb%y!e.%e*t 5 >>
%*t&ame.%e*t 5 >>
%*t9ate.%e*t 5 >>
C"<A#ti-e.Value 5 1
)nd +4
)nd Sub
,ri-ate Sub )D1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable7disable button
CmdSa-e.Visible 5 %1
CmdCan#el.Visible 5 %1
Cmd.ind.Visible 5 %2
Cmd&e'.Visible 5 %2
Cmd)dit.Visible 5 %2
CmdClose.Visible 5 %2
Cmb%y!e.0o#<ed 5 %2
%*t&ame.0o#<ed 5 %2
%*t9ate.0o#<ed 5 %2
C"<A#ti-e.)nabled 5 %1
)nd Sub
,ri-ate Sub 0st,rodu#tSub%y!e/Cli#<12
Dis!lay9e#ord12
)nd Sub
,ri-ate Sub %*t&ame/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As +nteger2
'333 S)0)C% .9(M 0+S%
+4 Cmb,rodu#t%y!e.%e*t G3 >A00> %"en
Cmb,rodu#t%y!e.%e*t 5 >A00>
)nd +4
+4 EeyCode 5 -bEeyDo'n %"en
+4 0st,rodu#tSub%y!e.0ist+nde* G 0st,rodu#tSub%y!e.0istCount - 1 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0st,rodu#tSub%y!e.0ist+nde* ; 1
)nd +4
)nd +4
+4 EeyCode 5 -bEey$! %"en
+4 0st,rodu#tSub%y!e.0ist+nde* 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0st,rodu#tSub%y!e.0ist+nde* - 1
)nd +4
!<'1$4
)nd +4
)nd Sub
!1'1$4
+rmBill
(Create and modify bill and print the saved bill)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' &e'7Modi4y Bill Module
' $sed %able : Bill
' : Bill Details
' : ,rodu#t
' : Com!any
'Module to ma<e ne' or modi4y bill=
',rint bill a4ter sa-e t"e re#ord
'also 'e ma<e editable 4le*grid 'it"
'te*t bo* and #ombobo*
'*************************************
(!tion )*!li#it
'333 de#lare 4orm global -ariable
Dim Add)dit As String
Dim 9s As &e' AD(DB.9e#ordset
Dim sno As +nteger
Dim Sa-e,rint As String
-$'1$4
,ri-ate Sub CmdClose/Cli#<12
'333 #"e#< t"e #a!tion o4 t"e button
'333 #lose t"e 4orm or #an#el t"e sa-e
+4 CmdClose.Ca!tion 5 >@Close> %"en
$nload1Me2
)lse
D)1%rue= .alse2
)nd +4
)nd Sub
,ri-ate Sub CmdDelete/Cli#<12
'333 #on4irm 4or deletion o4 bill
'333 i4 user sele#t H)S delete t"e re#ord 4rom bill and bill/details
'333 #lear t"e seleted data 4rom t"e s#reen 4or deleted bill
+4 MsgBo*1>9e#ord 'ill delete !ermantley I>= -bHes&o ; -bCriti#al2 5
-bHes %"en
Cn.)*e#ute1>delete 4rom bill/details '"ere bill/sno 5> @ sno2
Cn.)*e#ute1>delete 4rom bill '"ere sno 5> @ sno2
Add)dit 5 >>
CmdJetBill.Ca!tion 5 >@.ind>
CmdDelete.)nabled 5 .alse
Call Clear.ield12
+4 %*t+n-oi#e&o.)nabled 5 %rue %"en
%*t+n-oi#e&o.Set.o#us12
)nd +4
)nd +4
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'333 4ind t"e bill details
'333 4ind t"e bill by in-oi#e no
Add)dit 5 >>
+4 CmdJetBill.Ca!tion 5 >@Jet Bill> %"en
%*t+n-oi#e&o.)nabled 5 %rue
Call Clear.ield12
%*t+n-oi#e&o.Ba#<Color 5 -bHello'
%*t+n-oi#e&o.Set.o#us12
CmdJetBill.Ca!tion 5 >@.ind>
)lse
Dim 9S1 As &e' AD(DB.9e#ordset
9S1.(!en1>sele#t * 4rom bill '"ere in-oi#e/no 5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
'333 s"o' details 4rom bill table
DtDate.Value 5 9S11>in-oi#e/date>2
%*t0o#ation.%e*t 5 9S11>lo#ation>2
%*tC"alan&o.%e*t 5 9S11>#"alan/no>2
-1'1$4
%*tCom!any.%e*t 5 9S11>#ustomer/name>2
%*tAddress1.%e*t 5 9S11>#ustomer/address1>2
%*tAddress2.%e*t 5 9S11>#ustomer/address2>2
0bl%otalAmount 5 9S11>total/amt>2
0bl9s8ord.Ca!tion 5 9S11>amt/'ord>2
%*tSerial.%e*t 5 9S11>serial>2
'333 s"o' data 4rom bill/details
Dim 9s2 As &e' AD(DB.9e#ordset
+4 9s2.State 5 adState(!en %"en 9s2.Close12
Dim 9sF As &e' AD(DB.9e#ordset
9s2.(!en1>sele#t * 4rom bill/details '"ere bill/sno5> @
9S11>sno>2 @ > order by sno >= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s2.9e#ordCount 3 0 %"en
Dim i As +nteger
9s2.Mo-e.irst12
.or i 5 0 %o 9s2.9e#ordCount - 1
+4 9sF.State 5 adState(!en %"en 9sF.Close12
9sF.(!en1>sele#t * 4rom !rodu#t/master '"ere sno 5> @
9s21>!rod/sno>2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9sF.9e#ordCount 3 0 %"en
M41.%e*tMatri*1i ; 1= 12 5 9sF1>!rod/sub/ty!e>2
)nd +4
+4 9sF.State 5 adState(!en %"en 9sF.Close12
M41.%e*tMatri*1i ; 1= 22 5 9s21>?ty>2
M41.%e*tMatri*1i ; 1= F2 5 9s21>rate>2
M41.%e*tMatri*1i ; 1= D2 5 9s21>amt>2
9s2.Mo-e&e*t12
&e*t
)nd +4
+4 9s2.State 5 adState(!en %"en 9s2.Close12
CmdJetBill.Ca!tion 5 >@Jet Bill>
CmdDelete.)nabled 5 %rue
#mb-al.Visible 5 .alse
Cmd,rint.)nabled 5 %rue
CmdSa-e.)nabled 5 %rue
'333 lo#a< t"e buttons
M41.)nabled 5 %rue
#mb-al.)nabled 5 %rue
%K%VA0.)nabled 5 %rue
%*tCom!any.0o#<ed 5 .alse
%*tAddress1.0o#<ed 5 .alse
%*tAddress2.0o#<ed 5 .alse
DtDate.)nabled 5 %rue
%*t0o#ation.0o#<ed 5 .alse
%*tC"alan&o.0o#<ed 5 .alse
)lse
MsgBo*1>&o ,re-ious Details 4ound 4or in-oi#e...> @
%*t+n-oi#e&o.%e*t= -b)*#lamation2
CmdJetBill.Ca!tion 5 >@.ind>
%*t+n-oi#e&o.)nabled 5 %rue
%*t+n-oi#e&o.Set.o#us12
CmdDelete.)nabled 5 .alse
Cmd,rint.)nabled 5 .alse
-2'1$4
CmdSa-e.)nabled 5 .alse
M41.)nabled 5 .alse
#mb-al.)nabled 5 .alse
%K%VA0.)nabled 5 .alse
%*tCom!any.0o#<ed 5 %rue
%*tAddress1.0o#<ed 5 %rue
%*tAddress2.0o#<ed 5 %rue
DtDate.)nabled 5 .alse
%*t0o#ation.0o#<ed 5 %rue
%*tC"alan&o.0o#<ed 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
)nd +4
)nd Sub
,ri-ate Sub Cmd&e'/Cli#<12
'333 #laer t"e s#reen 4or entering data 4or ne' bill
'333 enable7disable buttons
D)1.alse= %rue2
Add)dit 5 >ADD>
Call Clear.ield12
'333 get t"e ne' system id 4rom bill
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t ma*1sno2 4rom bill >= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
sno 5 ++41+s&ull19s1022 5 %rue= 0= 9s1022 ; 1
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
%*tCom!any.Set.o#us12
)nd Sub
,ri-ate Sub Cmd,rint/Cli#<12
'&(%) : it is not t"e rig"t solution to #all #rystal re!ort by tem! using
tem! table
'some time it is a good !ra#ti#e 4or #om!le#ated databse relation table
'%"is may not run !ro!erly in multi user en-ironment
'Better a!!ro#" is !assing -alue by Sele#tion.ormula in #rystal re!ort
'but any'ay it is a 'or<ing solution
'333 4ind t"e bill sno 4rom seleted in-oi#e no
'333 i4 re#ord 4ound
'333 delete tem! bill na dbill/details
'333 insert 4rom bill=bill/details to tem!/bill= teem!/bill/details
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 1 %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom bill '"ere in-oi#e/no5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name 5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
-!'1$4
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere sno5> @
9S11>sno>22
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno5> @ 9S11>sno>22
Call (!enCon12
'333 #all #rystal re!ort
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbill.r!t>
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.A#tion 5 1
)lse
MsgBo*1>&o Bill 4ound sele#t7enter in-oi#e no 4or !rint>=
-b)*#lamation2
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub CmdSa-e/Cli#<12
'333 -alidation
'333 #"e#< t"e re?uired 4ield
+4 %rim1%*tCom!any.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame...>= -b)*#lamation2
%*tCom!any.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*t+n-oi#e&o.%e*t2 5 .alse %"en
MsgBo*1>)nter only &umeri# +n-oi#e &o...>= -b)*#lamation2
%*t+n-oi#e&o.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*t0o#ation.%e*t2 5 >> %"en
MsgBo*1>)nter 0o#ation...>= -b)*#lamation2
%*t0o#ation.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*tC"alan&o.%e*t2 5 >> %"en
MsgBo*1>)nter C"alan &o...>= -b)*#lamation2
%*tC"alan&o.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*tC"alan&o.%e*t2 5 .alse %"en
MsgBo*1>)nter only &umeri# C"alan &o...>= -b)*#lamation2
%*tC"alan&o.Set.o#us12
)*it Sub
)nd +4
'333 reset t"e transa#tion
Call (!enCon12
'333 #reate transa#tion 4or insert bill and bil details
--'1$4
Cn.Begin%rans12
Dim 9S1 As &e' AD(DB.9e#ordset
'333 #"e#< '"eat"er 'e need to insert or edit t"e re#ord
'333 i4 it is edit= t"en delete t"e old bill and insert ne' re#ord
+4 Add)dit G3 >ADD> %"en
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom bill '"ere in-oi#e/no 5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
sno 5 9S11>sno>2
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
Cn.)*e#ute1>delete 4rom bill/details '"ere bill/sno 5> @ sno2
Cn.)*e#ute1>delete 4rom bill '"ere sno 5> @ sno2
Add)dit 5 >>
)nd +4
'333 #"e#< 4or !rodu#t master
'333 #"e#< t"e grid
'333 '"eat"er t"ere is a !rodu#t or not
'333 '"eater t"ey enter any ?uantity or not
'333 '"eate"r t"ere is any !ri#e or not
'333 i4 any t"ing goes 'rong s"o' message
Dim ## As +nteger
Dim i As +nteger
.or i 5 1 %o M41.9o's - 1
Dim C" As Boolean
C" 5 .alse
+4 %rim1M41.%e*tMatri*1i= 122 5 >> %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom !rodu#t/master '"ere !rod/sub/ty!e 5> @
C"r1FD2 @ M41.%e*tMatri*1i= 12 @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount G5 0 %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
+4 Val1M41.%e*tMatri*1i= 222 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= F22 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= D22 5 0 %"en
C" 5 %rue
)nd +4
+4 C" 5 .alse %"en
## 5 ## ; 1
)nd +4
&e*t
+4 ## 5 0 %"en
MsgBo*1>&o Bill details 4ound 4or sa-e>= -b)*#lamation2
)*it Sub
-/'1$4
)nd +4
'333 #"e#< 4or du!li#ate in-oi#e no
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom bill '"ere in-oi#e/no5> @ Val1%*t+n-oi#e&o.%e*t2=
Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
MsgBo*1>+n-alid +n-oi#e &o #annot sa-e..>= -b)*#lamation2
%*t+n-oi#e&o.Set.o#us12
)*it Sub
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
'333 sa-e re#ord in bill table
9S1.(!en1>sele#t * 4rom bill '"ere 152>= Cn= ad(!enDynami#=
ad0o#<(!timisti#2
9S1.Add&e'12
9S11>sno>2 5 sno
9S11>in-oi#e/no>2 5 Val1%*t+n-oi#e&o.%e*t2
9S11>#name>2 5 Com!any&ame
9S11>in-oi#e/date>2 5 .ormat1DtDate.Value= >dd-mmm-yy>2
9S11>lo#ation>2 5 %rim1%*t0o#ation.%e*t2
9S11>#"alan/no>2 5 Val1%*tC"alan&o.%e*t2
9S11>#ustomer/name>2 5 %rim1%*tCom!any.%e*t2
9S11>#ustomer/address1>2 5 %rim1%*tAddress1.%e*t2
9S11>#ustomer/address2>2 5 %rim1%*tAddress2.%e*t2
9S11>total/amt>2 5 Val10bl%otalAmount.Ca!tion2
9S11>dis#ount>2 5 0
9S11>amt/'ord>2 5 0bl9s8ord
9S11>!aid/ty!e>2 5 >&A>
9S11>#"e?ue/no>2 5 >&A>
9S11>entry/date>2 5 &o'
9S11>serial>2 5 %*tSerial.%e*t
9S1.$!date12
+4 9S1.State 5 1 %"en 9S1.Close12
'333 -aildate ea#" ro' be4ore sa-e in details
Dim 0astSno As +nteger
Dim ,rodSno As +nteger
Dim 9s2 As &e' AD(DB.9e#ordset
+4 9s2.State 5 1 %"en 9s2.Close12
9s2.(!en1>sele#t ma*1sno2 4rom bill/details>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9s2.9e#ordCount 3 0 %"en
0astSno 5 ++41+s&ull19s21022 5 %rue= 0= 9s21022 ; 1
)nd +4
.or i 5 1 %o M41.9o's - 1
C" 5 .alse
+4 %rim1M41.%e*tMatri*1i= 122 5 >> %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom !rodu#t/master '"ere !rod/sub/ty!e 5> @
C"r1FD2 @ M41.%e*tMatri*1i= 12 @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
-.'1$4
,rodSno 5 9S1102
)lse
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
+4 Val1M41.%e*tMatri*1i= 222 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= F22 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= D22 5 0 %"en
C" 5 %rue
)nd +4
+4 C" 5 .alse %"en
'333 insert in bill details 4or ea#" -alidated grid ro'
+4 9s2.State 5 1 %"en 9s2.Close12
9s2.(!en1>sele#t * 4rom bill/details '"ere 152>= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
9s2.Add&e'12
9s21>sno>2 5 0astSno
9s21>bill/sno>2 5 sno
9s21>!rod/sno>2 5 ,rodSno
9s21>?ty>2 5 Val1M41.%e*tMatri*1i= 222
9s21>rate>2 5 Val1M41.%e*tMatri*1i= F22
9s21>amt>2 5 Val1M41.%e*tMatri*1i= D22
9s2.$!date12
+4 9s2.State 5 1 %"en 9s2.Close12
0astSno 5 0astSno ; 1
)nd +4
&e*t
'333 #ommit t"e transa#tion
Cn.Commit%rans12
MsgBo*1>Bill Sa-ed>= -b+n4ormation2
+4 C"<,rint.Value 5 1 %"en
'333 #all t"e re!ort 4or !rint o4 t"e sa-ed bill
Cmd,rint/Cli#<12
)nd +4
'333 !re!are 4or ne' bill entry
Add)dit 5 >>
Call Clear.ield12
Call Cmd&e'/Cli#<12
)nd Sub
,ri-ate Sub DtDate/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As +nteger2
'333 mo-e t"e #ursor to ne' 4ield
+4 EeyCode 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub DtDate/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e #ursor to ne' 4ield
-4'1$4
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2 7 2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2 7 2
'333 reset #onne#tion
Call (!enCon12
0blCom!any&ame.Ca!tion 5 Com!any&ame
DtDate.Value 5 &o'
'333 #lear t"e 4orm 4or ne' bill entry
Call Clear.ield12
'333 enable7diable buttons
D)1%rue= .alse2
'333 load last status 4or bill !rint a4ter sa-ed
Dim C"<V As +nteger
C"<V 5 Val1JetSetting1>billsystem>= >!rint>= >#"e#<!rint>= >1>22
C"<,rint.Value 5 C"<V
'333 load #lent name 4rom t"e table
9s.(!en1>sele#t #lient/name 4rom #lient/master '"ere #lient/name is not
null order by #lient/name>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile &ot 9s.)(.
%*tCom!any.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
,i#ture1.Visible 5 %rue
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable7disable buttons
CmdJetBill.)nabled 5 %1
Cmd&e'.)nabled 5 %1
CmdSa-e.)nabled 5 %2
Cmd,rint.)nabled 5 %2
%K%VA0.)nabled 5 %2
#mb-al.)nabled 5 %2
M41.)nabled 5 %2
+4 %1 5 %rue %"en
CmdClose.Ca!tion 5 >@Close>
)lse
CmdClose.Ca!tion 5 >@Can#el>
)nd +4
%*tCom!any.0o#<ed 5 %1
%*tAddress1.0o#<ed 5 %1
%*tAddress2.0o#<ed 5 %1
-<'1$4
DtDate.)nabled 5 %2
%*t0o#ation.0o#<ed 5 %1
%*tC"alan&o.0o#<ed 5 %1
%*t+n-oi#e&o.Ba#<Color 5 -b8"ite
CmdDelete.)nabled 5 .alse
)nd Sub
,ri-ate Sub Clear.ield12
'333 #lear t"e 4ields
%*tCom!any.%e*t 5 >>
%*tAddress1.%e*t 5 >>
%*tAddress2.%e*t 5 >>
%*t+n-oi#e&o.%e*t 5 >>
%*t0o#ation.%e*t 5 >>
0bl9s8ord.Ca!tion 5 >>
0bl%otalAmount.Ca!tion 5 >>
%*tC"alan&o.%e*t 5 >>
%*tSerial.%e*t 5 >>
'333 4or grid edit
Call set/"eading12
Call mo-e/te*tbo*12
)nd Sub
,ri-ate Sub .orm/Auery$nload1ByVal Can#el As +nteger= ByVal $nloadMode As
+nteger2
'333 sa-e last status 4or bill !rint a4ter sa-ed in t"e registry
+4 C"<,rint.Value 5 1 %"en
Sa-eSetting1>billsystem>= >!rint>= >#"e#<!rint>= >1>2
)lse
Sa-eSetting1>billsystem>= >!rint>= >#"e#<!rint>= >0>2
)nd +4
)nd Sub
,ri-ate Sub %*tAddress1/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tAddress2/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tC"alan&o/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
#mb-al.Set.o#us12
)nd +4
-1'1$4
)nd Sub
,ri-ate Sub %*tCom!any/Jot.o#us12
'333 ma<e listbo* as editable te*tbo*
%*tCom!any.6eig"t 5 1020
,i#ture1.Visible 5 .alse
)nd Sub
,ri-ate Sub %*tCom!any/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As
+nteger2
'333 s"o' t"e address o4 t"e seleted #om!any
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #lient/master '"ere #lient/name5'> @
%*tCom!any.%e*t @ >'>= Cn2
+4 9S1.9e#ordCount 3 0 %"en
%*tAddress1.%e*t 5 ++41+s&ull19S11>address1>22 5 %rue= >>=
9S11>address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>address2>22 5 %rue= >>=
9S11>address2>22
)lse
%*tAddress1.%e*t 5 >>
%*tAddress2.%e*t 5 >>
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
)nd Sub
,ri-ate Sub %*tCom!any/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tCom!any/0ost.o#us12
'333 mo-e t"e 4o#us to ne*t #ontrol
%*tCom!any.6eig"t 5 FF0
,i#ture1.Visible 5 %rue
)nd Sub
,ri-ate Sub %*t+n-oi#e&o/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As
+nteger2
'333 #all getbill by enter <ey in in-oi#e no te*t bo*
+4 EeyCode 5 1F And CmdJetBill.Ca!tion 5 >@.ind> %"en
CmdJetBill/Cli#<12
)nd +4
)nd Sub
,ri-ate Sub %*t0o#ation/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
/$'1$4
,ri-ate Sub %*tSerial/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %K%VA0/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 ma<e 4le* gird editable mo-e t" te*tbo* in gid #ell 4or entering
-alue
'333 #"e#< '"eat"e 'e !ress enter <ey
'333 i4 yes..mo-e t"e #ontrol to ne*t grod
Dim t As +nteger
+4 EeyAs#ii 5 1F And M41.Col 5 2 %"en
+4 +s&umeri#1%K%VA0.%e*t2 5 .alse %"en
EeyAs#ii 5 0
)*it Sub
)nd +4
M41.%e*t 5 %K%VA0.%e*t
'333 s"o' total
M41.%e*tMatri*1M41.9o'= M41.Col ; 22 5 Val1M41.%e*tMatri*1M41.9o'=
M41.Col ; 122 * %K%VA0.%e*t
Dim * As +nteger
Dim %1 As Double
.or * 5 1 %o M41.9o's - 1
%1 5 %1 ; Val1M41.%e*tMatri*1*= D22
&e*t
0bl%otalAmount.Ca!tion 5 %1
0bl9s8ord 5 9s8ord10bl%otalAmount.Ca!tion2
+4 M41.Col G3 M41.Cols - F %"en
M41.Col 5 M41.Col ; 1
)lse
+4 M41.9o' G3 M41.9o's - 2 %"en
'333 go to ne*t ro'
M41.9o' 5 M41.9o' ; 1
)lse
'333 add ne' ro's
M41.9o's 5 M41.9o's ; 1
'333 set t"e #urrent ro'
M41.9o' 5 M41.9o' ; 1
'333 set sr no
M41.%e*tMatri*1M41.9o'= 02 5 Val1M41.%e*tMatri*1M41.9o' - 1=
022 ; 1
)nd +4
M41.Col 5 1
)nd +4
mo-e/te*tbo*12
'333 sele#t t"e te*t in te*t bo*
%K%VA0.SelStart 5 0
/1'1$4
%K%VA0.Sel0engt" 5 0en1%K%VA0.%e*t2
)nd +4
)nd Sub
,ri-ate Sub #mb-al/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 ma<e 4le* gird editable mo-e t" #ombobo* in gid #ell 4or seleting
-alue
'333 #"e#< '"eat"e 'e !ress enter <ey
'333 i4 yes..mo-e t"e #ontrol to ne*t grod
Dim t As +nteger
+4 EeyAs#ii 5 1F %"en
'333 4ind !rod rate
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom !rodu#t/master '"ere !rod/sub/ty!e5> @
C"r1FD2 @ #mb-al.%e*t @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
M41.%e*tMatri*1M41.9o'= M41.Col ; 22 5 9S11>rate>2
)lse
EeyAs#ii 5 0
)*it Sub
)nd +4
M41.%e*t 5 #mb-al.%e*t
'333 s"o' total
M41.%e*tMatri*1M41.9o'= D2 5 Val1M41.%e*tMatri*1M41.9o'= 222 *
Val1M41.%e*tMatri*1M41.9o'= F22
Dim * As +nteger
Dim %1 As Double
.or * 5 1 %o M41.9o's - 1
%1 5 %1 ; Val1M41.%e*tMatri*1*= D22
&e*t
0bl%otalAmount.Ca!tion 5 %1
0bl9s8ord 5 9s8ord10bl%otalAmount.Ca!tion2
+4 M41.Col G3 M41.Cols - 2 %"en
M41.Col 5 M41.Col ; 1
)lse
+4 M41.9o' G3 M41.9o's - 1 %"en
M41.9o' 5 M41.9o' ; 1
)lse
'333 add ne' ro's
M41.9o's 5 M41.9o's ; 1
'333 set t"e #urrent ro'
M41.9o' 5 M41.9o' ; 1
/2'1$4
'333 set sr no
M41.%e*tMatri*1M41.9o'= 02 5 Val1M41.%e*tMatri*1M41.9o' - 1=
022 ; 1
)nd +4
M41.Col 5 1
)nd +4
mo-e/te*tbo*12
#mb-al.SelStart 5 0
#mb-al.Sel0engt" 5 0en1#mb-al.%e*t2
)nd +4
)nd Sub
,ubli# Sub set/"eading12
'333 #reating 4or t"e grid
Dim E As +nteger
Dim t As +nteger
M41.Clear12
M41.9e4res"12
M41.9o's 5 F0
M41.Cols 5 :
M41.9o' 5 0
M41.9o'6eig"t102 5 00
M41.Col 5 0
M41.Col8idt"102 5 1000
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >Sr.>
M41.Col 5 1
M41.Col8idt"112 5 D200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >,arti#ulars>
M41.Col 5 2
M41.Col8idt"122 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >Auantity>
M41.Col 5 F
M41.Col8idt"1F2 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >9ate>
M41.Col 5 D
M41.Col8idt"1D2 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
/!'1$4
M41.CellAlignment 5 D
M41.%e*t 5 >Amount>
M41.%e*tMatri*11= 02 5 >1>
M41.9o' 5 0
.or E 5 0 %o M41.Cols - 1
M41.Col 5 E
M41.Cell.ontBold 5 %rue
&e*t
M41.9o' 5 1
M41.Col 5 1
'333 set serial 4rom 1.2...
.or E 5 1 %o M41.9o's - 1
M41.%e*tMatri*1E= 02 5 E
&e*t
M41.9o' 5 1
)nd Sub
,ri-ate Sub M.1/)nterCell12
'333 #all a!!ro!riate #ontrol 4or edit t"e grid
+4 M41.Col 5 1 %"en
'333 -isble #ombo bo* 4or sele#t !rodu#t
#mb-al.Visible 5 %rue
%K%VA0.Visible 5 .alse
+4 #mb-al.Visible 5 %rue %"en
+4 #mb-al.)nabled 5 %rue %"en
#mb-al.Set.o#us12
)nd +4
)nd +4
#mb-al.Clear12
Dim 9s As &e' AD(DB.9e#ordset
+4 9s.State 5 1 %"en 9s.Close12
'333.ill item
+4 M41.Col 5 1 %"en
9s.(!en1>sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile &ot 9s.)(.
#mb-al.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
)lse+4 M41.Col 5 F %"en
#mb-al.Add+tem1>>2
)nd +4
)lse
'333 -isble te*t bo* 4or entring ?uantity
#mb-al.Visible 5 .alse
%K%VA0.Visible 5 %rue
+4 %K%VA0.Visible 5 %rue %"en
/-'1$4
+4 %K%VA0.)nabled 5 %rue %"en
%K%VA0.Set.o#us12
)nd +4
)nd +4
)nd +4
Call mo-e/te*tbo*12
)nd Sub
,ubli# Sub mo-e/te*tbo*12
'33align te*tbo* as !er grid #ell and set te*t
%K%VA0.0e4t 5 M41.Cell0e4t ; M41.0e4t
%K%VA0.%o! 5 M41.Cell%o! ; M41.%o!
%K%VA0.8idt" 5 M41.Cell8idt"
%K%VA0.6eig"t 5 M41.Cell6eig"t
%K%VA0.%e*t 5 M41.%e*t
'33align #ombo bo* as !er grid #ell and set te*t
#mb-al.0e4t 5 M41.Cell0e4t ; M41.0e4t
#mb-al.%o! 5 M41.Cell%o! ; M41.%o!
#mb-al.8idt" 5 M41.Cell8idt"
#mb-al.%e*t 5 M41.%e*t
)nd Sub
(Print out of the bill)
//'1$4
+rmReports
(Show Different eport !ptions)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' re!ort o!tions
'
'
'allo' user to sele#t di44rent re!ort
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdBillSummary/Cli#<12
'333 s"o' bill summary
.rmBillSummary.S"o'112
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
'333 #loase t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)*!ort/Cli#<12
'333 s"o' e*!ort !rodu#t 4orm
.rm)*!ortData.S"o'112
)nd Sub
,ri-ate Sub Cmd,rintBill/Cli#<12
'33 s"o' !rint bill
.rm,rintBill.S"o'112
)nd Sub
/.'1$4
,ri-ate Sub Cmd,rodu#tSummary/Cli#<12
'333 s"o' all !rodu#t list re!ort
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsL!rodu#ts.r!t>
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.A#tion 5 1
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
)nd Sub
/4'1$4
+rm"rintBill
(Print already saved bill)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' ,rint already sa-ed bill
' $sed %able : bill
' : bill/details
'Module to allo' user to sele#t t"e in-oi#e
'no 4rom seleted date range
'and o!en t"e bill by its in-oi#e7bill no
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e bill
$nload1Me2
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'333 get bill no as !er sele#ted date range
'333 4ill t"e list bo* 4rom re#ord set
0st+n-oi#e&o.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t in-oi#e/no 4rom bill '"ere in-oi#e/date35O> @
.ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O> @
.ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >' order
by in-oi#e/no>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st+n-oi#e&o.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
)nd Sub
/<'1$4
,ri-ate Sub CmdS"o'Bill/Cli#<12
'333 get te" bill details 4rom bill table as !er sele#ted bill no
+4 0st+n-oi#e&o.0ist+nde* G 0 %"en )*it Sub
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 1 %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom bill '"ere in-oi#e/no5> @
Val10st+n-oi#e&o.%e*t2 @ > and #name 5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
'333 delete old data 4rom tem! table and insert 4rom bill=
bill/deatils table
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere sno5> @
9S11>sno>22
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno5> @ 9S11>sno>22
'333 reset t"e #onne#tion
Call (!enCon12
'333 o!en t"e #rystal re!ort
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbill.r!t>
Cr1.A#tion 5 1
)lse
MsgBo*1>&o Bill 4ound sele#t7enter in-oi#e no 4or !rint>=
-b)*#lamation2
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
0st+n-oi#e&o.Clear12
'333 set date!i#<er to #urrent date
D%,i#<er1.Value 5 Date
D%,i#<er2.Value 5 Date
'333 reset #onne#tion
Call (!enCon12
)nd Sub
/1'1$4
"rodutSummary Report
(Show Product Summary report in crystal report)
.$'1$4
+rmBillSummary
(Show bill summary for particular date ran"e)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' summery o4 bill
' $sed %able : bill
' : bill/details
's"o' bill summary 4or seleted date
'range= s"o' re!ort in #rystal re!ort
'mo-e data into tem! table and s"o'
're!ort 4rom tem! table
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'&(%) : it is not t"e rig"t solution to #all #rystal re!ort by tem! using
tem! table
'some time it is a good !ra#ti#e 4or #om!le#ated databse relation table
'%"is may not run !ro!erly in multi user en-ironment
'Better a!!ro#" is !assing -alue by Sele#tion.ormula in #rystal re!ort
'but any'ay it is a 'or<ing solution
'333 4ind t"e bill sno 4rom seleted in-oi#e no
'333 i4 re#ord 4ound
'333 delete tem! bill na dbill/details
'333 insert 4rom bill=bill/details to tem!/bill= teem!/bill/details
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere
in-oi#e/date35O> @ .ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O>
@ .ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >' >2
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno in 1 sele#t sno 4rom bill '"ere in-oi#e/date 35O> @
.ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O> @
.ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >'2>2
Call (!enCon12
.1'1$4
'333 o!en #rystal re!ort
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbillsummary.r!t>
Cr1.A#tion 5 1
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2 7 2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2 7 2
'333 s"o' t"e #urrent date
D%,i#<er1.Value 5 Date
D%,i#<er2.Value 5 Date
)nd Sub
#ill Summary eport
.2'1$4
+rmE1portData
($%port product Data in &le%Grid and MS'$%cel with formattin")
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' )*!ort !rodu#t/master in grid and ms-e*#el
' $sed %able : !rodu#t/master
'o!en t"e !rodu#t/master in grid
'dis!lay re#ord in 4le* grid 'it" gro!u by !rodu#t ty!e
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)*#el/Cli#<12
'333e*!ort data into ms e*#el 4rom grid 'it" 4ormatting
'333 #"e#< t"e grid
+4 M41.%e*tMatri*10= 02 5 >> %"en
MsgBo*1>&o 9e#ords A-ailable 4or )*!orting ... >= -b)*#lamation2
)*it Sub
)nd +4
0abel1.Ca!tion 5 >8A+% ... Jenerate )*#el >
0abel1.9e4res"12
'333 #reating e*#el obBe#t -ariable
Dim e* As &e' )*#el.A!!li#ation
Dim 'b As &e' 8or<boo<
Dim )s As &e' 8or<s"eet
'b 5 e*.8or<boo<s.Add
)s 5 'b.8or<s"eets112
.!'1$4
Dim i As +nteger
Dim B As +nteger
'333 set e*#el #olumns 'idt" as !er 4le* grid #olumns 'idt"
.or i 5 0 %o M41.Cols - 1
M41.9o' 5 1
M41.Col 5 i
)s.Columns19eturnAl!"abet1i ; 12 @ >:> @ 9eturnAl!"abet1i ;
122.Column8idt" 5 M41.Cell8idt" 7 110
&e*t
'333 set data 4rom grid to e*#el ro'= #olumn 'ise
Dim E As +nteger
.or i 5 0 %o M41.9o's - 1
.or B 5 0 %o M41.Cols - 1
e*.Cells1i ; 1= B ; 12 5 M41.%e*tMatri*1i= B2
&e*t
&e*t
Dim 91 As String
Dim 92 As String
92 5 9eturnAl!"abet1M41.Cols2 @ >1>
'333 4ormatting e*#el
Dim * As 9ange
'333"ead
* 5 )s.9ange1>A1:> @ 922
*..ont.Bold 5 %rue
*..ont.Color+nde* 5 D0
*.+nterior.Color+nde* 5 P
*.+nterior.,attern 5 *lSolid
*.6oriContalAlignment 5 *lCenter
*.Verti#alAlignment 5 *lBottom
'333border
92 5 9eturnAl!"abet1M41.Cols2 @ M41.9o's - 1
* 5 )s.9ange1>A1:> @ 922
8it" *.Borders1*l)dge0e4t2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dge%o!2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dgeBottom2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dge9ig"t2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l+nsideVerti#al2
.-'1$4
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l+nside6oriContal2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
'333 .+00 D)%A+0S
* 5 )s.9ange1>A2:> @ 922
*.+nterior.Color+nde* 5 D0
'33%(%A0
92 5 9eturnAl!"abet1M41.Cols2 @ M41.9o's
* 5 )s.9ange1>A> @ M41.9o's @ >:> @ 922
*..ont.Bold 5 %rue
*..ont.Color+nde* 5 P
'
)s.&ame 5 >9e!ort>
e*.Visible 5 %rue
e*.Auit12
'b 5 &ot"ing
)s 5 &ot"ing
e* 5 &ot"ing
'333 !ro#ess #om!lete
0abel1.Ca!tion 5 >9eady>
0abel1.9e4res"12
)nd Sub
,ri-ate Sub Cmd,rodu#tMaster/Cli#<12
'333 reset t"e grid
M41.9o's 5 2
M41.Cols 5 F
M41.Clear12
M41.9e4res"12
M41.9o' 5 0
M41.Col 5 0
M41.Col8idt"102 5 Q00
M41.%e*t 5 >Sr>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
./'1$4
M41.CellBa#<Color 5 -bCyan
M41.Col 5 1
M41.Col8idt"112 5 2:00
M41.%e*t 5 >,rodu#t %y!e>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
M41.CellBa#<Color 5 -bCyan
M41.Col 5 2
M41.Col8idt"122 5 :000
M41.%e*t 5 >,rodu#t>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
M41.CellBa#<Color 5 -bCyan
'333 4ind distin#t !rodu#t ty!e 4rom !rodu#t master
'333 loo! all !rodu#t ty!e
Dim 9S1 As &e' AD(DB.9e#ordset
Dim 9s2 As &e' AD(DB.9e#ordset
9S1.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master>= Cn=
ad(!enStati#= ad0o#<9ead(nly2
Dim i As +nteger
Dim B As +nteger
.or i 5 0 %o 9S1.9e#ordCount - 1
Me.Ca!tion 5 i ; 1
M41.9o' 5 M41.9o's - 1
M41.Col 5 0
M41.%e*t 5 i ; 1
M41.Col 5 1
M41.%e*t 5 9S11>!rod/ty!e>2
'333 ?uery !rodu#t master 4or ea#" !rod ty!e 4rom outer loo!
+4 9s2.State 5 adState(!en %"en 9s2.Close12
9s2.(!en1>sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e
5'> @ 9S11>!rod/ty!e>2 @ >' order by !rod/sub/ty!e>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
.or B 5 0 %o 9s2.9e#ordCount - 1
M41.9o' 5 M41.9o's - 1
M41.Col 5 2
M41.%e*t 5 9s2102
M41.9o's 5 M41.9o's ; 1
9s2.Mo-e&e*t12
&e*t
9S1.Mo-e&e*t12
&e*t
)nd Sub
..'1$4
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2
)nd Sub
$%port product Data MS'$%cel with formattin"
.4'1$4
+rmUtlity
((o Access different utility pro"ram li)e compact* bac)up* chan"e password etc+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' o!tions 4or utilities
'
'
'allo' user to sele#t di44rent o!tions
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdAddModi4yClient/Cli#<12
.rmClient+n4o.S"o'112
)nd Sub
,ri-ate Sub CmdAddModi4yCom!any/Cli#<12
.rmCom!any+n4o.S"o'112
)nd Sub
,ri-ate Sub CmdBa#<$!/Cli#<12
.rmBa#<u!Database.S"o'112
)nd Sub
,ri-ate Sub CmdC"ange,ass'ord/Cli#<12
.<'1$4
.rmC"ange,ass'ord.S"o'112
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Cmd9e!air/Cli#<12
.rmCom!a#tAnd9e!airDatabase.S"o'112
)nd Sub
,ri-ate Sub Command1/Cli#<12
)nd Sub
,ri-ate Sub Command2/Cli#<12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Cmd9estore/Cli#<12
MsgBo*1>Co!y last ba#<u! 4ile= rename it to data.mdb and t"en !aste it in
a!!li#ation 4older.> @ -bCr04 @ -bCr04 @ >Conta#t !rogram -endor..it may #ause
lost o4 data= i4 ba#<u! is not #urrent>= -bCriti#al2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 #"e#< user ty!e and s"o' di44rent o!tions as !er user rig"ts
+4 0Case1$ser%y!e2 G3 >admin> %"en
Cmd9e!air.)nabled 5 .alse
CmdBa#<$!.)nabled 5 .alse
CmdAddModi4yCom!any.)nabled 5 .alse
Cmd9estore.)nabled 5 .alse
)nd +4
)nd Sub
.1'1$4
+rmCompatAndRepairData2ase
((o shrin) and compact main database data+mdb+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' #oma!#t7s"rin< t"e a##ess database
' $sed %able : &A
'#"e#< t"e re!airdb.mdb 4ile in a!!li#ation !at"
'i4 it is already t"eir delete t"e 4ile
'use DB)&J+&) Com!a#tDatabase 4un#tion to #oma!#t t"e a##ess database
'#reate ne' #om!a#ted tem!db.mdb 4rom data.mdb.
'delete old data.mdb and rename tem!db.mdb to data.mdb
'*************************************
(!tion )*!li#it
Dim db) As &e' DA(.DB)ngine
,ri-ate Sub Command1/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 i4 any #onne#tion o!en #lose all t"e #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
Dim * As String
'333 #"e#< allready 4ile is t"ere or not
* 5 Dir1A!!.,at" @ >Lre!airedDB.mdb>2
'333 i4 4ile !resent delete t"e 4ile
+4 * G3 >> %"en Eill1A!!.,at" @ >Lre!airedDB.mdb>2
%imer1.)nabled 5 %rue
'333 #om!a#t te" database
db).Com!a#tDatabase1A!!.,at" @ >Ldata.mdb>= A!!.,at" @ >L9e!airedDB>2
'333 delete old database
Eill1A!!.,at" @ >Ldata.mdb>2
'333 rename t"e ne' database to old database
4$'1$4
&ame A!!.,at" @ >Lre!airedDB.mdb> As A!!.,at" @ >Ldata.mdb>
'333 o!en #onne#tion
Call (!enCon12
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 set t"e !rogress bar initial -alue
,rogressBar1.Min 5 0
,rogressBar1.Ma* 5 100
)nd Sub
,ri-ate Sub %imer1/%imer12
'33 s"o' t"e !rogress o4 #om!a#t !ro#ess
+4 ,rogressBar1.Value G 100 %"en
,rogressBar1.Value 5 ,rogressBar1.Value ; 10
)lse
MsgBo*1>,ro#ess Com!lete Su##ess4ully ..>= -b+n4ormation2
,rogressBar1.Value 5 0 '9eset t"e min -alue
%imer1.)nabled 5 .alse 'Disable t"e %imer
)nd +4
)nd Sub
41'1$4
+rmBa3upData2ase
((o ta)e bac)up of main database data+mdb+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Ba#<u! t"e Database 1data.mdb2
' $sed %able : &A
'Module to ta<e a #o!y o4 data.mdb in
'di44rent lo#ation 'it" timestram!
'*************************************
(!tion )*!li#it
'333 De#lare .ile System -ariable
Dim .s As &e' .ileSystem(bBe#t
Dim &e'.ile As String
,ri-ate Sub Command1/Cli#<12
'333 o!en 4older bro'ser dialog
'333 sele#t t"e 4older !at"
'333 store t"e !at" in te*t bo* te*t1
Dim S As String
S 5 Bro'se.olders1"8nd= >Sele#t .older 4or Creating Ba#<u! 4ile ... >=
Bro'se.or)-eryt"ing= CS+D0/D)SE%(,2
+4 S 5 >> %"en
MsgBo*1>Sele#t Valid .older 4or Creating Dum! .ile.>= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)lse
+4 .s..older)*ists1S2 5 .alse %"en
MsgBo*1>+n-alid .older=Sele#t Valid .older. >= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)nd +4
%e*t1.%e*t 5 S
)nd +4
42'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
(n )rror Jo%o myer1
'333 #"e#< t"e sele#ted 4older '"eat"er
'333 it is e*ist or not
+4 .s..older)*ists1%e*t12 5 .alse %"en
MsgBo*1>+n-alid .older=Sele#t Valid .older. >= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)nd +4
'333 sa-e t"e settings in registry
Sa-eSetting1>B+00+&J/S(.%8A9)>= >BACE$,/DA%ABAS)>= >BACE$,/,A%6>= %e*t12
'333 #o!y t"e database 4ile in sele#ted 4older 4or ba#<u!
.s.Co!y.ile1A!!.,at" @ >Ldata.mdb>= %e*t1.%e*t @ >L> @ &e'.ile= .alse2
MsgBo*1>Ba#<u! ,ro#ess Com!lete.>= -b+n4ormation2
)*it Sub
myer1:
'33 #"e#< t"e 4older i4 t"e 4ile alreday e*ist 'arn 4or o-er'rite
+4 )rr.&umber 5 :Q %"en
+4 MsgBo*1>.ile Allready e*ist in same name = do you 'ant to
o-er'rite t"e e*isting 4ile ..>= -b)*#lamation ; -bHes&o ; -bDe4aultButton12 5
-bHes %"en
.s.Co!y.ile1A!!.,at" @ >Ldata.mdb>= %e*t1.%e*t @ >L> @ &e'.ile=
%rue2
MsgBo*1>Ba#<u! ,ro#ess Com!lete>= -b+n4ormation2
)nd +4
)lse
MsgBo*1>Can not #om!lete ba#<u! 4ollo'ing error o##ured : > @
)rr.Des#ri!tion= -bCriti#al2
)nd +4
)nd Sub
,ri-ate Sub CommandF/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 ne' ba#<u! 4ile name li<e data/0D010Q/1RD:.mdb
&e'.ile 5 >Data/> @ .ormat1&o'= >ddnnyy/""nn>2 @ >.mdb>
0abel2.Ca!tion 5 >Ba#<u! Database &ame : > @ &e'.ile
'333 load t"e last sa-ed settings 4rom registry
%e*t1.%e*t 5 JetSetting1>B+00+&J/S(.%8A9)>= >BACE$,/DA%ABAS)>=
>BACE$,/,A%6>= >>2
)nd Sub
4!'1$4
4-'1$4
+rmCompanyIn4o
(Add,Modify Company -nfo)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' add7edit7delete #om!any details
' $sed %able : #om!any/master
'o!en t"e #om!any/master
'dis!lay 4irst re#ord in 4orm load
'add edit sa-e delete and na-igation
'*************************************
(!tion )*!li#it
Dim 9S1 As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Command1/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Command11/Cli#<12
'333 delete t"e re#ord
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
'333 #on4irm be4ore delete
+4 MsgBo*1>Delete t"e 9e#ord I >= -bCriti#al ; -bHes&o2 5 -bHes %"en
9S1.Delete12
Call Clear%e*t12
CommandD/Cli#<12
)nd +4
)*it Sub
4/'1$4
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 mo-e re#ord !onter to 4irst re#ord
'333 dis!lay 4irst re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandF/Cli#<12
'333 mo-e ba#< t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition 3 1 %"en
9S1.Mo-e,re-ious12
)lse
MsgBo*1>.irst 9e#ord ..>= -b+n4ormation2
9S1.Mo-e.irst12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
'333 mo-e ne*t t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition G 9S1.9e#ordCount %"en
9S1.Mo-e&e*t12
)lse
MsgBo*1>0ast 9e#ord ..>= -b+n4ormation2
9S1.Mo-e0ast12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command:/Cli#<12
'333 mo-e last t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command/Cli#<12
4.'1$4
'333 !re!are 4or add re#ord= #lear all te*t bo*= set 4lag to ADD
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >ADD>
Call Clear%e*t12
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandR/Cli#<12
'333 !re!are 4or edit re#ord= set 4lag to )D+%
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >)D+%>
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandQ/Cli#<12
'333 sa-e t"e re#ord
'333 #"e#< 4or -alidation
'333 #"e#< t"e 4lag 4or ADD7)dit
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
+4 %rim1%*tCom!any&ame.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame >= -bCriti#al2
%*tCom!any&ame.Set.o#us12
)*it Sub
)nd +4
+4 Add)dit 5 >ADD> %"en
9S1.Add&e'12
9S11>#om!any/name>2 5 %*tCom!any&ame.%e*t
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S11>#ity>2 5 %*tCity.%e*t
9S11>!in>2 5 %*t,in.%e*t
9S11>tele!"one>2 5 %*t%ele!"one.%e*t
9S11>-atno>2 5 %*tVat&o.%e*t
9S1.$!date12
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)lse
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S11>#ity>2 5 %*tCity.%e*t
9S11>!in>2 5 %*t,in.%e*t
9S11>tele!"one>2 5 %*t%ele!"one.%e*t
9S11>-atno>2 5 %*tVat&o.%e*t
9S1.$!date12
'333 i4 it is edit a4ter re?uery s"o' t"e edited re#ord
Dim ! As +nteger
44'1$4
! 5 9S1.Absolute,osition
9S1.9e?uery12
9S1.Mo-e.irst12
9S1.Mo-e1! - 12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)*it Sub
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub CommandP/Cli#<12
'333 #an#el sa-e
D)1%rue= .alse2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 reset #onne#tion
'333 #lear all te*t
Clear%e*t12
(!enCon12
'333 load alreday sa-ed #lent data
'333 and s"o' t"e 4irst re#ord
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #om!any/master order by #om!any/name >= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
+4 9S1.9e#ordCount 3 0 %"en
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)nd Sub
,ri-ate Sub Clear%e*t12
'333 #lear all te*t bo* in t"e 4orm
Dim Ctl As Control
.or )a#" Ctl +n Me.Controls
+4 %y!e(4 Ctl +s %e*tBo* %"en
Ctl.%e*t 5 >>
)nd +4
&e*t
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay #urrent re#ord
(n )rror 9esume &e*t
Call Clear%e*t12
%*tCom!any&ame.%e*t 5 ++41+s&ull19S11>#om!any/name>22 5 %rue= >>=
9S11>#om!any/name>22
%*tAddress1.%e*t 5 ++41+s&ull19S11>Address1>22 5 %rue= >>=
9S11>Address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>Address2>22 5 %rue= >>=
9S11>Address2>22
4<'1$4
%*tCity.%e*t 5 ++41+s&ull19S11>#ity>22 5 %rue= >>= 9S11>#ity>22
%*t,in.%e*t 5 ++41+s&ull19S11>!in>22 5 %rue= >>= 9S11>!in>22
%*t%ele!"one.%e*t 5 ++41+s&ull19S11>tele!"one>22 5 %rue= >>=
9S11>tele!"one>22
%*tVat&o.%e*t 5 ++41+s&ull19S11>-atno>22 5 %rue= >>= 9S11>-atno>22
0abel1R.Ca!tion 5 9S1.Absolute,osition @ >7> @ 9S1.9e#ordCount
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable disable buttons
Command2.)nabled 5 %1
CommandF.)nabled 5 %1
CommandD.)nabled 5 %1
Command:.)nabled 5 %1
Command.)nabled 5 %1
CommandR.)nabled 5 %1
Command11.)nabled 5 %1
CommandQ.)nabled 5 %2
CommandP.)nabled 5 %2
)nd Sub
41'1$4
+rmClientIn4o
(Add,Modify Client -nfo)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' add7edit7delete #lient details
' $sed %able : #lient/master
'o!en t"e #lient/master
'dis!lay 4irst re#ord in 4orm load
'add edit sa-e delete and na-igation
'*************************************
(!tion )*!li#it
Dim 9S1 As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Command1/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Command11/Cli#<12
'333 delete t"e re#ord
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
'333 #on4irm be4ore delete
+4 MsgBo*1>Delete t"e 9e#ord I >= -bCriti#al ; -bHes&o2 5 -bHes %"en
9S1.Delete12
Call Clear%e*t12
CommandD/Cli#<12
)nd +4
)*it Sub
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
<$'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 mo-e re#ord !onter to 4irst re#ord
'333 dis!lay 4irst re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandF/Cli#<12
'333 mo-e ba#< t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition 3 1 %"en
9S1.Mo-e,re-ious12
)lse
MsgBo*1>.irst 9e#ord ..>= -b+n4ormation2
9S1.Mo-e.irst12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
'333 mo-e ne*t t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition G 9S1.9e#ordCount %"en
9S1.Mo-e&e*t12
)lse
MsgBo*1>0ast 9e#ord ..>= -b+n4ormation2
9S1.Mo-e0ast12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command:/Cli#<12
'333 mo-e last t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command/Cli#<12
'333 !re!are 4or add re#ord= #lear all te*t bo*= set 4lag to ADD
+4 9S1.State 5 adStateClosed %"en )*it Sub
<1'1$4
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >ADD>
Call Clear%e*t12
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandR/Cli#<12
'333 !re!are 4or edit re#ord= set 4lag to )D+%
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >)D+%>
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandQ/Cli#<12
'333 sa-e t"e re#ord
'333 #"e#< 4or -alidation
'333 #"e#< t"e 4lag 4or ADD7)dit
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
+4 %rim1%*tCom!any&ame.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame >= -bCriti#al2
%*tCom!any&ame.Set.o#us12
)*it Sub
)nd +4
+4 Add)dit 5 >ADD> %"en
9S1.Add&e'12
9S11>#lient/name>2 5 %*tCom!any&ame.%e*t
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S1.$!date12
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)lse
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S1.$!date12
'333 i4 it is edit a4ter re?uery s"o' t"e edited re#ord
Dim ! As +nteger
! 5 9S1.Absolute,osition
9S1.9e?uery12
9S1.Mo-e.irst12
9S1.Mo-e1! - 12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)*it Sub
myer1:
<2'1$4
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub CommandP/Cli#<12
'333 #an#el sa-e
D)1%rue= .alse2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
Clear%e*t12
'333 reset #onne#tion
(!enCon12
'333 load alreday sa-ed #lent data
'333 and s"o' t"e 4irst re#ord
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #lient/master order by #lient/name >= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
+4 9S1.9e#ordCount 3 0 %"en
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)nd Sub
,ri-ate Sub Clear%e*t12
'333 #lear all te*t bo* in t"e 4orm
Dim Ctl As Control
.or )a#" Ctl +n Me.Controls
+4 %y!e(4 Ctl +s %e*tBo* %"en
Ctl.%e*t 5 >>
)nd +4
&e*t
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay #urrent re#ord
Call Clear%e*t12
%*tCom!any&ame.%e*t 5 ++41+s&ull19S11>#lient/name>22 5 %rue= >>=
9S11>#lient/name>22
%*tAddress1.%e*t 5 ++41+s&ull19S11>Address1>22 5 %rue= >>=
9S11>Address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>Address2>22 5 %rue= >>=
9S11>Address2>22
0abel1R.Ca!tion 5 9S1.Absolute,osition @ >7> @ 9S1.9e#ordCount
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable disable buttons
Command2.)nabled 5 %1
CommandF.)nabled 5 %1
CommandD.)nabled 5 %1
Command:.)nabled 5 %1
<!'1$4
Command.)nabled 5 %1
CommandR.)nabled 5 %1
Command11.)nabled 5 %1
CommandQ.)nabled 5 %2
CommandP.)nabled 5 %2
)nd Sub
<-'1$4
+rmC)ange"ass-ord
(Chan"e password for currently lo""ed user)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' #"ange t"e #urrent #om!any
' $sed %able : #om!any/master
'Module to allo' user to #"ange t"e
'#urrent #omo!any 4rom t"e list
'set #om!any name to global -ariable
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub Command1/Cli#<12
'333 #"e#< t"e #om!any nmae sele#t by user
'333 4rm t"e #oma!ny/master table
'333 i4 re#ord 4ound set global -ariable
'333 ot"er'ise 'arn user to sele#t 4rom t"e list.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master '"ere #om!any/name5'> @
CmbCom!any&ame.%e*t @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
Com!any&ame 5 CmbCom!any&ame.%e*t
.rmMain.0blCom!any&ame 5 Com!any&ame
$nload1Me2
)lse
MsgBo*1>Sele#t #om!any name 4rom t"e list>= -b)*#lamation2
CmbCom!any&ame.Set.o#us12
)*it Sub
)nd +4
</'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 #loase t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 reset t"e database #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
(!enCon12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 4ill t"e #ombo bo* 'it" #om!any name 4rom #om!any/master
'333 o!en re#ord 4rom #om!any/master
'333 loo! t"rog" re#ordset and add ea#" #om!any/name into #ombo bo*
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
CmbCom!any&ame.Clear12
+4 9s.9e#ordCount 3 0 %"en
8"ile 9s.)(. 5 .alse
CmbCom!any&ame.Add+tem19s1>#om!any/name>22
9s.Mo-e&e*t12
)nd 8"ile
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
'333 set t"e already sele#ted #om!any name 4rom login 4orm
CmbCom!any&ame.%e*t 5 Com!any&ame
)nd Sub
<.'1$4
0odGen
(Module to store "lobal variable and procedure)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'de#lare global -ariable and !ro#edure
'
'*************************************
(!tion )*!li#it
,ubli# Cn As &e' AD(DB.Conne#tion
,ubli# C"e#<0ogin As Boolean
,ubli# $ser&ame As String
,ubli# $ser%y!e As String
,ubli# Com!any&ame As String
,ubli# Sub (!enCon12
'333 o!en #onn#tion
+4 Cn.State 5 1 %"en Cn.Close12
Cn.Conne#tionString 5 >!ro-ider5mi#roso4t.Bet.oledb.D.0S data sour#e5 > @
A!!.,at" @ >Ldata.mdb>
Cn.Cursor0o#ation 5 ad$seClient
Cn.(!en12
)nd Sub
,ubli# .un#tion ne'sno1ByVal table As String2 As +nteger
'333 4ind ma* sno 4or !assing table
Dim 9s As &e' AD(DB.9e#ordset
+4 9s.State 5 1 %"en 9s.Close12
9s.(!en1>sele#t ma*1sno2 4rom > @ table= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 +s&ull19s1022 5 %rue %"en
ne'sno 5 1
)lse
ne'sno 5 Val19s1022 ; 1
)nd +4
)nd .un#tion
,ubli# .un#tion 9eturnAl!"abet1ByVal n As +nteger2 As String
'333 return al!"abel as !er su!!lied no
'333 li<e 1 - A=2-B= 2-T= 2R-AA= 2:-+V
'333 t"is 4un#tion is used to e*#el 4ormatting to set #olumn -alue in
range
+4 n G 0 (r n 3 2: %"en
MsgBo*1>+n-alid +n-alid range is 1-2:>= -bAuestion2
)*it .un#tion
)nd +4
<4'1$4
Dim i As +nteger
Dim r As +nteger
Dim S As String
Dim 91 As +nteger
+4 n G5 2 %"en
S 5 C"r1n ; D2
)lse
r 5 n Mod 2
91 5 n 7 2
S 5 C"r191 ; D2 @ C"r1r ; D2
)nd +4
9eturnAl!"abet 5 S
)nd .un#tion
<<'1$4
0odBro-se
(Show &older #rowser)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'de#lare global -ariable and !ro#edure
'it is used to s"o' 4older bro'ser
'
'*************************************
(!tion )*!li#it
,ri-ate %y!e Bro'se+n4o
"8nd('ner As 0ong
!+D09oot As 0ong
!sCDis!lay&ame As 0ong
l!sC%itle As 0ong
ul.lags As 0ong
l!4nCallba#< As 0ong
l,aram As 0ong
i+mage As 0ong
)nd %y!e
'333 Bro'sing ty!e.
,ubli# )num Bro'se%y!e
Bro'se.or.olders 5 @61
Bro'se.orCom!uters 5 @61000
Bro'se.or,rinters 5 @62000
Bro'se.or)-eryt"ing 5 @6D000
)nd )num
'333 .older %y!e
,ubli# )num .older%y!e
CS+D0/B+%B$CE)% 5 10
CS+D0/C(&%9(0S 5 F
CS+D0/D)SE%(, 5 0
CS+D0/D9+V)S 5 1R
CS+D0/.(&%S 5 20
CS+D0/&)%6((D 5 1Q
CS+D0/&)%8(9E 5 1P
CS+D0/,)9S(&A0 5 :
CS+D0/,9+&%)9S 5 D
CS+D0/,9(J9AMS 5 2
CS+D0/9)C)&% 5 Q
CS+D0/S)&D%( 5 P
CS+D0/S%A9%M)&$ 5 11
)nd )num
,ri-ate Const MAK/,A%6 5 20
,ri-ate De#lare Sub Co%as<Mem.ree 0ib >oleF2.dll> 1ByVal "Mem As 0ong2
<1'1$4
,ri-ate De#lare .un#tion lstr#at 0ib ><ernelF2.dll> Alias >lstr#atA> 1ByVal
l!String1 As String= ByVal l!String2 As String2 As 0ong
,ri-ate De#lare .un#tion S6Bro'se.or.older 0ib >s"ellF2.dll> 1ByVal l!bi As
Bro'se+n4o2 As 0ong
,ri-ate De#lare .un#tion S6Jet,at".rom+D0ist 0ib >s"ellF2.dll> 1ByVal !id0ist
As 0ong= ByVal l!Bu44er As String2 As 0ong
,ri-ate De#lare .un#tion S6JetS!e#ial.older0o#ation 0ib >s"ellF2.dll> 1ByVal
"8nd('ner As 0ong= ByVal n.older As 0ong= ByVal 0ist+d As 0ong2 As 0ong
'3333 main 4un#tion 4or broser
,ubli# .un#tion Bro'se.olders1ByVal "8nd('ner As 0ong= ByVal sMessage As
String= ByVal Bro'se As Bro'se%y!e= ByVal 9oot.older As .older%y!e2 As String
Dim &ull!os As +nteger
Dim l!+D0ist As 0ong
Dim res As 0ong
Dim s,at" As String
Dim B+n4o As Bro'se+n4o
Dim 9oot+D As 0ong
S6JetS!e#ial.older0o#ation1"8nd('ner= 9oot.older= 9oot+D2
B+n4o."8nd('ner 5 "8nd('ner
B+n4o.l!sC%itle 5 lstr#at1sMessage= >>2
B+n4o.ul.lags 5 Bro'se
+4 9oot+D G3 0 %"en B+n4o.!+D09oot 5 9oot+D
l!+D0ist 5 S6Bro'se.or.older1B+n4o2
+4 l!+D0ist G3 0 %"en
s,at" 5 String1MAK/,A%6= 02
res 5 S6Jet,at".rom+D0ist1l!+D0ist= s,at"2
Call Co%as<Mem.ree1l!+D0ist2
&ull!os 5 +nStr1s,at"= -b&ullC"ar2
+4 &ull!os G3 0 %"en
s,at" 5 0e4t1s,at"= &ull!os - 12
)nd +4
)nd +4
Bro'se.olders 5 s,at"
)nd .un#tion
1$'1$4
0odRsTo5ord
(Convert s to .ord)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'Module to #on-ert 9s to 8ord
'12F.:0 5 (ne 6undred %'ent %"ree and .4ty ,aise (nly
'*************************************
(!tion )*!li#it
'dis!lay digit to 'ords
'12F -- 3 (ne "undred and t'entyt"ree only.
,ubli# .un#tion 9s8ord1ByVal t As String2 As String
(n )rror 9esume &e*t
Dim la As Boolean
Dim t" As Boolean
Dim l As +nteger
Dim l1 As +nteger
Dim i As String
Dim r As String
Dim !1 As String
Dim &0 As +nteger
Dim ! As Boolean
Dim !l As +nteger
Dim a As +nteger
Dim b As +nteger
Dim # As +nteger
Dim C As Boolean
&0 5 +nStr1t= >.>2
! 5 %rue
!l 5 0en1t2 - &0
+4 &0 5 0 %"en
&0 5 0en1t2 : ! 5 .alse
l 5 0en1t2
)lse
l 5 &0 - 1
)nd +4
l1 5 l
8"ile l 3 0
i 5 Mid1t= l1 - 1l - 12= 12
11'1$4
+4 l 5 R %"en la 5 %rue
+4 l 5 R And i 5 >0> And Mid1t= l1 - 1l - 22= 12 G3 >0> %"en
r 5 r @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @ > 0a#<"s >
)nd +4
+4 l 5 R And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2 @ > > @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @
> 0a#<"s >
)nd +4
+4 l 5 R And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 22= 122 @ > 0a#<"s >
)nd +4
+4 l 5 And i G3 >0> And la 5 .alse %"en
r 5 r @ SingleDigit1i2 @ > 0a#<"s >
)nd +4
+4 l 5 : %"en t" 5 %rue
+4 l 5 : And i 5 >0> And Mid1t= l1 - 1l - 22= 12 G3 >0> %"en
r 5 r @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @ > %"ousand >
)nd +4
+4 l 5 : And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2 @ > > @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @
> %"ousand >
)nd +4
+4 l 5 : And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 22= 122 @ > %"ousand >
)nd +4
+4 l 5 D And i G3 >0> And t" 5 .alse %"en
r 5 r @ SingleDigit1i2 @ > %"ousand >
)nd +4
+4 l 5 F And i G3 >0> %"en
r 5 r @ SingleDigit1i2 @ > 6undred >
)nd +4
+4 l 5 2 And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2
)nd +4
+4 l 5 2 And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 12= 122 @ > >
)nd +4
+4 l 5 1 And Mid1t= l1 - 1l - 22= 12 G3 >1> %"en
r 5 r @ > > @ SingleDigit1i2
)nd +4
l 5 l - 1
)nd 8"ile
+4 ! 5 %rue %"en
l1 5 &0 ; 1
8"ile !l 3 0
i 5 Mid1t= 0en1t2 - !l ; 1= 12
+4 !l 5 2 And 1i G3 >0> And i G3 >1>2 %"en
!1 5 !1 @ %ent"s1i2
)nd +4
+4 !l 5 2 And i 5 >1> %"en
!1 5 !1 @ %'oDigit1Mid1t= 0en1t2 - !l ; 2= 122 @ > >
12'1$4
)nd +4
+4 !l 5 1 And Mid1t= 0en1t2 - !l= 12 G3 >1> %"en
!1 5 !1 @ > > @ SingleDigit1i2
)nd +4
!l 5 !l - 1
)nd 8"ile
)nd +4
+4 r G3 >> And !1 G3 >> %"en
9s8ord 5 >9u!ees > @ r @ > and > @ !1 @ > ,aise (nly>
)nd +4
+4 !1 5 >> And r G3 >> %"en
9s8ord 5 >9u!ees > @ r @ > (nly>
)nd +4
+4 r 5 >> And !1 G3 >> %"en
9s8ord 5 !1 @ > ,aise (nly>
)nd +4
+4 r 5 >> And !1 5 >> %"en
9s8ord 5 >&il>
)nd +4
)nd .un#tion
,ri-ate .un#tion %'oDigit1ByVal d As String2 As String
Dim S As String
+4 d 5 >1> %"en S 5 >)le-en>
+4 d 5 >2> %"en S 5 >%'el-e>
+4 d 5 >F> %"en S 5 >%"irteen>
+4 d 5 >D> %"en S 5 >.orteen>
+4 d 5 >:> %"en S 5 >.i4teen>
+4 d 5 >> %"en S 5 >Si*teen>
+4 d 5 >R> %"en S 5 >Se-enteen>
+4 d 5 >Q> %"en S 5 >)ig"teen>
+4 d 5 >P> %"en S 5 >&ineteen>
+4 d 5 >0> %"en S 5 >%en>
%'oDigit 5 S
)nd .un#tion
,ri-ate .un#tion %ent"s1ByVal d As String2 As String
Dim S As String
+4 d 5 >2> %"en S 5 >%'enty>
+4 d 5 >F> %"en S 5 >%"irty>
+4 d 5 >D> %"en S 5 >.orty>
+4 d 5 >:> %"en S 5 >.i4ty>
+4 d 5 >> %"en S 5 >Si*ty>
+4 d 5 >R> %"en S 5 >Se-enty>
+4 d 5 >Q> %"en S 5 >)ig"ty>
+4 d 5 >P> %"en S 5 >&inety>
%ent"s 5 S
)nd .un#tion
,ri-ate .un#tion SingleDigit1ByVal d As String2 As String
Dim S As String
+4 d 5 >1> %"en S 5 >(ne>
+4 d 5 >2> %"en S 5 >%'o>
+4 d 5 >F> %"en S 5 >%"ree>
+4 d 5 >D> %"en S 5 >.our>
+4 d 5 >:> %"en S 5 >.i-e>
+4 d 5 >> %"en S 5 >Si*>
+4 d 5 >R> %"en S 5 >Se-en>
+4 d 5 >Q> %"en S 5 >)ig"t>
1!'1$4
+4 d 5 >P> %"en S 5 >&ine>
+4 d 5 >0> %"en S 5 >>
SingleDigit 5 S
)nd .un#tion
1-'1$4
eBilling and In(oie System Test "lan
Introuction
T*+, 6/2<4183 61,2.+91, 3*1 <,1. 5221-35821 31,3 ->58 7/. 3*1 EB+>>+8: 586 I8;/+21 S=,314. T*1
2/4->131 31,3 ,3.531:= 7/. 3*1 EB+>>+8: 586 I8;/+21 S=,314 +, 3/ -1.7/.4 3*1 7/>>/?+8: B+86, /7 31,3,,
+8 ,1D<1821&
1. Com7onent testing /7 152* 2/4-/8183 3*53 45B1, <- 3*1 EB+>>+8: 586 I8;/+21 S=,314
2. Integ5ation testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*1 2/..123 +831.?/.B+8: /7
+3, 2/4-/8183,
3. Validation testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*53 +3 ?/.B, 2/..123>= +8 5
-,1<6/E>+;1 18;+./84183
!. &se5 acce7tance testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*53 +3, 7<823+/8 +,
5221-359>1 3/ +3, <,1.,
A221-35821 31,3+8: +, 3*1 >5,3 ,13 /7 31,3, 3/ 91 -1.7/.416 917/.1 3*1 5-->+253+/8 :/1, /77+2+5>>= >+;1.
3est Scope
T*1 ,2/-1 /7 3*1 <,1. 5221-35821 31,3+8: 2/;1.,&
• V1.,+/8 1 /7 3*1 EB+>>+8: 586 I8;/+21 S=,314
• U,1.E752+8: 7<823+/85>+3= 617+816 9= 5 ,13 /7 <,1 25,1,
• A64+8+,3.53/.E752+8: 7<823+/85>+3= 617+816 9= 5 ,13 /7 <,1 25,1,
T*1 5+4 /7 3*1 31,3+8: +, 3/ 6131.4+81 */? ?1>> 3*1 5-->+253+/8 4113, +3, 7<823+/85> .1D<+.14183,
7./4 3*1 -1.,-123+;1 /7 3*1 <,1., 586 3/ +6183+7= 58= +,,<1, ,/ 3*1= 258 91 .1,/>;16. A>,/, 3*1 31,3+8:
,1.;1, 3/ 2/4-+>1 5 ,13 /7 31,3 6535 586 .1,<>3, 3*53 258 91 <,16 6<.+8: ,<9,1D<183 31,3 2=2>1,, 3/ 31,3
7/. 8/8E.1:.1,,+/8 /7 3*1 ,/73?5.1 +8 >531. .1>15,1, /. 5731. 3*1 5-->+253+/8 +, +8 45+83185821.
)/.B+8: -.523+21, 4+:*3 ;5.= 7./4 <,1. 3/ <,1. 586 5.1 2/8,+61.16 /<3,+61 3*1 ,2/-1 /7 3*1 31,3+8:.
3est Strategy
T*1 95,+, /7 <,1. 5221-35821 31,3+8: +, 3*53 /3*1. 31,3, ?1.1 2/4->1316 ,<221,,7<>>=, ,/ 3*1
5-->+253+/8 586 +3, .1D<+.16 +87.5,3.<23<.1 5.1 2/8,+61.16 3/ 91 ,359>1 586 .1>+59>1. A221-35821 31,3+8:
2/82183.531, /8 3*1 5-->+253+/8 7./4 3*1 <,1.J, -1.,-123+;1, 3*53 +,, */? 3*1 5-->+253+/8 +, <,16 586
?*13*1. +3 4113, 3*1 8121,,5.= D<5>+3= 2.+31.+5.
C*58:1 .1D<1,3, ?+>> 91 ,183 3/ 3*1 61;1>/-4183 3154 5, 3*1 523+/859>1 6/2<418353+/8. C*58:1
2.+31.+5 ?+>> 91 6131.4+816 9= 3*1 T1,3 3154 586 3*1 D1;1>/-4183 3154 -.+/. 3/ 3*1 91:+88+8: /7
31,3+8:. F/. +8,35821, 2.+31.+5 45= +82><61 impa#t to &esire& fun#tionality9 amount of #o&e impa#te&
4y propose& #-an2e9 586 &esi2n require& 4y propose& #-an2e. T*1 31,31. ?+>> 1;5><531 3*1 2.+31.+5.
1/'1$4
T*1 31,3 >156 ?+>> 6131.4+81 C*58:1 R1D<+.16 /. 8/3. O821 5 9<: *5, 9118 6131.4+816 5, C*58:1
R1D<+.16, 3*1 9<: .1-/.3 ?+>> 91 3.58,>5316 +83/ 5 C*58:1 R1D<1,3 586 -5,,16 /8 3/ 61;1>/-4183.
T*1 2<,3/41. /7 3*1 5221-35821 31,3+8: +, 3*1 S=,314 U,1.,, S<-1.;+,/. 586 A64+8,3.53/.7/.
EB+>>+8: 586 I8;/+21 S=,314. T*1 -./:.1,, /7 3*1 5221-35821 31,3+8: ?+>> 91 .1-/.316 3/ 3*1
2<,3/41., 3/:13*1. ?+3* 58= +,,<1, 3*53 5.1 6+,2/;1.16 586 3*1+. ->58816 .1,/><3+/8,. S+:8E/77 /7 3*1
31,3,, 586 3*1.17/.1 3*1 5221-35821 /7 3*1 5-->+253+/8, ?+>> 91 -1.7/.416 9= 3*1 2<,3/41. /. 5 ,1>12316
.1-.1,18353+;1.
Preconitions
T*1 7/>>/?+8: +314, 5.1 .1D<+.16 917/.1 31,3+8: 258 35B1 ->521&
• A 2/4->131 586 2/*1.183 7<823+/85> ,-12+7+253+/8 /7 3*1 EB+>>+8: 586 I8;/+21 S=,314
[email protected],,16 5, <,1 25,1, 586 <,5:1 ,2185.+/,
• A 2/4->131 586 ;5>+653+/8E31,316 .1>15,1 /7 EB+>>+8: 586 I8;/+21 S=,314, 61>+;1.16 522/.6+8:
3/ 3*1 61>+;1.= ->58
• A8 5:.116E<-/8 -./216<.1 7/. 615>+8: ?+3* 58= 58/45>+1, 3*53 5.1 6+,2/;1.16 6<.+8: 3*1
31,3+8: -./21,,
• A ,13 /7 31,3 ,-12+7+253+/8, 61,2.+9+8: */? 152* 7<823+/85> 5.15 /7 3*1 EB+>>+8: 586 I8;/+21
S=,314 +, 3/ 91 5221-35821 31,316
• A8 +4->1418316 31,3 18;+./84183 7/. 3*1 31,3+8:
• S<77+2+183, ,<+359>1 .1,/<.21, 3/ 25..= /<3 3*1 31,3+8:
• A;5+>59>1 ,35865.6, 7/. 3*1 5221-35821 31,3+8:
3est Priorities
D<.+8: 31,3+8: /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3*1 7/>>/?+8: D<5>+3+1, ?+>> 91 31,316 +8 /.61. /7
-.+/.+3=&
• F<823+/85>+3=K?*13*1. 3*1 .1D<+.16 7<823+/8, 5.1 5;5+>59>1 586 ?/.B+8: 5, 1@-12316
• U,59+>+3=K*/? <,1.E7.+186>= 586 +83<+3+;1 3*1 EB+>>+8: 586 I8;/+21 S=,314 +,
• S12<.+3=K*/? ?1>>E-./312316 586 :<5.583116 2/.-/.531 586 <,1. 6535 +,
• P1.7/.45821K?*13*1. 3*1 .1,-/8,1 3+41, 5.1 ?+3*+8 5221-359>1 >+4+3,
• C<,3/4+A53+/8K*/? ,3.5+:*37/.?5.6 +3 +, 3/ <,1 3*1 5-->+253+/8 +8 81?, <8-.16+2316 ?5=,
3est 3ec$niques
T*1 7/>>/?+8: 312*8+D<1, ?+>> 91 5-->+16&
• S2.+-316 31,3,K,1D<1821, /7 <,1. +831.523+/8, H95,16 /8 3*1 <,1 25,1 586 <,5:1 ,2185.+/,I
<,+8: -.1617+816 6535 ,13, 5:5+8,3 -.16+2316 .1,<>3,
• U8,2.+-316 31,3,K95,16 /8 ,2.+-316 31,3,, 3*1 31,31. 3.+1, 3/ 4/6+7= 3*1 ,2185.+/, 3/ 1@->/.1
?*53E+7 -/,,+9+>+3+1,
• P1813.53+/8 31,3,K,2.+-316 31,3, 3/ 53314-3 <85<3*/.+A16 183.= +83/ 3*1 ,=,314
• U,59+>+3= 2*12B>+,3,K31,3, 3/ 6131.4+81 3*1 2/4->1@+3= /7 +831.523+/8,
1.'1$4
• P1.7/.45821 ,353+,3+2,K:181.53+/8 /7 -1.7/.45821 +87/.453+/8 3/ 2*12B 5:5+8,3 61,+.16
-1.7/.45821 2.+31.+5
3est Organi!ation
Roles and Responsi2ilities
T*1 7/>>/?+8: ./>1, 5.1 617+816&
• QA >15631,3 4585:1.K.1,-/8,+9>1 7/. ->588+8: 586 18,<.+8: 3*1 ,4//3* .<88+8: /7 3*1 31,3
-./21,,
• T1,31.K25..+1, /<3 3*1 31,3, 522/.6+8: 3/ 3*1 31,3 ->58, 586 3*18 .1-/.3, 3*1 .1,<>3,
• P./6<23 4585:1.K18,<.1, 3*53 3*1 31,3, 5.1 25..+16 /<3 ,<221,,7<>>= 7./4 5 <,1. -1.,-123+;1
• P./0123 ,-/8,/.2>+183K523, 5, 45+8 ,35B1*/>61., 586 18,<.1, 3*53 3*1 8116, /7 3*1 2<,3/41.
2/44<8+3= 5, 5 ?*/>1 5.1 2/8,+61.16
• T1,3 ,<--/.3K-./;+61, 312*8+25> 5,,+,35821, ,<2* 5, 31,3 18;+./84183 2/87+:<.53+/8, 586 8/8E
312*8+25> 5,,+,35821, ,<2* 5, 413*/6/>/:+25> ,<--/.3
)11B>= 3154 4113+8:, ?+>> 91 *1>6 +8;/>;+8: 3*1 31,3 4585:1., 31,31.,, 586 -./6<23 4585:1.,. A3
3*1,1 4113+8:,, 3*1 -./:.1,, /7 3*1 31,3+8: -./21,, ?+>> 91 .1-/.316, 58= +,,<1, ?+>> 91 6+,2<,,16, 586
523+/8, ?+>> 91 5:.116 <-/8.
Conlusion and 4uture en)anement
T*+, -./0123 ?5, 61;1>/-16 3/ 7<>7+>> <,1. 586 9<,+81,, .1D<+.14183C */?1;1. 3*1.1 5.1 >/3, /7 ,2/-1
3/ +4-./;1 3*1 -1.7/.45821 /7 3*1 1B+>>+8: 586 I8;/+21 S=,314 +8 3*1 5.15 /7 <,1. +831.7521, 653595,1
-1.7/.45821, 586 D<1.= -./21,,+8: 3+41. E32.
S/ 3*1.1 5.1 458= 3*+8:, 7/. 7<3<.1 18*58214183 /7 3*+, -./0123. T*1 7<3<.1 18*58214183, 3*53 5.1
-/,,+9>1 +8 3*1 -./0123 5.1 5, 7/>>/?,.
• L+8B+8: 586 +831:.53+/8 /7 58= >1:52= ,=,314 7/. 522/<83+8:.
• I831:.53+/8 ?+3* 3.5;1> 5:183 3*./<:* )19 S1.;+21,
• C/88123+/8 3/ 3*+.6E-5.3= OLAP 5-->+253+/8,
• E>123./8+2 D535 I831.2*58:1 HEDII ,=,314 913?118 958B,, /3*1. 2.16+3 ;1.+7+253+/8 5:182=
586 3*1+. ;186/.,
14'1$4
• I8 3*1 5.15 /7 6535 ,12<.+3= 586 ,=,314 ,12<.+3=.
• P./;+61 4/.1 /8>+81 3+-, 586 *1>-.
• T/ /-3+4+A1 3*1 D<1.= ?*+2* +, 14916616 +8 3*1 ,=,314.
1<'1$4
Bi2liograp)y
5ebsites
• *33-&???.://:>1.2/4
• *33-&???.4+2./,/73.2/4
• *33-&???.-./:.5441.2-./:.5441..813
• *33-&???.2/61-./0123.2/4
• *33-&???.4,68.2/4.
• *33-&???.;9123.2/4
• *33-&???.;92/61.2/4
• *33-&???.,D>3<81..2/4
'oo6s
• M5,31.+8: V+,<5> B5,+2 6 HP5-1.952BI
• M5,31.+8: V+,<5> B5,+2 .NET HP5-1.952BI
• V+,<5> B5,+2 B>52B B//B HP5-1.952BI
• SQL B+9>1, 286 E6+3+/8 HP5-1.952BI
• D53595,1 D1;1>/-4183 +8 V+,<5> B5,+2
11'1$4
doc_314466802.doc
This project is made for one of the big decorator services in Mumbai, they supply decorating item to film industry for movie shooting. Presently they issue their client handwritten invoice and they enter details in manual register
eBilling and Invoice System
OBJECTIVE.......................................................................................................................................................................1
PROJECT SCOPE.............................................................................................................................................................2
CUSTOMER, PRODUCTS, BILLING GENERATION...............................................................................................................2
REPORT GENERATION SYSTEM.........................................................................................................................................2
OUT OF SCOPE.................................................................................................................................................................3
GOA..................................................................................................................................................................................!
SOLUTION CONCEPT.........................................................................................................................................................3
USER PROFILES................................................................................................................................................................5
USAGE SUMMARY............................................................................................................................................................6
REQUIREMENTS SUMMARY..............................................................................................................................................7
Business Requirements...............................................................................................................................................7
User Requirements.....................................................................................................................................................7
Operational Requirements..........................................................................................................................................8
System Requirements..................................................................................................................................................9
SUCCESS CRITERIA...........................................................................................................................................................9
Sales Automation........................................................................................................................................................9
"ESIG# GOAS A#" CO#STRAI#TS......................................................................................................................1$
PERFORMANCE...............................................................................................................................................................10
AVAILABILITY................................................................................................................................................................10
RELIABILITY...................................................................................................................................................................10
SCALABILITY..................................................................................................................................................................10
SECURITY.......................................................................................................................................................................10
INTEROPERABILITY........................................................................................................................................................10
LOCATION.......................................................................................................................................................................10
SETUPINSTALLATION.....................................................................................................................................................10
%EAT&RES'%&#CTIO#AIT(....................................................................................................................................1$
SO%T)ARE A#" *AR")ARE RE+&IRE,E#T....................................................................................................1!
General Requirement for Server/Client:..................................................................................................................!
"EVEOP,E#T TOOS A#" TEC*#OOGIES...................................................................................................1!
"EVEOP,E#T TOOS A#" TEC*#OOGIES...................................................................................................1-
FRONT END....................................................................................................................................................................1!
BAC" END......................................................................................................................................................................1!
DEVELOPMENT ENVIRONMENT......................................................................................................................................15
&SE CASE S&,,AR(..................................................................................................................................................1.
MANAGE ORDERS..........................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................$
MANAGE PRODUCTS......................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................$
MANAGE CONTACTS......................................................................................................................................................16
"es#ription...............................................................................................................................................................$
Business %ee&...........................................................................................................................................................$
'riority.....................................................................................................................................................................7
ANALY#E CUSTOMERS...................................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
FORECAST SALES...........................................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
ESTABLIS$ SALES GOALS..............................................................................................................................................17
"es#ription...............................................................................................................................................................7
Business %ee&...........................................................................................................................................................7
'riority.....................................................................................................................................................................7
USAGE SCENARIOS.........................................................................................................................................................1%
Use Case (": UC ).7. Retrieve Customer "ata.....................................................................................................8
(ntent.........................................................................................................................................................................8
S#enario %arrative...................................................................................................................................................8
Assumptions/'re#on&itions......................................................................................................................................8
A#tors.......................................................................................................................................................................8
Basi# Course............................................................................................................................................................8
Alternate Course......................................................................................................................................................8
Uses/*+ten&s............................................................................................................................................................8
User (mplementation Requests.................................................................................................................................8
,requen#y.................................................................................................................................................................8
Aut-ority...................................................................................................................................................................8
Asso#iate& Spe#ifi#ations.........................................................................................................................................9
(ssues........................................................................................................................................................................9
"e#ision 'oints........................................................................................................................................................9
,uture Requirements................................................................................................................................................9
.o&ifi#ation.............................................................................................................................................................9
Use Case .o&el: Retrieve Customer "ata............................................................................................................../0
USE CASE ID& UC 0!.7.2 MANAGE PRODUCTS.............................................................................................................21
INTENT...........................................................................................................................................................................21
SCENARIO NARRATIVE...................................................................................................................................................21
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................21
ACTORS..........................................................................................................................................................................21
BASIC COURSE&..............................................................................................................................................................21
ALTERNATE COURSE&.....................................................................................................................................................21
USESE'TENDS...............................................................................................................................................................21
USER IMPLEMENTATION REQUESTS...............................................................................................................................21
FREQUENCY...................................................................................................................................................................21
AUT$ORITY....................................................................................................................................................................21
ASSOCIATED SPECIFICATIONS........................................................................................................................................21
ISSUES............................................................................................................................................................................22
DECISION POINTS...........................................................................................................................................................22
FUTURE REQUIREMENTS................................................................................................................................................22
MODIFICATION...............................................................................................................................................................22
USE CASE& MANAGE PRODUCTS....................................................................................................................................23
USE CASE ID& UC 0!.7.3 MANAGE ORDERS.................................................................................................................2!
INTENT...........................................................................................................................................................................2!
SCENARIO NARRATIVE...................................................................................................................................................2!
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................2!
ACTORS..........................................................................................................................................................................2!
BASIC COURSE&..............................................................................................................................................................2!
USESE'TENDS...............................................................................................................................................................2!
USER IMPLEMENTATION REQUESTS...............................................................................................................................2!
FREQUENCY...................................................................................................................................................................2!
AUT$ORITY....................................................................................................................................................................2!
ASSOCIATED SPECIFICATIONS........................................................................................................................................25
ISSUES............................................................................................................................................................................25
DECISION POINTS...........................................................................................................................................................25
FUTURE REQUIREMENTS................................................................................................................................................25
MODIFICATION...............................................................................................................................................................25
USE CASE ID& UC 0!.7.3 MANAGE CONTACTS.............................................................................................................27
INTENT...........................................................................................................................................................................27
SCENARIO NARRATIVE...................................................................................................................................................27
ASSUMPTIONSPRECONDITIONS.....................................................................................................................................27
ACTORS..........................................................................................................................................................................27
BASIC COURSE&..............................................................................................................................................................27
USESE'TENDS...............................................................................................................................................................27
USER IMPLEMENTATION REQUESTS...............................................................................................................................27
FREQUENCY...................................................................................................................................................................27
AUT$ORITY....................................................................................................................................................................27
ASSOCIATED SPECIFICATIONS........................................................................................................................................27
ISSUES............................................................................................................................................................................2%
DECISION POINTS...........................................................................................................................................................2%
FUTURE REQUIREMENTS................................................................................................................................................2%
MODIFICATION...............................................................................................................................................................2%
SO&TIO# ARC*ITECT&RE.....................................................................................................................................!$
INFRASTRUCTURE...........................................................................................................................................................30
VISUAL DESIGN.............................................................................................................................................................30
CONCEPTUAL DESIGN....................................................................................................................................................30
LOGICAL DESIGN...........................................................................................................................................................32
P$YSICAL DESIGN..........................................................................................................................................................3!
EBII#G A#" I#VOICE S(STE, "ATA "ICTIO#AR(...................................................................................!/
EBII#G A#" I#VOICE S(STE, "ATA "ICTIO#AR(....................................................................................!.
TABLE & PRODUCT(MASTER...........................................................................................................................................36
TABLE & BILL..................................................................................................................................................................36
TABLE & BILL(DETAILS...................................................................................................................................................37
TABLE & COMPANY(MASTER..........................................................................................................................................37
TABLE & USER(MASTER..................................................................................................................................................3%
EBII#G A#" I#VOICE S(STE, 0 "ATA SC*E,A ER "IAGRA,..............................................................!1
EBII#G A#" I#VOICE S(STE, "%" 2"ATA %O) "IAGRA,3.................................................................-$
%OR, "ESIG# A#" CO"I#G....................................................................................................................................-1
,rmSplas-................................................................................................................................................................)
,rm1o2in..................................................................................................................................................................)!
,rm.ain...................................................................................................................................................................)$
,rm'ro&u#ts.............................................................................................................................................................)8
,rmBill.....................................................................................................................................................................3)
,rmReports...............................................................................................................................................................7
,rm'rintBill.............................................................................................................................................................7!
'ro&u#tSummary Report..........................................................................................................................................73
,rmBillSummary......................................................................................................................................................7$
,rm*+port"ata........................................................................................................................................................78
,rmUtlity..................................................................................................................................................................8)
,rmCompa#tAn&Repair"ata4ase............................................................................................................................8$
,rmBa#5up"ata4ase................................................................................................................................................88
,rmCompany(nfo.....................................................................................................................................................9
,rmClient(nfo...........................................................................................................................................................9$
,rmC-an2e'ass6or&.............................................................................................................................................0
.o&Gen..................................................................................................................................................................0!
.o&Bro6se.............................................................................................................................................................03
.o&Rs7o8or&........................................................................................................................................................07
EBII#G A#" I#VOICE S(STE, TEST PA#..................................................................................................111
INTRODUCTION.............................................................................................................................................................111
TEST SCOPE..................................................................................................................................................................111
TEST STRATEGY...........................................................................................................................................................111
PRECONDITIONS...........................................................................................................................................................112
TEST PRIORITIES..........................................................................................................................................................112
TEST TEC$NIQUES........................................................................................................................................................112
TEST ORGANI#ATION....................................................................................................................................................113
ROLES AND RESPONSIBILITIES.....................................................................................................................................113
DELIVERABLES.............................................................................................................................................................113
TEST ENVIRONMENT....................................................................................................................................................113
$ARD)ARE AND SOFT)ARE........................................................................................................................................113
TESTING AUTOMATION SOFT)ARE..............................................................................................................................11!
APPLICATION CONFIGURATION.....................................................................................................................................11!
TEST MANAGEMENT....................................................................................................................................................11!
TESTING SC$EDULES....................................................................................................................................................11!
T$REATS TO TESTING...................................................................................................................................................115
CO#C&SIO# A#" %&T&RE E#*A#CE,E#T...................................................................................................11.
BIBIOGRAP*(...........................................................................................................................................................114
)EBSITES.....................................................................................................................................................................117
BOO"S..........................................................................................................................................................................117
OBJECTIVE
T*+, -./0123 +, 4561 7/. /81 /7 3*1 9+: 612/.53/. ,1.;+21, +8 M<495+, 3*1= ,<-->= 612/.53+8: +314 3/
7+>4 +86<,3.= 7/. 4/;+1 ,*//3+8:. P.1,183>= 3*1= +,,<1 3*1+. 2>+183 *586?.+3318 +8;/+21 586 3*1= 1831.
6135+>, +8 458<5> .1:+,31.. A86 45+835+8 MS E@21> 7+>1 7/. -./6<23 .531. T*1= ?583 2/4-<31.+A53+/8
/7 3*1+. 458<5> +8;/+21 586 9+>> :181.53+/8 -./21,,.
T*1 2>+183 <,1, MS E@21>, 586 45+835+8, 3*1+. -./6<23 >+,3, 2<,3/41. >+,3, 586 -.+83, 3*1 +8;/+21,
*/?1;1. +3 +, 8/3 -/,,+9>1 3*14 3/ ,*5.1 3*1 6535 7./4 4<>3+->1 ,=,314 +8 4<>3+ <,1. 18;+./84183,
3*1.1 +, >/3 /7 6<->+2531 ?/.B, 586 2*5821 /7 4+,35B1. )*18 3*1 -./6<23 -.+21 5.1 2*58:16 3*1= 8116
3/ <-6531 152* 586 1;1.= 1@21> 7+>1. T*1.1 +, 8/ /-3+/8 3/ 7+86 586 -.+83 -.1;+/<, ,5;16 +8;/+21.
T*1.1 +, 8/ ,12<.+3=C 58= 9/6= 258 5221,, 58= .1-/.3 586 ,18,+3+;1 6535, 5>,/ 8/ .1-/.3, 3/ 7+86 /<3
3*1 ,5>1, ;/><41, ,3/2B >+,3, 586 ,<445.= .1-/.3. T*+, 1B+>>+8: 586 +8;/+2+8: ,=,314 +, <,16 3/
/;1.2/41 3*1 183+.1 -./9>14 ?*+2* 3*1= 5.1 752+8: 2<..183>=, 586 45B+8: 2/4->131 53/4+A53+/8 /7
458<5> 9+>>+8: 586 +8;/+2+8: ,=,314
1'1$4
$+:* L1;1> S/><3+/8 A.2*+3123<.1
2'1$4
User Profiles
T*1 7/>>/?+8: <,1. 3=-1, 5.1 1@-12316 7/. 3*1 1B+>>+8: 586 I8;/+2+8: S=,314&
&se5 B5ie6 "esc5i7tion o6 &se Actions
S5>1, R1-.1,18353+;1 D/?8>/56, 586 <->/56, 2<,3/41. 586 /.61.
+87/.453+/8, ?*+2* 577123, 522/<83+8:, +8;183/.= 586
-./6<23 6535. V+1? 2<,3/41. 586 -./6<23 6535 5,
61,2.+916 +8 413.+2,, 3.52B /.61., 586 61>+;1.+1,.
M585:1. A>> ,5>1, .1-.1,18353+;1 <,1 523+/8,, 586 4585:14183
.1-/.3,, D</35 1,359>+,*4183, .1-/.3+8: 586
560<,34183.
A22/<83583 V+1? 586 -.+83 ,3/2B,, 3.52B /.61.,. U-6531 -./6<23
6135+>, >+B1 -.+21.
MIS E@12<3+;1 G181.531 .1-/.3,, ;+1? 586 -.+83 +8;183/.= .1-/.3,,
;+1? 586 -.+83 ,3/2B .1-/.3,.
!'1$4
Usage Summary
1B+>>+8: 586 I8;/+2+8: S=,314 V1.,+/8 1.0 ?+>> 566.1,, 3*1 7/>>/?+8: <,1 25,1,. T*1 2/4->131 <,5:1
,2185.+/, ?+>> 91 2/4->1316 6<.+8: 3*1 +87/.453+/8E:53*1.+8: -./21,,. U,1 25,1, ?+>> 91 2.15316 586
-.+/.+3+A16. S1>12316 <,1 25,1, ?+>> 91 1@-58616 +83/ <,5:1 ,2185.+/, 586 7153<.1, 3*53 5.1 61.+;16
7./4 9/3* <,1 25,1, 586 3*1 <,5:1 ,2185.+/,, 5, .1-.1,18316 +8 3*1 7/>>/?+8: 6+5:.54&
U,5:1
,<445.=
<,1 25,1
-'1$4
Requirements Summary
T*1 7/>>/?+8: -.1>+4+85.= >+,3, 5.1 95,16 /8 +8+3+5> +831.;+1?,
Business Requirements
T*1 9<,+81,, :/5> 7/. 3*1 5-->+253+/8 +, 3/ ,<--/.3 58 +82.15,1 3*1 -./6<23+;+3= 586 2/4->131
5<3/453+/8 /7 1@+,3+8: 458<5> 9+>> 586 +8;/+21 :181.53+/8 -./21,,. B<,+81,, .1D<+.14183, 5.1
6+,2<,,16 +8 3*1 S2/-1 ,123+/8, ?+3* 3*1 7/>>/?+8: 566+3+/85> 6135+>&
• S5>1, .1-.1,18353+;1, 8116 5 413*/6 3/ ,3/.1 586 5221,, ,5>1, /--/.3<8+3= 6535, 586 ?*18 5
,5>1 +, :181.5316, 2/8;1.3 ,/41 /. 5>> /7 3*1 +87/.453+/8 +83/ 5 ,5>1, /.61. ?+3*/<3 .1E1831.+8:
+87/.453+/8.
• E52* ,5>1, .1-.1,18353+;1 ,*/<>6 .121+;1 2<,3/41. 586 ,5>1, 6535 -1.3+8183 /8>= 3/ 3*14.
• T*1 522/<83583 ,*/<>6 91 59>1 3/ 1831. /. <-6531 -./6<23 +87/.453+/8 +8 /81 +831.7521 /8>=,
?+3* 5>> 8121,,5.= -./6<23 +87/.453+/8 91+8: .121+;16 9= ,5>1, ,3577.
• M585:1. 4<,3 .121+;1 *+, /. *1. 2<,3/41. 586 5--/+834183 6535 -><, 6135+>16 586 ./>><-
+87/.453+/8 7/. 152* ,5>1, .1-.1,18353+;1 /8 *+, /. *1. 3154.
• T*1 5-->+253+/8 ,*/<>6 ,<--/.3 3*1 25-59+>+3= 3/ <,1 4<>3+ <,1. 18;+./84183.
• T*1 MIS E@12<3+;1 ,*/<>6 59>1 3/ :181.531 5>> 3=-1 /7 .1-/.3, 5, 586 ?*18 .1D<+.16 9= 3*1
4585:14183.
T*1 ,5>1, ,3577 ?583, 3/ +4-./;1 3*1+. 2<..183 59+>+3= 3/ 585>=A1 3*1+. 2<,3/41.,. I8 -5.3+2<>5., 3*1=
?583 3/ 7/2<, /8 +6183+7=+8: 3*1+. 91,3 2<,3/41., 586 9<+>6+8: >/8:E31.4 .1>53+/8,*+-, ?+3*+8 3*53
95,1. T/ 1859>1 3*14 3/ 522/4->+,* 3*+, :/5>, 3*1= ?583 3/ [email protected] 4158+8:7<> 6535 3*53 15,+>=
58,?1., 3*1 7/>>/?+8: D<1,3+/8,&
• )*53 5.1 3*1 15.>= ?5.8+8: ,+:8, /7 -./9>14,F
• )*/ 5.1 4= 91,3 2<,3/41., 52./,, -./6<23 >+81,F
• )+3* ?*/4 6/ I 7/2<, 4= 177/.3, 7/. 9<+>6+8: 5 >/8:E31.4 .1>53+/8,*+-F
• )*53 5.1 4= 2<,3/41.,G +,,<1, 5, :./<-,F
• G1/:.5-*+25>>=, ?*1.1 5.1 4= 91,3 2<,3/41.,F
• )*53 -./6<23, 5.1 4= 2<,3/41., 9<=+8: 586 53 ?*53 .531F
User Requirements
U,1. .1D<+.14183, 5.1 2531:/.+A16 9= <,1. 3=-1.
Sales Sta66 2Re75esentatives and ,anage5s3
• V+1? 3*1 6535 +8 ;5.+/<, ?5=,, 7/. 1@54->1&
o C<,3/41., ?*/ 5.1 3*1 3/- 9<=1., /7 ,-12+7+2 +314,
o B1,3 2<,3/41., 95,16 /8 2.+31.+5 3/ 91 6131.4+816
o B1,3 2<,3/41., 95,16 /8 :1/:.5-*+25> 585>=,+,
o D./-, +8 5 2<,3/41.G, ,5>1,
/'1$4
• S3/.1 4<>3+>+8:<5> 586 4<>3+.1:+/85> +87/.453+/8 +8 3*1 653595,1 .53*1. 3*58 .1>=+8: /8 3*1
,5>1, ,3577 3/ 3.58,>531 3*1 +87/.453+/8
• I6183+7= ?*+2* -./6<23 -.+21, *5;1 9118 4/6+7+16, 1,-12+5>>= /8 2<..183 /.61., +8 -./:.1,,
• U,1 /--/.3<8+3= .<>1,, ?*+2* 5.1 ,35314183, 3*53 *1>- 3*1 ,5>1, .1-.1,18353+;1 2/8;1.3 58
/--/.3<8+3= +83/ 5 ,5>1
• A66 3*+.6E-5.3= 6535 ,/<.21, 586 7+8582+5> 1;5><53+/8 3//>,
• I6183+7= ?*1.1 -./4/3+/8, 586 -./:.54, ?/<>6 91 3*1 4/,3 91817+2+5>
• A-->= 6+,2/<83, 3/ 2<,3/41. /.61.,&
o S5>1, .1-.1,18353+;1, 258 /771. 6+,2/<83, <- 3/ 15 -1.2183, /. <- 3/ 20 -1.2183 ?+3*
5<3*/.+A53+/8.
o S5>1, 4585:1., 258 /771. 6+,2/<83, <- 3/ 20 -1.2183
• E859>1 25-3<.1, 585>=,+,, 586 ,*5.+8: /7 6535 59/<3 5 2<,3/41. 52./,, 3*1 2/4-58=
• U,1 7/.125,3, 3/ 1,359>+,* ,5>1, :/5>,
• A>>/? 5>> ,3577 3/ ;+1? 5>> 2/83523,, 9<3 5>>/? 152* 2/83523 3/ 91 5,,+:816 3/ 5 ,5>1, .1-.1,18353+;1
Acco8ntant
• U-6531 -./6<23 6135+>,, +82><6+8: -.+21, -*/3/, 586 61,2.+-3+/8
• A66, 61>131, 586 <-6531 -./6<23 ,-12+7+253+/8,
• G181.531 ,3/2B .1-/.3, 586 2*12B 3*1 5;5+>59+>+3=, /.61. 3*1 +314 5, 586 ?*18 811616.
,IS E9ec8tive
• G181.531 R1-/.3, 5, -1. .1D<+.14183.
• S*5.1 3*1 6535, 586 2/8;1.3 .1-/.3, 3/ 6+771.183 7/.453 >+B1 T1@3, CSV.
Operational Requirements
T*1 7/>>/?+8: .1D<+.14183, -./;+61 5 *+:*E>1;1> ;+1? /7 */? 3*1 ,=,314 ?+>> .<8&
• P./21,,/. <,5:1 ,*/<>6 8/3 1@2116 %0 -1.2183 6<.+8: 2/82<..183 <,1,.
• B52B<-, ?+>> /22<. +82.141835>>= 3*./<:*/<3 3*1 65=.
• A 7<>> ?11B>= 952B<- +, .1D<+.16 3/ )ORM 6.+;1,.
• E8,<.1 3*53 +87/.453+/8 +, 15,= 3/ 5221,, 1+3*1., 586 4158+8:7<> 7/. 3*1 ,5>1, .1-.1,18353+;1
586 3*1 2/4-58=.
• M+8+4+A1 3*1 312*8+25> B8/?>16:1 3*53 ,5>1, 586 45.B13+8: ,3577 8116 3/ 5221,, 3*1 6535,
:181.531 56 */2 D<1.+1,, 3.52B -./4/3+/8,, 586 ;+1? 2<,3/41. ,1:418353+/8 +87/.453+/8.
• A8= 2*58:1 3/ +87/.453+/8 4<,3 91 .17>12316 +4416+531>=, 586 3*1 2*58:1, 4<,3 91
-./-5:5316 3/ 3*1 ,15.2* 18:+81 ,/ 3*53 14->/=11, 3*53 -1.7/.4 ,15.2*1, ,11 3*+, 81?
+87/.453+/8.
• T*1 5-->+253+/8 ,*/<>6 ?/.B ?+3* 3*1 1@+,3+8: 2/44<8+253+/8, 586 813?/.B+8:
+87.5,3.<23<.1.
.'1$4
• T*1 5-->+253+/8 ,*/<>6 61->/= ?+3* 5 4+8+4<4 /7 566+3+/85> /-1.53+/85> -./21,,1,, 458<5>
/. /3*1.?+,1.
System Requirements
T*1,1 5.1 566+3+/85> 2/8,3.5+83, 7./4 5 ,=,314 -1.,-123+;1&
• P.1;+/<, 6535 /7 2<,3/41., -./6<23 6135+>, 4<,3 91 +4-/.316 +8 3*1 81? ,=,314.
• T*1 564+8+,3.53/. 4<,3 91 59>1 3/ 4/8+3/. 1;1.=3*+8: 7./4 3*1 IT 61-5.34183.
• T*1 +87/.453+/8 4<,3 91 5221,,+9>1 9= 1;1.=/81 +8 3*1 2/4-58= 5, -1. 3*1 .+:*3, ,-12+7=.
Success Criteria
T/ 6131.4+81 3*1 ,<221,, /7 3*+, -./0123, 3*1 7/>>/?+8: 413.+2, 258 91 D<583+7+16 586 <,16 3/ 585>=A1
,<221,, 7523/.,.
Sales Automation
• P5o:lem c8stome5 identi6ication. A9+>+3= 3/ +6183+7= 3/- 10 61;1>/-+8: -./9>14 2<,3/41.,
9= ,5>1, .1-.1,18353+;1.
• Identi6ication o6 :est c8stome5s ac5oss 75od8ct lines and 5egions. A>> 2<,3/41., 258 91
,/.316 9= 3*1 7523/., H3/ 91 6131.4+816I 3*53 .58B 3*14 D<5>+353+;1>=. V5.+59>1 ,/.3, 586
.58B+8:, 258 91 2*/,18 9= 3*1 ,5>1, .1-.1,18353+;1.
• Identi6ication o6 iss8es ac5oss g5o87s. A>> 2<,3/41., 258 91 ,/.316 9= 3*1 +,,<1, H3/ 91
6131.4+816I ?+3*+8 :./<- 2531:/.+1, 3*53 258 91 <-65316. V5.+59>1 ,/.3, 586 .58B+8:, 258 91
2*/,18 9= 3*1 ,5>1, .1-.1,18353+;1 /. /3*1. <,1..
• Analysis o6 ;8antities and 5ates o6 75od8cts. P./6<23, 258 91 ,/.316 9= 3*1 D<583+3= 586
6531, ,/>6. V5.+59>1 ,/.3, 586 .58B+8:, 258 91 2*/,18 9= 3*1 <,1..
4'1$4
Design Goals and Constraints
Performance
N/ 4/.1 3*58 5 5E-1.2183 61:.5653+/8 +8 5;1.5:1 D<1.= .1,-/8,1 +, 5>>/?16 ?*+>1 5>> 2/82<..183 <,1.
5.1 <,+8: 3*1 ,=,314.
P./21,,/. <3+>+A53+/8 ,*/<>6 8/3 1@2116 %0 -1.2183 6<.+8: 5>> 2/82<..183 <,1., 5.1 <,+8: 3*1 ,=,314.
Availability
B125<,1 3*1 ,=,314 +, 5221,,16 9= ,5>1, .1-.1,18353+;1 3/ 9//B 3*1 /.61. 586 -.+83 3*1 +8;/+21, 586
3*1+. ,*/<>6 8/3 91 58= ,+8:>1 -/+83 /7 75+><.1.
Reliability
B125<,1 /7 3*1 8116 8/ ,+8:>1 -/+83 75+><.1, 5<3/453+2 75+>/;1. ?+>> 91 .1D<+.16. I8 566+3+/8, 1@+,3+8:
6+,5,31. .12/;1.= 586 952B<- ->58, 586 -./216<.1, 4<,3 91 .1;+,16 3/ +82/.-/.531 3*1 1B+>>+8: 586
I8;/+2+8: S=,314.
Scalability
1B+>>+8: 586 I8;/+21 S=,314 58 5;1.5:1 >/56 /7 50 2/82<..183 <,1., 5731. 3*1 ,=,314 +, 7<>>=
/-1.53+/85>, 586 1@-123, 3*53 3/ :./? 9= 5 -1.2183 152* =15. 7/. 3*1 81@3 7+;1 =15.,.
Security
F/. 3*1 ,18,+3+;1 2<,3/41. 586 /.61. 6535, 5>> <,1., ?+>> 8116 3/ >/: /8 3*1 ,=,314 ?+3* 3*1+. <,1. +6
586 -5,,?/.6.
E;1.= .1,/<.21 +8 3*1 ,=,314 5.1 617+816 9= 3*1 ./>1 586 -.+;+>1:16. S=,314 564+8+,3.53/. 5,,+:816
<,1. ./>1 586 -.+;+>1:16 7/. 3*1+. 5221,, .+:*3,.
Interoperability
I8 V1.,+/8 1.0 /7 3*1 1B+>>+8: 586 I8;/+21 S=,314, 3*1.1 5.1 8/ .1D<+.14183, 7/. +831./-1.59+>+3= ?+3*
/3*1. ,=,314,.
Location
T*1 1B+>>+8: 586 I8;/+21 S=,314 5.1 <,16 +8 3*1 2/4-58= /77+21 /8>=.
Setup/Installation
S13<- 586 +8,35>>53+/8 4<,3 8/3 +831..<-3 3*1 ,5>1, ,3577J, 65+>= 35,B, 586 ?/.B 7>/?.
<'1$4
Use Case Summary
Manage Orers
Desription
T*+, 7<823+/8 ?+>> 1859>1 ,5>1, .1-.1,18353+;1 3/ ->521 /.61., 7/. 1B+>>+8: 586 I8;/+21 S=,314
-./6<23,, 3.52B ,<94+3316 /.61.,, 586 ;+1? 2/4->1316 /.61., 586 -.+83 3*1 +8;/+21.
Business !eed
T*+, 7<823+/8 ?+>> 1859>1 ,5>1, .1-.1,18353+;1 3/ +831.523 ?+3* 1B+>>+8: 586 I8;/+21 S=,314 2535>/:
6+.123>= ?+3*/<3 3*1 +831.;183+/8 /7 58= /3*1. 14->/=11,.
"riority
$+:*
Manage Proucts
Desription
T*+, 7<823+/8 5>>/?, <,1. /7 1B+>>+8: 586 I8;/+21 S=,314 3/ 2.1531, 45+835+8, 586 61>131 +87/.453+/8
59/<3 -./6<23, +8 3*1 -./6<23 653595,1 3*53 258 3*18 91 ;+1?16 586 /.61.16 9= 2<,3/41.,, 586
5221,,16 586 <-65316 9= 3*1 ,5>1, ,3577.
Business !eed
T*+, 7<823+/8 ?+>> ,<--/.3 3*1 ,5>1, ,3577 ?+3* 522<.531 586 .1>1;583 +87/.453+/8, 586 ?+>> 5>,/
,<--/.3 3*1 M585:1 O.61., 7<823+/8 9= 18,<.+8: <-E3/E6531 -./6<23 +87/.453+/8.
"riority
$+:*
Manage Contacts
Desription
T*+, 7<823+/8 1859>1, 3*1 ,5>1, ,3577 3/ 2.1531 586 4585:1 2/83523, 5, ?1>> 5, ,*5.1 2/83523
+87/.453+/8 ?+3* 3*1 .1,3 /7 3*1 2/4-58=.
Business !eed
T*+, 7<823+/8 1859>1, <,1. /7 1B+>>+8: 586 I8;/+21 S=,314 3/ *5;1 522<.531 586 <-E3/E6531 2/83523
+87/.453+/8 ?*18 ?/.B+8: ?+3* 2<,3/41.,.
1'1$4
"riority
M16+<4
Analy!e Customers
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ 585>=A1 3*1 2<,3/41. 653595,1 586 7+86 /<3 +87/.453+/8, ,<2* 5,
3*1 +6183+3+1, /7 3*1 91,3 2<,3/41.,, 3*1 3/- 9<=1.,, 586 3*1 4/,3 -/-<>5. -./6<23,.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ 6131.4+81 3*1 4/,3 H586 >15,3I -./7+359>1 2<,3/41., 586
-./6<23 >+81,, 1859>+8: 91331. 612+,+/8 45B+8: +8 3*1 .<88+8: /7 3*1 9<,+81,,.
"riority
M16+<4
"orecast Sales
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ ->58 586 3.52B -./6<23+/8 2/,3,, 3.52B ,5>1, .1,<>3,, 586 ->58
,5>1, ,3577+8: 8116,.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ 4585:1 3*1 .1;18<1 ,3.154, /7 3*1 /.:58+A53+/8, 586
2/83./> 2/,3,.
"riority
M16+<4
#stablis$ Sales %oals
Desription
T*+, 7<823+/8 5>>/?, 4585:14183 3/ ;+1? 2<..183 ,5>1, 3.186, 586 14->/=11 -1.7/.45821 586 3/
6131.4+81 ,5>1, :/5>, 7/. 3*1 ,5>1, ,3577 ?+3*+8 3*1 /.:58+A53+/8.
Business !eed
T*+, 7<823+/8 ?+>> 5>>/? 4585:14183 3/ ,13 :/5>, 7/. ,3577, .1;+1? 3*1 -1.7/.45821 /7 ,3577 41491.,,
586 3.52B 14->/=11 -1.7/.45821.
"riority
M16+<4
1$'1$4
Usage Scenarios
U,5:1 ,2185.+/, 3*53 61,2.+91 */? <,1., ?+>> <,1 3*1 ,/><3+/8 ?+3*+8 3*1 2/831@3 /7 3*1 9<,+81,,, S11
7/>>/?+8: <,5:1 ,2185.+/,.
Use Case ID# UC $%&%' Retrie(e Customer Data
T+3>1& UC 0!.7.1 R13.+1;1 C<,3/41. D535
A99.1;+5316 T+3>1& R13.+1;1 C<,3/41. D535
R1D<+.14183 ID& 21
Intent
R13<.8 3*1 ,1>12316 +87/.453+/8 59/<3 /81 /. 4/.1 2<,3/41.,.
Scenario &arrative
A sales 5e75esentative may =ant to sea5c> 6o5 and 5et5ieve in6o5mation a
8t one o5 mo5e c8stome5s 6o5 8se in analysis and 6o5ecasting activities.
Assumptions/Preconitions
1. S5>1, .1-.1,18353+;1 *5, 5221,, .+:*3, 3/ ;+1? 2<,3/41. 6535.
Actors
1. S5>1, R1-.1,18353+;1
'asic Course
1. U,1 25,1 91:+8, ?*18 3*1 ,5>1, .1-.1,18353+;1 612+61, 3/ .13.+1;1 2<,3/41. +87/.453+/8.
2. S=,314 -./4-3, 7/. 3*1 3=-1 /7 2<,3/41. +87/.453+/8 3*53 +, .1D<+.16.
3. S5>1, .1-.1,18353+;1 ,1>123, 3*1 3=-1 /7 2<,3/41. +87/.453+/8 3/ 91 .13.+1;16.
!. S=,314 -.1,183, 3*1 5--./-.+531 2<,3/41. +87/.453+/8 3/ 3*1 ,5>1, .1-.1,18353+;1.
5. U,1 25,1 186, ?*18 3*1 ,1>12316 +87/.453+/8 +, -5,,16 3/ 5 413*/6 /7 61>+;1.=.
Alternate Course
1. I7 8/ 5--./-.+531 2<,3/41. +87/.453+/8 258 91 7/<86, ,=,314 .1-/.3, 3*+, 7523.
2. U,1 25,1 .1,35.3, 3/ 1859>1 ,5>1, .1-.1,18353+;1 3/ <-6531 3*1 3=-1 /7 2<,3/41. +87/.453+/8.
Uses/#(tens
1. N/81
User Implementation Requests
1. N/81
"requency
Q<+31 7.1D<183
Aut$ority
1. N/3 5-->+259>1
11'1$4
Assoiated Specifications
#8m:e5 #ame Catego5y Ty7e
Issues
1. N/81 +6183+7+16
)ecision Points
1. N/81
"uture Requirements
1. T*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ 5-->= 7+>31., 3/ 3*1 .13.+1;16 6535.
2. T*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ ,/.3 3*1 6535. F/. 1@54->1, 3*1 ,5>1, .1-.1,18353+;1 45= ?583 3/ >+,3
3*1 8541, /7 2<,3/41., +8 2*./8/>/:+25> /.61. 95,16 /8 3*1 ,5>1 6531.
Moification
"ate A8t>o5 "esc5i7tion
12'1$4
Use Case Moel* Retrieve Customer )ata
1!'1$4
Use Case* Manage Orers
1-'1$4
Use Case I)* UC +,-.-/ Manage Contacts
T+3>1& UC 0!.7.2 M585:1 C/83523,
A99.1;+5316 T+3>1& M585:1 C/83523,
R1D<+.14183 ID& 19
Intent
E859>1 523/. 3/ 2.1531, ;+1?, 4/6+7= /7 3*1 +87/.453+/8 59/<3 2<,3/41. 2/83523,.
Scenario &arrative
An acto5 =ants to c5eate vie=? modi6y? and delete t>e c8stome5 contacts.
Assumptions/Preconitions
• T*1 523/. *5, .+:*3, 3/ 5221,, 3/ 3*1 1B+>>+8: 586 I8;/+21 S=,314, 586 *5;+8: .+:*3, 3/ ;+1?,
56,, 16+3 586 61>131 3*1 2<,3/41. 2/83523,.
Actors
• S5>1, R1-.1,18353+;1
• M585:1.
• A22/<83583
'asic Course*
• U,1 25,1 91:+8, ?*18 523/. 612+61, 3/ ,15.2* 2<,3/41..
• A23/. ,15.2*1, 3*1 2<,3/41..
• S=,314 6+,->5=, 3*1 2<,3/41. 6135+>,.
• A23/. ;+1? 3*1 2<,3/41. 2/83523 6135+>,&
• A23/. 566, 4/6+7= 3*1 2/83523 6135+>,.
Uses/#(tens
1. N/81
User Implementation Requests
1. N/81
"requency
F.1D<183
Aut$ority
2. N/3 5-->+259>1
Associate Specifications
#8m:e5 #ame Catego5y Ty7e
1/'1$4
Issues
2. N/81
)ecision Points
2. N/81
"uture Requirements
3. N/81
Moification
"ate A8t>o5 "esc5i7tion
1.'1$4
Solution Ar)iteture
Infrastructure
N1? ,1.;1., 4<,3 91 6<5> -./21,,/. 1.26 G$A 2/4-<31.,, ?+3* 1 GB /7 RAM. T*1 /-1.53+8: ,=,314
,/73?5.1 ?+>> 91 M+2./,/73® )+86/?,® 2000 ?+3* 3*1 >531,3 ,1.;+21 -52B, 5>3*/<:* <,1 /7 )+86/?,
S1.;1. 2003 ?+>> 91 2/8,+61.16 ?*18 +3 +, 5;5+>59>1.
T*1,1 ,1.;1., ?+>> 91 +8,35>>16 /8 1@+,3+8: 813?/.B.
T/ *1>- -./;+61 ,12<.+3= /7 3*1 5-->+253+/8, 9/3* 58 +831.85> 586 [email protected]> 7+.1?5>> ?+>> 91 +8,35>>16.
0isual )esign
S11 >531. /8 3*1 ;+,<5> +831.7521 61,+:8..
Conceptual )esign
F/. +87/.453+/8 59/<3 3*1 2/821-3<5> 61,+:8 ,11 3*1 <,1 25,1 /7 -.1;+/<, 2*5-31., /7 3*1 1B+>>+8: 586
I8;/+21 S=,314,
B<,+81,, R<>1 C535>/: /7 1B+>>+8: 586 I8;/+21 S=,314
BR ID
Business Rule
Title
Description Authority Current Process
1 Timely Product
Information
Adjustments
The product information,
price in the system must be
current 100% of the time.
Adjustments to this
information must be made at
any time.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
1. Product is identified by
Mana%er
#. &urrent information is
reie!ed and modifications
are identified.
'. Accountant notes chan%es
to information and obtains
approal from Mana%er.
(. Accountant ma)es the
chan%es to the product
information.
*. After approal is %ien by
all o!ners, Accountant saes
the chan%es.
14'1$4
2 +eactiatin%
,eleted
Products
A product can be -deleted,-
meanin% that it is no lon%er
sold by e.illin% and Inoice
/ystem. 0o!eer, the
product information should
be aailable in case the
product is reactiated at a
future time.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
1. Product is identified by
Mana%er.
#. Accountant is notified that
the product should be
remoed from the catalo%.
1otification comes from
Mana%er.
'. Accountant archies
product information and saes
the information in te2t and
%raphics files on an internal
business serer.
(. If a product is reactiated,
the Accountant receies
notification from Mana%er.
*. Accountant creates a ne!
product record in the
database and copies the
information from the files on
the internal business serer to
the database record.
". Accountant notifies product
information -o!ners- in
Mana%er to reie! the ne!
product record.
3. After approal is %ien by
all o!ners, Accountant ma)es
the product record aailable
to the catalo%.
3 Authori4ation
for &atalo%
&han%es
1o chan%e to product
information can be made
publicly aailable !ithout
the approal from the
information -o!ners,- usually
Mana%er.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
,eried from .+1
4 ,eliery of ,aily
Pricin% 5pdates
to /ales
The /ales force needs to use
the most up6to6date
information about product
pricin% and related
information, such as
aailability. 7ther!ise, sales
representaties miss
receiin% chan%es that do
affect them. This results in
the sales representaties
hain% to redo orders and
recalculate pricin%.
Mr. Ajay
Kumar,
Accountant.
Interie!
dated May ",
#00$
8ery mornin% of eery day9
1. Accountant 5pdate the
pricin% from the endor.
1<'1$4
5 Authori4ation
for Information
Access
&ertain roles hae access to
certain information types
and functions. &urrent roles
include /ales +epresentatie,
/ales Mana%er, Accountant,
MI/ 82ecutie
Mr.
ydeep ,as, IT
Mana%er.
Interie!
dated May 1#,
#00$
1. A suitable authority is
re;uested for creation of a
role.
#. The role is created and
authori4ed by the
authori4ation authority.
Logical )esign
#'illing an Invoice System Service Matri(
11'1$4
2$'1$4
B8siness
O
ectsSe5vices Acto5s 2Roles3 Res7onsi:ilities Colla
5ations
&se Case
Re6e5ence
P./6<23,
M585:1
P./6<23,
• S5>1,
.1-.1,18353+;1
• S13 7+>31.+8:
+87/.453+/8
• G13 -.+21
4/6+7+253+/8,
• S1>123 5
2535>/: +314
7./4 2535>/:
+314
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• S1>123 5 2535>/:
+314
• G13 6135+>, /7
2535>/: +314
• G13 -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• S13 566.1,,
6135+>,
• G13 566.1,, >+,3
• V5>+6531 566.1,,
• C/87+.4
61>+;1.=
• S13 61>+;1.=
566.1,, 7./4
/.61.
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• P.+83 -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• V+1? -./6<23
,-12,
• N/81 U,1 C5,1 &
M585:1
P./6<23
• C<,3/41.
• S5>1,
.1-.1,18353+;1
• V+1? ,<445.=
+87/.453+/8
• N/81 U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• V+1? 6135+>16
+87/.453+/8
• N/81 U,1 C5,1 &
M585:1
P./6<23
E6+3
P./6<23,
• A22/<83583 • A66 +314 3/
2535>/:
• B./?,1
2535>/: +314,
• S13 +314
6135+>, 7./4
2535>/: +314
U,1 C5,1 &
E6+3 P./6<23
• A22/<83583 • G13 16+359>1
+314,
• S13 +314 6135+>,
• V5>+6531 +314
6135+>,
• S5;1 +314
6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
E6+3 P./6<23
S15.2*
P./6<23,
• S5>1,
.1-.1,18353+;1
• A22/<83583
• S5>1, 4585:1.
• L+,3 2531:/.+1,
• B./?,1 3/
2531:/.=
• L+,3 2535>/:
+314,
• V+1?
,<445.=
+87/.453+/8
7./4 2535>/:
+314
U,1 C5,1 &
M585:1
P./6<23
• S5>1,
.1-.1,18353+;1
• A22/<83583
• S5>1, 4585:1.
• S13 ,15.2*
2.+31.+5
• S15.2* 2535>/:
• N/81 U,1 C5,1 &
M585:1
P./6<23
O.61. M585:1
58 /.61.
• S5>1,
.1-.1,18353+;1
• S13 6+,-532*
412*58+,4
• E831. 6+,-532*
6135+>,
• V5>+6531
6+,-532* 6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S13 61>+;1.=
566.1,,
• N/81 U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• S13 /.61. 6135+>,
• G13 /.61.
6135+>, 7./4
/.61.
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• C5821> /.61.
• G13 /.61.
6135+>, 7./4
/.61.
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• C.1531 O.61.
• S13 /.61. 6135+>,
• A66 2535>/:
+314 3/ /.61.
• S13 61>+;1.=
566.1,,
• S13 -5=4183
6135+>,
• C/87+.4 /.61.
• S=82*./8+A1
/.61. ?+3* CE
61;+21
• B./?,1
2535>/: +314,
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S=82*./8+A1
/.61. ?+3*
>5-3/-
• S13 2<,3/41.
,+:853<.1
• B./?,1
2535>/: +314,
U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S5>1, 4585:1.
• A-->= 5
6+,2/<83
• N/81 U,1 C5,1 &
M585:1
O.61.,
T.52B 58
/.61.
• S5>1,
.1-.1,18353+;1
• G13 /.61. ,353<, • N/81 U,1 C5,1 &
M585:1
O.61.,
• S5>1,
.1-.1,18353+;1
• S15.2* 7/. 58
/.61.
• G13 /.61.
6135+>,
• S13 6+,2/<83
54/<83
• V5>+6531
6+,2/<83 54/<83
• S13 /.61. 6135+>,
• G13 6135+>,
/7 2535>/:
+314 7./4
2535>/: +314
U,1 C5,1 &
M585:1
O.61.,
C<,3/41. T.52B 5
2<,3/41.
• S5>1,
.1-.1,18353+;1
• G13 2<,3/41.
6135+>,
• S15.2* 7/. 5
2<,3/41.
• N/81 U,1 C5,1 &
R13.+1;1
C<,3/41. D535
P$ysical )esign
e'illing an Invoice System P$ysical Ob1ect Moel
21'1$4
A ne2 prouct to prouct master sequence iagram
22'1$4
eBilling and In(oie System Data Ditionary
3able * prouct4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 5
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
Sno +83 N/3 5>>/?16
P5odTy7e 8;5.2*5.H60I N/3 5>>/?16
P5odS8:Ty7e 8;5.2*5.H60I N/3 5>>/?16
Rate +83 N/3 5>>/?16
isactive 8;5.2*5.H30I N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDP5od8ct,aste5Dsno 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
3able * bill
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 15
#8m:e5 o6 inde9esA 3
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
sno +83 N/3 5>>/?16
invoiceno 8;5.2*5.H60I N/3 5>>/?16
canme 8;5.2*5.H60I N/3 5>>/?16
InvoiceDdate 65313+41 N/3 5>>/?16
location 8;5.2*5.H60I N/3 5>>/?16
c>alanDno +83 N/3 5>>/?16
c8stome5Dname 8;5.2*5.H100I N/3 5>>/?16
C8stome5Dadd5ess1 8;5.2*5.H100I N/3 5>>/?16
C8stome5Dadd5ess2 8;5.2*5.H100I A>>/?16
TotalDamt +83 N/3 5>>/?16
disco8nt +83 N/3 5>>/?16
AmtD=o5ds 8;5.2*5.H100I N/3 5>>/?16
PaidDty7e 8;5.2*5.H60I N/3 5>>/?16
C>e;8eDno 8;5.2*5.H60I A>>/?16
Ent5yDdate 65313+41 N/3 5>>/?16
2!'1$4
Inde9es Ty7e Col8mns
PCDBillDS#O 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
IED:illDcname 8/82><,31.16 >/25316 /8
PRIMARY
28541
IED:illDinvoiceno 8/82><,31.16, <8+D<1 >/25316 /8
PRIMARY
+8;/+218/
3able * bill4etails
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 6
#8m:e5 o6 inde9esA 3
#8m:e5 o6 6o5eign BeysA 2
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
sno +83 N/3 5>>/?16
BillDsno +83 N/3 5>>/?16
P5odDsno 8;5.2*5.H60I N/3 5>>/?16
;ty 65313+41 N/3 5>>/?16
5ate 8;5.2*5.H60I N/3 5>>/?16
amt +83 N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDBillDdetailsDS#O 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
,8/
IED:illDdetailsD:illDsno 8/82><,31.16 >/25316 /8
PRIMARY
B+>>(,8/
IED:illDdeatilsD75odDsno 8/82><,31.16, <8+D<1 >/25316 /8
PRIMARY
P./6(,8/
3able * Company4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 7
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
Com7anyDname 8;5.2*5.H60I N/3 5>>/?16
Add5ess1 8;5.2*5.H100I N/3 5>>/?16
Add5ess2 8;5.2*5.H100I A>>/?16
city 8;5.2*5.H60I N/3 5>>/?16
7in +83 N/3 5>>/?16
2-'1$4
tele7>one 8;5.2*5.H60I N/3 5>>/?16
vatno 8;5.2*5.H60I N/3 5>>/?16
Inde9es Ty7e Col8mns
PCDcoma7nyDmaste5Dcom7anyDname 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
C/45-85=(8541
IED coma7nyDmaste5D7in 8/82><,31.16 >/25316 /8
PRIMARY
-+8
3able * user4master
O=ne5A 69/
"estination "B nameA 19+>>
#8m:e5 o6 col8mnsA 3
#8m:e5 o6 inde9esA 2
#8m:e5 o6 6o5eign BeysA 0
E9tended att5i:8tesA
On%ileG5o87 PRIMARY
Cl8ste5ed PC Y1,
Col8mns "ata ty7e Allo= #&s Val8e'5ange
8se5Dname 8;5.2*5.H60I N/3 5>>/?16
&se5D7ass=o5d 8;5.2*5.H60I N/3 5>>/?16
&se5Dty7e 8;5.2*5.H60I A>>/?16
Inde9es Ty7e Col8mns
PCD8se5Dmaste5D8se5Dname 2><,31.16, <8+D<1, -.+45.= B1=
>/25316 /8 PRIMARY
<,1.(8541
IED 8se5Dmaste5D8se5Dty7e 8/82><,31.16 >/25316 /8
PRIMARY
U,1.(3=-1
2/'1$4
eBilling and In(oie System * Data S)ema ER Diagram
2.'1$4
eBilling and In(oie System D+D ,Data +lo- Diagram.
24'1$4
+orm Design and Coding
+rmSplas)
(Module to show startup screen)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S!las" S#reen
' $sed %able : &A
'Module to s"o' startu! s#reen
'*************************************
(!tion )*!li#it
Dim r As +nteger
Dim i As +nteger
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.0e4t 5 1S#reen.6eig"t - Me.6eig"t2 7 2
Me.%o! 5 1S#reen.8idt" - Me.8idt"2 7 2
'333 get a random -alue to de#ide "o' many se#onds
'333 startu! s#reen s"ould be dis!layed
r 5 9nd * : ; 1
)nd Sub
,ri-ate Sub .orm/$nload1ByVal Can#el As +nteger2
'333 release all t"e re4eren#es
.rmS!las" 5 &ot"ing
)nd Sub
,ri-ate Sub %imer1/%imer12
2<'1$4
'333 #"e#< t"e ella!sed time
'333 i4 t"e ella!sed time greater t"en random -alue
'333 stored in 4orm load= sto! t"e timer
'333 s"o' main 4rom and #lose t"e startu! s#reen
i 5 i ; 1
+4 r 35 i %"en
i 5 0
%imer1.+nter-al 5 0
$nload1Me2
0oad1.rmMain2
.rmMain.S"o'12
)nd +4
)nd Sub
21'1$4
+rm/ogin
(Module to Authenticate User)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' 0ogin Module
' $sed %able : user/master
'Module to #"e#< user login and load
'user rig"ts as !er user ty!e.
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub Command1/Cli#<12
'333 #"e#< '"eat"er user name and !ass'ord are blan<
'333 i4 its is blan 'arn user to enter
+4 %*t$ser&ame.%e*t 5 >> (r %*t,ass'ord.%e*t 5 >> %"en
MsgBo*1>)nter user name and !ass'ord ...>= -b)*#lamation2
%*t$ser&ame.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< 4or entered #om!any
'333 ?uery to database and i4 no re#ord 4ound 'arn user to sele#t #om!any
4rom t"e list.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master '"ere #om!any/name5'> @
CmbCom!any&ame.%e*t @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
Com!any&ame 5 CmbCom!any&ame.%e*t
)lse
MsgBo*1>Sele#t #om!any name 4rom t"e list>= -b)*#lamation2
CmbCom!any&ame.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< 4or username and !ass'ord
!$'1$4
'333 ?uery to user/master 'it" user/name and !ass'ord
'333 i4 no re#ord 4ound #"e#< 'arn user 4or enter -alid user namne and
!ass'ord
'333 i4 re#ord 4ound store user/nmae= user/ty!e in global -ariable 4or
4uture use.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom user/master '"ere $S)9/name 5'> @ %*t$ser&ame.%e*t
@ >' and user/!ass'ord 5'> @ %*t,ass'ord @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
C"e#<0ogin 5 %rue
$ser&ame 5 ++41+s&ull19s1>$S)9/name>2.Value2 5 %rue= >&A>=
9s1>$S)9/name>2.Value2
$ser%y!e 5 ++41+s&ull19s1>user/ty!e>2.Value2 5 %rue= >&A>=
9s1>user/ty!e>2.Value2
$nload1Me2
)lse
MsgBo*1>+n-alid $ser &ame and ,ass'ord ... >= -b)*#lamation= >0ogin
)rror >2
%*t,ass'ord.%e*t 5 >>
%*t$ser&ame.Set.o#us12
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 #lose t"e a!!li#ation
)nd
.rm0ogin 5 &ot"ing
)nd Sub
,ri-ate Sub .orm/0oad12
'333 o!en t"e global #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
(!enCon12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 4ill t"e #ombo bo* 'it" all #om!any/name 4rom #om!any master
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
CmbCom!any&ame.Clear12
+4 9s.9e#ordCount 3 0 %"en
8"ile 9s.)(. 5 .alse
CmbCom!any&ame.Add+tem19s1>#om!any/name>22
9s.Mo-e&e*t12
)nd 8"ile
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
)nd Sub
!1'1$4
,ri-ate Sub .orm/Auery$nload1ByVal Can#el As +nteger= ByVal $nloadMode As
+nteger2
'333 release all t"e obBe#t -ariable used by 4orm
.rm0ogin 5 &ot"ing
)nd Sub
!2'1$4
+rm0ain
(Give user access to different module)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Main S#reen
' $sed %able : &A
'Module to s"o' di44rent o!tions
'*************************************
(!tion )*!li#it
,ri-ate Sub MD+.orm/A#ti-ate12
'333 s"o' t"e login 4orm as modulas 4or 4irst time
'333 '"en main 4orm a#ti-ate 4irst time
+4 C"e#<0ogin 5 .alse %"en
.rm0ogin.S"o'112
)nd +4
0blCom!any&ame 5 Com!any&ame
)nd Sub
,ri-ate Sub MD+.orm/9esiCe12
'333 re!osition t"e !i#turebo* as !er 4orm siCe
'333 to dis!lay t"e sele#ted #om!any name
,i#ture1.0e4t 5 Me.8idt" - ,i#ture1.8idt" - D00
)nd Sub
,ri-ate Sub %oolbar1/ButtonCli#<1ByVal Button As MSCom#tl0ib.Button2
'333 load a!!ro!riate 4orm as !er user #li#< on toolbar buttons
'333 in design time 'e set <ey -alue 4or ea#" toolbar button
+4 Button.Eey 5 >e*it> %"en
)nd
)lse+4 Button.Eey 5 >!rodu#t/master> %"en
.rm,rodu#ts.S"o'112
)lse+4 Button.Eey 5 >bill> %"en
.rmBill.S"o'112
)lse+4 Button.Eey 5 >utility> %"en
.rm$tility.S"o'112
)lse+4 Button.Eey 5 >re!orts> %"en
.rm9e!orts.S"o'112
)lse+4 Button.Eey 5 >#om!any> %"en
.rmC"angeCom!any.S"o'112
)nd +4
)nd Sub
!!'1$4
+rm"roduts
(Maintain Product master)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Maintain ,rodu#t Master
' $sed %able : !rodu#t/master
'
'Module to allo' user to sele#t !rodu#t
'add7modi4y !rodu#t details
'*************************************
(!tion )*!li#it
'33 de#alre 4orm le-el -alriable
Dim 9s As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Cmb,rodu#t%y!e/C"ange12
'333 as !er !rodu#t ty!e 4ill t"e !rodu#t list
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 sele#t t"e 4irst !rodu#t
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0
Dis!lay9e#ord12
)nd +4
)nd Sub
,ri-ate Sub Cmb,rodu#t%y!e/Cli#<12
'333 #all #"ange e-ent
Cmb,rodu#t%y!e/C"ange12
)nd Sub
!-'1$4
,ri-ate Sub CmdCan#el/Cli#<12
'333 #an#el u!date
)D1.alse= %rue2
Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4ron
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)dit/Cli#<12
'333 set 4lag to edit
)D1%rue= .alse2
Add)dit 5 >)D+%>
)nd Sub
,ri-ate Sub Cmd&e'/Cli#<12
'333 set t"e 4lag to add
'333 #laer te*t bo*
0blSr.Ca!tion 5 0
Cmb%y!e.%e*t 5 >>
%*t&ame.%e*t 5 >>
%*t9ate.%e*t 5 0
C"<A#ti-e.Value 5 1
)D1%rue= .alse2
Add)dit 5 >ADD>
)nd Sub
,ri-ate Sub CmdSa-e/Cli#<12
'333 -alidate t"e entry
+4 %rim1Cmb%y!e.%e*t2 5 >> %"en
MsgBo*1>Sele#t or )nter !rodu#t ty!e.>= -b)*#lamation2
Cmb%y!e.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*t&ame.%e*t2 5 >> %"en
MsgBo*1>)nter !rodu#t name.>= -b)*#lamation2
%*t&ame.Set.o#us12
)*it Sub
)nd +4
+4 +nStr11= %*t&ame.%e*t= C"r1FD22 3 0 %"en
MsgBo*1>Don't use double ?oute in !rodu#t name.>= -b)*#lamation2
%*t&ame.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*t9ate.%e*t2 5 .alse %"en
MsgBo*1>)nter rate= numeri# only>= -b)*#lamation2
%*t9ate.Set.o#us12
)*it Sub
)nd +4
'333 #"e#< t"e 4lag 4rom add7edit
+4 Add)dit 5 >ADD> %"en
+4 9s.State 5 adState(!en %"en 9s.Close12
!/'1$4
9s.(!en1>sele#t ma*1sno2 ;1 4rom !rodu#t/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
Dim sno As +nteger
sno 5 9s102
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere 152>= Cn= ad(!enDynami#=
ad0o#<(!timisti#2
9s.Add&e'12
9s1>sno>2 5 sno
9s1>!rod/ty!e>2 5 Cmb%y!e.%e*t
9s1>!rod/sub/ty!e>2 5 %*t&ame.%e*t
9s1>rate>2 5 Val1%*t9ate.%e*t2
9s1>is/a#ti-e>2 5 Val1C"<A#ti-e.Value2
9s.$!date12
9s.Close12
)lse
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere sno5> @
Val10blSr.Ca!tion2= Cn= ad(!enDynami#= ad0o#<(!timisti#2
9s1>!rod/ty!e>2 5 Cmb%y!e.%e*t
9s1>!rod/sub/ty!e>2 5 %*t&ame.%e*t
9s1>rate>2 5 Val1%*t9ate.%e*t2
9s1>is/a#ti-e>2 5 Val1C"<A#ti-e.Value2
9s.$!date12
9s.Close12
)nd +4
'333 dis!aly and u!date lists
Dim (ld,%y!e As String
(ld,%y!e 5 Cmb%y!e.%e*t
Dim (ld,&ame As String
(ld,&ame 5 %*t&ame.%e*t
Cmb%y!e.Clear12
Cmb,rodu#t%y!e.Clear12
Cmb,rodu#t%y!e.Add+tem1>A00>2
Cmb,rodu#t%y!e.%e*t 5 (ld,%y!e
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master order by
!rod/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
Cmb,rodu#t%y!e.Add+tem19s1>!rod/ty!e>22
Cmb%y!e.Add+tem19s1>!rod/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 4ill t"e !rodu#t list again 'it" u!dated7inserted re#ords
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
!.'1$4
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 s"o' t"e 4irst re#ord
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.%e*t 5 (ld,&ame
Dis!lay9e#ord12
)nd +4
'333 enable7diable button
)D1.alse= %rue2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 reset #onne#tion
(!enCon12
)D1.alse= %rue2
Cmb%y!e.Clear12
'333 4ill t"e !rodu#t ty!e
Cmb,rodu#t%y!e.Clear12
Cmb,rodu#t%y!e.Add+tem1>A00>2
Cmb,rodu#t%y!e.%e*t 5 >A00>
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master order by
!rod/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
Cmb,rodu#t%y!e.Add+tem19s1>!rod/ty!e>22
Cmb%y!e.Add+tem19s1>!rod/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 4ill t"e !rodu#t sub ty!e
Dim ArStr As String
+4 Cmb,rodu#t%y!e.%e*t 5 >A00> %"en
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>
)lse
ArStr 5 >sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e5'>
@ Cmb,rodu#t%y!e.%e*t @ >' order by !rod/sub/ty!e>
)nd +4
0st,rodu#tSub%y!e.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1ArStr= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st,rodu#tSub%y!e.Add+tem19s1>!rod/sub/ty!e>22
9s.Mo-e&e*t12
)nd 8"ile
'333 sele#t t"e 4irst re#ord
+4 0st,rodu#tSub%y!e.0istCount 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0
!4'1$4
Dis!lay9e#ord12
)nd +4
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay re#ord as !er sele#ted !rodu#t name
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom !rodu#t/master '"ere !rod/sub/ty!e5> @ C"r1FD2 @
0st,rodu#tSub%y!e.%e*t @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
0blSr.Ca!tion 5 9s1>sno>2
Cmb%y!e.%e*t 5 9s1>!rod/ty!e>2
%*t&ame.%e*t 5 9s1>!rod/sub/ty!e>2
%*t9ate.%e*t 5 9s1>rate>2
C"<A#ti-e.Value 5 9s1>is/a#ti-e>2
)lse
0blSr.Ca!tion 5 >>
Cmb%y!e.%e*t 5 >>
%*t&ame.%e*t 5 >>
%*t9ate.%e*t 5 >>
C"<A#ti-e.Value 5 1
)nd +4
)nd Sub
,ri-ate Sub )D1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable7disable button
CmdSa-e.Visible 5 %1
CmdCan#el.Visible 5 %1
Cmd.ind.Visible 5 %2
Cmd&e'.Visible 5 %2
Cmd)dit.Visible 5 %2
CmdClose.Visible 5 %2
Cmb%y!e.0o#<ed 5 %2
%*t&ame.0o#<ed 5 %2
%*t9ate.0o#<ed 5 %2
C"<A#ti-e.)nabled 5 %1
)nd Sub
,ri-ate Sub 0st,rodu#tSub%y!e/Cli#<12
Dis!lay9e#ord12
)nd Sub
,ri-ate Sub %*t&ame/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As +nteger2
'333 S)0)C% .9(M 0+S%
+4 Cmb,rodu#t%y!e.%e*t G3 >A00> %"en
Cmb,rodu#t%y!e.%e*t 5 >A00>
)nd +4
+4 EeyCode 5 -bEeyDo'n %"en
+4 0st,rodu#tSub%y!e.0ist+nde* G 0st,rodu#tSub%y!e.0istCount - 1 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0st,rodu#tSub%y!e.0ist+nde* ; 1
)nd +4
)nd +4
+4 EeyCode 5 -bEey$! %"en
+4 0st,rodu#tSub%y!e.0ist+nde* 3 0 %"en
0st,rodu#tSub%y!e.0ist+nde* 5 0st,rodu#tSub%y!e.0ist+nde* - 1
)nd +4
!<'1$4
)nd +4
)nd Sub
!1'1$4
+rmBill
(Create and modify bill and print the saved bill)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' &e'7Modi4y Bill Module
' $sed %able : Bill
' : Bill Details
' : ,rodu#t
' : Com!any
'Module to ma<e ne' or modi4y bill=
',rint bill a4ter sa-e t"e re#ord
'also 'e ma<e editable 4le*grid 'it"
'te*t bo* and #ombobo*
'*************************************
(!tion )*!li#it
'333 de#lare 4orm global -ariable
Dim Add)dit As String
Dim 9s As &e' AD(DB.9e#ordset
Dim sno As +nteger
Dim Sa-e,rint As String
-$'1$4
,ri-ate Sub CmdClose/Cli#<12
'333 #"e#< t"e #a!tion o4 t"e button
'333 #lose t"e 4orm or #an#el t"e sa-e
+4 CmdClose.Ca!tion 5 >@Close> %"en
$nload1Me2
)lse
D)1%rue= .alse2
)nd +4
)nd Sub
,ri-ate Sub CmdDelete/Cli#<12
'333 #on4irm 4or deletion o4 bill
'333 i4 user sele#t H)S delete t"e re#ord 4rom bill and bill/details
'333 #lear t"e seleted data 4rom t"e s#reen 4or deleted bill
+4 MsgBo*1>9e#ord 'ill delete !ermantley I>= -bHes&o ; -bCriti#al2 5
-bHes %"en
Cn.)*e#ute1>delete 4rom bill/details '"ere bill/sno 5> @ sno2
Cn.)*e#ute1>delete 4rom bill '"ere sno 5> @ sno2
Add)dit 5 >>
CmdJetBill.Ca!tion 5 >@.ind>
CmdDelete.)nabled 5 .alse
Call Clear.ield12
+4 %*t+n-oi#e&o.)nabled 5 %rue %"en
%*t+n-oi#e&o.Set.o#us12
)nd +4
)nd +4
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'333 4ind t"e bill details
'333 4ind t"e bill by in-oi#e no
Add)dit 5 >>
+4 CmdJetBill.Ca!tion 5 >@Jet Bill> %"en
%*t+n-oi#e&o.)nabled 5 %rue
Call Clear.ield12
%*t+n-oi#e&o.Ba#<Color 5 -bHello'
%*t+n-oi#e&o.Set.o#us12
CmdJetBill.Ca!tion 5 >@.ind>
)lse
Dim 9S1 As &e' AD(DB.9e#ordset
9S1.(!en1>sele#t * 4rom bill '"ere in-oi#e/no 5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
'333 s"o' details 4rom bill table
DtDate.Value 5 9S11>in-oi#e/date>2
%*t0o#ation.%e*t 5 9S11>lo#ation>2
%*tC"alan&o.%e*t 5 9S11>#"alan/no>2
-1'1$4
%*tCom!any.%e*t 5 9S11>#ustomer/name>2
%*tAddress1.%e*t 5 9S11>#ustomer/address1>2
%*tAddress2.%e*t 5 9S11>#ustomer/address2>2
0bl%otalAmount 5 9S11>total/amt>2
0bl9s8ord.Ca!tion 5 9S11>amt/'ord>2
%*tSerial.%e*t 5 9S11>serial>2
'333 s"o' data 4rom bill/details
Dim 9s2 As &e' AD(DB.9e#ordset
+4 9s2.State 5 adState(!en %"en 9s2.Close12
Dim 9sF As &e' AD(DB.9e#ordset
9s2.(!en1>sele#t * 4rom bill/details '"ere bill/sno5> @
9S11>sno>2 @ > order by sno >= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s2.9e#ordCount 3 0 %"en
Dim i As +nteger
9s2.Mo-e.irst12
.or i 5 0 %o 9s2.9e#ordCount - 1
+4 9sF.State 5 adState(!en %"en 9sF.Close12
9sF.(!en1>sele#t * 4rom !rodu#t/master '"ere sno 5> @
9s21>!rod/sno>2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9sF.9e#ordCount 3 0 %"en
M41.%e*tMatri*1i ; 1= 12 5 9sF1>!rod/sub/ty!e>2
)nd +4
+4 9sF.State 5 adState(!en %"en 9sF.Close12
M41.%e*tMatri*1i ; 1= 22 5 9s21>?ty>2
M41.%e*tMatri*1i ; 1= F2 5 9s21>rate>2
M41.%e*tMatri*1i ; 1= D2 5 9s21>amt>2
9s2.Mo-e&e*t12
&e*t
)nd +4
+4 9s2.State 5 adState(!en %"en 9s2.Close12
CmdJetBill.Ca!tion 5 >@Jet Bill>
CmdDelete.)nabled 5 %rue
#mb-al.Visible 5 .alse
Cmd,rint.)nabled 5 %rue
CmdSa-e.)nabled 5 %rue
'333 lo#a< t"e buttons
M41.)nabled 5 %rue
#mb-al.)nabled 5 %rue
%K%VA0.)nabled 5 %rue
%*tCom!any.0o#<ed 5 .alse
%*tAddress1.0o#<ed 5 .alse
%*tAddress2.0o#<ed 5 .alse
DtDate.)nabled 5 %rue
%*t0o#ation.0o#<ed 5 .alse
%*tC"alan&o.0o#<ed 5 .alse
)lse
MsgBo*1>&o ,re-ious Details 4ound 4or in-oi#e...> @
%*t+n-oi#e&o.%e*t= -b)*#lamation2
CmdJetBill.Ca!tion 5 >@.ind>
%*t+n-oi#e&o.)nabled 5 %rue
%*t+n-oi#e&o.Set.o#us12
CmdDelete.)nabled 5 .alse
Cmd,rint.)nabled 5 .alse
-2'1$4
CmdSa-e.)nabled 5 .alse
M41.)nabled 5 .alse
#mb-al.)nabled 5 .alse
%K%VA0.)nabled 5 .alse
%*tCom!any.0o#<ed 5 %rue
%*tAddress1.0o#<ed 5 %rue
%*tAddress2.0o#<ed 5 %rue
DtDate.)nabled 5 .alse
%*t0o#ation.0o#<ed 5 %rue
%*tC"alan&o.0o#<ed 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
)nd +4
)nd Sub
,ri-ate Sub Cmd&e'/Cli#<12
'333 #laer t"e s#reen 4or entering data 4or ne' bill
'333 enable7disable buttons
D)1.alse= %rue2
Add)dit 5 >ADD>
Call Clear.ield12
'333 get t"e ne' system id 4rom bill
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t ma*1sno2 4rom bill >= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
sno 5 ++41+s&ull19s1022 5 %rue= 0= 9s1022 ; 1
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
%*tCom!any.Set.o#us12
)nd Sub
,ri-ate Sub Cmd,rint/Cli#<12
'&(%) : it is not t"e rig"t solution to #all #rystal re!ort by tem! using
tem! table
'some time it is a good !ra#ti#e 4or #om!le#ated databse relation table
'%"is may not run !ro!erly in multi user en-ironment
'Better a!!ro#" is !assing -alue by Sele#tion.ormula in #rystal re!ort
'but any'ay it is a 'or<ing solution
'333 4ind t"e bill sno 4rom seleted in-oi#e no
'333 i4 re#ord 4ound
'333 delete tem! bill na dbill/details
'333 insert 4rom bill=bill/details to tem!/bill= teem!/bill/details
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 1 %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom bill '"ere in-oi#e/no5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name 5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
-!'1$4
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere sno5> @
9S11>sno>22
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno5> @ 9S11>sno>22
Call (!enCon12
'333 #all #rystal re!ort
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbill.r!t>
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.A#tion 5 1
)lse
MsgBo*1>&o Bill 4ound sele#t7enter in-oi#e no 4or !rint>=
-b)*#lamation2
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub CmdSa-e/Cli#<12
'333 -alidation
'333 #"e#< t"e re?uired 4ield
+4 %rim1%*tCom!any.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame...>= -b)*#lamation2
%*tCom!any.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*t+n-oi#e&o.%e*t2 5 .alse %"en
MsgBo*1>)nter only &umeri# +n-oi#e &o...>= -b)*#lamation2
%*t+n-oi#e&o.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*t0o#ation.%e*t2 5 >> %"en
MsgBo*1>)nter 0o#ation...>= -b)*#lamation2
%*t0o#ation.Set.o#us12
)*it Sub
)nd +4
+4 %rim1%*tC"alan&o.%e*t2 5 >> %"en
MsgBo*1>)nter C"alan &o...>= -b)*#lamation2
%*tC"alan&o.Set.o#us12
)*it Sub
)nd +4
+4 +s&umeri#1%*tC"alan&o.%e*t2 5 .alse %"en
MsgBo*1>)nter only &umeri# C"alan &o...>= -b)*#lamation2
%*tC"alan&o.Set.o#us12
)*it Sub
)nd +4
'333 reset t"e transa#tion
Call (!enCon12
'333 #reate transa#tion 4or insert bill and bil details
--'1$4
Cn.Begin%rans12
Dim 9S1 As &e' AD(DB.9e#ordset
'333 #"e#< '"eat"er 'e need to insert or edit t"e re#ord
'333 i4 it is edit= t"en delete t"e old bill and insert ne' re#ord
+4 Add)dit G3 >ADD> %"en
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom bill '"ere in-oi#e/no 5> @
Val1%*t+n-oi#e&o.%e*t2 @ > and #name5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
sno 5 9S11>sno>2
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
Cn.)*e#ute1>delete 4rom bill/details '"ere bill/sno 5> @ sno2
Cn.)*e#ute1>delete 4rom bill '"ere sno 5> @ sno2
Add)dit 5 >>
)nd +4
'333 #"e#< 4or !rodu#t master
'333 #"e#< t"e grid
'333 '"eat"er t"ere is a !rodu#t or not
'333 '"eater t"ey enter any ?uantity or not
'333 '"eate"r t"ere is any !ri#e or not
'333 i4 any t"ing goes 'rong s"o' message
Dim ## As +nteger
Dim i As +nteger
.or i 5 1 %o M41.9o's - 1
Dim C" As Boolean
C" 5 .alse
+4 %rim1M41.%e*tMatri*1i= 122 5 >> %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom !rodu#t/master '"ere !rod/sub/ty!e 5> @
C"r1FD2 @ M41.%e*tMatri*1i= 12 @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount G5 0 %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
+4 Val1M41.%e*tMatri*1i= 222 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= F22 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= D22 5 0 %"en
C" 5 %rue
)nd +4
+4 C" 5 .alse %"en
## 5 ## ; 1
)nd +4
&e*t
+4 ## 5 0 %"en
MsgBo*1>&o Bill details 4ound 4or sa-e>= -b)*#lamation2
)*it Sub
-/'1$4
)nd +4
'333 #"e#< 4or du!li#ate in-oi#e no
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom bill '"ere in-oi#e/no5> @ Val1%*t+n-oi#e&o.%e*t2=
Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
MsgBo*1>+n-alid +n-oi#e &o #annot sa-e..>= -b)*#lamation2
%*t+n-oi#e&o.Set.o#us12
)*it Sub
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
'333 sa-e re#ord in bill table
9S1.(!en1>sele#t * 4rom bill '"ere 152>= Cn= ad(!enDynami#=
ad0o#<(!timisti#2
9S1.Add&e'12
9S11>sno>2 5 sno
9S11>in-oi#e/no>2 5 Val1%*t+n-oi#e&o.%e*t2
9S11>#name>2 5 Com!any&ame
9S11>in-oi#e/date>2 5 .ormat1DtDate.Value= >dd-mmm-yy>2
9S11>lo#ation>2 5 %rim1%*t0o#ation.%e*t2
9S11>#"alan/no>2 5 Val1%*tC"alan&o.%e*t2
9S11>#ustomer/name>2 5 %rim1%*tCom!any.%e*t2
9S11>#ustomer/address1>2 5 %rim1%*tAddress1.%e*t2
9S11>#ustomer/address2>2 5 %rim1%*tAddress2.%e*t2
9S11>total/amt>2 5 Val10bl%otalAmount.Ca!tion2
9S11>dis#ount>2 5 0
9S11>amt/'ord>2 5 0bl9s8ord
9S11>!aid/ty!e>2 5 >&A>
9S11>#"e?ue/no>2 5 >&A>
9S11>entry/date>2 5 &o'
9S11>serial>2 5 %*tSerial.%e*t
9S1.$!date12
+4 9S1.State 5 1 %"en 9S1.Close12
'333 -aildate ea#" ro' be4ore sa-e in details
Dim 0astSno As +nteger
Dim ,rodSno As +nteger
Dim 9s2 As &e' AD(DB.9e#ordset
+4 9s2.State 5 1 %"en 9s2.Close12
9s2.(!en1>sele#t ma*1sno2 4rom bill/details>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9s2.9e#ordCount 3 0 %"en
0astSno 5 ++41+s&ull19s21022 5 %rue= 0= 9s21022 ; 1
)nd +4
.or i 5 1 %o M41.9o's - 1
C" 5 .alse
+4 %rim1M41.%e*tMatri*1i= 122 5 >> %"en
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom !rodu#t/master '"ere !rod/sub/ty!e 5> @
C"r1FD2 @ M41.%e*tMatri*1i= 12 @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
-.'1$4
,rodSno 5 9S1102
)lse
C" 5 %rue
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
+4 Val1M41.%e*tMatri*1i= 222 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= F22 5 0 %"en
C" 5 %rue
)nd +4
+4 Val1M41.%e*tMatri*1i= D22 5 0 %"en
C" 5 %rue
)nd +4
+4 C" 5 .alse %"en
'333 insert in bill details 4or ea#" -alidated grid ro'
+4 9s2.State 5 1 %"en 9s2.Close12
9s2.(!en1>sele#t * 4rom bill/details '"ere 152>= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
9s2.Add&e'12
9s21>sno>2 5 0astSno
9s21>bill/sno>2 5 sno
9s21>!rod/sno>2 5 ,rodSno
9s21>?ty>2 5 Val1M41.%e*tMatri*1i= 222
9s21>rate>2 5 Val1M41.%e*tMatri*1i= F22
9s21>amt>2 5 Val1M41.%e*tMatri*1i= D22
9s2.$!date12
+4 9s2.State 5 1 %"en 9s2.Close12
0astSno 5 0astSno ; 1
)nd +4
&e*t
'333 #ommit t"e transa#tion
Cn.Commit%rans12
MsgBo*1>Bill Sa-ed>= -b+n4ormation2
+4 C"<,rint.Value 5 1 %"en
'333 #all t"e re!ort 4or !rint o4 t"e sa-ed bill
Cmd,rint/Cli#<12
)nd +4
'333 !re!are 4or ne' bill entry
Add)dit 5 >>
Call Clear.ield12
Call Cmd&e'/Cli#<12
)nd Sub
,ri-ate Sub DtDate/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As +nteger2
'333 mo-e t"e #ursor to ne' 4ield
+4 EeyCode 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub DtDate/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e #ursor to ne' 4ield
-4'1$4
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2 7 2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2 7 2
'333 reset #onne#tion
Call (!enCon12
0blCom!any&ame.Ca!tion 5 Com!any&ame
DtDate.Value 5 &o'
'333 #lear t"e 4orm 4or ne' bill entry
Call Clear.ield12
'333 enable7diable buttons
D)1%rue= .alse2
'333 load last status 4or bill !rint a4ter sa-ed
Dim C"<V As +nteger
C"<V 5 Val1JetSetting1>billsystem>= >!rint>= >#"e#<!rint>= >1>22
C"<,rint.Value 5 C"<V
'333 load #lent name 4rom t"e table
9s.(!en1>sele#t #lient/name 4rom #lient/master '"ere #lient/name is not
null order by #lient/name>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile &ot 9s.)(.
%*tCom!any.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
,i#ture1.Visible 5 %rue
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable7disable buttons
CmdJetBill.)nabled 5 %1
Cmd&e'.)nabled 5 %1
CmdSa-e.)nabled 5 %2
Cmd,rint.)nabled 5 %2
%K%VA0.)nabled 5 %2
#mb-al.)nabled 5 %2
M41.)nabled 5 %2
+4 %1 5 %rue %"en
CmdClose.Ca!tion 5 >@Close>
)lse
CmdClose.Ca!tion 5 >@Can#el>
)nd +4
%*tCom!any.0o#<ed 5 %1
%*tAddress1.0o#<ed 5 %1
%*tAddress2.0o#<ed 5 %1
-<'1$4
DtDate.)nabled 5 %2
%*t0o#ation.0o#<ed 5 %1
%*tC"alan&o.0o#<ed 5 %1
%*t+n-oi#e&o.Ba#<Color 5 -b8"ite
CmdDelete.)nabled 5 .alse
)nd Sub
,ri-ate Sub Clear.ield12
'333 #lear t"e 4ields
%*tCom!any.%e*t 5 >>
%*tAddress1.%e*t 5 >>
%*tAddress2.%e*t 5 >>
%*t+n-oi#e&o.%e*t 5 >>
%*t0o#ation.%e*t 5 >>
0bl9s8ord.Ca!tion 5 >>
0bl%otalAmount.Ca!tion 5 >>
%*tC"alan&o.%e*t 5 >>
%*tSerial.%e*t 5 >>
'333 4or grid edit
Call set/"eading12
Call mo-e/te*tbo*12
)nd Sub
,ri-ate Sub .orm/Auery$nload1ByVal Can#el As +nteger= ByVal $nloadMode As
+nteger2
'333 sa-e last status 4or bill !rint a4ter sa-ed in t"e registry
+4 C"<,rint.Value 5 1 %"en
Sa-eSetting1>billsystem>= >!rint>= >#"e#<!rint>= >1>2
)lse
Sa-eSetting1>billsystem>= >!rint>= >#"e#<!rint>= >0>2
)nd +4
)nd Sub
,ri-ate Sub %*tAddress1/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tAddress2/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tC"alan&o/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
#mb-al.Set.o#us12
)nd +4
-1'1$4
)nd Sub
,ri-ate Sub %*tCom!any/Jot.o#us12
'333 ma<e listbo* as editable te*tbo*
%*tCom!any.6eig"t 5 1020
,i#ture1.Visible 5 .alse
)nd Sub
,ri-ate Sub %*tCom!any/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As
+nteger2
'333 s"o' t"e address o4 t"e seleted #om!any
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #lient/master '"ere #lient/name5'> @
%*tCom!any.%e*t @ >'>= Cn2
+4 9S1.9e#ordCount 3 0 %"en
%*tAddress1.%e*t 5 ++41+s&ull19S11>address1>22 5 %rue= >>=
9S11>address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>address2>22 5 %rue= >>=
9S11>address2>22
)lse
%*tAddress1.%e*t 5 >>
%*tAddress2.%e*t 5 >>
)nd +4
+4 9S1.State 5 adState(!en %"en 9S1.Close12
)nd Sub
,ri-ate Sub %*tCom!any/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %*tCom!any/0ost.o#us12
'333 mo-e t"e 4o#us to ne*t #ontrol
%*tCom!any.6eig"t 5 FF0
,i#ture1.Visible 5 %rue
)nd Sub
,ri-ate Sub %*t+n-oi#e&o/EeyDo'n1ByVal EeyCode As +nteger= ByVal S"i4t As
+nteger2
'333 #all getbill by enter <ey in in-oi#e no te*t bo*
+4 EeyCode 5 1F And CmdJetBill.Ca!tion 5 >@.ind> %"en
CmdJetBill/Cli#<12
)nd +4
)nd Sub
,ri-ate Sub %*t0o#ation/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
/$'1$4
,ri-ate Sub %*tSerial/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 mo-e t"e 4o#us to ne*t #ontrol
+4 EeyAs#ii 5 1F %"en
SendEeys1>MtabN>2
)nd +4
)nd Sub
,ri-ate Sub %K%VA0/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 ma<e 4le* gird editable mo-e t" te*tbo* in gid #ell 4or entering
-alue
'333 #"e#< '"eat"e 'e !ress enter <ey
'333 i4 yes..mo-e t"e #ontrol to ne*t grod
Dim t As +nteger
+4 EeyAs#ii 5 1F And M41.Col 5 2 %"en
+4 +s&umeri#1%K%VA0.%e*t2 5 .alse %"en
EeyAs#ii 5 0
)*it Sub
)nd +4
M41.%e*t 5 %K%VA0.%e*t
'333 s"o' total
M41.%e*tMatri*1M41.9o'= M41.Col ; 22 5 Val1M41.%e*tMatri*1M41.9o'=
M41.Col ; 122 * %K%VA0.%e*t
Dim * As +nteger
Dim %1 As Double
.or * 5 1 %o M41.9o's - 1
%1 5 %1 ; Val1M41.%e*tMatri*1*= D22
&e*t
0bl%otalAmount.Ca!tion 5 %1
0bl9s8ord 5 9s8ord10bl%otalAmount.Ca!tion2
+4 M41.Col G3 M41.Cols - F %"en
M41.Col 5 M41.Col ; 1
)lse
+4 M41.9o' G3 M41.9o's - 2 %"en
'333 go to ne*t ro'
M41.9o' 5 M41.9o' ; 1
)lse
'333 add ne' ro's
M41.9o's 5 M41.9o's ; 1
'333 set t"e #urrent ro'
M41.9o' 5 M41.9o' ; 1
'333 set sr no
M41.%e*tMatri*1M41.9o'= 02 5 Val1M41.%e*tMatri*1M41.9o' - 1=
022 ; 1
)nd +4
M41.Col 5 1
)nd +4
mo-e/te*tbo*12
'333 sele#t t"e te*t in te*t bo*
%K%VA0.SelStart 5 0
/1'1$4
%K%VA0.Sel0engt" 5 0en1%K%VA0.%e*t2
)nd +4
)nd Sub
,ri-ate Sub #mb-al/Eey,ress1ByVal EeyAs#ii As +nteger2
'333 ma<e 4le* gird editable mo-e t" #ombobo* in gid #ell 4or seleting
-alue
'333 #"e#< '"eat"e 'e !ress enter <ey
'333 i4 yes..mo-e t"e #ontrol to ne*t grod
Dim t As +nteger
+4 EeyAs#ii 5 1F %"en
'333 4ind !rod rate
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom !rodu#t/master '"ere !rod/sub/ty!e5> @
C"r1FD2 @ #mb-al.%e*t @ C"r1FD2= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
M41.%e*tMatri*1M41.9o'= M41.Col ; 22 5 9S11>rate>2
)lse
EeyAs#ii 5 0
)*it Sub
)nd +4
M41.%e*t 5 #mb-al.%e*t
'333 s"o' total
M41.%e*tMatri*1M41.9o'= D2 5 Val1M41.%e*tMatri*1M41.9o'= 222 *
Val1M41.%e*tMatri*1M41.9o'= F22
Dim * As +nteger
Dim %1 As Double
.or * 5 1 %o M41.9o's - 1
%1 5 %1 ; Val1M41.%e*tMatri*1*= D22
&e*t
0bl%otalAmount.Ca!tion 5 %1
0bl9s8ord 5 9s8ord10bl%otalAmount.Ca!tion2
+4 M41.Col G3 M41.Cols - 2 %"en
M41.Col 5 M41.Col ; 1
)lse
+4 M41.9o' G3 M41.9o's - 1 %"en
M41.9o' 5 M41.9o' ; 1
)lse
'333 add ne' ro's
M41.9o's 5 M41.9o's ; 1
'333 set t"e #urrent ro'
M41.9o' 5 M41.9o' ; 1
/2'1$4
'333 set sr no
M41.%e*tMatri*1M41.9o'= 02 5 Val1M41.%e*tMatri*1M41.9o' - 1=
022 ; 1
)nd +4
M41.Col 5 1
)nd +4
mo-e/te*tbo*12
#mb-al.SelStart 5 0
#mb-al.Sel0engt" 5 0en1#mb-al.%e*t2
)nd +4
)nd Sub
,ubli# Sub set/"eading12
'333 #reating 4or t"e grid
Dim E As +nteger
Dim t As +nteger
M41.Clear12
M41.9e4res"12
M41.9o's 5 F0
M41.Cols 5 :
M41.9o' 5 0
M41.9o'6eig"t102 5 00
M41.Col 5 0
M41.Col8idt"102 5 1000
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >Sr.>
M41.Col 5 1
M41.Col8idt"112 5 D200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >,arti#ulars>
M41.Col 5 2
M41.Col8idt"122 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >Auantity>
M41.Col 5 F
M41.Col8idt"1F2 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
M41.CellAlignment 5 D
M41.%e*t 5 >9ate>
M41.Col 5 D
M41.Col8idt"1D2 5 1200
M41.Cell.oreColor 5 -bBlue
M41.Cell.ontBold 5 %rue
/!'1$4
M41.CellAlignment 5 D
M41.%e*t 5 >Amount>
M41.%e*tMatri*11= 02 5 >1>
M41.9o' 5 0
.or E 5 0 %o M41.Cols - 1
M41.Col 5 E
M41.Cell.ontBold 5 %rue
&e*t
M41.9o' 5 1
M41.Col 5 1
'333 set serial 4rom 1.2...
.or E 5 1 %o M41.9o's - 1
M41.%e*tMatri*1E= 02 5 E
&e*t
M41.9o' 5 1
)nd Sub
,ri-ate Sub M.1/)nterCell12
'333 #all a!!ro!riate #ontrol 4or edit t"e grid
+4 M41.Col 5 1 %"en
'333 -isble #ombo bo* 4or sele#t !rodu#t
#mb-al.Visible 5 %rue
%K%VA0.Visible 5 .alse
+4 #mb-al.Visible 5 %rue %"en
+4 #mb-al.)nabled 5 %rue %"en
#mb-al.Set.o#us12
)nd +4
)nd +4
#mb-al.Clear12
Dim 9s As &e' AD(DB.9e#ordset
+4 9s.State 5 1 %"en 9s.Close12
'333.ill item
+4 M41.Col 5 1 %"en
9s.(!en1>sele#t !rod/sub/ty!e 4rom !rodu#t/master order by
!rod/sub/ty!e>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile &ot 9s.)(.
#mb-al.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
)lse+4 M41.Col 5 F %"en
#mb-al.Add+tem1>>2
)nd +4
)lse
'333 -isble te*t bo* 4or entring ?uantity
#mb-al.Visible 5 .alse
%K%VA0.Visible 5 %rue
+4 %K%VA0.Visible 5 %rue %"en
/-'1$4
+4 %K%VA0.)nabled 5 %rue %"en
%K%VA0.Set.o#us12
)nd +4
)nd +4
)nd +4
Call mo-e/te*tbo*12
)nd Sub
,ubli# Sub mo-e/te*tbo*12
'33align te*tbo* as !er grid #ell and set te*t
%K%VA0.0e4t 5 M41.Cell0e4t ; M41.0e4t
%K%VA0.%o! 5 M41.Cell%o! ; M41.%o!
%K%VA0.8idt" 5 M41.Cell8idt"
%K%VA0.6eig"t 5 M41.Cell6eig"t
%K%VA0.%e*t 5 M41.%e*t
'33align #ombo bo* as !er grid #ell and set te*t
#mb-al.0e4t 5 M41.Cell0e4t ; M41.0e4t
#mb-al.%o! 5 M41.Cell%o! ; M41.%o!
#mb-al.8idt" 5 M41.Cell8idt"
#mb-al.%e*t 5 M41.%e*t
)nd Sub
(Print out of the bill)
//'1$4
+rmReports
(Show Different eport !ptions)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' re!ort o!tions
'
'
'allo' user to sele#t di44rent re!ort
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdBillSummary/Cli#<12
'333 s"o' bill summary
.rmBillSummary.S"o'112
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
'333 #loase t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)*!ort/Cli#<12
'333 s"o' e*!ort !rodu#t 4orm
.rm)*!ortData.S"o'112
)nd Sub
,ri-ate Sub Cmd,rintBill/Cli#<12
'33 s"o' !rint bill
.rm,rintBill.S"o'112
)nd Sub
/.'1$4
,ri-ate Sub Cmd,rodu#tSummary/Cli#<12
'333 s"o' all !rodu#t list re!ort
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsL!rodu#ts.r!t>
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.A#tion 5 1
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
)nd Sub
/4'1$4
+rm"rintBill
(Print already saved bill)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' ,rint already sa-ed bill
' $sed %able : bill
' : bill/details
'Module to allo' user to sele#t t"e in-oi#e
'no 4rom seleted date range
'and o!en t"e bill by its in-oi#e7bill no
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e bill
$nload1Me2
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'333 get bill no as !er sele#ted date range
'333 4ill t"e list bo* 4rom re#ord set
0st+n-oi#e&o.Clear12
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t in-oi#e/no 4rom bill '"ere in-oi#e/date35O> @
.ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O> @
.ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >' order
by in-oi#e/no>= Cn= ad(!enStati#= ad0o#<9ead(nly2
8"ile 9s.)(. 5 .alse
0st+n-oi#e&o.Add+tem19s1022
9s.Mo-e&e*t12
)nd 8"ile
)nd Sub
/<'1$4
,ri-ate Sub CmdS"o'Bill/Cli#<12
'333 get te" bill details 4rom bill table as !er sele#ted bill no
+4 0st+n-oi#e&o.0ist+nde* G 0 %"en )*it Sub
Dim 9S1 As &e' AD(DB.9e#ordset
+4 9S1.State 5 1 %"en 9S1.Close12
9S1.(!en1>sele#t sno 4rom bill '"ere in-oi#e/no5> @
Val10st+n-oi#e&o.%e*t2 @ > and #name 5'> @ Com!any&ame @ >'>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 9S1.9e#ordCount 3 0 %"en
'333 delete old data 4rom tem! table and insert 4rom bill=
bill/deatils table
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere sno5> @
9S11>sno>22
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno5> @ 9S11>sno>22
'333 reset t"e #onne#tion
Call (!enCon12
'333 o!en t"e #rystal re!ort
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbill.r!t>
Cr1.A#tion 5 1
)lse
MsgBo*1>&o Bill 4ound sele#t7enter in-oi#e no 4or !rint>=
-b)*#lamation2
)*it Sub
)nd +4
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
0st+n-oi#e&o.Clear12
'333 set date!i#<er to #urrent date
D%,i#<er1.Value 5 Date
D%,i#<er2.Value 5 Date
'333 reset #onne#tion
Call (!enCon12
)nd Sub
/1'1$4
"rodutSummary Report
(Show Product Summary report in crystal report)
.$'1$4
+rmBillSummary
(Show bill summary for particular date ran"e)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' summery o4 bill
' $sed %able : bill
' : bill/details
's"o' bill summary 4or seleted date
'range= s"o' re!ort in #rystal re!ort
'mo-e data into tem! table and s"o'
're!ort 4rom tem! table
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub CmdJetBill/Cli#<12
'&(%) : it is not t"e rig"t solution to #all #rystal re!ort by tem! using
tem! table
'some time it is a good !ra#ti#e 4or #om!le#ated databse relation table
'%"is may not run !ro!erly in multi user en-ironment
'Better a!!ro#" is !assing -alue by Sele#tion.ormula in #rystal re!ort
'but any'ay it is a 'or<ing solution
'333 4ind t"e bill sno 4rom seleted in-oi#e no
'333 i4 re#ord 4ound
'333 delete tem! bill na dbill/details
'333 insert 4rom bill=bill/details to tem!/bill= teem!/bill/details
Cn.)*e#ute1>delete 4rom tem!/bill/details>2
Cn.)*e#ute1>delete 4rom tem!/bill>2
Cn.)*e#ute1>insert into tem!/bill sele#t * 4rom bill '"ere
in-oi#e/date35O> @ .ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O>
@ .ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >' >2
Cn.)*e#ute1>insert into tem!/bill/details sele#t * 4rom bill/details
'"ere bill/sno in 1 sele#t sno 4rom bill '"ere in-oi#e/date 35O> @
.ormat1D%,i#<er1.Value= >dd-mmm-yy>2 @ >O and in-oi#e/dateG5O> @
.ormat1D%,i#<er2.Value= >dd-mmm-yy>2 @ >O and #name5'> @ Com!any&ame @ >'2>2
Call (!enCon12
.1'1$4
'333 o!en #rystal re!ort
Cr1.Data.iles102 5 A!!.,at" @ >Ldata.mdb>
Cr1.8indo'State 5 #r!tMa*imiCed
Cr1.9e!ort.ile&ame 5 A!!.,at" @ >Lre!ortsLbillsummary.r!t>
Cr1.A#tion 5 1
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2 7 2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2 7 2
'333 s"o' t"e #urrent date
D%,i#<er1.Value 5 Date
D%,i#<er2.Value 5 Date
)nd Sub
#ill Summary eport
.2'1$4
+rmE1portData
($%port product Data in &le%Grid and MS'$%cel with formattin")
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' )*!ort !rodu#t/master in grid and ms-e*#el
' $sed %able : !rodu#t/master
'o!en t"e !rodu#t/master in grid
'dis!lay re#ord in 4le* grid 'it" gro!u by !rodu#t ty!e
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdClose/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Cmd)*#el/Cli#<12
'333e*!ort data into ms e*#el 4rom grid 'it" 4ormatting
'333 #"e#< t"e grid
+4 M41.%e*tMatri*10= 02 5 >> %"en
MsgBo*1>&o 9e#ords A-ailable 4or )*!orting ... >= -b)*#lamation2
)*it Sub
)nd +4
0abel1.Ca!tion 5 >8A+% ... Jenerate )*#el >
0abel1.9e4res"12
'333 #reating e*#el obBe#t -ariable
Dim e* As &e' )*#el.A!!li#ation
Dim 'b As &e' 8or<boo<
Dim )s As &e' 8or<s"eet
'b 5 e*.8or<boo<s.Add
)s 5 'b.8or<s"eets112
.!'1$4
Dim i As +nteger
Dim B As +nteger
'333 set e*#el #olumns 'idt" as !er 4le* grid #olumns 'idt"
.or i 5 0 %o M41.Cols - 1
M41.9o' 5 1
M41.Col 5 i
)s.Columns19eturnAl!"abet1i ; 12 @ >:> @ 9eturnAl!"abet1i ;
122.Column8idt" 5 M41.Cell8idt" 7 110
&e*t
'333 set data 4rom grid to e*#el ro'= #olumn 'ise
Dim E As +nteger
.or i 5 0 %o M41.9o's - 1
.or B 5 0 %o M41.Cols - 1
e*.Cells1i ; 1= B ; 12 5 M41.%e*tMatri*1i= B2
&e*t
&e*t
Dim 91 As String
Dim 92 As String
92 5 9eturnAl!"abet1M41.Cols2 @ >1>
'333 4ormatting e*#el
Dim * As 9ange
'333"ead
* 5 )s.9ange1>A1:> @ 922
*..ont.Bold 5 %rue
*..ont.Color+nde* 5 D0
*.+nterior.Color+nde* 5 P
*.+nterior.,attern 5 *lSolid
*.6oriContalAlignment 5 *lCenter
*.Verti#alAlignment 5 *lBottom
'333border
92 5 9eturnAl!"abet1M41.Cols2 @ M41.9o's - 1
* 5 )s.9ange1>A1:> @ 922
8it" *.Borders1*l)dge0e4t2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dge%o!2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dgeBottom2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l)dge9ig"t2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l+nsideVerti#al2
.-'1$4
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
8it" *.Borders1*l+nside6oriContal2
.0ineStyle 5 *lContinuous
.8eig"t 5 *l%"in
.Color+nde* 5 *lAutomati#
)nd 8it"
'333 .+00 D)%A+0S
* 5 )s.9ange1>A2:> @ 922
*.+nterior.Color+nde* 5 D0
'33%(%A0
92 5 9eturnAl!"abet1M41.Cols2 @ M41.9o's
* 5 )s.9ange1>A> @ M41.9o's @ >:> @ 922
*..ont.Bold 5 %rue
*..ont.Color+nde* 5 P
'
)s.&ame 5 >9e!ort>
e*.Visible 5 %rue
e*.Auit12
'b 5 &ot"ing
)s 5 &ot"ing
e* 5 &ot"ing
'333 !ro#ess #om!lete
0abel1.Ca!tion 5 >9eady>
0abel1.9e4res"12
)nd Sub
,ri-ate Sub Cmd,rodu#tMaster/Cli#<12
'333 reset t"e grid
M41.9o's 5 2
M41.Cols 5 F
M41.Clear12
M41.9e4res"12
M41.9o' 5 0
M41.Col 5 0
M41.Col8idt"102 5 Q00
M41.%e*t 5 >Sr>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
./'1$4
M41.CellBa#<Color 5 -bCyan
M41.Col 5 1
M41.Col8idt"112 5 2:00
M41.%e*t 5 >,rodu#t %y!e>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
M41.CellBa#<Color 5 -bCyan
M41.Col 5 2
M41.Col8idt"122 5 :000
M41.%e*t 5 >,rodu#t>
M41.CellAlignment 5 D
M41.Cell.ont&ame 5 >Arial>
M41..ont.SiCe 5 10
M41..ont.Bold 5 %rue
M41.Cell.oreColor 5 -bBlue
M41.CellBa#<Color 5 -bCyan
'333 4ind distin#t !rodu#t ty!e 4rom !rodu#t master
'333 loo! all !rodu#t ty!e
Dim 9S1 As &e' AD(DB.9e#ordset
Dim 9s2 As &e' AD(DB.9e#ordset
9S1.(!en1>sele#t distin#t !rod/ty!e 4rom !rodu#t/master>= Cn=
ad(!enStati#= ad0o#<9ead(nly2
Dim i As +nteger
Dim B As +nteger
.or i 5 0 %o 9S1.9e#ordCount - 1
Me.Ca!tion 5 i ; 1
M41.9o' 5 M41.9o's - 1
M41.Col 5 0
M41.%e*t 5 i ; 1
M41.Col 5 1
M41.%e*t 5 9S11>!rod/ty!e>2
'333 ?uery !rodu#t master 4or ea#" !rod ty!e 4rom outer loo!
+4 9s2.State 5 adState(!en %"en 9s2.Close12
9s2.(!en1>sele#t !rod/sub/ty!e 4rom !rodu#t/master '"ere !rod/ty!e
5'> @ 9S11>!rod/ty!e>2 @ >' order by !rod/sub/ty!e>= Cn= ad(!enStati#=
ad0o#<9ead(nly2
.or B 5 0 %o 9s2.9e#ordCount - 1
M41.9o' 5 M41.9o's - 1
M41.Col 5 2
M41.%e*t 5 9s2102
M41.9o's 5 M41.9o's ; 1
9s2.Mo-e&e*t12
&e*t
9S1.Mo-e&e*t12
&e*t
)nd Sub
..'1$4
,ri-ate Sub .orm/0oad12
'333 #nter t"e 4orm
Me.0e4t 5 1S#reen.8idt" - Me.8idt"2
Me.%o! 5 1S#reen.6eig"t - Me.6eig"t2
)nd Sub
$%port product Data MS'$%cel with formattin"
.4'1$4
+rmUtlity
((o Access different utility pro"ram li)e compact* bac)up* chan"e password etc+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' S"o' o!tions 4or utilities
'
'
'allo' user to sele#t di44rent o!tions
'*************************************
(!tion )*!li#it
,ri-ate Sub CmdAddModi4yClient/Cli#<12
.rmClient+n4o.S"o'112
)nd Sub
,ri-ate Sub CmdAddModi4yCom!any/Cli#<12
.rmCom!any+n4o.S"o'112
)nd Sub
,ri-ate Sub CmdBa#<$!/Cli#<12
.rmBa#<u!Database.S"o'112
)nd Sub
,ri-ate Sub CmdC"ange,ass'ord/Cli#<12
.<'1$4
.rmC"ange,ass'ord.S"o'112
)nd Sub
,ri-ate Sub CmdClose/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Cmd9e!air/Cli#<12
.rmCom!a#tAnd9e!airDatabase.S"o'112
)nd Sub
,ri-ate Sub Command1/Cli#<12
)nd Sub
,ri-ate Sub Command2/Cli#<12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Cmd9estore/Cli#<12
MsgBo*1>Co!y last ba#<u! 4ile= rename it to data.mdb and t"en !aste it in
a!!li#ation 4older.> @ -bCr04 @ -bCr04 @ >Conta#t !rogram -endor..it may #ause
lost o4 data= i4 ba#<u! is not #urrent>= -bCriti#al2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 #"e#< user ty!e and s"o' di44rent o!tions as !er user rig"ts
+4 0Case1$ser%y!e2 G3 >admin> %"en
Cmd9e!air.)nabled 5 .alse
CmdBa#<$!.)nabled 5 .alse
CmdAddModi4yCom!any.)nabled 5 .alse
Cmd9estore.)nabled 5 .alse
)nd +4
)nd Sub
.1'1$4
+rmCompatAndRepairData2ase
((o shrin) and compact main database data+mdb+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' #oma!#t7s"rin< t"e a##ess database
' $sed %able : &A
'#"e#< t"e re!airdb.mdb 4ile in a!!li#ation !at"
'i4 it is already t"eir delete t"e 4ile
'use DB)&J+&) Com!a#tDatabase 4un#tion to #oma!#t t"e a##ess database
'#reate ne' #om!a#ted tem!db.mdb 4rom data.mdb.
'delete old data.mdb and rename tem!db.mdb to data.mdb
'*************************************
(!tion )*!li#it
Dim db) As &e' DA(.DB)ngine
,ri-ate Sub Command1/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 i4 any #onne#tion o!en #lose all t"e #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
Dim * As String
'333 #"e#< allready 4ile is t"ere or not
* 5 Dir1A!!.,at" @ >Lre!airedDB.mdb>2
'333 i4 4ile !resent delete t"e 4ile
+4 * G3 >> %"en Eill1A!!.,at" @ >Lre!airedDB.mdb>2
%imer1.)nabled 5 %rue
'333 #om!a#t te" database
db).Com!a#tDatabase1A!!.,at" @ >Ldata.mdb>= A!!.,at" @ >L9e!airedDB>2
'333 delete old database
Eill1A!!.,at" @ >Ldata.mdb>2
'333 rename t"e ne' database to old database
4$'1$4
&ame A!!.,at" @ >Lre!airedDB.mdb> As A!!.,at" @ >Ldata.mdb>
'333 o!en #onne#tion
Call (!enCon12
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 set t"e !rogress bar initial -alue
,rogressBar1.Min 5 0
,rogressBar1.Ma* 5 100
)nd Sub
,ri-ate Sub %imer1/%imer12
'33 s"o' t"e !rogress o4 #om!a#t !ro#ess
+4 ,rogressBar1.Value G 100 %"en
,rogressBar1.Value 5 ,rogressBar1.Value ; 10
)lse
MsgBo*1>,ro#ess Com!lete Su##ess4ully ..>= -b+n4ormation2
,rogressBar1.Value 5 0 '9eset t"e min -alue
%imer1.)nabled 5 .alse 'Disable t"e %imer
)nd +4
)nd Sub
41'1$4
+rmBa3upData2ase
((o ta)e bac)up of main database data+mdb+)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' Ba#<u! t"e Database 1data.mdb2
' $sed %able : &A
'Module to ta<e a #o!y o4 data.mdb in
'di44rent lo#ation 'it" timestram!
'*************************************
(!tion )*!li#it
'333 De#lare .ile System -ariable
Dim .s As &e' .ileSystem(bBe#t
Dim &e'.ile As String
,ri-ate Sub Command1/Cli#<12
'333 o!en 4older bro'ser dialog
'333 sele#t t"e 4older !at"
'333 store t"e !at" in te*t bo* te*t1
Dim S As String
S 5 Bro'se.olders1"8nd= >Sele#t .older 4or Creating Ba#<u! 4ile ... >=
Bro'se.or)-eryt"ing= CS+D0/D)SE%(,2
+4 S 5 >> %"en
MsgBo*1>Sele#t Valid .older 4or Creating Dum! .ile.>= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)lse
+4 .s..older)*ists1S2 5 .alse %"en
MsgBo*1>+n-alid .older=Sele#t Valid .older. >= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)nd +4
%e*t1.%e*t 5 S
)nd +4
42'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
(n )rror Jo%o myer1
'333 #"e#< t"e sele#ted 4older '"eat"er
'333 it is e*ist or not
+4 .s..older)*ists1%e*t12 5 .alse %"en
MsgBo*1>+n-alid .older=Sele#t Valid .older. >= -b+n4ormation=
>Creating Dum!>2
Command1.Set.o#us12
)*it Sub
)nd +4
'333 sa-e t"e settings in registry
Sa-eSetting1>B+00+&J/S(.%8A9)>= >BACE$,/DA%ABAS)>= >BACE$,/,A%6>= %e*t12
'333 #o!y t"e database 4ile in sele#ted 4older 4or ba#<u!
.s.Co!y.ile1A!!.,at" @ >Ldata.mdb>= %e*t1.%e*t @ >L> @ &e'.ile= .alse2
MsgBo*1>Ba#<u! ,ro#ess Com!lete.>= -b+n4ormation2
)*it Sub
myer1:
'33 #"e#< t"e 4older i4 t"e 4ile alreday e*ist 'arn 4or o-er'rite
+4 )rr.&umber 5 :Q %"en
+4 MsgBo*1>.ile Allready e*ist in same name = do you 'ant to
o-er'rite t"e e*isting 4ile ..>= -b)*#lamation ; -bHes&o ; -bDe4aultButton12 5
-bHes %"en
.s.Co!y.ile1A!!.,at" @ >Ldata.mdb>= %e*t1.%e*t @ >L> @ &e'.ile=
%rue2
MsgBo*1>Ba#<u! ,ro#ess Com!lete>= -b+n4ormation2
)nd +4
)lse
MsgBo*1>Can not #om!lete ba#<u! 4ollo'ing error o##ured : > @
)rr.Des#ri!tion= -bCriti#al2
)nd +4
)nd Sub
,ri-ate Sub CommandF/Cli#<12
$nload1Me2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 ne' ba#<u! 4ile name li<e data/0D010Q/1RD:.mdb
&e'.ile 5 >Data/> @ .ormat1&o'= >ddnnyy/""nn>2 @ >.mdb>
0abel2.Ca!tion 5 >Ba#<u! Database &ame : > @ &e'.ile
'333 load t"e last sa-ed settings 4rom registry
%e*t1.%e*t 5 JetSetting1>B+00+&J/S(.%8A9)>= >BACE$,/DA%ABAS)>=
>BACE$,/,A%6>= >>2
)nd Sub
4!'1$4
4-'1$4
+rmCompanyIn4o
(Add,Modify Company -nfo)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' add7edit7delete #om!any details
' $sed %able : #om!any/master
'o!en t"e #om!any/master
'dis!lay 4irst re#ord in 4orm load
'add edit sa-e delete and na-igation
'*************************************
(!tion )*!li#it
Dim 9S1 As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Command1/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Command11/Cli#<12
'333 delete t"e re#ord
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
'333 #on4irm be4ore delete
+4 MsgBo*1>Delete t"e 9e#ord I >= -bCriti#al ; -bHes&o2 5 -bHes %"en
9S1.Delete12
Call Clear%e*t12
CommandD/Cli#<12
)nd +4
)*it Sub
4/'1$4
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 mo-e re#ord !onter to 4irst re#ord
'333 dis!lay 4irst re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandF/Cli#<12
'333 mo-e ba#< t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition 3 1 %"en
9S1.Mo-e,re-ious12
)lse
MsgBo*1>.irst 9e#ord ..>= -b+n4ormation2
9S1.Mo-e.irst12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
'333 mo-e ne*t t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition G 9S1.9e#ordCount %"en
9S1.Mo-e&e*t12
)lse
MsgBo*1>0ast 9e#ord ..>= -b+n4ormation2
9S1.Mo-e0ast12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command:/Cli#<12
'333 mo-e last t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command/Cli#<12
4.'1$4
'333 !re!are 4or add re#ord= #lear all te*t bo*= set 4lag to ADD
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >ADD>
Call Clear%e*t12
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandR/Cli#<12
'333 !re!are 4or edit re#ord= set 4lag to )D+%
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >)D+%>
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandQ/Cli#<12
'333 sa-e t"e re#ord
'333 #"e#< 4or -alidation
'333 #"e#< t"e 4lag 4or ADD7)dit
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
+4 %rim1%*tCom!any&ame.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame >= -bCriti#al2
%*tCom!any&ame.Set.o#us12
)*it Sub
)nd +4
+4 Add)dit 5 >ADD> %"en
9S1.Add&e'12
9S11>#om!any/name>2 5 %*tCom!any&ame.%e*t
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S11>#ity>2 5 %*tCity.%e*t
9S11>!in>2 5 %*t,in.%e*t
9S11>tele!"one>2 5 %*t%ele!"one.%e*t
9S11>-atno>2 5 %*tVat&o.%e*t
9S1.$!date12
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)lse
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S11>#ity>2 5 %*tCity.%e*t
9S11>!in>2 5 %*t,in.%e*t
9S11>tele!"one>2 5 %*t%ele!"one.%e*t
9S11>-atno>2 5 %*tVat&o.%e*t
9S1.$!date12
'333 i4 it is edit a4ter re?uery s"o' t"e edited re#ord
Dim ! As +nteger
44'1$4
! 5 9S1.Absolute,osition
9S1.9e?uery12
9S1.Mo-e.irst12
9S1.Mo-e1! - 12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)*it Sub
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub CommandP/Cli#<12
'333 #an#el sa-e
D)1%rue= .alse2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 reset #onne#tion
'333 #lear all te*t
Clear%e*t12
(!enCon12
'333 load alreday sa-ed #lent data
'333 and s"o' t"e 4irst re#ord
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #om!any/master order by #om!any/name >= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
+4 9S1.9e#ordCount 3 0 %"en
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)nd Sub
,ri-ate Sub Clear%e*t12
'333 #lear all te*t bo* in t"e 4orm
Dim Ctl As Control
.or )a#" Ctl +n Me.Controls
+4 %y!e(4 Ctl +s %e*tBo* %"en
Ctl.%e*t 5 >>
)nd +4
&e*t
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay #urrent re#ord
(n )rror 9esume &e*t
Call Clear%e*t12
%*tCom!any&ame.%e*t 5 ++41+s&ull19S11>#om!any/name>22 5 %rue= >>=
9S11>#om!any/name>22
%*tAddress1.%e*t 5 ++41+s&ull19S11>Address1>22 5 %rue= >>=
9S11>Address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>Address2>22 5 %rue= >>=
9S11>Address2>22
4<'1$4
%*tCity.%e*t 5 ++41+s&ull19S11>#ity>22 5 %rue= >>= 9S11>#ity>22
%*t,in.%e*t 5 ++41+s&ull19S11>!in>22 5 %rue= >>= 9S11>!in>22
%*t%ele!"one.%e*t 5 ++41+s&ull19S11>tele!"one>22 5 %rue= >>=
9S11>tele!"one>22
%*tVat&o.%e*t 5 ++41+s&ull19S11>-atno>22 5 %rue= >>= 9S11>-atno>22
0abel1R.Ca!tion 5 9S1.Absolute,osition @ >7> @ 9S1.9e#ordCount
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable disable buttons
Command2.)nabled 5 %1
CommandF.)nabled 5 %1
CommandD.)nabled 5 %1
Command:.)nabled 5 %1
Command.)nabled 5 %1
CommandR.)nabled 5 %1
Command11.)nabled 5 %1
CommandQ.)nabled 5 %2
CommandP.)nabled 5 %2
)nd Sub
41'1$4
+rmClientIn4o
(Add,Modify Client -nfo)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' add7edit7delete #lient details
' $sed %able : #lient/master
'o!en t"e #lient/master
'dis!lay 4irst re#ord in 4orm load
'add edit sa-e delete and na-igation
'*************************************
(!tion )*!li#it
Dim 9S1 As &e' AD(DB.9e#ordset
Dim Add)dit As String
,ri-ate Sub Command1/Cli#<12
'333 #lose t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub Command11/Cli#<12
'333 delete t"e re#ord
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
'333 #on4irm be4ore delete
+4 MsgBo*1>Delete t"e 9e#ord I >= -bCriti#al ; -bHes&o2 5 -bHes %"en
9S1.Delete12
Call Clear%e*t12
CommandD/Cli#<12
)nd +4
)*it Sub
myer1:
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
<$'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 mo-e re#ord !onter to 4irst re#ord
'333 dis!lay 4irst re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandF/Cli#<12
'333 mo-e ba#< t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition 3 1 %"en
9S1.Mo-e,re-ious12
)lse
MsgBo*1>.irst 9e#ord ..>= -b+n4ormation2
9S1.Mo-e.irst12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub CommandD/Cli#<12
'333 mo-e ne*t t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
+4 9S1.Absolute,osition G 9S1.9e#ordCount %"en
9S1.Mo-e&e*t12
)lse
MsgBo*1>0ast 9e#ord ..>= -b+n4ormation2
9S1.Mo-e0ast12
)nd +4
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command:/Cli#<12
'333 mo-e last t"e re#ord !ointer and dis!lay #urrent re#ord
(n )rror 9esume &e*t
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)nd Sub
,ri-ate Sub Command/Cli#<12
'333 !re!are 4or add re#ord= #lear all te*t bo*= set 4lag to ADD
+4 9S1.State 5 adStateClosed %"en )*it Sub
<1'1$4
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >ADD>
Call Clear%e*t12
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandR/Cli#<12
'333 !re!are 4or edit re#ord= set 4lag to )D+%
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
Add)dit 5 >)D+%>
D)1.alse= %rue2
%*tCom!any&ame.Set.o#us12
)nd Sub
,ri-ate Sub CommandQ/Cli#<12
'333 sa-e t"e re#ord
'333 #"e#< 4or -alidation
'333 #"e#< t"e 4lag 4or ADD7)dit
+4 9S1.State 5 adStateClosed %"en )*it Sub
+4 9S1.9e#ordCount G5 0 %"en )*it Sub
(n )rror Jo%o myer1
+4 %rim1%*tCom!any&ame.%e*t2 5 >> %"en
MsgBo*1>)nter Com!any &ame >= -bCriti#al2
%*tCom!any&ame.Set.o#us12
)*it Sub
)nd +4
+4 Add)dit 5 >ADD> %"en
9S1.Add&e'12
9S11>#lient/name>2 5 %*tCom!any&ame.%e*t
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S1.$!date12
9S1.Mo-e0ast12
Call Dis!lay9e#ord12
)lse
9S11>Address1>2 5 %*tAddress1.%e*t
9S11>Address2>2 5 %*tAddress2.%e*t
9S1.$!date12
'333 i4 it is edit a4ter re?uery s"o' t"e edited re#ord
Dim ! As +nteger
! 5 9S1.Absolute,osition
9S1.9e?uery12
9S1.Mo-e.irst12
9S1.Mo-e1! - 12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)*it Sub
myer1:
<2'1$4
MsgBo*1>)rror (##ured : > @ )rr.Des#ri!tion= -bCriti#al2
)nd Sub
,ri-ate Sub CommandP/Cli#<12
'333 #an#el sa-e
D)1%rue= .alse2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
Clear%e*t12
'333 reset #onne#tion
(!enCon12
'333 load alreday sa-ed #lent data
'333 and s"o' t"e 4irst re#ord
+4 9S1.State 5 adState(!en %"en 9S1.Close12
9S1.(!en1>sele#t * 4rom #lient/master order by #lient/name >= Cn=
ad(!enDynami#= ad0o#<(!timisti#2
+4 9S1.9e#ordCount 3 0 %"en
9S1.Mo-e.irst12
Call Dis!lay9e#ord12
)nd +4
D)1%rue= .alse2
)nd Sub
,ri-ate Sub Clear%e*t12
'333 #lear all te*t bo* in t"e 4orm
Dim Ctl As Control
.or )a#" Ctl +n Me.Controls
+4 %y!e(4 Ctl +s %e*tBo* %"en
Ctl.%e*t 5 >>
)nd +4
&e*t
)nd Sub
,ri-ate Sub Dis!lay9e#ord12
'333 dis!lay #urrent re#ord
Call Clear%e*t12
%*tCom!any&ame.%e*t 5 ++41+s&ull19S11>#lient/name>22 5 %rue= >>=
9S11>#lient/name>22
%*tAddress1.%e*t 5 ++41+s&ull19S11>Address1>22 5 %rue= >>=
9S11>Address1>22
%*tAddress2.%e*t 5 ++41+s&ull19S11>Address2>22 5 %rue= >>=
9S11>Address2>22
0abel1R.Ca!tion 5 9S1.Absolute,osition @ >7> @ 9S1.9e#ordCount
)nd Sub
,ri-ate Sub D)1ByVal %1 As Boolean= ByVal %2 As Boolean2
'333 enable disable buttons
Command2.)nabled 5 %1
CommandF.)nabled 5 %1
CommandD.)nabled 5 %1
Command:.)nabled 5 %1
<!'1$4
Command.)nabled 5 %1
CommandR.)nabled 5 %1
Command11.)nabled 5 %1
CommandQ.)nabled 5 %2
CommandP.)nabled 5 %2
)nd Sub
<-'1$4
+rmC)ange"ass-ord
(Chan"e password for currently lo""ed user)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
' #"ange t"e #urrent #om!any
' $sed %able : #om!any/master
'Module to allo' user to #"ange t"e
'#urrent #omo!any 4rom t"e list
'set #om!any name to global -ariable
'*************************************
(!tion )*!li#it
Dim 9s As &e' AD(DB.9e#ordset
,ri-ate Sub Command1/Cli#<12
'333 #"e#< t"e #om!any nmae sele#t by user
'333 4rm t"e #oma!ny/master table
'333 i4 re#ord 4ound set global -ariable
'333 ot"er'ise 'arn user to sele#t 4rom t"e list.
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master '"ere #om!any/name5'> @
CmbCom!any&ame.%e*t @ >'>= Cn= ad(!enStati#= ad0o#<9ead(nly2
+4 9s.9e#ordCount 3 0 %"en
Com!any&ame 5 CmbCom!any&ame.%e*t
.rmMain.0blCom!any&ame 5 Com!any&ame
$nload1Me2
)lse
MsgBo*1>Sele#t #om!any name 4rom t"e list>= -b)*#lamation2
CmbCom!any&ame.Set.o#us12
)*it Sub
)nd +4
</'1$4
)nd Sub
,ri-ate Sub Command2/Cli#<12
'333 #loase t"e 4orm
$nload1Me2
)nd Sub
,ri-ate Sub .orm/0oad12
'333 reset t"e database #onne#tion
+4 Cn.State 5 1 %"en Cn.Close12
(!enCon12
'333 #enter t"e 4orm
Me.Mo-e 1S#reen.8idt" - 8idt"2 7 2= 1S#reen.6eig"t - 6eig"t2 7 2
'333 4ill t"e #ombo bo* 'it" #om!any name 4rom #om!any/master
'333 o!en re#ord 4rom #om!any/master
'333 loo! t"rog" re#ordset and add ea#" #om!any/name into #ombo bo*
+4 9s.State 5 adState(!en %"en 9s.Close12
9s.(!en1>sele#t * 4rom #om!any/master >= Cn= ad(!enStati#=
ad0o#<9ead(nly2
CmbCom!any&ame.Clear12
+4 9s.9e#ordCount 3 0 %"en
8"ile 9s.)(. 5 .alse
CmbCom!any&ame.Add+tem19s1>#om!any/name>22
9s.Mo-e&e*t12
)nd 8"ile
)nd +4
+4 9s.State 5 adState(!en %"en 9s.Close12
'333 set t"e already sele#ted #om!any name 4rom login 4orm
CmbCom!any&ame.%e*t 5 Com!any&ame
)nd Sub
<.'1$4
0odGen
(Module to store "lobal variable and procedure)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'de#lare global -ariable and !ro#edure
'
'*************************************
(!tion )*!li#it
,ubli# Cn As &e' AD(DB.Conne#tion
,ubli# C"e#<0ogin As Boolean
,ubli# $ser&ame As String
,ubli# $ser%y!e As String
,ubli# Com!any&ame As String
,ubli# Sub (!enCon12
'333 o!en #onn#tion
+4 Cn.State 5 1 %"en Cn.Close12
Cn.Conne#tionString 5 >!ro-ider5mi#roso4t.Bet.oledb.D.0S data sour#e5 > @
A!!.,at" @ >Ldata.mdb>
Cn.Cursor0o#ation 5 ad$seClient
Cn.(!en12
)nd Sub
,ubli# .un#tion ne'sno1ByVal table As String2 As +nteger
'333 4ind ma* sno 4or !assing table
Dim 9s As &e' AD(DB.9e#ordset
+4 9s.State 5 1 %"en 9s.Close12
9s.(!en1>sele#t ma*1sno2 4rom > @ table= Cn= ad(!enStati#=
ad0o#<9ead(nly2
+4 +s&ull19s1022 5 %rue %"en
ne'sno 5 1
)lse
ne'sno 5 Val19s1022 ; 1
)nd +4
)nd .un#tion
,ubli# .un#tion 9eturnAl!"abet1ByVal n As +nteger2 As String
'333 return al!"abel as !er su!!lied no
'333 li<e 1 - A=2-B= 2-T= 2R-AA= 2:-+V
'333 t"is 4un#tion is used to e*#el 4ormatting to set #olumn -alue in
range
+4 n G 0 (r n 3 2: %"en
MsgBo*1>+n-alid +n-alid range is 1-2:>= -bAuestion2
)*it .un#tion
)nd +4
<4'1$4
Dim i As +nteger
Dim r As +nteger
Dim S As String
Dim 91 As +nteger
+4 n G5 2 %"en
S 5 C"r1n ; D2
)lse
r 5 n Mod 2
91 5 n 7 2
S 5 C"r191 ; D2 @ C"r1r ; D2
)nd +4
9eturnAl!"abet 5 S
)nd .un#tion
<<'1$4
0odBro-se
(Show &older #rowser)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'de#lare global -ariable and !ro#edure
'it is used to s"o' 4older bro'ser
'
'*************************************
(!tion )*!li#it
,ri-ate %y!e Bro'se+n4o
"8nd('ner As 0ong
!+D09oot As 0ong
!sCDis!lay&ame As 0ong
l!sC%itle As 0ong
ul.lags As 0ong
l!4nCallba#< As 0ong
l,aram As 0ong
i+mage As 0ong
)nd %y!e
'333 Bro'sing ty!e.
,ubli# )num Bro'se%y!e
Bro'se.or.olders 5 @61
Bro'se.orCom!uters 5 @61000
Bro'se.or,rinters 5 @62000
Bro'se.or)-eryt"ing 5 @6D000
)nd )num
'333 .older %y!e
,ubli# )num .older%y!e
CS+D0/B+%B$CE)% 5 10
CS+D0/C(&%9(0S 5 F
CS+D0/D)SE%(, 5 0
CS+D0/D9+V)S 5 1R
CS+D0/.(&%S 5 20
CS+D0/&)%6((D 5 1Q
CS+D0/&)%8(9E 5 1P
CS+D0/,)9S(&A0 5 :
CS+D0/,9+&%)9S 5 D
CS+D0/,9(J9AMS 5 2
CS+D0/9)C)&% 5 Q
CS+D0/S)&D%( 5 P
CS+D0/S%A9%M)&$ 5 11
)nd )num
,ri-ate Const MAK/,A%6 5 20
,ri-ate De#lare Sub Co%as<Mem.ree 0ib >oleF2.dll> 1ByVal "Mem As 0ong2
<1'1$4
,ri-ate De#lare .un#tion lstr#at 0ib ><ernelF2.dll> Alias >lstr#atA> 1ByVal
l!String1 As String= ByVal l!String2 As String2 As 0ong
,ri-ate De#lare .un#tion S6Bro'se.or.older 0ib >s"ellF2.dll> 1ByVal l!bi As
Bro'se+n4o2 As 0ong
,ri-ate De#lare .un#tion S6Jet,at".rom+D0ist 0ib >s"ellF2.dll> 1ByVal !id0ist
As 0ong= ByVal l!Bu44er As String2 As 0ong
,ri-ate De#lare .un#tion S6JetS!e#ial.older0o#ation 0ib >s"ellF2.dll> 1ByVal
"8nd('ner As 0ong= ByVal n.older As 0ong= ByVal 0ist+d As 0ong2 As 0ong
'3333 main 4un#tion 4or broser
,ubli# .un#tion Bro'se.olders1ByVal "8nd('ner As 0ong= ByVal sMessage As
String= ByVal Bro'se As Bro'se%y!e= ByVal 9oot.older As .older%y!e2 As String
Dim &ull!os As +nteger
Dim l!+D0ist As 0ong
Dim res As 0ong
Dim s,at" As String
Dim B+n4o As Bro'se+n4o
Dim 9oot+D As 0ong
S6JetS!e#ial.older0o#ation1"8nd('ner= 9oot.older= 9oot+D2
B+n4o."8nd('ner 5 "8nd('ner
B+n4o.l!sC%itle 5 lstr#at1sMessage= >>2
B+n4o.ul.lags 5 Bro'se
+4 9oot+D G3 0 %"en B+n4o.!+D09oot 5 9oot+D
l!+D0ist 5 S6Bro'se.or.older1B+n4o2
+4 l!+D0ist G3 0 %"en
s,at" 5 String1MAK/,A%6= 02
res 5 S6Jet,at".rom+D0ist1l!+D0ist= s,at"2
Call Co%as<Mem.ree1l!+D0ist2
&ull!os 5 +nStr1s,at"= -b&ullC"ar2
+4 &ull!os G3 0 %"en
s,at" 5 0e4t1s,at"= &ull!os - 12
)nd +4
)nd +4
Bro'se.olders 5 s,at"
)nd .un#tion
1$'1$4
0odRsTo5ord
(Convert s to .ord)
'*************************************
' eBilling System
' Version 1.0.0
' Created by Mr. Atanu Maity
' Date : 21-Aug-200
'*************************************
'
'Module to #on-ert 9s to 8ord
'12F.:0 5 (ne 6undred %'ent %"ree and .4ty ,aise (nly
'*************************************
(!tion )*!li#it
'dis!lay digit to 'ords
'12F -- 3 (ne "undred and t'entyt"ree only.
,ubli# .un#tion 9s8ord1ByVal t As String2 As String
(n )rror 9esume &e*t
Dim la As Boolean
Dim t" As Boolean
Dim l As +nteger
Dim l1 As +nteger
Dim i As String
Dim r As String
Dim !1 As String
Dim &0 As +nteger
Dim ! As Boolean
Dim !l As +nteger
Dim a As +nteger
Dim b As +nteger
Dim # As +nteger
Dim C As Boolean
&0 5 +nStr1t= >.>2
! 5 %rue
!l 5 0en1t2 - &0
+4 &0 5 0 %"en
&0 5 0en1t2 : ! 5 .alse
l 5 0en1t2
)lse
l 5 &0 - 1
)nd +4
l1 5 l
8"ile l 3 0
i 5 Mid1t= l1 - 1l - 12= 12
11'1$4
+4 l 5 R %"en la 5 %rue
+4 l 5 R And i 5 >0> And Mid1t= l1 - 1l - 22= 12 G3 >0> %"en
r 5 r @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @ > 0a#<"s >
)nd +4
+4 l 5 R And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2 @ > > @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @
> 0a#<"s >
)nd +4
+4 l 5 R And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 22= 122 @ > 0a#<"s >
)nd +4
+4 l 5 And i G3 >0> And la 5 .alse %"en
r 5 r @ SingleDigit1i2 @ > 0a#<"s >
)nd +4
+4 l 5 : %"en t" 5 %rue
+4 l 5 : And i 5 >0> And Mid1t= l1 - 1l - 22= 12 G3 >0> %"en
r 5 r @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @ > %"ousand >
)nd +4
+4 l 5 : And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2 @ > > @ SingleDigit1Mid1t= l1 - 1l - 22= 122 @
> %"ousand >
)nd +4
+4 l 5 : And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 22= 122 @ > %"ousand >
)nd +4
+4 l 5 D And i G3 >0> And t" 5 .alse %"en
r 5 r @ SingleDigit1i2 @ > %"ousand >
)nd +4
+4 l 5 F And i G3 >0> %"en
r 5 r @ SingleDigit1i2 @ > 6undred >
)nd +4
+4 l 5 2 And 1i G3 >0> And i G3 >1>2 %"en
r 5 r @ %ent"s1i2
)nd +4
+4 l 5 2 And i 5 >1> %"en
r 5 r @ %'oDigit1Mid1t= l1 - 1l - 12= 122 @ > >
)nd +4
+4 l 5 1 And Mid1t= l1 - 1l - 22= 12 G3 >1> %"en
r 5 r @ > > @ SingleDigit1i2
)nd +4
l 5 l - 1
)nd 8"ile
+4 ! 5 %rue %"en
l1 5 &0 ; 1
8"ile !l 3 0
i 5 Mid1t= 0en1t2 - !l ; 1= 12
+4 !l 5 2 And 1i G3 >0> And i G3 >1>2 %"en
!1 5 !1 @ %ent"s1i2
)nd +4
+4 !l 5 2 And i 5 >1> %"en
!1 5 !1 @ %'oDigit1Mid1t= 0en1t2 - !l ; 2= 122 @ > >
12'1$4
)nd +4
+4 !l 5 1 And Mid1t= 0en1t2 - !l= 12 G3 >1> %"en
!1 5 !1 @ > > @ SingleDigit1i2
)nd +4
!l 5 !l - 1
)nd 8"ile
)nd +4
+4 r G3 >> And !1 G3 >> %"en
9s8ord 5 >9u!ees > @ r @ > and > @ !1 @ > ,aise (nly>
)nd +4
+4 !1 5 >> And r G3 >> %"en
9s8ord 5 >9u!ees > @ r @ > (nly>
)nd +4
+4 r 5 >> And !1 G3 >> %"en
9s8ord 5 !1 @ > ,aise (nly>
)nd +4
+4 r 5 >> And !1 5 >> %"en
9s8ord 5 >&il>
)nd +4
)nd .un#tion
,ri-ate .un#tion %'oDigit1ByVal d As String2 As String
Dim S As String
+4 d 5 >1> %"en S 5 >)le-en>
+4 d 5 >2> %"en S 5 >%'el-e>
+4 d 5 >F> %"en S 5 >%"irteen>
+4 d 5 >D> %"en S 5 >.orteen>
+4 d 5 >:> %"en S 5 >.i4teen>
+4 d 5 >> %"en S 5 >Si*teen>
+4 d 5 >R> %"en S 5 >Se-enteen>
+4 d 5 >Q> %"en S 5 >)ig"teen>
+4 d 5 >P> %"en S 5 >&ineteen>
+4 d 5 >0> %"en S 5 >%en>
%'oDigit 5 S
)nd .un#tion
,ri-ate .un#tion %ent"s1ByVal d As String2 As String
Dim S As String
+4 d 5 >2> %"en S 5 >%'enty>
+4 d 5 >F> %"en S 5 >%"irty>
+4 d 5 >D> %"en S 5 >.orty>
+4 d 5 >:> %"en S 5 >.i4ty>
+4 d 5 >> %"en S 5 >Si*ty>
+4 d 5 >R> %"en S 5 >Se-enty>
+4 d 5 >Q> %"en S 5 >)ig"ty>
+4 d 5 >P> %"en S 5 >&inety>
%ent"s 5 S
)nd .un#tion
,ri-ate .un#tion SingleDigit1ByVal d As String2 As String
Dim S As String
+4 d 5 >1> %"en S 5 >(ne>
+4 d 5 >2> %"en S 5 >%'o>
+4 d 5 >F> %"en S 5 >%"ree>
+4 d 5 >D> %"en S 5 >.our>
+4 d 5 >:> %"en S 5 >.i-e>
+4 d 5 >> %"en S 5 >Si*>
+4 d 5 >R> %"en S 5 >Se-en>
+4 d 5 >Q> %"en S 5 >)ig"t>
1!'1$4
+4 d 5 >P> %"en S 5 >&ine>
+4 d 5 >0> %"en S 5 >>
SingleDigit 5 S
)nd .un#tion
1-'1$4
eBilling and In(oie System Test "lan
Introuction
T*+, 6/2<4183 61,2.+91, 3*1 <,1. 5221-35821 31,3 ->58 7/. 3*1 EB+>>+8: 586 I8;/+21 S=,314. T*1
2/4->131 31,3 ,3.531:= 7/. 3*1 EB+>>+8: 586 I8;/+21 S=,314 +, 3/ -1.7/.4 3*1 7/>>/?+8: B+86, /7 31,3,,
+8 ,1D<1821&
1. Com7onent testing /7 152* 2/4-/8183 3*53 45B1, <- 3*1 EB+>>+8: 586 I8;/+21 S=,314
2. Integ5ation testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*1 2/..123 +831.?/.B+8: /7
+3, 2/4-/8183,
3. Validation testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*53 +3 ?/.B, 2/..123>= +8 5
-,1<6/E>+;1 18;+./84183
!. &se5 acce7tance testing /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3/ 18,<.1 3*53 +3, 7<823+/8 +,
5221-359>1 3/ +3, <,1.,
A221-35821 31,3+8: +, 3*1 >5,3 ,13 /7 31,3, 3/ 91 -1.7/.416 917/.1 3*1 5-->+253+/8 :/1, /77+2+5>>= >+;1.
3est Scope
T*1 ,2/-1 /7 3*1 <,1. 5221-35821 31,3+8: 2/;1.,&
• V1.,+/8 1 /7 3*1 EB+>>+8: 586 I8;/+21 S=,314
• U,1.E752+8: 7<823+/85>+3= 617+816 9= 5 ,13 /7 <,1 25,1,
• A64+8+,3.53/.E752+8: 7<823+/85>+3= 617+816 9= 5 ,13 /7 <,1 25,1,
T*1 5+4 /7 3*1 31,3+8: +, 3/ 6131.4+81 */? ?1>> 3*1 5-->+253+/8 4113, +3, 7<823+/85> .1D<+.14183,
7./4 3*1 -1.,-123+;1 /7 3*1 <,1., 586 3/ +6183+7= 58= +,,<1, ,/ 3*1= 258 91 .1,/>;16. A>,/, 3*1 31,3+8:
,1.;1, 3/ 2/4-+>1 5 ,13 /7 31,3 6535 586 .1,<>3, 3*53 258 91 <,16 6<.+8: ,<9,1D<183 31,3 2=2>1,, 3/ 31,3
7/. 8/8E.1:.1,,+/8 /7 3*1 ,/73?5.1 +8 >531. .1>15,1, /. 5731. 3*1 5-->+253+/8 +, +8 45+83185821.
)/.B+8: -.523+21, 4+:*3 ;5.= 7./4 <,1. 3/ <,1. 586 5.1 2/8,+61.16 /<3,+61 3*1 ,2/-1 /7 3*1 31,3+8:.
3est Strategy
T*1 95,+, /7 <,1. 5221-35821 31,3+8: +, 3*53 /3*1. 31,3, ?1.1 2/4->1316 ,<221,,7<>>=, ,/ 3*1
5-->+253+/8 586 +3, .1D<+.16 +87.5,3.<23<.1 5.1 2/8,+61.16 3/ 91 ,359>1 586 .1>+59>1. A221-35821 31,3+8:
2/82183.531, /8 3*1 5-->+253+/8 7./4 3*1 <,1.J, -1.,-123+;1, 3*53 +,, */? 3*1 5-->+253+/8 +, <,16 586
?*13*1. +3 4113, 3*1 8121,,5.= D<5>+3= 2.+31.+5.
C*58:1 .1D<1,3, ?+>> 91 ,183 3/ 3*1 61;1>/-4183 3154 5, 3*1 523+/859>1 6/2<418353+/8. C*58:1
2.+31.+5 ?+>> 91 6131.4+816 9= 3*1 T1,3 3154 586 3*1 D1;1>/-4183 3154 -.+/. 3/ 3*1 91:+88+8: /7
31,3+8:. F/. +8,35821, 2.+31.+5 45= +82><61 impa#t to &esire& fun#tionality9 amount of #o&e impa#te&
4y propose& #-an2e9 586 &esi2n require& 4y propose& #-an2e. T*1 31,31. ?+>> 1;5><531 3*1 2.+31.+5.
1/'1$4
T*1 31,3 >156 ?+>> 6131.4+81 C*58:1 R1D<+.16 /. 8/3. O821 5 9<: *5, 9118 6131.4+816 5, C*58:1
R1D<+.16, 3*1 9<: .1-/.3 ?+>> 91 3.58,>5316 +83/ 5 C*58:1 R1D<1,3 586 -5,,16 /8 3/ 61;1>/-4183.
T*1 2<,3/41. /7 3*1 5221-35821 31,3+8: +, 3*1 S=,314 U,1.,, S<-1.;+,/. 586 A64+8,3.53/.7/.
EB+>>+8: 586 I8;/+21 S=,314. T*1 -./:.1,, /7 3*1 5221-35821 31,3+8: ?+>> 91 .1-/.316 3/ 3*1
2<,3/41., 3/:13*1. ?+3* 58= +,,<1, 3*53 5.1 6+,2/;1.16 586 3*1+. ->58816 .1,/><3+/8,. S+:8E/77 /7 3*1
31,3,, 586 3*1.17/.1 3*1 5221-35821 /7 3*1 5-->+253+/8, ?+>> 91 -1.7/.416 9= 3*1 2<,3/41. /. 5 ,1>12316
.1-.1,18353+;1.
Preconitions
T*1 7/>>/?+8: +314, 5.1 .1D<+.16 917/.1 31,3+8: 258 35B1 ->521&
• A 2/4->131 586 2/*1.183 7<823+/85> ,-12+7+253+/8 /7 3*1 EB+>>+8: 586 I8;/+21 S=,314
[email protected],,16 5, <,1 25,1, 586 <,5:1 ,2185.+/,
• A 2/4->131 586 ;5>+653+/8E31,316 .1>15,1 /7 EB+>>+8: 586 I8;/+21 S=,314, 61>+;1.16 522/.6+8:
3/ 3*1 61>+;1.= ->58
• A8 5:.116E<-/8 -./216<.1 7/. 615>+8: ?+3* 58= 58/45>+1, 3*53 5.1 6+,2/;1.16 6<.+8: 3*1
31,3+8: -./21,,
• A ,13 /7 31,3 ,-12+7+253+/8, 61,2.+9+8: */? 152* 7<823+/85> 5.15 /7 3*1 EB+>>+8: 586 I8;/+21
S=,314 +, 3/ 91 5221-35821 31,316
• A8 +4->1418316 31,3 18;+./84183 7/. 3*1 31,3+8:
• S<77+2+183, ,<+359>1 .1,/<.21, 3/ 25..= /<3 3*1 31,3+8:
• A;5+>59>1 ,35865.6, 7/. 3*1 5221-35821 31,3+8:
3est Priorities
D<.+8: 31,3+8: /7 3*1 EB+>>+8: 586 I8;/+21 S=,314, 3*1 7/>>/?+8: D<5>+3+1, ?+>> 91 31,316 +8 /.61. /7
-.+/.+3=&
• F<823+/85>+3=K?*13*1. 3*1 .1D<+.16 7<823+/8, 5.1 5;5+>59>1 586 ?/.B+8: 5, 1@-12316
• U,59+>+3=K*/? <,1.E7.+186>= 586 +83<+3+;1 3*1 EB+>>+8: 586 I8;/+21 S=,314 +,
• S12<.+3=K*/? ?1>>E-./312316 586 :<5.583116 2/.-/.531 586 <,1. 6535 +,
• P1.7/.45821K?*13*1. 3*1 .1,-/8,1 3+41, 5.1 ?+3*+8 5221-359>1 >+4+3,
• C<,3/4+A53+/8K*/? ,3.5+:*37/.?5.6 +3 +, 3/ <,1 3*1 5-->+253+/8 +8 81?, <8-.16+2316 ?5=,
3est 3ec$niques
T*1 7/>>/?+8: 312*8+D<1, ?+>> 91 5-->+16&
• S2.+-316 31,3,K,1D<1821, /7 <,1. +831.523+/8, H95,16 /8 3*1 <,1 25,1 586 <,5:1 ,2185.+/,I
<,+8: -.1617+816 6535 ,13, 5:5+8,3 -.16+2316 .1,<>3,
• U8,2.+-316 31,3,K95,16 /8 ,2.+-316 31,3,, 3*1 31,31. 3.+1, 3/ 4/6+7= 3*1 ,2185.+/, 3/ 1@->/.1
?*53E+7 -/,,+9+>+3+1,
• P1813.53+/8 31,3,K,2.+-316 31,3, 3/ 53314-3 <85<3*/.+A16 183.= +83/ 3*1 ,=,314
• U,59+>+3= 2*12B>+,3,K31,3, 3/ 6131.4+81 3*1 2/4->1@+3= /7 +831.523+/8,
1.'1$4
• P1.7/.45821 ,353+,3+2,K:181.53+/8 /7 -1.7/.45821 +87/.453+/8 3/ 2*12B 5:5+8,3 61,+.16
-1.7/.45821 2.+31.+5
3est Organi!ation
Roles and Responsi2ilities
T*1 7/>>/?+8: ./>1, 5.1 617+816&
• QA >15631,3 4585:1.K.1,-/8,+9>1 7/. ->588+8: 586 18,<.+8: 3*1 ,4//3* .<88+8: /7 3*1 31,3
-./21,,
• T1,31.K25..+1, /<3 3*1 31,3, 522/.6+8: 3/ 3*1 31,3 ->58, 586 3*18 .1-/.3, 3*1 .1,<>3,
• P./6<23 4585:1.K18,<.1, 3*53 3*1 31,3, 5.1 25..+16 /<3 ,<221,,7<>>= 7./4 5 <,1. -1.,-123+;1
• P./0123 ,-/8,/.2>+183K523, 5, 45+8 ,35B1*/>61., 586 18,<.1, 3*53 3*1 8116, /7 3*1 2<,3/41.
2/44<8+3= 5, 5 ?*/>1 5.1 2/8,+61.16
• T1,3 ,<--/.3K-./;+61, 312*8+25> 5,,+,35821, ,<2* 5, 31,3 18;+./84183 2/87+:<.53+/8, 586 8/8E
312*8+25> 5,,+,35821, ,<2* 5, 413*/6/>/:+25> ,<--/.3
)11B>= 3154 4113+8:, ?+>> 91 *1>6 +8;/>;+8: 3*1 31,3 4585:1., 31,31.,, 586 -./6<23 4585:1.,. A3
3*1,1 4113+8:,, 3*1 -./:.1,, /7 3*1 31,3+8: -./21,, ?+>> 91 .1-/.316, 58= +,,<1, ?+>> 91 6+,2<,,16, 586
523+/8, ?+>> 91 5:.116 <-/8.
Conlusion and 4uture en)anement
T*+, -./0123 ?5, 61;1>/-16 3/ 7<>7+>> <,1. 586 9<,+81,, .1D<+.14183C */?1;1. 3*1.1 5.1 >/3, /7 ,2/-1
3/ +4-./;1 3*1 -1.7/.45821 /7 3*1 1B+>>+8: 586 I8;/+21 S=,314 +8 3*1 5.15 /7 <,1. +831.7521, 653595,1
-1.7/.45821, 586 D<1.= -./21,,+8: 3+41. E32.
S/ 3*1.1 5.1 458= 3*+8:, 7/. 7<3<.1 18*58214183 /7 3*+, -./0123. T*1 7<3<.1 18*58214183, 3*53 5.1
-/,,+9>1 +8 3*1 -./0123 5.1 5, 7/>>/?,.
• L+8B+8: 586 +831:.53+/8 /7 58= >1:52= ,=,314 7/. 522/<83+8:.
• I831:.53+/8 ?+3* 3.5;1> 5:183 3*./<:* )19 S1.;+21,
• C/88123+/8 3/ 3*+.6E-5.3= OLAP 5-->+253+/8,
• E>123./8+2 D535 I831.2*58:1 HEDII ,=,314 913?118 958B,, /3*1. 2.16+3 ;1.+7+253+/8 5:182=
586 3*1+. ;186/.,
14'1$4
• I8 3*1 5.15 /7 6535 ,12<.+3= 586 ,=,314 ,12<.+3=.
• P./;+61 4/.1 /8>+81 3+-, 586 *1>-.
• T/ /-3+4+A1 3*1 D<1.= ?*+2* +, 14916616 +8 3*1 ,=,314.
1<'1$4
Bi2liograp)y
5ebsites
• *33-&???.://:>1.2/4
• *33-&???.4+2./,/73.2/4
• *33-&???.-./:.5441.2-./:.5441..813
• *33-&???.2/61-./0123.2/4
• *33-&???.4,68.2/4.
• *33-&???.;9123.2/4
• *33-&???.;92/61.2/4
• *33-&???.,D>3<81..2/4
'oo6s
• M5,31.+8: V+,<5> B5,+2 6 HP5-1.952BI
• M5,31.+8: V+,<5> B5,+2 .NET HP5-1.952BI
• V+,<5> B5,+2 B>52B B//B HP5-1.952BI
• SQL B+9>1, 286 E6+3+/8 HP5-1.952BI
• D53595,1 D1;1>/-4183 +8 V+,<5> B5,+2
11'1$4
doc_314466802.doc