Develop a application to send mail. coding on vb.net

[dhilipkumar]

this is the code to develop a application to send mail. coding on vb.net

Code Select Expand

Dim ij As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
    Combo2(2).Enabled = True
    Combo3(3).Enabled = True
    Combo3(5).Enabled = True
    Text3(1).Enabled = True
Else
    Combo2(2).Enabled = False
    Combo3(3).Enabled = False
    Combo3(5).Enabled = False
    Text3(1).Enabled = False
End If
End Sub

Private Sub CMDADD_Click()
CMDSAVE.Enabled = True
Dim ctl As Object
For Each ctl In Me
    If TypeOf ctl Is TextBox Then
        ctl.Locked = False
    End If

    If TypeOf ctl Is ComboBox Then
        ctl.Locked = False
    End If
   
    If TypeOf ctl Is CheckBox Then
        ctl.Enabled = True
    End If
Next ctl
ij = 1
DTPicker1.ZOrder
DTPicker2.ZOrder
Data1.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()
If MsgBox("CONFIRM DELETE THIS RECORD", vbOKCancel) = vbOK Then
    Data1.Recordset.Delete
      MsgBox "DELETED"
Else: MsgBox "RECORD NOT DELETE"
End If
End Sub
Private Sub cmdEdit_Click()
Dim ctl As Object
For Each ctl In Me
    If TypeOf ctl Is TextBox Then
        ctl.Locked = False
    End If

    If TypeOf ctl Is ComboBox Then
        ctl.Locked = False
    End If
    If TypeOf ctl Is CheckBox Then
        ctl.Enabled = True
    End If
Next ctl
DBGrid1.AllowUpdate = True
CMDSAVE.Enabled = True
DTPicker1.ZOrder
DTPicker2.ZOrder
End Sub
Private Sub CMDEXIT_Click()
Unload Me
Load Main
End Sub
Private Sub CMDEXIT_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub

Private Sub cmdPrint_Click()
frmReports.Show

'Data1.Database.Execute "Drop table tblprn"
'Data1.Database.Execute "SELECT * INTO TBLPRN from BD"
''If Len(Combo1(5)) <> 0 And Len(Combo1(0)) <> 0 And Len(Combo1(4)) <> 0 And Len(Combo3) <> 0 Then
' '   Data1.RecordSource = "select * from db where Maj_head='" & Trim(Combo3) & " and mo1='" & Trim(Combo1(5)) & "' and mo2='" & Trim(Combo1(0)) & "' and mo3='" & Trim(Combo1(4)) & "'and Maj_head='" & Trim(Combo3) & "'"
''ElseIf Len(Combo1(5)) <> 0 And Len(Combo1(0)) <> 0 And Len(Combo1(4)) <> 0 Then
'RepBD.Sections("Section4").Controls.Item(1).Caption = Trim(Combo1(5)) & " " & Trim(Combo1(0)) & " " & Trim(Combo1(4))
''RepBD.Sections("Section4").Controls.Item(4).Caption = Trim(Combo3)
''DataReport1.PrintReport , rptRangeFromTo, 2, 2
'RepBD.Show
End Sub

Private Sub Cmdsave_Click()
On Error Resume Next
If ij = 1 Then
    Data1.Recordset.Update
    CMDSAVE.Enabled = False
Else
    Data1.Recordset.MoveNext
End If
ij = 0
Check1.Value = 0
Dim ctl As Object
For Each ctl In Me
    If TypeOf ctl Is TextBox Then
        ctl.Locked = True
    End If

    If TypeOf ctl Is ComboBox Then
        ctl.Locked = True
    End If
    If TypeOf ctl Is CheckBox Then
        ctl.Enabled = False
    End If
Next ctl
CMDSAVE.Enabled = False
DBGrid1.AllowUpdate = False
Text4.ZOrder
Text5.ZOrder
Dim jx As Integer
For jx = 0 To 30
    Txt(jx).Locked = False
Next jx
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Command2.Enabled = False
End Sub
Private Sub Data1_Reposition()
Data1.Caption = "TOTAL RECORDS: " & Data1.Recordset.AbsolutePosition + 1 & "/" & Data1.Recordset.RecordCount
End Sub

Private Sub File1_Click()

