mdi_main.frm

房地产管理系统 对房地产的销售做日常的管理维护等

frm_GSXX.Text3.Text = frm_GSXX.Adodc1.Recordset.Fields("传真")
frm_GSXX.Text4.Text = frm_GSXX.Adodc1.Recordset.Fields("电话")
frm_GSXX.Text5.Text = frm_GSXX.Adodc1.Recordset.Fields("公司地址")
frm_GSXX.Text6.Text = frm_GSXX.Adodc1.Recordset.Fields("公司E_MALL")
frm_GSXX.Text7.Text = frm_GSXX.Adodc1.Recordset.Fields("开户银行")
frm_GSXX.Text8.Text = frm_GSXX.Adodc1.Recordset.Fields("公司帐号")
frm_GSXX.Text9.Text = frm_GSXX.Adodc1.Recordset.Fields("备注")
frm_GSXX.Text2.Locked = True
frm_GSXX.Text3.Locked = True
frm_GSXX.Text4.Locked = True
frm_GSXX.Text5.Locked = True
frm_GSXX.Text6.Locked = True
frm_GSXX.Text7.Locked = True
frm_GSXX.Text8.Locked = True
frm_GSXX.Text9.Locked = True
frm_GSXX.Text2.SetFocus
Else
End If
End Sub

Private Sub help11_Click(Index As Integer)
CommonDialog1.HelpCommand = cdlHelpForceFile
CommonDialog1.HelpFile = "C:\Program Files\WinRAR\WinRAR.hlp"
CommonDialog1.ShowHelp

End Sub

Private Sub kehu_shoukuanchaxun_Click()
frm_SKCX.Show
Toolbar1.Visible = False
frm_SKCX.Left = 460
frm_SKCX.Top = 160
frm_SKCX.Adodc1.RecordSource = "select * from Table_khfk order by 客户编号"
frm_SKCX.Adodc1.Refresh
End Sub

Private Sub kehu_shujufenxi_Click()
frm_KHSJFX.Show
'frm_KHSJFX.Height = 5865
'frm_KHSJFX.Width = 7650
frm_KHSJFX.Left = 2300
frm_KHSJFX.Top = 500
End Sub

Private Sub kehu_tuikuan_Click()
Toolbar1.Visible = False
frm_KHTKDGL.Show
frm_KHTKDGL.Height = 7290
frm_KHTKDGL.Width = 11295
frm_KHTKDGL.Left = 300
frm_KHTKDGL.Top = 150
frm_KHTKDGL.Toolbar1.Buttons(1).Enabled = True
frm_KHTKDGL.Toolbar1.Buttons(2).Enabled = True
frm_KHTKDGL.Toolbar1.Buttons(3).Enabled = True
frm_KHTKDGL.Toolbar1.Buttons(4).Enabled = False
frm_KHTKDGL.Toolbar1.Buttons(5).Enabled = False
frm_KHTKDGL.Toolbar1.Buttons(6).Enabled = True
frm_KHTKDGL.Toolbar1.Buttons(7).Enabled = False
frm_KHTKDGL.Toolbar1.Buttons(8).Enabled = True
End Sub

Private Sub kehuziliao_Click()
frm_KHZLGL.Toolbar1.Buttons(3).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(4).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(5).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(6).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(7).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(8).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(2).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(1).Enabled = True
frm_KHZLGL.Show
Toolbar1.Visible = False
frm_KHZLGL.Height = 7530
frm_KHZLGL.Width = 11900
frm_KHZLGL.Left = 10

frm_KHZLGL.Top = 50

End Sub

Private Sub KHSJFX_Click()
frm_TJ.Show
frm_TJ.Height = 2025
frm_TJ.Width = 3720
frm_TJ.Left = 4150
frm_TJ.Top = 2000
End Sub

Private Sub loupan_yudingbaobiao_Click()
DataEnvironment1.rsCommand2.Open "select * from Table_FWXX where 状态='已预订'"
 If DataEnvironment1.rsCommand2.RecordCount > 0 Then
 Data_FWYDTJBB.Show
 Else
   MsgBox "目前还没有预订的房屋"
 DataEnvironment1.rsCommand2.Close
 End If

End Sub

Private Sub MDIForm_Activate()
  MDI_main.StatusBar1.Panels.Item(2).Text = "当前操作员： " + frm_XTDL.Text2.Text
  StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
  StatusBar1.Panels.Item(4).Text = Time
