Chương trình quản lý một trung tâm giới thiệu và buôn bán bất động sản

C

c4sau_chu4

New Member

Download miễn phí Luận văn Chương trình quản lý một trung tâm giới thiệu và buôn bán bất động sản





Mục lục
 
NộI dung
Phần I GiớI thiệu về ngôn ngữ Visual Basic
Lập trình vớI ngôn ngữ Visual Basic
Cấu trúc của một chương trình viết bằng ngôn ngữ Visual Basic
Phần II Mục đích và yêu cầu của phần mềm
Chức năng chính của Phần mềm
Phần III Cơ sở dữ liệu
Phần IV Mã nguồn
 
 
 



Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí

Tóm tắt nội dung tài liệu:

ify.Enabled = Not False
cmdDel.Enabled = Not False
End If
MonthView.Value = Month(Now) & "/" & Day(Now) & "/" & Year(Now)
AddDistrict
AddTypeHouse
AddUserID
If rsBuy.RecordCount <= 0 Then
LockNavi False
cmdDel.Enabled = False
cmdModify.Enabled = False
End If
End Sub
Private Sub cmdCancel_Click()
'If UserAdd Then
' cmdExit.Enabled = True
' Unload Me
'End If
If IsAdmin = False Then
cmdModify.Enabled = False
cmdDel.Enabled = False
Else
cmdModify.Enabled = Not False
cmdDel.Enabled = Not False
End If
LockNavi True
cmdAdd.Enabled = True
cmdFind.Enabled = True
cmdSave.Enabled = False
If rsBuy.RecordCount <= 0 Then
LockNavi False
LockCtl False
cmdDel.Enabled = False
cmdCancel.Enabled = False
cmdModify.Enabled = False
Dim ctl As Control
EmptyCtl
Exit Sub
End If
rsBuy.CancelUpdate
rsBuy.MovePrevious
If rsBuy.BOF Then rsBuy.MoveFirst
If rsBuy.EOF Then rsBuy.MoveLast
Display
If IsAdmin = False And LCase(cobUserID.Text) = LCase(User_ID) Then
cmdDel.Enabled = True
cmdModify.Enabled = True
End If
End Sub
Private Sub cmdSave_Click()
Save
If Saved = True Then
cmdCancel_Click
End If
addFlag = False
If UserAdd Then
If Saved = True Then
Call MakeTransact(txtBuyID.Text, cobUserID.Text)
Unload Me
End If
End If
End Sub
==================================================
3. Form search transaction
Private Sub chk_area_Click()
If chk_area.Value = 1 Then
frm_area.Height = 1475
frm_floor.Top = 5520
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
If chk_expired.Value = 1 Then
Me.Height = 8300
Else
Me.Height = 7800
End If
chk_area.ForeColor = &HFF0000
Else
If chk_date.Value = 0 And chk_price.Value = 0 Then
If chk_expired.Value = 1 Then
Me.Height = 7200
Else
Me.Height = 6600
End If
frm_floor.Top = 4380
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
End If
chk_area.ForeColor = &H808080
frm_area.Height = 375
End If
End Sub
Private Sub chk_date_Click()
If chk_date.Value = 1 Then
frm_date.Height = 1475
If chk_expired.Value = 1 Then
Me.Height = 8300
Else
Me.Height = 7800
End If
frm_floor.Top = 5520
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
chk_date.ForeColor = &HFF0000
Else
If chk_area.Value = 0 And chk_price.Value = 0 Then
If chk_expired.Value = 1 Then
Me.Height = 7200
Else
Me.Height = 6600
End If
frm_floor.Top = 4380
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
End If
chk_date.ForeColor = &H808080
frm_date.Height = 385
End If
End Sub
Private Sub chk_direct_Click()
If chk_direct.Value = 1 Then
cmb_direct.Visible = True
chk_direct.ForeColor = &HFF0000
Else
cmb_direct.Visible = False
chk_direct.ForeColor = &H808080
End If
End Sub
Private Sub chk_dist_Click()
If chk_dist.Value = 1 Then
cmb_dist.Visible = True
chk_dist.ForeColor = &HFF0000
Else
cmb_dist.Visible = False
chk_dist.ForeColor = &H808080
End If
End Sub
Private Sub chk_expired_Click()
If chk_expired.Value = 1 Then
chk_expired.ForeColor = &HFF0000
frm_expired.Height = 900
Me.Height = Me.Height + 500
Else
chk_expired.ForeColor = &H808080
frm_expired.Height = 345
Me.Height = Me.Height - 500
End If
End Sub
Private Sub chk_floor_num_Click()
If chk_floor_num.Value = 1 Then
cmb_operator1.Visible = True
lbl1.Visible = True
txt_value1.Visible = True
frm_floor.Width = 7245
chk_floor_num.ForeColor = &HFF0000
Else
chk_floor_num.ForeColor = &H808080
If chk_tot_floor.Value = 0 Then
frm_floor.Width = 1980
End If
cmb_operator1.Visible = False
lbl1.Visible = False
txt_value1.Visible = False
End If
End Sub
Private Sub chk_h_type_Click()
If chk_h_type.Value = 1 Then
chk_floor_num.Value = 0
chk_tot_floor.Value = 0
If cmb_h_type.Text = cmb_h_type.List(6) Or cmb_h_type.Text = cmb_h_type.List(7) Or cmb_h_type.Text = cmb_h_type.List(8) Then
chk_floor_num.Enabled = False
chk_tot_floor.Enabled = False
Else
chk_floor_num.Enabled = True
chk_tot_floor.Enabled = True
End If
cmb_h_type.Visible = True
chk_h_type.ForeColor = &HFF0000
Else
chk_floor_num.Value = 0
chk_tot_floor.Value = 0
chk_floor_num.Enabled = False
chk_tot_floor.Enabled = False
cmb_h_type.Visible = False
chk_h_type.ForeColor = &H808080
End If
End Sub
Private Sub chk_loc_Click()
If chk_loc.Value = 1 Then
cmb_loc.Visible = True
chk_loc.ForeColor = &HFF0000
Else
chk_loc.ForeColor = &H808080
cmb_loc.Visible = False
End If
End Sub
Private Sub chk_price_Click()
If chk_price.Value = 1 Then
cmb_cur.Visible = True
frm_price.Height = 1475
If chk_expired.Value = 1 Then
Me.Height = 8300
Else
Me.Height = 7800
End If
frm_floor.Top = 5520
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
chk_price.ForeColor = &HFF0000
Else
If chk_date.Value = 0 And chk_area.Value = 0 Then
If chk_expired.Value = 1 Then
Me.Height = 7200
Else
Me.Height = 6600
End If
frm_floor.Top = 4380
frm_expired.Top = frm_floor.Top + frm_floor.Height + 100
End If
frm_price.Height = 375
chk_price.ForeColor = &H808080
cmb_cur.Visible = False
End If
End Sub
Private Sub chk_street_Click()
If chk_street.Value = 1 Then
cmb_street.Visible = True
chk_street.ForeColor = &HFF0000
Else
cmb_street.Visible = False
chk_street.ForeColor = &H808080
End If
End Sub
Private Sub chk_tot_floor_Click()
If chk_tot_floor.Value = 1 Then
cmb_operator2.Visible = True
lbl2.Visible = True
txt_value2.Visible = True
frm_floor.Width = 7245
chk_tot_floor.ForeColor = &HFF0000
Else
If chk_floor_num.Value = 0 Then
frm_floor.Width = 1980
End If
cmb_operator2.Visible = False
lbl2.Visible = False
txt_value2.Visible = False
chk_tot_floor.ForeColor = &H808080
End If
End Sub
Private Sub chk_width_Click()
If chk_width.Value = 1 Then
lbl_width.Visible = True
txt_width.Visible = True
chk_width.ForeColor = &HFF0000
Else
lbl_width.Visible = False
txt_width.Visible = False
chk_width.ForeColor = &H808080
End If
End Sub
Private Sub chk7_Click()
End Sub
Private Sub chk9_Click()
End Sub
Private Sub chk1_Click()
If chk1.Value = 1 Then
chk1.ForeColor = &HFF0000
Else
chk1.ForeColor = &H808080
End If
End Sub
Private Sub chk2_Click()
If chk2.Value = 1 Then
chk2.ForeColor = &HFF0000
Else
chk2.ForeColor = &H808080
End If
End Sub
Private Sub cmb_dist_Click()
Call Add_Street(cmb_dist.Text)
End Sub
Private Sub cmb_h_type_Click()
If cmb_h_type.Text = cmb_h_type.List(6) Or cmb_h_type.Text = cmb_h_type.List(7) Or cmb_h_type.Text = cmb_h_type.List(8) Then
chk_floor_num.Enabled = False
chk_tot_floor.Enabled = False
Else
If chk_h_type.Value = 1 Then
chk_floor_num.Enabled = True
chk_tot_floor.Enabled = True
End If
End If
End Sub
Private Sub Command1_Click()
End Sub
Private Sub cmd_search_Click()
If Check_Condition = False Then
Exit Sub
End If
Call Set_Condition
lbl_pro.Visible = True
pic1.Visible = True
DoEvents
frm_tran_res.lst1.ColumnHeaders.Clear
frm_tran_res.lst1.ListItems.Clear
frm_tran_res.lst1.ColumnHeaders.Add , , "Item ID"
frm_tran_res.lst1.ColumnHeaders.Add , , "Type"
frm_tran_res2.lst1.ColumnHeaders.Clear
frm_tran_res2.lst1.ListItems.Clear
frm_tran_res2.lst1.ColumnHeaders.Add , , "Item ID"
frm_tran_res2.lst1.ColumnHeaders.Add , , "Type"
Call Search_Trans(True, TblTran, AuthID, AuthID_chk, TranID, TranID_chk, Street, District, HType, Location, Direct, HWidth, FDate, LDate, Oper1, Oper2, Value1, Value2, FExpired, LExpired, MinArea, MaxArea, MinPrice, MaxPrice)
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub cmdClose_Click()
Unload frm_find_trans
End Sub
Private Sub Form_Load()
If User_Permission = "Administrator" Then
chk_expired.Enabled = True
End If
Set cnnFind = New ADODB.Connection
'cnn.Open "Provider=" & "Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\Database\advertisement.mdb;" & "Jet OLEDB:Database Password=" & "dankadv;"
cnnFind.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnFind.Open App.Path & "\database\nhadatdatabase.mdb"
frm_floor.Width = 1980
frm_floor.Top = 4380
frm_area.Height = 375
frm_area.Height = 375
frm_price.Height = 375
frm_date.Height = 375
Me.Height = 2590 '
Me.WindowState = 0
Call Default
End Sub
'--------------------------------------------------------------------------------
If District " " And District "( ALL )" Then 'Match District
If rs!District = District Then
FDistrict = True
Else
FDistrict = False
End If
Else
FDistrict = True
End If
'--------------------------------------------------------------------------------
If Street " " And Street "( ALL )" Then 'Match Street
If rs!Street = Street Then
FStreet = True
Else
FStreet = False
End If
Else
FStreet = True
End If
'-------------------...
 