End Sub

Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_Load()
    Data1.DatabaseName = App.Path & "\BC.MDB"
    Data1.RecordSource = "Select * from BD"
    Data1.Refresh
   
    Data2.DatabaseName = App.Path & "\BC.MDB"
    Data2.RecordSource = "Select * from BD"
    Data2.Refresh
    Dim ctl As Object
For Each ctl In Me
    If TypeOf ctl Is TextBox Then
        ctl.Locked = True
    End If

    If TypeOf ctl Is ComboBox Then
        ctl.Locked = True
    End If
   
    If TypeOf ctl Is CheckBox Then
        ctl.Enabled = False
    End If
Next ctl

Dim jx As Integer
For jx = 0 To 30
    Txt(jx).Locked = False
Next jx
End Sub

Private Sub Label23_Click()
CommonDialog1.ShowOpen
End Sub

Private Sub Label24_Click()
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub

Private Sub OLE1_Updated(Code As Integer)

End Sub

Private Sub Timer1_Timer()
Label2.Caption = Date
Label3.Caption = Time
End Sub
Private Sub ProFind()
Dim i As Integer
Dim sql As String
Dim Y As Integer
sql = "Select * from bd where "
For i = 0 To 30
    If Txt(i).Text <> Empty Then
        Y = Y + 1
        If Y > 1 Then
            sql = sql & " and "
        End If
        If i = 0 Then
            sql = sql & "sd like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 1 Then
            sql = sql & "station like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 2 Then
            sql = sql & "crno like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 3 Then
            sql = sql & "year like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 4 Then
            sql = sql & "name like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 5 Then
            sql = sql & "name2 like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 6 Then
            sql = sql & "fname like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 7 Then
            sql = sql & "sex like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 8 Then
            sql = sql & "ps like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 9 Then
            sql = sql & "dist like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 10 Then
            sql = sql & "case_stage like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 11 Then
            sql = sql & "Reason_dis like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 12 Then
            sql = sql & "G_Ng like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 13 Then
            sql = sql & "type like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 14 Then
            sql = sql & "mo1 like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 15 Then
            sql = sql & "mo2 like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 16 Then
            sql = sql & "mo3 like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 17 Then
            sql = sql & "Maj_head like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 18 Then
            sql = sql & "Min_head like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 19 Then
            sql = sql & "earlier like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 20 Then
            sql = sql & "notable like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 21 Then
            sql = sql & "nat_locality like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 22 Then
            sql = sql & "rating like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 23 Then
            sql = sql & "D_r like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 24 Then
            sql = sql & "month like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 25 Then
            sql = sql & "cd like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 26 Then
            sql = sql & "detain like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 27 Then
            sql = sql & "Hs_yn like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 28 Then
            sql = sql & "Hs_ps like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 29 Then
            sql = sql & "Kind_Bc like '" & Trim(Txt(i).Text) & "*'"
        ElseIf i = 30 Then
            sql = sql & "hs_no like '" & Trim(Txt(i).Text) & "*'"
        End If
    End If
    Label4.Caption = sql
    If Y > 0 Then
        Data1.RecordSource = sql
        Data1.Refresh
    Else
        Data1.RecordSource = "select * from bd"
        Data1.Refresh
    End If
Next i
'----------------------
'i = Combo2.ListIndex
'Set Db = OpenDatabase(App.Path & "\BC.MDB")
'm = 1
'Db.Execute "Update Tblprint set slno =" & m
   
''Dim s As Integer
''Data2.DatabaseName = "d:\PPIS\SIS-DOJ\SI.MDB"
''Data2.RecordSource = "select * from tblprint"
''Data2.Refresh
''Data2.Recordset.MoveFirst
''
''Do While Not Data2.Recordset.EOF
''    s = Data2.Recordset.AbsolutePosition + 1
''    Data2.Recordset.Edit
''    Data2.Recordset.Fields("slno") = s
''    Data2.Recordset.Update
''    Data2.Recordset.MoveNext
''Loop
''
''Data2.RecordSource = "select * from sation"
'Dim s As Integer
'Set rs = Db.OpenRecordset("tblprint")
'Do While Not rs.EOF
'    s = rs.AbsolutePosition
'    rs.Edit
'    rs.Fields("slno") = s
'    rs.Update
'    MsgBox CStr(s)
'    rs.MoveNext
'Loop
'
End Sub
'----------------------


Private Sub Txt_Change(Index As Integer)
Call ProFind
End Sub