End Sub
Private Sub room_loupanxinxi_Click()
Toolbar1.Visible = False
frm_FXXX.Toolbar1.Buttons(1).Enabled = True
frm_FXXX.Toolbar1.Buttons(2).Enabled = True
frm_FXXX.Toolbar1.Buttons(3).Enabled = True
frm_FXXX.Toolbar1.Buttons(4).Enabled = False
frm_FXXX.Toolbar1.Buttons(5).Enabled = False
frm_FXXX.Toolbar1.Buttons(6).Enabled = True
frm_FXXX.Toolbar1.Buttons(7).Enabled = True
frm_FXXX.Toolbar1.Buttons(8).Enabled = False
frm_FXXX.Toolbar1.Buttons(9).Enabled = True
frm_FXXX.Toolbar1.Buttons(10).Enabled = True

frm_FXXX.Show
frm_FXXX.Height = 7530
frm_FXXX.Width = 10680
frm_FXXX.Left = 600
frm_FXXX.Top = 30
frm_FXXX.SSTab1.Tab = 0
frm_FXXX.Frame1.Visible = False
frm_FXXX.Frame6.Visible = True
End Sub

Private Sub room_lurubj_Click()
Toolbar1.Visible = False
frm_FXZL.Toolbar1.Buttons(1).Enabled = True
frm_FXZL.Toolbar1.Buttons(2).Enabled = True
frm_FXZL.Toolbar1.Buttons(3).Enabled = True
frm_FXZL.Toolbar1.Buttons(4).Enabled = False
frm_FXZL.Toolbar1.Buttons(5).Enabled = False
frm_FXZL.Toolbar1.Buttons(6).Enabled = True
frm_FXZL.Toolbar1.Buttons(7).Enabled = False
frm_FXZL.Toolbar1.Buttons(8).Enabled = True
frm_FXZL.Toolbar1.Buttons(9).Enabled = True
frm_FXZL.Show
frm_FXZL.Height = 7530
frm_FXZL.Width = 10680
frm_FXZL.Left = 630
frm_FXZL.Top = 30
End Sub

Private Sub room_xiaoshou11_Click(Index As Integer)
Toolbar1.Visible = False
frm_FWXSGL.Caption = "房屋销售管理"
frm_FWXSGL.Show
frm_FWXSGL.Width = 11190
frm_FWXSGL.Height = 7500
frm_FWXSGL.Left = 360
frm_FWXSGL.Top = 40
frm_FWXSGL.Toolbar1.Buttons(1).Visible = True
frm_FWXSGL.Toolbar1.Buttons(2).Visible = True
frm_FWXSGL.Toolbar1.Buttons(3).Visible = True
frm_FWXSGL.Toolbar1.Buttons(4).Visible = True
frm_FWXSGL.Toolbar1.Buttons(5).Visible = True
frm_FWXSGL.Toolbar1.Buttons(6).Visible = True
frm_FWXSGL.Toolbar1.Buttons(7).Visible = True
frm_FWXSGL.Toolbar1.Buttons(8).Visible = False
frm_FWXSGL.Toolbar1.Buttons(9).Visible = True
frm_FWXSGL.Toolbar1.Buttons(10).Visible = True
frm_FWXSGL.Toolbar1.Buttons(1).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(2).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(3).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(4).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(5).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(6).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(7).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(8).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(9).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(10).Enabled = True
End Sub

Private Sub shuju_bfhf_Click()
Shell (App.Path & "\backup.exe")
End
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1                                  '信息维护
Toolbar1.Visible = False
frm_FXXX.Toolbar1.Buttons(1).Enabled = True
frm_FXXX.Toolbar1.Buttons(2).Enabled = True
frm_FXXX.Toolbar1.Buttons(3).Enabled = True
frm_FXXX.Toolbar1.Buttons(4).Enabled = False
frm_FXXX.Toolbar1.Buttons(5).Enabled = False
frm_FXXX.Toolbar1.Buttons(6).Enabled = True
frm_FXXX.Toolbar1.Buttons(7).Enabled = True
frm_FXXX.Toolbar1.Buttons(8).Enabled = False
frm_FXXX.Toolbar1.Buttons(9).Enabled = True
frm_FXXX.Toolbar1.Buttons(10).Enabled = True
frm_FXXX.Show
frm_FXXX.Height = 7530
frm_FXXX.Width = 10680
frm_FXXX.Left = 600
frm_FXXX.Top = 30
frm_FXXX.SSTab1.Tab = 0
frm_FXXX.Frame1.Visible = False
frm_FXXX.Frame6.Visible = True

