房地產(chǎn)銷(xiāo)售管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—免費(fèi)計(jì)算機(jī)-資料下載頁(yè)
2025-08-09 15:18本頁(yè)面
【正文】 p|JPG文件|*.jpg|GIF文件|*.gif|所有文件|*.*strSss = End IfIf = True ThenstrSss = End IfErr:End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() 39。39。確定On Error GoTo ErrIf strSss = Then Exit Sub(1).Text = 背景設(shè)置If = True Then = LoadPicture(strSss) , , , , SaveSetting , Settings, BackPic, strSssEnd IfIf = True Then = = strSssSaveSetting , Settings, BackColor, strSssDeleteSetting , Settings, BackPicEnd IfUnload MeErr:End SubPrivate Sub Form_Load()(1).Text = 背景設(shè)置End SubPrivate Sub BackSettings_Click() 39。背景 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindKh_Click() 39。39?？蛻?hù)信息查詢(xún)strTableName = 客戶(hù)信息表 1End SubPrivate Sub FindXS_Click()strTableName = 銷(xiāo)售信息表 1End SubPrivate Sub FindYg_Click() 39。39。員工信息查詢(xún)strTableName = 員工信息表 1End SubPrivate Sub Form_Load()PrivsSeting 39。39。加載權(quán)限設(shè)置End SubPrivate Sub Form_Resize()On Error GoTo Err 39。39。39。改變控件位置代碼 = = 0 = = (1).Text = 狀態(tài) = ( ) / 2 = / 2 / 2 = + 50 = + 5039。39。加載背景代碼Dim strS As StringstrS = GetSetting(, Settings, BackPic, )If strS Then 39。39。圖片 = LoadPicture(strS) , , , , , 0, 0, , Else 39。39。顏色 strS = GetSetting(, Settings, BackColor, ) If strS Then = strS Else = LoadPicture( amp。 \) , , , , , 0, 0, , End IfEnd IfErr:End SubPrivate Sub Gongzitongji_Click() 1End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub HelpFiles_Click() 39。39。39。幫助文件On Error GoTo Err(1).Text = 幫助文件 Dim strPath As String strPath = + \ ShellExecute hWnd, open, (strPath), lpParameters, (strPath), 5Exit SubErr:MsgBox End SubPrivate Sub Infobank_Click()strTableName = 銀行名稱(chēng)表 1End SubPrivate Sub InfoFwm_Click()strTableName = 房屋信息表 1End SubPrivate Sub InfoFX_Click() 39。39。房形strTableName = 房型信息表 1End SubPrivate Sub Infogs_Click()strTableName = 公司基本信息表 1End SubPrivate Sub InfoGW_Click()strTableName = 管網(wǎng)信息表 1End SubPrivate Sub InfoHX_Click() 39。戶(hù)型strTableName = 戶(hù)型信息表 1End SubPrivate Sub InfoKHm_Click()strTableName = 客戶(hù)信息表 1End SubPrivate Sub InfoLFjg_Click() 39。39。樓房結(jié)構(gòu)strTableName = 樓房結(jié)構(gòu)表 1End SubPrivate Sub InfoLFLX_Click()strTableName = 樓房類(lèi)型表 1End SubPrivate Sub InfoLFm_Click()strTableName = 樓房信息表 1End SubPrivate Sub InfoLP_Click()strTableName = 樓盤(pán)信息表 1End SubPrivate Sub InfoXS_Click() 39。39。strTableName = 銷(xiāo)售信息表 1End SubPrivate Sub InfoYG_Click() 39。員工strTableName = 員工信息表 1End SubPrivate Sub Sjbf_Click() 1End SubPrivate Sub SysAbout_Click() 39。39。關(guān)于 1End SubPrivate Sub sysManager_Click() 1End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 39。39。系統(tǒng)管理 Call sysManager_ClickCase 2 39。39。用戶(hù)密碼 Call Userpasword_ClickCase 4 39。39。 Call InfoFwm_ClickCase 5 39。39。 Call InfoXS_ClickCase 6 39。39。 Call InfoKHm_ClickCase 8 39。39。 Call FindYg_ClickCase 9 39。39。 Call FindKh_ClickCase 10 39。39。 Call FindXS_ClickEnd SelectEnd SubPrivate Sub Userpasword_Click() 39。39。用戶(hù)密碼 1End SubPublic Sub PrivsSeting() 39。權(quán)限設(shè)置If IsUserMode = 1 Then 39。39。管理員 = True = True (1).Enabled = TrueElseIf IsUserMode = 2 Then = False = False (1).Enabled = FalseEnd IfEnd SubPrivate Sub ZiDianmanage_Click() 39。字典信息strTableName = 字典信息 1End SubPublic CN As New Public rs As New Public strLook As String 39。39。查看的表名Public UserName As String 39。用戶(hù)名稱(chēng)Public CurrentIndex As Integer 39。39。當(dāng)前的indexPublic strTableName As String 39。39。數(shù)據(jù)表名Public Ok As BooleanPublic IsUserMode As Integer 39。39。判斷權(quán)限Global mFso As New FileSystemObjectPublic Declare Function ShellExecute Lib Alias ShellExecuteA _(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic TimeKS As Integer 39。39?？荚嚂r(shí)總間長(zhǎng)Public kmName As String 39。39?？颇縋ublic Txs(4) As Integer 39。39。題數(shù)Public STID() 39。39。試題id單項(xiàng)Public STID1() 39。39。試題id多項(xiàng)Public DaiAn() 39。39。答案39。39。39。39。改變?nèi)掌诟袷?yyyyMMddPublic Function DateChange(strDate As String) As StringOn Error GoTo ErrDim Mon As IntegerDateChange = Year(strDate)Mon = Month(strDate)If Mon 10 Then DateChange = DateChange amp。 0 amp。 CStr(Mon)Else DateChange = DateChange amp。 amp。 CStr(Mon)End IfIf Len(strDate) 7 Then Mon = Day(strDate) If Mon 10 Then DateChange = DateChange amp。 0 amp。 CStr(Mon) Else DateChange = DateChange amp。 amp。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetNumFile(str1 As String) As IntegerDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetNumFile = 1Do If Not ( + \report\ + str1 amp。 _ amp。 CStr(i) amp。 .xls) Then GetNumFile = i Exit Function End If i = i + 1LoopEnd Function
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1