Introduction
In this article you will see how to create a Registration Form in Windows Forms application. The user login details are stored in a SQL Server database.
Create Database & Tables
create database Registration
use Registration
create table UserLoginDetails(
UserName nvarchar(max),
Password nvarchar(max),
FirstName varchar(max),
LastName varchar(max),
Address nvarchar(max),
City varchar(max),
Gender varchar(max)
)
To execute the schema of the table write the query and press F5.
SELECT * FROM EmployeeInfo
Stored Procedure
The following is the Stored Procedure for the User Login Details:
create proc InsertData
@un nvarchar(max),
@pwd nvarchar(max),
@fn varchar(max),
@ln varchar(max),
@add nvarchar(max),
@cty varchar(max),
@gn varchar(max)
as
begin
if not exists(select UserName from UserLoginDetails where UserName=@un)
insert into UserLoginDetails values(@un,@pwd,@fn,@ln,@add,@cty,@gn)
end
Now let's use the following procedure.
Step 1:
Open Visual Studio then select "Create New Project" --> "F# Console Application".
Step 2:
Now go the Solution Explorer on the right side of the application. Right-click on "References" then select select "Add references".
Step 3:
After selecting "Add References", in the framework template you need to select "System.Windows.Forms", "System.Data", "System.Data.SqlClient" and "System.Drawing" while holding down the Ctrl key and click on "Ok."
Step 4:
The following is the code for the F# application:
open System
open System.Drawing
open System.Data.SqlClient
open System.Windows.Forms
open System.Data
let form = new Form()
form.BackColor<-Color.Azure
//connection string
let constring = @"Data Source=MCNDESKTOP34;Initial Catalog=Registration;User ID=sa; Password=mcn@123"
//Creating user controls
let lblmsg=new Label(Top=0,Left=80)
let txtun = new TextBox(Top = 30, Left = 120)
let txtpwd = new TextBox(Top = 70, Left = 120)
txtpwd.Text <- ""
txtpwd.PasswordChar <-'*'
txtpwd.MaxLength <- 14
let txtfn = new TextBox(Top = 120, Left = 120)
let txtln = new TextBox(Top = 170, Left = 120,Height=20)
let txtadd = new TextBox(Top = 220, Left = 120)
let txtcity = new TextBox(Top = 270, Left = 120)
let radio1=new RadioButton(Text="Male",Top=320,Left=130)
let radio2=new RadioButton(Text="Female",Top=340,Left=130)
let btn1 = new Button(Top = 380,Left=80)
let lbl1 = new Label(Top = 30, Left = 0, Height = 20)
let lbl2 = new Label(Top = 70, Left = 0, Height = 20)
let lbl3 = new Label(Top = 120, Left = 0, Height = 20)
let lbl4 = new Label(Top = 170, Left = 0, Height = 20)
let lbl5 = new Label(Top = 220, Left = 0, Height = 20)
let lbl6 = new Label(Top = 270, Left = 0, Height = 20)
let lbl7 = new Label(Top = 320, Left = 0, Height = 20)
form.Text <- "Registration Form"
lblmsg.Text<-"Registration Form"
btn1.Text <- "Submit"
lbl1.Text <- "Enter UserName"
lbl2.Text <- "Enter Password"
lbl3.Text <- "Enter First Name"
lbl4.Text <- "Enter Last Name"
lbl5.Text <- "Address"
lbl6.Text <-"City"
lbl7.Text <-"Gender"
//Adding user control
form.Controls.Add(txtun)
form.Controls.Add(txtpwd)
form.Controls.Add(txtfn)
form.Controls.Add(txtln)
form.Controls.Add(txtadd)
form.Controls.Add(txtcity)
form.Controls.Add(lblmsg)
form.Controls.Add(lbl1)
form.Controls.Add(lbl2)
form.Controls.Add(lbl3)
form.Controls.Add(lbl4)
form.Controls.Add(lbl5)
form.Controls.Add(lbl6)
form.Controls.Add(lbl7)
form.Controls.Add(btn1)
form.Controls.Add(radio1)
form.Controls.Add(radio2)
//creating SqlConnection
let con = new SqlConnection(constring)
//open connection
con.Open()
let com = new SqlCommand()
com.Connection <- con
com.CommandType <- CommandType.StoredProcedure
com.CommandText <- "InsertData"
radio1.Click.Add(fun r1msg->
radio1.Checked<-true
radio2.Checked<-false)
radio2.Click.Add(fun r2msg->
radio2.Checked<-true
radio1.Checked<-false)
btn1.Click.Add( fun _ ->
com.Parameters.AddWithValue("@un", txtun.Text ) |> ignore
com.Parameters.AddWithValue("@pwd", txtpwd.Text ) |> ignore
com.Parameters.AddWithValue("@fn", txtfn.Text ) |> ignore
com.Parameters.AddWithValue("@ln", txtln.Text ) |> ignore
com.Parameters.AddWithValue("@add", txtadd.Text ) |> ignore
com.Parameters.AddWithValue("@cty", txtcity.Text ) |> ignore
com.Parameters.AddWithValue("@gn", radio1.Text ) |> ignore
com.ExecuteNonQuery() |> ignore //ExecuteNonQuery
con.Close()
MessageBox.Show("Congratutaliton Account Created Successfully..") |> ignore
txtun.Clear()
txtpwd.Clear()
txtfn.Clear()
txtln.Clear()
txtadd.Clear()
txtcity.Clear()
txtcity.Focus() |> ignore)
Application.Run(form)
Step 5:
Debug the application by pressing F5 and the results will be in the application as shown in the following figure.
Step 6:
Fill in the user details in the usercontrols.
Step 7:
Now the details are submitted successfully in the database; see the figure given below.
Step 8:
Now you can see the userlogin details in the database.
Summary
In this article you saw how to make a user registration form and the user login details are stored in the database using a Stored Procedure.