Case 2                                   '销售管理
Toolbar1.Visible = False
frm_FWXSGL.Caption = "房屋销售管理"
frm_FWXSGL.Show
frm_FWXSGL.Width = 11190
frm_FWXSGL.Height = 7500
frm_FWXSGL.Left = 360
frm_FWXSGL.Top = 40
frm_FWXSGL.Toolbar1.Buttons(1).Visible = True
frm_FWXSGL.Toolbar1.Buttons(2).Visible = True
frm_FWXSGL.Toolbar1.Buttons(3).Visible = True
frm_FWXSGL.Toolbar1.Buttons(4).Visible = True
frm_FWXSGL.Toolbar1.Buttons(5).Visible = True
frm_FWXSGL.Toolbar1.Buttons(6).Visible = True
frm_FWXSGL.Toolbar1.Buttons(7).Visible = True
frm_FWXSGL.Toolbar1.Buttons(8).Visible = False
frm_FWXSGL.Toolbar1.Buttons(9).Visible = True
frm_FWXSGL.Toolbar1.Buttons(10).Visible = True
frm_FWXSGL.Toolbar1.Buttons(1).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(2).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(3).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(4).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(5).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(6).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(7).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(8).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(9).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(10).Enabled = True
Case 3                                        '客户管理
frm_KHZLGL.Toolbar1.Buttons(3).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(4).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(5).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(6).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(7).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(8).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(2).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(1).Enabled = True
frm_KHZLGL.Show
Toolbar1.Visible = False
frm_KHZLGL.Height = 7530
frm_KHZLGL.Width = 11900
frm_KHZLGL.Left = 10
frm_KHZLGL.Top = 50
Case 4                                         '客户付款
Toolbar1.Visible = False
frm_FWXSGL.Caption = "房屋销售付款管理"
frm_FWXSGL.Show
frm_FWXSGL.Width = 11190
frm_FWXSGL.Height = 7500
frm_FWXSGL.Left = 360
frm_FWXSGL.Top = 40
frm_FWXSGL.Toolbar1.Buttons(1).Visible = False
frm_FWXSGL.Toolbar1.Buttons(2).Visible = False
frm_FWXSGL.Toolbar1.Buttons(3).Visible = False
frm_FWXSGL.Toolbar1.Buttons(4).Visible = False
frm_FWXSGL.Toolbar1.Buttons(5).Visible = False
frm_FWXSGL.Toolbar1.Buttons(6).Visible = False
frm_FWXSGL.Toolbar1.Buttons(7).Visible = False
frm_FWXSGL.Toolbar1.Buttons(8).Visible = True
frm_FWXSGL.Toolbar1.Buttons(9).Visible = True
frm_FWXSGL.Toolbar1.Buttons(10).Visible = True
frm_FWXSGL.Toolbar1.Buttons(8).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(9).Enabled = False
frm_FWXSGL.Toolbar1.Buttons(10).Enabled = True

Case 5                                        '统计查询
frm_SKCX.Show
Toolbar1.Visible = False
frm_SKCX.Left = 460
frm_SKCX.Top = 160
frm_SKCX.Adodc1.RecordSource = "select * from Table_khfk order by 客户编号"
frm_SKCX.Adodc1.Refresh
Case 6                                         '数据管理
  Shell (App.Path & "\backup.exe")
  End
Case 7                                          '退出系统
End
End Select
End Sub

Private Sub yonghu_gl_Click()
frm_YHGL.Show
frm_YHGL.Option1.Value = 1
frm_YHGL.Height = 2940
frm_YHGL.Width = 4455
frm_YHGL.Left = 3600
frm_YHGL.Top = 1500
End Sub

Private Sub yonghu_koulingxiugai_Click()
frm_xgmm.Show
frm_xgmm.Height = 2340
frm_xgmm.Width = 4185
frm_xgmm.Left = 3800
frm_xgmm.Top = 1600
frm_xgmm.Text1.SetFocus
End Sub

Private Sub yuangong_xinxi_Click()
frm_YGXX.Show
frm_YGXX.Text2.SetFocus
Toolbar1.Visible = False
frm_YGXX.Height = 7140
frm_YGXX.Width = 10035
frm_YGXX.Left = 920
frm_YGXX.Top = 260
frm_YGXX.Toolbar1.Buttons(1).Enabled = True
frm_YGXX.Toolbar1.Buttons(2).Enabled = True
frm_YGXX.Toolbar1.Buttons(3).Enabled = True
frm_YGXX.Toolbar1.Buttons(4).Enabled = False
frm_YGXX.Toolbar1.Buttons(5).Enabled = False
frm_YGXX.Toolbar1.Buttons(6).Enabled = True
frm_YGXX.Toolbar1.Buttons(7).Enabled = True
frm_YGXX.Toolbar1.Buttons(8).Enabled = True
End Sub
Public Sub main()
'Set adoCon = New ADODB.Connection
'adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=ljm"
  If frm_YHZC.Check2.Value = 1 Then
    MDI_main.Caption = frm_YHZC.Text6.Text + "房地产销售管理系统"
    frm_GSXX.Text1.Text = frm_YHZC.Text6.Text
    MDI_main.Show
   'frm_XTDL.Show
  Else
   frm_YHZC.Show
  End If

End Sub