其他

用.net做機房收費系統的過程中。我想大家要是把對資料庫表的增刪改查這些基本的功能實現了，那麼機房收費系統也就完成。沒有想象中的那麼難，只要動手。由於這回我們在vb.net的環境下開發機房收費系統，還有搭建了三層。所以我們對資料庫表的操作不能像第一回用vb做那麼的直接了，而且代碼量要比用vb做要多得多。我在這裡想說說機房收費中，我們應該對資料庫表進行的一些操作。我就寫寫資料訪問層吧（DAL）用datareader寫一下登入表單。imports

一曲新詞酒一杯，去年天氣舊亭台。 夕陽西下幾時回？ 　　　　　　　　　 無可奈何花落去，似曾相識燕歸來。小園香徑獨徘徊。 晏殊的《浣溪紗》時間飛快，眼一閉一睜，寒假的學習就接近了尾聲。電腦方面：這個寒假主要是為了學習三層，而用vb.net重構了一回機房收費系統。之前用了vb實現了這個系統，

 CustomValidator通過用戶端或伺服器端檢查值上一篇部落格：驗證控制項的使用：一步一步學註冊——RegularExpressionValidator控制項    上篇部落格寫到通過Regex來檢查輸入值，如果學好Regex，我相信，將來對系統的健壯性有很大的協助。本篇部落格通過用戶端或者伺服器端的函數來檢查值，也是驗證資料的一個重要控制項之一。     首先舉例來說在伺服器端檢查值，實現註冊時判斷該使用者是否已經存在。     在舉例之前，我們有必要結合MSDN瞭解一下該控制項： 

這次機房收費系統，前前後後花的時間真不少，對於一個問題，有時候折騰半天才有點頭緒，所以這真可以這麼說，是熬出來的。跌跌撞撞中成長吧。如果一篇文章全部是密密麻麻的文字，段落不那麼明顯，沒有突出重點的話。那麼很會讓讀者看起來很難受，甚至不願意繼續去看完這文章，那麼肯定不會給這篇文章提出什麼好的建議，甚至懶得去看了。那麼文章應該怎麼樣去寫呢，另外的部落格中我們再闡述應該怎麼寫，那麼我還是借用一下蔣倩蘭的時間分割線吧。*********************軟體工程******************

VERSION 1.0 CLASSBEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "JPWordDeal"Attribute

Regex：^(?:public|private)? *?(sub|function|Property (?:Let|Set|Get)) +?(/w+)/(?  vb的處理方法：Option ExplicitPrivate Sub Form_Load() Dim strData$ Dim reg As Object Dim matchs As Object, match As Object strData = "Option Explicit" & vbCrLf

http://www.excite.co.jp/world/chinese/http://dict.hjenglish.com/jp http://webmail.aol.com/39997/affinity/en-us/Lite/MsgList.aspxhqan8p1k@ilike2helpothers.com啊bmw23aqmm3o87vn1uox4tt@bestcoolcars.com啊5r7kskieemyyefl1o8@ramsbringit.com啊ihka5avec6vjlyjmv

     承接上篇部落格資料結構與演算法之初體驗（一），本篇部落客要總結一些與資料結構有關的演算法知識。    下面是結構圖：       導航列表（單擊名稱跳轉到指定演算法）     一、【排序演算法】1、簡單排序①選擇排序②直接插入排序③冒泡排序2、希爾排序3、快速排序4、堆排序5、歸併排序6、基數排序二、【尋找演算法】1、順序尋找2、二分尋找3、分塊尋找  【選擇排序】 【直接插入排序】   【冒泡排序】【希爾排序】【快速排序】         

分頁黨統計專用工具 ：http://download.csdn.net/source/2984669 Option ExplicitDim strData$, i%Dim reg As ObjectDim matchs As ObjectDim dic As Object, tmpDim XmlHttp As ObjectDim strUrlPre As String 'url首碼Private Sub Form_Load() Set XmlHttp =

看軟考視頻也有一段時間了，最近都沒有更新部落格，總想把視頻看完了，再一起總結。所以一直拖到了月末。現在又可以用文字來理性的整理我這些資訊了。其實看視頻主要是介紹了一些主要的知識點。例子講的並不是很詳細，所以一味的看視頻，不動手做練習。對於一些問題是很難理解和掌握的。從資料結構與演算法基礎這一講來慢慢的透視這一講內容。這一節的最重要的內容，我個人提取出來應該是，線性表、樹、二叉樹、圖以及排序演算法；其次應該是：線性表、Hash、尋找演算法。我們一點一點的來看一下這些考點：線性表按照記憶體儲存劃分為

Attribute VB_Name = "modIni"Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString

JP2CH.vbpType=ExeReference=*/G{00020430-0000-0000-C000-000000000046}#2.0#0#../../../../WINDOWS/system32/stdole2.tlb#OLE AutomationObject={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; shdocvw.dllReference=*/G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#

：http://download.csdn.net/source/1228525 說明：一般情況下，當我當前已有一個工程開啟時再通過雙擊dsw檔案開啟個新工程時那麼之前開啟的那個工程會被覆蓋，相信這個問題一定困惑了許多了，你可以通過這個工具徹底解決。使用方法：將其中的“vc6tool.exe”檔案複製到磁碟的某一目錄，然後隨便找個dsw檔案右擊選擇開啟檔案，然後點瀏覽找到剛才的“vc6tool.exe”檔案，勾選設定使用該程式開啟。   vb6實現的原始碼：Option ExplicitSub

Attribute VB_Name = "modPub"Option ExplicitPublic strAppPath$Public intFontSize As IntegerPublic strFontColor As StringPublic lngFontColor As LongPublic strSplit As StringSub Main()    strAppPath = App.Path    If Right(strAppPath, 1) <> "/"

外掛程式（請下載最新版v1.0.5）：http://code.google.com/p/vsaddin/downloads 安裝方法：1.點擊菜單“工程-引用”，選擇這個dll2.然後點擊菜單“增益集-增益集管理器”，選擇“Insert Error Hand”，把右下角兩個框框都勾起來3.這樣你的菜單“增益集”中就會多出“Insert Error Hand”這一項使用方法：將要處理的代碼編輯視窗開啟，然後點擊菜單“增益集-Insert Error

Option ExplicitPrivate Declare Sub mouse_event Lib "User32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Function SetCursorPos Lib "User32" (ByVal x As Long, ByVal y As

'------------------------------------------------' 環境準備：' 1.為運行本程式，應在“菜單->工程->組件”中添加“Microsoft Internet Controls”' 2.並在“菜單->工程->引用”中添加“Microsoft HTML Object Library”和“Edanmo's OLE interfaces & functions v1.4”' 3.請先建立檔案"d:/1.html"，內容為：

有時我們需要在listbox的某個項目上右擊然後快顯功能表來操作指定項，可是右擊某一條時它並沒有呈現選中狀態，只有左鍵單擊才可以，這顯然不符合我們要求的，不過我們用個api函數稍稍處理下即可，很方便實用。 Option ExplicitPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long,

VERSION 5.00Begin VB.Form frmInputDlg Caption = "Input Dialog" ClientHeight = 1590 ClientLeft = 60 ClientTop = 345 ClientWidth = 5940 Icon = "frmInputDlg.frx":0000 LinkTopic =