【文章內(nèi)容簡介】 teger, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 0 To 1 Lbl_info(i).ForeColor = RGB(0, 0, 0) Next iEnd Sub（4） 利用圖片框?qū)崿F(xiàn)窗體分隔條，可以利用鼠標點擊拖動來實現(xiàn)框體大小的改變。Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) On Error Resume Next If Button = 1 Then = + x End SubPrivate Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim plamp。 On Error Resume Next pl = If pl 1000 Then pl = 1000 = pl End If If pl ( 1000) Then pl = 1000 = pl End If = pl 5 = pl 5 = 100 = + 100 = 10 = RGB(155, 106, 161)End Sub（5） 通過時間控件在狀態(tài)欄顯示當前系統(tǒng)時間。Private Sub Timer1_Timer() (2).Text = Format(Now, yyyy年mm月dd日 hh點mm分ss秒)End Sub 功能模塊設計讀者管理模塊主要功能是對讀者信息進行管理，可以對讀者的信息進行錄入、保存、修改、刪除等操作。.(1)。.(1) 讀者信息管理技術分析：該框體通過SSTab控件實現(xiàn)讀者信息添加、修改、查詢等選項。添加選項卡中，利用ADO執(zhí)行SQL語句查詢數(shù)據(jù)庫中的讀者編號，然后根據(jù)最后一個讀者的編號自動生產(chǎn)新的讀者編號。修改選項卡中利用數(shù)據(jù)集對象執(zhí)行SQL語句來查詢數(shù)據(jù)庫中的數(shù)據(jù)，輸入讀者編號獲得讀者的其他信息。查詢選項卡中根據(jù)是否選擇Like運算符，來按不同的查詢語法規(guī)則進行查詢。并且通過Progress控件來顯示當前的查詢進度。(1) 添加讀者時自動生成讀者編號。Private Sub Command1_Click() Dim temp1 temp1 = 100000 = select * from dzxxtb order by 讀者編號 If 0 Then = Val((讀者編號)) + 1 Else = temp1 + 000001 End If = select * from dzxxtb order by 讀者編號 clear1 = TrueEnd Sub(2) 保存讀者信息。Private Sub Command3_Click() Dim sql As String If = Or = Or = Or = Or = Or _ = Or = Or = Or = Or = Or = Then MsgBox 請輸入完整的讀者信息！, vbOKOnly, 提示！ Else sql = insert into dzxxtb values(39。 amp。 Text1 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 Combo1 amp。 39。,39。 amp。 DTPicker2 amp。 39。,39。 amp。 Text7 amp。 39。,39。 amp。 Text11 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text8 amp。 39。,39。 amp。 Text12 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Combo2 amp。 39。,39。 amp。 Text13 amp。 39。,39。 amp。 DTPicker1 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 Text9 amp。 39。) (sql) MsgBox 數(shù)據(jù)保存成功, 64, 提示！ = select * from dzxxtb clear1 End IfEnd Sub(3) 根據(jù)不同選擇按不同方式查詢讀者信息。Private Sub Command7_Click() Dim Counter As Integer Dim workarea(100) As String Counter = 0 On Error Resume Next = For Counter = LBound(workarea) To UBound(workarea) If = 1 And = 0 Then If = like Then = select * from dzxxtb where dzxxtb. amp。 amp。 like + 39。% + + %39。 Else = select * from dzxxtb where dzxxtb. amp。 amp。 Combo6 amp。 + 39。 + + 39。 End If End If If = 0 And = 1 Then = select * from dzxxtb where 登記日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 End If If = 1 And = 1 Then If = like Then = select * from dzxxtb where( amp。 amp。 like 39。% + + %39。 and 登記日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 ) Else = select * from dzxxtb where ( amp。 amp。 Combo6 amp。 + 39。 + + 39。 and 登記日期 between amp。 Chr(35) amp。 am