Bạn phải đăng nhập hoặc đăng ký để trả lời ở đây.
Các chủ đề có liên quan khác
Tạo bởi Tiêu đề Blog Lượt trả lời Ngày
D Xây dựng chương trình quản lí chất lượng theo HACCP cho sản phẩm Chả giò xốp tôm cua chiên đông lạnh tại Công ty cổ phần thực phẩm Cholimex Nông Lâm Thủy sản 0
D SKKN Tiếp tục cải tiến chương trình Quản lý tiền lương Luận văn Sư phạm 1
D Viết chương trình quản lý nhà trọ (khách sạn) Công nghệ thông tin 1
D Quản lý chương trình 30A của chính phủ trên địa bàn huyện Sơn Động, tỉnh Bắc Giang Nông Lâm Thủy sản 0
D Quản lý hoạt động trải nghiệm của học sinh Trường THCS Thái Nguyên thành phố Nha Trang, tỉnh Khánh Hòa theo định hướng chương trình giáo dục phổ thông Luận văn Sư phạm 0
D Báo cáo môn lập trình hướng đối tượng - Xây dựng chương trinh quản lí sinh viên Công nghệ thông tin 1
V Xây dựng chương trình quản lý nhập, xuất xăng dầu tại xí nghiệp Xăng Dầu K131 Hải Phòng Luận văn Kinh tế 2
E Xây dựng chương trình quản lý xuất, nhập xi măng tại công ty xi măng chinfon Hải Phòng Luận văn Kinh tế 0
D Xây dựng chương trình quản lý thu chi của trường ĐHDL Hải Phòng Luận văn Kinh tế 2
B Xây dựng chương trình quản lý vay vốn ngân hàng TMCP Nam Việt Luận văn Kinh tế 2

Các chủ đề có liên quan khác

Top