http://www.chetanasprojects.com
ACKNOWLEGMENT It gives us great pleasure and deep satisfaction in presenting this report of our project work undertaken at General Knowledge Test Management System, SHRE SHREE E SA SARA RADA DAR R PA PATE TEL L KELA KELAVA VANI NI MAND MANDAL AL JETP JETPUR UR as part part of BCA BCA 5th 5th sem. sem. Course. Special thanks as always goes to all respected authorities, for they’re wonderful Ideas they had given us and for their Consideration they had shown us throughout the years. We are also also than thankfu kfull to
mr. mr. sir sir for for prov provid idin ing g us guida guidanc nce e about about our
proj projec ect. t. We are are also also thank thankfu full to all all staf stafff memb member er , for for his his great great help in our our comp comput uter er work. work. We are thankfu thankfull to all the staf stafff memb member ers s of SPKM
for for thei theirr
guidan guidance ce & sugges suggestio tion n and boosti boosting ng our morals morals while while facing facing each each and every every obstacle encounters in taking up this project. At last we’d be missing our duty if we do not acknowledge all the person of computer department and whole the unit who have spent their busy time out of their hectic schedule for our project.
Thanking You…….
PREFACE http://www.chetanasprojects.com
http://www.chetanasprojects.com
The age of information has gone; the correct area is the age of knowledge. These having knowledge would resources from the society & at the same time would be earning the higher returns. But knowledge as we know has changed drastically, to ensure that Knowledge is imported to student, it is made mandatory by Saurastra University for BCA students to work on a practical project at some industrial organization & develop a comprehensive project. project.
Here is the detailed report on the project I had made at
GENERAL
KNOWLEDGE TEST MANAGEMENT SYSTEM.
It was developed on VISUAL BASIC 6.0(as Front-End tool) & Oracle 8.0. (As Bank-End tool) with with Data Report Facility. Facility.
The project was not made merely to meet the educational requirement requirement but the high amount of learning values were attached & developed with specific learning objectivity.
Finally, We would like to express our gratitude to the members of our family for the support and encouragement we have received from them.
1. PROJECT PROFIL:-....................................................................................................................................................................4 2. SYSTEM REQUIREMENT & SPECIFICATION.....................................................................................................................6
http://www.chetanasprojects.com
http://www.chetanasprojects.com
The age of information has gone; the correct area is the age of knowledge. These having knowledge would resources from the society & at the same time would be earning the higher returns. But knowledge as we know has changed drastically, to ensure that Knowledge is imported to student, it is made mandatory by Saurastra University for BCA students to work on a practical project at some industrial organization & develop a comprehensive project. project.
Here is the detailed report on the project I had made at
GENERAL
KNOWLEDGE TEST MANAGEMENT SYSTEM.
It was developed on VISUAL BASIC 6.0(as Front-End tool) & Oracle 8.0. (As Bank-End tool) with with Data Report Facility. Facility.
The project was not made merely to meet the educational requirement requirement but the high amount of learning values were attached & developed with specific learning objectivity.
Finally, We would like to express our gratitude to the members of our family for the support and encouragement we have received from them.
1. PROJECT PROFIL:-....................................................................................................................................................................4 2. SYSTEM REQUIREMENT & SPECIFICATION.....................................................................................................................6
http://www.chetanasprojects.com
http://www.chetanasprojects.com 3. PURPOSE OF PROJECT............................................................................................................................................13 4. SYSTEM DESIGN.................................................................................................................................................................15 5. SCREEN LAYOUT......................................................................................................................................................................24 6. CODING.......... CODING..................... ..................... .................... ..................... ..................... ..................... ..................... .................... ..................... ..................... ..................... ..................... .................... ..................... ......................................42 ...........................42 7.
TESTING...................................................................................................................................................90
8.
ENHANCEMENT.......................................................................................................................................................................95
9.
CONCLUSION.............................................................................................................................................................................97
10.
BIBILOGRAPHY......................................................................................................................................................................98
http://www.chetanasprojects.com
http://www.chetanasprojects.com
1. PROJECT PROFIL: Defination Scope Objectives
http://www.chetanasprojects.com
http://www.chetanasprojects.com
Defination:-
The proposed system in the “GENERAL KNOWLEDGE TEST MANAGENEBT SYSTEM” Is the computerization of the whole system sy stem of handling distributor resisters? The computers are very widely accepted in i n trade line as it is many merits such speed, accuracy, secrecy etc. The proposed system in the “GENERAL KNOWLEDGE TEST MANAGENEBT SYSTEM” Is the computerization of the whole system of handling distributor resisters? The computers are very widely accepted in trade line as it is many m any merits such speed, accuracy, secrecy etc.
Scope:-
It works on Windows XP and appear version windows. it will be developed for General Knowledge Test Management System. It is user friendly all information is English like language. There for any user can easily use this project.
Object Obj ectiv ives es:
System
Front-end : Visual Basic
Back-end :
: Windows XP
Oracle
5
http://www.chetanasprojects.com
2. SYSTEM REQUIREMENT & SPECIFICATION
System User
requirement
System
6
requirement
analysis
http://www.chetanasprojects.com
SYSTEM
ANALYSIS:-
For any system it is necessary to gather and interpret facts, and using the information to recommend improvements or enhancements in the system.
Analysis is concerned with devising a precise, concise, understandable, and correct model of the real world. Before building anything complex such as a house house or a hardwar hardware-s e-soft oftwar ware e system, system, the builde builderr must must unders understan tand d the requirnments and the real world environment in which it will exists.
After deep analyzing this project on “GENERAL KNOWLEDGE TEST” is created by us. Our intension was user friendly output, so designing of the project was very important. So we prepared it as per our client requirement.
The purpose of objects-oriented analysis is to model real world system to so that it can be understood. To do this, you must examine requirements, analysis their implications, and restate them Rigoro Rigorousl usly. y. you must must abstra abstract ct import important ant real real world world featur features es first first and defer small details until later. The successful analysis model states what must be done done,, with withou outt rest restri rict ctin ing g ho how w it is done done,, and and avoi avoids ds impl implem emen enta tati tion ons s deci decisi sion ons. s. The The resu result lt of anal analys ysis is shou should ld unde unders rsta tand nd the the prob proble lem m as a preparation for design.
7
http://www.chetanasprojects.com
FEASIBILITY
Analysis is the first step towards solving the problem statement. In this mode we studied for the feasibility of the requested system with our colleagues and friends who were familiar with the information system techniques. For that technical feasibility, economical feasibility and operational feasibility need to be considered.
Technical Feasibility study:-
Project is technically feasible. Here the study of available resources, project partners and staff and existing software technology are to be considered. We had sufficient resources like computers. Also we had enough staff experience and guidance to develop the modules of the project. The software tools were aldo available. So there was no need to acquire any new resources or software’s tools.
The software or tools necessary for building or running the application
are easily available or not?
The compatibility amongst software exists or not?
Are developers aware of this technology?
Economical Feasibility study:-
Project is also economically feasible. This does not require any costly software or any hardware tools.
8
http://www.chetanasprojects.com
Operational Feasibility study:-
Our application has such a user friendly GUI that any person having a sound knowledge of computer can operate the system.
Implementation Feasibility:-
Under the study of implementation Feasibility, I’ve got to draw the finger to the certain issues, like:
Is it possible to install the software within the given environment?
Will organization management and users support for the installation of the software?
9
http://www.chetanasprojects.com
SYSTEM
REQUIREMENT:-
System Requirements:For determination of the system software to be used for preparation of the system, the following considerations have been investigated:
Operating System
:-
Tools
:-
Microsoft window XP service pack 2 MY SQL Server 200
Hardware Requirements:-
The stating point in and equipment decision process is the size and capacity requirements. One particular computer system may be appropriate for one workload and inappropriate for another, system capacity is frequently the determining factor.
Features Considered Were:C.P.U.
:
Pentium4
RAM
:
256 of RAM
:
40 GB HDD
Hard Disk
10
2.40 GHz
http://www.chetanasprojects.com
USER
INTERFACE:
About Vb
Visual basic 6.0 system ideally suited for producting windows application. MS Word, MS Access and MS PowerPoint application, the exact same language.
Several significant facts contributes to visual basic is bright is future. First, visual basic is huge product. Millons of developers of all skillevels are producing application with visual basic. Secondly, visual basic is powerful development system. It Contains built in function and subroutines for dozens of different tasks. In addition to its intrinsic features visual basic provides the Capabilities to or bound the distributable application. Visual basic Is a Microsoft product.
For all this many more, Visual basic is indisputably the Most attractive Development environment currently available.In contrasts to the absolute system of the past. Visual basic has an undesirably bright and shining future. Visual basic is not just a language, but its programming environment in which one can develop, run test and debug application. To store data, create one table for each type of information that you track.To bring data from multiple together in aquery, form, report or to store data.
11
http://www.chetanasprojects.com Visual basic comes in three Flavors:
1. The visual basic learning edition. 2. The visual basic professional edition. 3. The visual basic Enterprise edition.
The visual basic professional edition is the introductory edition that lets you easily create windows application. It comes with the tools you need to build stream windows Applications.
The visual basic professional edition is for computer Professionals and include advance feature such a tool to develop active and Internet controls.
The visual basic enterprise edition is the most advance edition and is Aimed programmers who build distributed application in a term environment.It includes all the feature of the professional edition. Plus tools such as visual source safe and Automation and Component manager.
Depending on the application that which type of he/she wants to create can use the, visual basic edition. Following describes the type of application, which can be ctreated in the visual basic. Different edition of visual basic As following. 1. Learning Editon 2. professional Editon 3. Enterprise Edition
12
http://www.chetanasprojects.com
3. PURPOSE OF PROJECT
Application Requirements
13
http://www.chetanasprojects.com
APPLICATION:-
The purpose of this project is to get or to input the photos of any category.
This is used for getting and inputting more photos of your requirement.
User can use our website easily and upload the any types of photos that are available in our website.
Maintain the photos like to full-size images for getting full-size photos.
REQUIREMENT:-
You can Free download and upload photos of any category.
14
http://www.chetanasprojects.com
4. SYSTEM DESIGN
Data
Design Data Flow Diagram Data Dictionary
DATA
DESIGN:-
15
http://www.chetanasprojects.com One of the tools of structured analysis is the diagram. a data flow diagram is a graphical representation of the system. The analyst can use dataflow diagram to explain his understanding about the system.
APPLICATION:•
Data flows are an intuitive way of showing how data is processed by a system.
•
At analysis level analyst should be used to model the way in which data is processed in the existing system .
•
Data flow models are used to show how data flows through a sequence of processing steps.
DESCRIPTION:•
A graphical tool used to describe and analyze the movement of data through a system manual or automated including the process store of data and delays in the system.
•
The transformation of data from input to output through processes may be described logically and independently of the physical component associated with system.
•
The data transformation at each step before moving on to the next stage. These processing steps or transformation are programs function when data flow diagrams are used to document a software design.
The symbols that are used in the data flow diagram carry following meaning.
16
http://www.chetanasprojects.com
Rectangle
it symbolizes the sources.
Unmarked line
it symbolizes connectivity Without a
Marked line
It symbolizes connectivity With a dataflow.
dataflow.
17
http://www.chetanasprojects.com
DATA
FLOW DIAGRAM:-
SPLACE SCREEN
LOGIN FORM
MDI FORM
GENARAL
18
GET REGISTER
http://www.chetanasprojects.com
MDIFORM
MASTER
NEW
UTILITY
REPORT
CREATE QUESTION S
USER EDIT CHANGE – PASSWORD SEARCH
DELETE
CALCULATOR
19
USERDETAIL
INTERNET
http://www.chetanasprojects.com
20
http://www.chetanasprojects.com
GENARAL
USER DETAIL
EDIT DETAIL
START EXAM
DATA
DICTIONARY :-
LOGIN 21
http://www.chetanasprojects.com
Field UserName Password Category
Data Type Varchar2 Varchar2 Varchar2
Size 15 15
10
Add Detail Field
Data Type
Size
No
Number
3
Que
Varchar2
255
Ans_a
Varchar2
255
Ans_b
Varchar2
255
Ans_c
Varchar2
255
Ans_d
Varchar2
255
Ans
Varchar2
300
Status
Varchar2
7
22
http://www.chetanasprojects.com
Register Field Rno Fname Pass Address Phone No Birth Date Category
Data Type Number Varchsr2 Varchar2 Varchar2 Varchar2 Date Varchar2
Size 5 30 10 20 15 15
Sex QCode Email Id Date1 Place
Varchar2 Number Varchar2 Date Varchar2
7 5 20 -
Picture
Varchar2
15 200
User Detail
Conform Password
Varchar2
23
20
http://www.chetanasprojects.com
5. SCREEN LAYOUT
SPLASH SCREEN 24
http://www.chetanasprojects.com
LOGIN FORM
25
http://www.chetanasprojects.com
26
http://www.chetanasprojects.com
MDIFORM
GENERAL FORM
27
http://www.chetanasprojects.com
GET REGISTRATION
28
http://www.chetanasprojects.com
New Questions
29
http://www.chetanasprojects.com
Edit Questions
30
http://www.chetanasprojects.com
Delete Questions
31
http://www.chetanasprojects.com
Search Questions
32
http://www.chetanasprojects.com
Create New User
33
http://www.chetanasprojects.com
Change Password
34
http://www.chetanasprojects.com
Delete User
35
http://www.chetanasprojects.com
Calculator
36
http://www.chetanasprojects.com
Internet
37
http://www.chetanasprojects.com
Edit Detail
38
http://www.chetanasprojects.com
User Detail
39
http://www.chetanasprojects.com
Start Exam
40
http://www.chetanasprojects.com
41
http://www.chetanasprojects.com
6. CODING
SPLASH SCREEN Dim t, cr, a As Integer Dim chg As Boolean Option Explicit Private Sub Form_Load () t=1 42
http://www.chetanasprojects.com a=0 Timer1.Enabled = True End Sub ………………………………………………………………………………………………………………………………… …………… Private Sub Timer1_Timer() pg_1.Value = pg_1.Value + 10 If pg_1.Value = 100 Then Form2.Show Unload Me End If End Sub ………………………………………………………………………………………………………………………………… …………… Private Sub Timer2_Timer() If t = 1 Then lbl_nm.Left = lbl_nm.Left - 20 khushi.Left = khushi.Left - 20 If (khushi.Left = 0) And (lbl_nm.Left = 0) Then khushi.Left = 5280 lbl_nm.Left = 5280 khushi.Left = khushi.Left + 20 lbl_nm.Left = lbl_nm.Left + 20 End If End If End Sub ………………………………………………………………………………………………………………………………… ……………
Private Sub Timer3_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) lbl_1.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) lbl_3.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) lbl_4.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) 43
http://www.chetanasprojects.com lbl_5.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub …………………………………………………………………………………………………… ………… Private Sub Timer4_Timer() a=a+1 If a = 1 Then Me.Image1.Visible = True ElseIf a = 2 Then Me.Image1.Visible = False ElseIf a = 3 Then Me.Image1.Visible = True ElseIf a = 4 Then Me.Image1.Visible = False ElseIf a = 5 Then Me.Image1.Visible = True ElseIf a = 6 Then Me.Image1.Visible = False a=1 End If End Sub …………………………………………………………………………………………………… ………… Private Sub Timer5_Timer() a=a+1 If a = 1 Then Me.Image2.Visible = True ElseIf a = 2 Then Me.Image2.Visible = False ElseIf a = 3 Then Me.Image2.Visible = True ElseIf a = 4 Then Me.Image1.Visible = False ElseIf a = 5 Then Me.Image2.Visible = True ElseIf a = 6 Then Me.Image2.Visible = False a=1 End If
44
http://www.chetanasprojects.com End Sub ............................................................................................................... ...........
LOGIN FORM Dim Dim Dim Dim Dim
cn As New ADODB.Connection rs As New ADODB.Recordset c, b cr As Integer chg As Boolean
45
http://www.chetanasprojects.com Option Explicit …………………………………………………………………………………………………… ………… Private Sub cmd_getregitra_Click() addregistration.Show loginform.Hide End Sub …………………………………………………………………………………………………… ………… Private Sub cmd_login_Click() If txt_username = " " Then MsgBox "enter usrnm and password" txt_username.SetFocus ElseIf txt_username.Text = "shree" And txt_password.Text = "" Then MsgBox "enter passsword" txt_password.SetFocus ElseIf txt_username.Text = "" And txt_password.Text = "ganesha" Then MsgBox "enter passsword" txt_username.SetFocus ElseIf Not txt_username.Text = "shree" Then MsgBox "enter your correct user name" txt_username.Text = "" txt_username.SetFocus ElseIf Not txt_password = "ganesha" Then MsgBox "enter your correct password" txt_password.Text = "" txt_password.SetFocus ElseIf txt_username.Text = "shree" And txt_password.Text = "ganesha" Then If cmb_1.Text = "ADMIN" Then MsgBox "Welcome to Admin!!" MDIForm1.Show loginform.Hide ElseIf cmb_1.Text = "GENERAL" Then 46
http://www.chetanasprojects.com MsgBox "Welcome to General" generals.Show loginform.Hide End If End If End Sub …………………………………………………………………………………………………… ………… Private Sub Combo1_Change() rs.MoveFirst While Not rs.EOF = True If Val(cmb_no.Text) = rs.Fields(0).Value Then Call Data End If rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………… Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo x cn.Execute "create table employee(username varchar(15),password varchar(15),categary varchar(20))" cn.Execute "insert into employee values('shree','ganesha','ADMIN')" MsgBox "table has been created..............." cn.Execute "commit" x: rs.Open "select * from employee", cn, adOpenStatic, adLockBatchOptimistic End Sub …………………………………………………………………………………………………… …………. Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) 47
http://www.chetanasprojects.com If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Label4.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
MDI FORM Private Sub change_pass_Click() changepassword.Show MDIForm1.Hide
48
http://www.chetanasprojects.com End Sub …………………………………………………………………………………………………… ………... Private Sub del_que_Click() deletequestions.Show MDIForm1.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub duser_Click() deleteuser.Show MDIForm1.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub edit_quetion_Click() editquetions.Show MDIForm1.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub exit_utility_Click() Call Shell("C:\WINDOWS\system32\calc.exe") End Sub …………………………………………………………………………………………………… ………... Private Sub exit1_Click() loginform.Show MDIForm1.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub int1_Click() frmBrowser.Show End Sub …………………………………………………………………………………………………… ………...
Private Sub new_que_Click() addquestions.Show MDIForm1.Hide End Sub
49
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub new_uernm_Click() createuser.Show MDIForm1.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub question_Click() questions.Show MDIForm1.Show End Sub …………………………………………………………………………………………………… ………... Private Sub sear_que_Click() searchquetions.Show MDIForm1.Show End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 60 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label1(0).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer2_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 60 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label2(1).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer3_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 60 Label4(3).FontSize = 40 Label3(2).ForeColor = Rnd * RGB(100, 200, 400) 50
http://www.chetanasprojects.com End Sub …………………………………………………………………………………………………… ………... Private Sub Timer4_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 60 Label4(3).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer5_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 60 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub userdetail1_Click() userdetail.Show MDIForm1.Hide End Sub
51
http://www.chetanasprojects.com
GENERAL FROM Private Sub cmd_clear_Click() a1 = MsgBox("do u want to exit?", vbYesNo, "message") If a1 = vbYes Then loginform.Show general.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_edit_Click() editrestration.Show general.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exam_Click() detailuser.Show general.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label1(0).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer2_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 52
http://www.chetanasprojects.com Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label2(1).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer3_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label3(2).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer4_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label4(3).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer5_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label5(4).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer6_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 53
http://www.chetanasprojects.com Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label6(5).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer7_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label7(6).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………...
54
http://www.chetanasprojects.com
Get Registration Private Sub cmd_clear_Click() a1 = MsgBox("do u want to exit?", vbYesNo, "message") If a1 = vbYes Then loginform.Show general.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_edit_Click() editrestration.Show general.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exam_Click() detailuser.Show general.Hide End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label1(0).ForeColor = Rnd * RGB(100, 200, 400) End Sub
55
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub Timer2_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label2(1).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer3_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label3(2).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer4_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Label5(4).FontSize = 40 Label6(5).FontSize = 40 Label4(3).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer5_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Me.Label5(4).FontSize = 40 Me.Label6(5).FontSize = 40 Label5(4).ForeColor = Rnd * RGB(100, 200, 400) End Sub 56
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub Timer6_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Me.Label5(4).FontSize = 40 Me.Label6(5).FontSize = 40 Label6(5).ForeColor = Rnd * RGB(100, 200, 400) End Sub …………………………………………………………………………………………………… ………... Private Sub Timer7_Timer() Label1(0).FontSize = 40 Label2(1).FontSize = 40 Label3(2).FontSize = 40 Label4(3).FontSize = 40 Me.Label5(4).FontSize = 40 Me.Label6(5).FontSize = 40 Label7(6).ForeColor = Rnd * RGB(100, 200, 400) End Sub
57
http://www.chetanasprojects.com
New Questions Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i …………………………………………………………………………………………………… ………... Private Sub cmdend_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then MDIForm1.Show addquestions.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmdnew_Click() If Me.cmdnew.Caption = "&ADD" Then Call clear cmdnew.Caption = "&SAVE" Else sql = "insert into strat values( " & Val(txt_no.Text) & ", '" & txtque.Text & " ' , '" & txtop1.Text & "' , '" & txtop2.Text & "' , '" & txtop3.Text & "' , '" & txtop4.Text & "' , '" & txtans.Text & "','false')" MsgBox sql cn.Execute sql MsgBox "Record is Saved.....", vbOKOnly, "message"
58
http://www.chetanasprojects.com cn.Execute "commit" cmdnew.Caption = "&ADD" End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo EX MsgBox "table has been created..............." cn.Execute "commit" EX: rs.Open "select * from strat", cn, adOpenStatic, adLockBatchOptimistic i=0 rs.MoveFirst fg_1.FixedCols = 1 fg_1.Cols = 8 fg_1.Row = rs.RecordCount + 1 fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0, fg_1.TextMatrix(0,
0) 1) 2) 3) 4) 5) 6) 7)
= = = = = = = =
"no" "que" "ans_a" "ans_b" "ans_c" "ans_d" "ans" "status"
While Not rs.EOF = True i=i+1 fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i, fg_1.TextMatrix(i,
0) 1) 2) 3) 4) 5) 6) 7)
= = = = = = = =
rs.Fields(0).Value rs.Fields(1).Value rs.Fields(2).Value rs.Fields(3).Value rs.Fields(4).Value rs.Fields(5).Value rs.Fields(6).Value rs.Fields(7).Value
fg_1.Rows = fg_1.Rows + 1 59
http://www.chetanasprojects.com rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………... Private Function clear() txt_no.Text = "" txtque.Text = "" txtop1.Text = "" txtop2.Text = "" txtop3.Text = "" txtop4.Text = "" txtans.Text = "" txt_no.SetFocus End Function …………………………………………………………………………………………………… ………... Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Me.lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
60
http://www.chetanasprojects.com
Edit Questions Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String …………………………………………………………………………………………………… ……... Private Sub cmb_1_Click() rs.MoveFirst While Not rs.EOF = True If Val(cmb_1.Text) = rs.Fields(0).Value Then txtque.Text = rs.Fields(1).Value txtop1.Text = rs.Fields(2).Value txtop2.Text = rs.Fields(3).Value txtop3.Text = rs.Fields(4).Value txtop4.Text = rs.Fields(5).Value txtans.Text = rs.Fields(6).Value MsgBox "msgbox found" Exit Sub End If rs.MoveNext Wend MsgBox "record not found" End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_edit_Click() If cmd_edit.Caption = "&EDIT" Then cmd_edit.Caption = "&SAVE" Else
61
http://www.chetanasprojects.com sql = "update strat set Que='" & txtque.Text & "',ans_a='" & txtop1.Text & "',ans_b='" & txtop2.Text & "',ans_c='" & txtop3.Text & "',ans_d='" & txtop4.Text & "',ans='" & txtans.Text & "',status='False' where no=" & Val(cmb_1.Text) & "" MsgBox sql cn.Execute sql sql = "commit" cn.Execute sql MsgBox "record is update" rs.Requery cmd_edit.Caption = "&EDIT" End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then MDIForm1.Show editquetions.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo x MsgBox "table has been created..............." x: rs.Open "select * from strat", cn, adOpenStatic, adLockBatchOptimistic If rs.BOF = True And rs.EOF = True Then MsgBox "no data ofr editing" Me.cmd_edit.Enabled = False Me.cmb_1.Enabled = False Exit Sub End If rs.MoveFirst While Not rs.EOF = True cmb_1.AddItem (rs.Fields(0).Value) 62
http://www.chetanasprojects.com rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
Delete Questions Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim ans1 As String Dim a As String …………………………………………………………………………………………………… ………... Private Sub cmb_1_Click() rs.MoveFirst While Not rs.EOF = True If Val(Me.cmb_1.Text) = rs.Fields(0).Value Then txtque.Text = rs.Fields(1).Value txtop1.Text = rs.Fields(2).Value txtop2.Text = rs.Fields(3).Value txtop3.Text = rs.Fields(4).Value txtop4.Text = rs.Fields(5).Value txtans.Text = rs.Fields(6).Value MsgBox "msgbox found" Exit Sub End If rs.MoveNext Wend MsgBox "record not found" End Sub …………………………………………………………………………………………………… ………...
63
http://www.chetanasprojects.com Private Sub cmd_del_Click() ans1 = MsgBox("Do you wan't to DELETE ???", vbYesNo, "deletion process......") If ans1 = vbYes Then txtque.Text = rs.Fields(1).Value txtop1.Text = rs.Fields(2).Value txtop2.Text = rs.Fields(3).Value txtop3.Text = rs.Fields(4).Value txtop4.Text = rs.Fields(5).Value txtans.Text = rs.Fields(6).Value cn.Execute "delete from strat where no = " & Val(cmb_1.Text) & " " MsgBox "your record deleted", vbOKOnly, "message" Call clear cn.Execute "commit" Else MsgBox "your record not deleted" End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then MDIForm1.Show deletequestions.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Function clear() cmb_1.Text = "" txtque.Text = "" txtop1.Text = "" txtop2.Text = "" txtop3.Text = "" txtop4.Text = "" txtans.Text = "" cmb_1.SetFocus End Function …………………………………………………………………………………………………… ………... 64
http://www.chetanasprojects.com Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo x MsgBox "table has been created..............." x: rs.Open "select * from strat", cn, adOpenStatic, adLockBatchOptimistic rs.MoveFirst While Not rs.EOF = True cmb_1.AddItem (rs.Fields(0).Value) rs.MoveNext Wend rs.Requery End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Me.lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
65
http://www.chetanasprojects.com
Search Questions Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim a1 As String …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a1 = MsgBox("do u want to exit?", vbYesNo, "message") If vbYes Then MDIForm1.Show searchquetions.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_search_Click() Dim no As String rs.MoveFirst no = InputBox("Enter code for searching") 66
http://www.chetanasprojects.com While Not rs.EOF = True If rs.Fields(0).Value = no Then Call calldada MsgBox "Record found", vbOKOnly, "message" Exit Sub End If rs.MoveNext Wend MsgBox "Record not found", vbOKOnly, "message" Call clear End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo x MsgBox "table has been created..............." cn.Execute "commit" x: rs.Open "select * from strat", cn, adOpenStatic, adLockBatchOptimistic End Sub …………………………………………………………………………………………………… ………... Private Function calldada() Me.txt_no.Text = rs.Fields(0).Value Me.txtque.Text = rs.Fields(1).Value Me.txtop1.Text = rs.Fields(2).Value Me.txtop2.Text = rs.Fields(3).Value Me.txtop3.Text = rs.Fields(4).Value Me.txtop4.Text = rs.Fields(5).Value Me.txtans.Text = rs.Fields(6).Value End Function …………………………………………………………………………………………………… ………... Public Function clear() txt_no.Text = "" txtque.Text = "" txtop1.Text = "" txtop2.Text = "" txtop3.Text = "" txtop4.Text = "" txtans.Text = "" End Function 67
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Me.lbl_nm.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
NEW USER Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim found1 As String Dim found2 As String …………………………………………………………………………………………………… ………... Private Sub cmd_ok_Click() If txt_usid.Text = "" And txt_psw.Text = "" Then MsgBox "please enter your username and password and then press ok" Exit Sub End If If txt_usid.Text = "" Then MsgBox "please enter your username" Me.txt_usid.Text = "" ElseIf txt_psw.Text = "" Then MsgBox "enter your password" txt_psw.Text = "" End If MsgBox "create new user"
68
http://www.chetanasprojects.com If txt_psw.Text = txt_repsw.Text Then cn.Execute "insert into employee values('" & Trim(txt_usid.Text) & "' ,'" & Trim(txt_psw.Text) & "', '" & Trim(Me.txt_repsw.Text) & "') " cn.Execute "commit" End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() ms = MsgBox("are you sure,that you want to terminate programm!", vbYesNo + vbDefaultButton2) If ms = vbYes Then MDIForm1.Show createuser.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" rs.Open "select * from employee", cn, adOpenStatic, adLockBatchOptimistic End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_1.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_2.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub …………………………………………………………………………………………………… ………... Private Sub txt_psw_KeyPress(KeyAscii As Integer) 69
http://www.chetanasprojects.com If (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then KeyAscii = 0 MsgBox "enter only character" End If End Sub …………………………………………………………………………………………………… ………... Private Sub txt_repsw_KeyPress(KeyAscii As Integer) If (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then KeyAscii = 0 MsgBox "enter only character" End If End Sub …………………………………………………………………………………………………… ………... Private Sub txt_usid_KeyPress(KeyAscii As Integer) If (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then KeyAscii = 0 MsgBox "enter only character" End If End Sub
Change Password Dim ms As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim found1, found2 As Boolean …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then MDIForm1.Show changepassword.Hide Else Exit Sub
70
http://www.chetanasprojects.com End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_ok_Click() If Me.txt_usid.Text = "" And Me.txt_opsw.Text = "" Then MsgBox "please enter your username and password and then press ok" Exit Sub End If If txt_usid.Text = "" Then MsgBox "please enter your username" ElseIf txt_opsw.Text = "" Then MsgBox "enter your password" End If rs.MoveFirst While rs.EOF = False If Trim(txt_opsw.Text) = Trim(rs.Fields(1).Value) Then usid = Trim(rs.Fields(0).Value) cn.Execute "update employee set password=' " & Trim(Me.txt_npsw.Text) & " 'where username=' " & Trim(Me.txt_usid.Text) & " ' " cn.Execute "commit" MsgBox "update your new password is successfully...!!!" Me.Hide Exit Sub End If rs.MoveNext Wend If found1 = False Then MsgBox "enter proper username " Me.txt_usid.Text = "" End If If found2 = False Then MsgBox "enter proper password" Me.txt_opsw.Text = "" Me.txt_npsw.Text = "" End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() Set cn = New ADODB.Connection 71
http://www.chetanasprojects.com Set rs = New ADODB.Recordset cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" rs.ActiveConnection = cn rs.Open "select * from employee", cn, adOpenStatic, adLockBatchOptimistic End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_1.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 lbl_2.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub …………………………………………………………………………………………………… ………... Private Sub txt_usid_KeyPress(KeyAscii As Integer) If (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then KeyAscii = 0 MsgBox "enter only character" End If End Sub
Delete User Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim u As String Dim p As String Dim t As Integer Dim sr As String …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then MDIForm1.Show 72
http://www.chetanasprojects.com deleteuser.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo err err: rs.Open "select * from employee", cn, addopenstatic, adLockBatchOptimistic End Sub Private Sub cmd_ok_Click() l=0 rs.MoveFirst While rs.EOF = False If (Trim(rs.Fields(0).Value) = Trim(Me.txt_newuser.Text)) And Trim(rs.Fields(1).Value) = Trim(Me.txt_newpass.Text) Then l=1 End If rs.MoveNext Wend If l = 1 Then If Trim(Me.txt_newpass.Text) = Trim(txt_conpass.Text) Then cn.Execute "delete from login where usernm='" & Me.txt_newuser.Text & "'" cn.Execute "commit" MsgBox " user deleted" Else MsgBox " Password don't match pls try again..........." Me.txt_conpass.Text = "" Me.txt_newpass.Text = "" Me.txt_newpass.SetFocus Exit Sub End If Else MsgBox "sorry invalid user name or password user not found try different name " 73
http://www.chetanasprojects.com Me.txt_conpass.Text = "" Me.txt_newpass.Text = "" Me.txt_newuser.Text = "" Me.txt_newuser.SetFocus Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Me.lbl_1.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) Me.lbl_2.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub
INTERNET Option Explicit Public StartingAddress As String Dim mbDontNavigateNow As Boolean …………………………………………………………………………………………………… ………... Private Sub Form_Load() On Error Resume Next Me.Show tbToolBar.Refresh Form_Resize cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15 If Len(StartingAddress) > 0 Then
74
http://www.chetanasprojects.com cboAddress.Text = StartingAddress cboAddress.AddItem cboAddress.Text 'try to navigate to the starting address timTimer.Enabled = True brwWebBrowser.Navigate StartingAddress End If End Sub …………………………………………………………………………………………………… ………... Private Sub brwWebBrowser_DownloadComplete() On Error Resume Next Me.Caption = brwWebBrowser.LocationName End Sub …………………………………………………………………………………………………… ………... Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String) Dim i As Integer Dim bFound As Boolean Me.Caption = brwWebBrowser.LocationName For i = 0 To cboAddress.ListCount - 1 If cboAddress.List(i) = brwWebBrowser.LocationURL Then bFound = True Exit For End If Next i mbDontNavigateNow = True If bFound Then cboAddress.RemoveItem i End If cboAddress.AddItem brwWebBrowser.LocationURL, 0 cboAddress.ListIndex = 0 mbDontNavigateNow = False End Sub …………………………………………………………………………………………………… ………... Private Sub cboAddress_Click() If mbDontNavigateNow Then Exit Sub timTimer.Enabled = True brwWebBrowser.Navigate cboAddress.Text End Sub …………………………………………………………………………………………………… ………... Private Sub cboAddress_KeyPress(KeyAscii As Integer) On Error Resume Next 75
http://www.chetanasprojects.com If KeyAscii = vbKeyReturn Then cboAddress_Click End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Resize() cboAddress.Width = Me.ScaleWidth - 100 brwWebBrowser.Width = Me.ScaleWidth - 100 brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100 End Sub …………………………………………………………………………………………………… ………... Private Sub timTimer_Timer() If brwWebBrowser.Busy = False Then timTimer.Enabled = False Me.Caption = brwWebBrowser.LocationName Else Me.Caption = "Working..." End If End Sub …………………………………………………………………………………………………… ………... Private Sub tbToolBar_ButtonClick(ByVal Button As Button) On Error Resume Next timTimer.Enabled = True elect Case Button.Key Case "Back" brwWebBrowser.GoBack Case "Forward" brwWebBrowser.GoForward Case "Refresh" brwWebBrowser.Refresh Case "Home" brwWebBrowser.GoHome Case "Search" brwWebBrowser.GoSearch Case "Stop" timTimer.Enabled = False brwWebBrowser.Stop Me.Caption = brwWebBrowser.LocationName End Select End Sub 76
http://www.chetanasprojects.com
Edit Registration Dim Dim Dim Dim Dim Dim Dim
rs As New ADODB.Recordset a As String t, cr As Integer chg As Boolean sql As String dt2 dt1
77
http://www.chetanasprojects.com Dim im As String Option Explicit …………………………………………………………………………………………………… ………... Private Sub cmb_1_Click() rs.MoveFirst While Not rs.EOF = True If Val(cmb_1.Text) = rs.Fields(0).Value Then txt_fname.Text = rs.Fields(1).Value txt_pass.Text = rs.Fields(2).Value txt_add.Text = rs.Fields(3).Value txt_mno.Text = rs.Fields(4).Value dtp1.Value = rs.Fields(5).Value txt_category = rs.Fields(6).Value cmb1.Text = rs.Fields(7).Value txt_qcode.Text = rs.Fields(8).Value Me.txt_email.Text = rs.Fields(9).Value dtp2.Value = rs.Fields(10).Value txt_place.Text = rs.Fields(11).Value img1.Picture = LoadPicture(rs.Fields(12).Value) MsgBox "msgbox found" Exit Sub End If rs.MoveNext Wend MsgBox "record not found" End Sub …………………………………………………………………………………………………… ………... Private Sub cmb_1_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= 48 And KeyAscii < 57) Then KeyAscii = 0 MsgBox "only number" End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_edit_Click() dt2 = Format(dtp1.Value, "dd/mmm/yyyy") dt1 = Format(dtp2.Value, "dd/mmm/yyyy") sql = "update regs set fname= '" & txt_fname.Text & "',pass= '" & txt_pass.Text & "',address= '" & txt_add.Text & "',phoneno= " & Val(txt_mno.Text) & ", birthdate= '" & dt2 & "' , category= '" & txt_category.Text & "' , sex= '" & cmb1.Text & "' , qcode= " & 78
http://www.chetanasprojects.com Val(txt_qcode.Text) & " , email= '" & txt_email.Text & "' , date1= '" & dt1 & "' , place= '" & txt_place.Text & "',pic='" & im & "' where rno=" & Val(Me.cmb_1.Text) & " " MsgBox sql cn.Execute sql sql = "commit" cn.Execute sql MsgBox "record is update" rs.Requery End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_exit_Click() a = MsgBox("do u want to exit?", vbYesNo, "message") If a = vbYes Then general.Show editrestration.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_open_Click() Me.cd1.ShowOpen im = Me.cd1.FileName Me.img1.Picture = LoadPicture(im) End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_print_Click() Me.PrintForm End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" MsgBox "table has been created..............." x: rs.Open "select * from regs", cn, adOpenStatic, adLockBatchOptimistic rs.MoveFirst While Not rs.EOF = True cmb_1.AddItem (rs.Fields(0).Value) 79
http://www.chetanasprojects.com rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………... Private Function clear() cmb_1.Text = "" txt_fname.Text = "" txt_pass.Text = "" txt_add.Text = "" txt_mno.Text = "" txt_category = "" txt_qcode.Text = "" txt_email.Text = "" txt_place.Text = "" img1.Picture = LoadPicture(" ") cmb_1.SetFocus End Function …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() If cr > 255 Then chg = True If cr < 20 Then chg = False If chg Then cr = cr - 10 Else cr = cr + 10 Me.lbl_reg.ForeColor = Rnd * RGB(cr + 700, cr + 10, cr) End Sub …………………………………………………………………………………………………… ………... Private Sub txt_category_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= 65 And KeyAscii < 90 Or KeyAscii >= 97 And KeyAscii < 122 Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "only charcher" End If End Sub …………………………………………………………………………………………………… ………... Private Sub txt_mno_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= 48 And KeyAscii < 57) Then KeyAscii = 0 MsgBox "only number" End If End Sub
80
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub txt_qcode_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= 48 And KeyAscii < 57) Then KeyAscii = 0 MsgBox "only number" End If End Sub …………………………………………………………………………………………………… ………... Public Function display() cmb_1.Text = rs.Fields(0).Value txt_fname.Text = rs.Fields(1).Value txt_pass.Text = rs.Fields(2).Value txt_add.Text = rs.Fields(3).Value txt_mno.Text = rs.Fields(4).Value dtp1.Value = rs.Fields(5).Value txt_category = rs.Fields(6).Value cmb1.Text = rs.Fields(7).Value txt_qcode.Text = rs.Fields(8).Value Me.txt_email.Text = rs.Fields(9).Value dtp2.Value = rs.Fields(10).Value txt_place.Text = rs.Fields(11).Value img1.Picture = LoadPicture(rs.Fields(12).Value) End Function
User Detail 81
http://www.chetanasprojects.com
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim cn1 As New ADODB.Connection …………………………………………………………………………………………………… ………... Private Sub cmb_1_Click() rs.MoveFirst While Not rs.EOF = True If Val(cmb_1.Text) = rs.Fields(0).Value Then Call regs MsgBox "msgbox found" Exit Sub End If rs.MoveNext Wend MsgBox "record not found" End Sub …………………………………………………………………………………………………… ………... Private Sub cmd_regs_Click() cn1.Execute "insert into reg values('" & Me.txt_cpass.Text & "')" MsgBox "record is save" cn1.Execute "commit" If txt_pass.Text = Me.txt_cpass.Text Then MsgBox "Password is Conform" MsgBox "Strat Exam now" examstrat.Show detailuser.Hide Else MsgBox "not mach password" txt_pass.Text = "" txt_cpass.Text = "" End If End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" cn1.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
82
http://www.chetanasprojects.com
On Error GoTo x cn1.Execute "create table reg(cpaa varchar2(255))" MsgBox "table has been created..............." cn1.Execute "commit" x: rs.Open "select * from regs", cn, adOpenStatic, adLockBatchOptimistic rs1.Open "select * from reg", cn1, adOpenStatic, adLockBatchOptimistic ex1: rs.MoveFirst While Not rs.EOF = True cmb_1.AddItem (rs.Fields(0).Value) rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………... Public Function regs() Me.txt_fnm = rs.Fields(1).Value Me.txt_pass = rs.Fields(2).Value Me.img.Picture = LoadPicture(rs.Fields(12).Value) End Function
83
http://www.chetanasprojects.com
Start Exam Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim x As Integer, q As Integer Dim t As Integer Dim i As Integer Dim k As Integer Dim gt As Boolean Dim rans As String Dim tot As Integer Dim a1 As String Dim ft As Integer Dim t1 As Integer …………………………………………………………………………………………………… ………... Public Function question() Print ft rd_ans(1).Value = False rd_ans(2).Value = False rd_ans(3).Value = False rd_ans(4).Value = False x=x+1 lbl_no.Caption = x If x >= ft Then MsgBox "no more questions" Exit Function End If gt = False CNT: q = Int(Rnd() * 10) + 1 MsgBox q rs.MoveFirst Do While Not rs.EOF = True If rs.Fields(0).Value = q And rs.Fields(7).Value = "False" Then gt = True MsgBox rs.Fields(1).Value & rs.Fields(7).Value Me.txt_q.Text = rs.Fields(1).Value Me.rd_ans(1).Caption = rs.Fields(2).Value Me.rd_ans(2).Caption = rs.Fields(3).Value Me.rd_ans(3).Caption = rs.Fields(4).Value Me.rd_ans(4).Caption = rs.Fields(5).Value
84
http://www.chetanasprojects.com Exit Do End If rs.MoveNext Loop If gt = False Then GoTo CNT End If cn.Execute "update strat set status='True' where no = " & q & " " cn.Execute "commit" rs.Requery End Function …………………………………………………………………………………………………… ………... Private Sub cmd_next_Click() Call question End Sub …………………………………………………………………………………………………… ………... Private Sub Form_Load() tot = 0 x=0 t1 = 0 ft = 0 Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True" On Error GoTo EX cn.Execute " create table strat(no number(3),que varchar2(255),ans_a varchar2(255),ans_b varchar2(255),ans_c varchar2(255),ans_d varchar2(255),ans varchar2(300),status varchar2(7))" MsgBox "table has been created..............." cn.Execute "insert into strat values(1,'20th August is celebrated as','A. Earth Day ','B. Sadbhavana Divas ','C. No Tobacco Day ','D. None of these ','B. Sadbhavana Divas','False')" cn.Execute "insert into strat values(2,'The Centre for Cellular and Molecular Biology is situated at','A. Patna','B. Jaipur ','c.Hyderabad ','D. New Delhi','C. Hyderabad','False')" cn.Execute "insert into strat values(3,'Where is the Railway Staff College located?','A. Pune','B. Allahabad','C.Vadodara','D.Delhi','C.Vadodara','False')"
85
http://www.chetanasprojects.com cn.Execute "insert into strat values(4,'The famous Dilwara Temples are situated in','A.Uttar Pradesh','B.Rajasthan','C.Maharashtra','D.Madhya Pradesh','B.Rajasthan','False')" cn.Execute "insert into strat values(5,'The first death anniversary day of Sri Rajiv Gandhi was observed as the','A. National Integration Day','B. Peace and Love Day','C.Secularism Day','D. Anti-Terrorism Day','D. Anti-Terrorism Day','False')" cn.Execute "insert into strat values(6,'Vande Mataram was first sung at the session of the Indian National Congress in','A. 1892','B. 1896','C. 1904','D. 1886','B.1896','False')" cn.Execute "insert into strat values(7,'Wadia Institute of Himalayan Geology is located at','A.Delhi','B.Shimla','C.Dehradun','D.Kulu','C.Dehradun','False')" cn.Execute "insert into strat values(8,'Former Australian captain Mark Taylor has had several nicknames over his playing career. Which of the following was NOT one of them?','a.Tubby','b.Stodge','C. Helium Bat','D.Stumpy','D.Stumpy','False')" cn.Execute "insert into strat values(9,'Which was the 1st non Test playing country to beat India in an international match?','A. Canada','B.Sri Lanka','C. Zimbabwe','D. East Africa','B.Sri Lanka','False')" cn.Execute "insert into strat values(10,'When is the World Population Day observed?','A. May 31','B.October 4','C.December 10','D.July 11','D.July','False')" cn.Execute "commit" EX: cn.Execute "update strat set status='False'" cn.Execute "commit" rs.Open "select * from strat", cn, adOpenStatic, adLockBatchOptimistic ft = 0 rs.MoveFirst While Not rs.EOF ft = ft + 1 rs.MoveNext Wend Print "ft is " & ft Call question End Sub
86
http://www.chetanasprojects.com …………………………………………………………………………………………………… ………... Private Sub cmd_quit_Click() a1 = MsgBox("do u want to quite?", vbYesNo, "message") If a1 = vbYes Then MsgBox ("Total is=" & tot) general.Show examstrat.Hide Else Exit Sub End If End Sub …………………………………………………………………………………………………… ………... Private Sub rd_ans_Click(Index As Integer) rs.MoveFirst While Not rs.EOF If rs.Fields(0).Value = q Then If rd_ans(Index).Caption = rs.Fields(6).Value Then tot = tot + 1 End If End If rs.MoveNext Wend End Sub …………………………………………………………………………………………………… ………... Private Sub Timer1_Timer() Me.Label11.Caption = Time End Sub
87
http://www.chetanasprojects.com
REPORT
Questions
88
http://www.chetanasprojects.com
User Detail
89
http://www.chetanasprojects.com
7. TESTING
TESTING
METHOD:-
90
Testing Method Testibility
http://www.chetanasprojects.com The phase of system development life cycle tests system design. Testing of system decides whether the newly designed system works properly or not. After the development of documentation manually about the system this stage is checked. And if the system working properly then it will be considered for implementation and if It isn’t then it will be considered for implementation and if isn’t then system analyst is informed to find out generated errors or problems and to find out its solutions. This process is known as debugging.
For any software system testing means to check out it’s coding. if there is not any problem in the coding then that code is proper and efficient to design. If we are not getting proper or required output then we have to debug the system coding. So, the debugging is also a subpart of the testing section. If the system runs correctly during testing then there is no need to debug.
During the testing of our project we have to face different types of errors. Especially, database errors annoyed us but at last we solved it, successfully. Some of the errors are listed below with their cause and solution.
VARIOUS TESTING METHOD
91
http://www.chetanasprojects.com
A strategy provides a road map that describes the steps to be undertaken, and how much efforts, time and resources will be required. A testing strategy must incorporate test planning, test design, test execution, and resultant data collection and evaluation. The testing strategy followed by us constituted the following component parts as:
Various testing method strategies that ware use for testing the modules are as follows:
Unit Test :The first test in the development process is the unit test. The source code
is normally divided into modules, which in turn are divided into smaller units called units. These units have specific behavior. The test done on these units of code is called unit test. Unit test depends upon the language on which the project is developed. Unit tests ensure that each unique path of the project performs accurately to the documented specifications and contains clearly defined inputs and expected results.
System Test:-
Several modules constitute a project. If the project is long-term project, several developers write the modules. Once all the modules are integrated, several errors may arise. The testing done at this stage is called system test.System testing ensures that the entire integrated software system meets requirements.
92
http://www.chetanasprojects.com
Functional Test :-
Functional test can be defined as testing two or more modules together with the intent of finding defects, demonstrating that defects are not present, verifying that the module performs its intended functions as stated in the specification and establishing confidence that a program does what it is supposed to do.
Alpha Testing:-
Testing
after
code
is
mostly
complete
or
contains
most of
the
functionality and prior to users being involved. Sometimes a select group of users are involved. More often this testing will be performed in-house or by an outside testing firm in close cooperation with the software engineering department.
Beta Testing:-
Testing after the product is code complete. Betas are often widely distributed or even distributed to the public at large in hopes that they will buy the final product when it is released.
93
http://www.chetanasprojects.com
TESTABILITY:-
Software testability is simply how easily a computer program can be tested. The checklist that follows provides a set of characteristics that lead to testable software. •
Operatibility.
•
Observable.
•
Controllability.
•
Decomposability.
•
Simplicity.
•
Stability.
•
Understandability.
94
http://www.chetanasprojects.com
8. ENHANCEMENT
Advantage Features
95
Scope
http://www.chetanasprojects.com
ADVANTAGES:-
•
Ease to maintenance.
•
Ease to use for all user.
•
Ease to maintain wholes system through one use.
FEATURE
SCOPE
We want to do following enhancement in our project.
•
E-mail forwarding.
•
Remainder facility for user.
•
Some of limitation is removed by using some advance technology in future.
•
There is also adding features are provided to user so functionality of working will become fast.
96
http://www.chetanasprojects.com
9. CONCLUSION With the increasing amount of data that is available to an organization in today’s competitive business environment more which will really help full to this company.
The data is easily maintained by a single mouse click. Report generation is quite easy and in a timely and faster then ever. Now the head office can save their ever-important time and energy and can now divert their attention and energy in some other innovative and challenging work, which will enhance the working of the company and hence improvement of its positioning today’s throat-cutting competition.
So this project will help the organization in its
record keeping activity and also in the field of office-automat.
Thus with this project workload of a company can be reduced and it will help the company to climb the ladder of success in today’s competitive business environment.
97
http://www.chetanasprojects.com
10. BIBILOGRAPHY
Book Name:Visual Basic 6.0
Author Name:Julia Case Bradley Anita c. Millspaugh
98