我用vb做了一個(gè)程序?qū)?shù)據(jù)庫中的數(shù)據(jù)進(jìn)行排序，程序如下：
我們提供的服務(wù)有：做網(wǎng)站、成都做網(wǎng)站、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、貢覺ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的貢覺網(wǎng)站制作公司
標(biāo)準(zhǔn)模塊：
Type nas
custno As Integer
last_name As String
first_name As String
vip_status As String
address1 As String
assress2 As String
city As String
state As String
post_code As String
country As String
phone As String
fax As String
email As String
remarks As String
End Type
窗體模塊：
Option Base 1
Dim aa(30) As nas
Dim t As nas
Private Sub Command1_Click()
Open "e:\vbb\custoly.db" For Random As #1
For i = 1 To 30
Get #1, i, aa(i)
i = i + 1
Next i
For j = 1 To 29
For k = j + 1 To 30
If aa(j).last_name aa(k).last_name Then
t = aa(j)
aa(j) = aa(k)
aa(k) = t
End If
Next k
Next j
For p = 1 To 30
print aa(p).last_name
Next p
End Sub
在VB環(huán)境中執(zhí)行源代碼，本身就是調(diào)試模式
按F8即可逐語句運(yùn)行
點(diǎn)擊語句左端空白處，將其背景色變?yōu)樯罴t，就是添加斷點(diǎn)，運(yùn)行到該語句會(huì)停下來
可以在變量、對(duì)象等語句上點(diǎn)擊右鍵，選擇“添加監(jiān)視”即可
（1）添加項(xiàng)
Dim reg As RegistryKey
reg = Registry.CurrentUser
reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
reg.SetValue("Window Title", Me.TextBox1.Text)
（2）讀取項(xiàng)
Dim reg As RegistryKey
Dim regStr As String
reg = Registry.CurrentUser
reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
regStr = reg.GetValue("Window Title")
Me.TextBox1.Text = regStr
（3）刪除項(xiàng)
Dim reg As RegistryKey
reg = Registry.CurrentUser
reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
reg.DeleteValue("Window Title")
參考：
Public Class UserControl1
#Region "變量"
Dim Down_Color As Color = Color.Blue
Dim UP_Color As Color = Color.Gray
Dim Mode As Short = 0
Dim flag As Boolean
Dim offset_X As Integer
Dim offset_Y As Integer
Dim Mouse_P As Point
#End Region
#Region "屬性"
'按下顏色
Public Property _DownColor As Color
Get
Return Down_Color
End Get
Set(ByVal value As Color)
Down_Color = value
End Set
End Property
'彈起顏色
Public Property _UpColor As Color
Get
Return UP_Color
End Get
Set(ByVal value As Color)
UP_Color = value
End Set
End Property
'滑動(dòng)模式 0-橫 1-豎
Public Property _Mode As Short
Get
Return Mode
End Get
Set(ByVal value As Short)
Mode = value
End Set
End Property
#End Region
Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.BackColor = UP_Color
End Sub
'鼠標(biāo)按下
Private Sub UserControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Me.BackColor = Down_Color
Mouse_P = e.Location
flag = True
End Sub
'鼠標(biāo)移動(dòng)
Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If flag = False Then Exit Sub
Select Case Mode
Case 0 '橫向·
offset_X = e.X - Mouse_P.X
If Me.Location.X + offset_X + Me.Width = Me.ParentForm.Width Or Me.Location.X + offset_X = 0 Then
flag = False
Else
Me.Location = New Point(Me.Location.X + offset_X, Me.Location.Y)
End If
Case 1 '豎向·
offset_Y = e.Y - Mouse_P.Y
If Me.Location.Y + offset_Y + Me.Height + 30 = Me.ParentForm.Height Or Me.Location.Y + offset_Y = 0 Then
flag = False
Else
Me.Location = New Point(Me.Location.X, Me.Location.Y + offset_Y)
End If
End Select
End Sub
'鼠標(biāo)彈起
Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Me.BackColor = UP_Color
flag = False
End Sub
End Class
具體方法如下：”、打開Serv－U的配置管理界面puzb在“全局用戶”或者“域用戶”中選擇“創(chuàng)建cgko修改和刪除用戶帳戶”； 2、在“創(chuàng)建，修改和刪除用戶帳戶”的界面，選擇“添加”。；3、在“用戶屬性“對(duì)話框，“用戶信息”下的用戶名為：Anonymous，密碼為空，為其指定FTP的根目錄?！?、然后在“目錄訪問“選項(xiàng)，點(diǎn)擊“添加”，為其指定訪問權(quán)限和目錄?！?、最后點(diǎn)擊“保存”6這樣我們就成功添加了匿名用戶。
重慶分公司
重慶分公司
