Bài Tập Lớn ai giúp em với !!!

[anh_viet_0984]

các bác ơi em đang làm bài tập lớn website ngân hàng dùng asp.net mà khó quá giúp em với nha!

[=========> Bổ sung bài viết <=========]

Chào các bác!
em đang có bài tập thiết kế website ngân hàng dùng công nghệ asp.net với các chức năng:
• Chức năng cập nhật thông tin dịch vụ mà ngân hàng cung cấp.
• Chức năng quản lý tài khoản ngân hàng.
• Cập nhật thông tin liên quan đến các hoạt động của ngân hàn(tuyển dụng, phát hành sản phẩm mới…)
• Chức năng đăng ký thẻ online, cần đựơc thiết kế để xác thực tính chính xác của khách hàng.
• Chức năng đăng ký vay gia đình trẻ online, cần được thiết kế để xác thực tính chính xác của khách hàng.
• Tìm kiếm thông tin liên quan đến dịch vụ của ngân hàng.
CSDL dùng SQL Server2000

Khó quá các bác a! mong các bác giúp đỡ!
Mailcủa em là: anh_viet_0984@yahoo.com
Mong các bác giúp cho suốt đời em xin cảm ơn!

[trandong_0607]

'Holds True if the user entered the correct password.
Private m_bSuccess As Boolean
'The maximum # of login attempts.
Private Const MAX_TRIES As Integer = 3

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdLogin_Click()
'Keep track of how many attempts have been made.
Static iTries As Integer
'Check the user's password against the one that has been saved.
If MMain.Encrypt(txtPassword.Text) = MMain.Password Then
Success = True
Unload Me
Else
iTries = iTries + 1
If iTries >= MAX_TRIES Then
'The user did not enter the password in the alloted # of tries.
Unload Me
Else
MsgBox "Wrong password. Try again.", vbExclamation

'Highlight the password.
With txtPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
End Sub

Private Sub Form_Load()
'Initialize the user as NOT having entered the correct password.
Success = False

'Hide the actual password.
txtPassword.PasswordChar = "*"
End Sub

Private Sub txtPassword_GotFocus()
'Highlight the password.
With txtPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Public Property Get Success() As Boolean
Success = m_bSuccess
End Property
Private Property Let Success(ByVal NewValue As Boolean)
m_bSuccess = NewValue
End Property

[=========> Bổ sung bài viết <=========]

minh dang login cho chuong quan ly.Day la cai login cua minh.Sao cu moi lan chay chuong trinh la no bao loi o cho "Private Const MAX_TRIES As Integer = 3".Minh moi hoc vb6 nen khong hieu lam!Duoi day la cai MMain minh lam

[=========> Bổ sung bài viết <=========]

'This value is the password until the user changes it.
Private Const PW_DEFAULT As String = ""

Private Const PW_SECTION As String = "Login"
Private Const PW_KEY As String = "Encrypted Password"

Public Property Get AppName() As String
AppName = App.ProductName
End Property

Private Sub Main()
'Request password.
Flogin.Show vbModal

'If password entered correctly, show the application's main form.
If Flogin.Success Then
FMain.Show
End If

'Remove the login form out of memory.
Set Flogin = Nothing
End Sub

Public Property Get Password() As String
'Retrieve the encrypted password from the registry.
Password = GetSetting(AppName, PW_SECTION, PW_KEY, PW_DEFAULT)
End Property
Public Property Let Password(ByVal NewValue As String)
'Encrypt & store the new password into the registry.
SaveSetting AppName, PW_SECTION, PW_KEY, Encrypt(NewValue)
End Property

Public Function Encrypt(ByVal sText) As String
'!! Put your encryption code here !!
Encrypt = sText
End Function

[=========> Bổ sung bài viết <=========]

FMAIN cua minh:Private Sub cmdChangePassword_Click()
FChangePassword.Show vbModal, Me
End Sub

[=========> Bổ sung bài viết <=========]

Duoi day la Fchangerpasswourd cua no :Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdChange_Click()
'Check if the Old Password has been entered correctly.
If MMain.Encrypt(txtOldPassword.Text) = MMain.Password Then
'Check if the New Password matches the re-entered password.
If txtNewPassword.Text = txtConfirm.Text Then
'Save the new password.
MMain.Password = txtNewPassword.Text

MsgBox "Password changed.", vbInformation

Unload Me
Else
MsgBox "Password change not confirmed.", vbExclamation

'Highlight the new password.
With txtNewPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
Else
MsgBox "Old Password is invalid. Try Again.", vbExclamation

'Highlight the old password.
With txtOldPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub

Private Sub Form_Load()
'Hide the actual passwords.
txtOldPassword.PasswordChar = "*"
txtNewPassword.PasswordChar = "*"
txtConfirm.PasswordChar = "*"
End Sub

Private Sub txtConfirm_GotFocus()
'Highlight the password.
With txtConfirm
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Private Sub txtNewPassword_GotFocus()
'Highlight the password.
With txtNewPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Private Sub txtOldPassword_GotFocus()
'Highlight the password.
With txtOldPassword
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

[=========> Bổ sung bài viết <=========]

bai cua minh co 3 Form:Fmain,Fchanger,Flogin co ban nao biet giup minh hieu voi.Minh dang lam bai tap lon

[=========> Bổ sung bài viết <=========]

MMain la ten cua Modul

[=========> Bổ sung bài viết <=========]

them 1 loi nua nhung o bai tao khac cac ban oi:Private Sub Timer1_Timer()
If P1.Value < 2500 Then o day la dau "<".Minh nghi chac loi o ham logic nhung khong hieu lam the nao?

[cuong59cdt1]

mình cũng làm chơi một bài quản lý điểm học sinh mong mọi người đóng góp thêm !chức năng còn rất sơ khai + trình độ còn hạn chế :
http://www.mediafire.com/?zdn5457bfx2l9x4

[thanhdanhsoft]

Hit hit, viết ngộ vậy bạn, sao không khai báo 1 connectstring để dùng chung mà phải chọn Datasource cho mỗi Adodc của mỗi form vậy?