form3.frm

一个类似金山词霸的小程序 当然比人家的功能还差点 不过知识产权都是我自己的

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form Form3 
   BorderStyle     =   0  'None
   Caption         =   "浏览记忆"
   ClientHeight    =   5775
   ClientLeft      =   4530
   ClientTop       =   2790
   ClientWidth     =   6045
   LinkTopic       =   "Form3"
   Picture         =   "Form3.frx":0000
   ScaleHeight     =   5775
   ScaleWidth      =   6045
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "刷   新"
      Height          =   255
      Left            =   720
      Picture         =   "Form3.frx":58FF
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3720
      Width           =   1095
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "Form3.frx":FF01
      Height          =   2295
      Left            =   960
      OleObjectBlob   =   "Form3.frx":FF15
      TabIndex        =   3
      Top             =   960
      Width           =   4335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "升序排列"
      Height          =   255
      Left            =   1920
      Picture         =   "Form3.frx":108D8
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3720
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "降序排列"
      Height          =   255
      Left            =   3120
      Picture         =   "Form3.frx":1AEDA
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3720
      Width           =   1095
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   2040
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "College_Grade4"
      Top             =   4560
      Visible         =   0   'False
      Width           =   1620
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退   出"
      Height          =   255
      Left            =   4320
      Picture         =   "Form3.frx":254DC
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3720
      Width           =   1095
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function CreateEllipticRgn Lib "gdi32" _
( _
    ByVal X1 As Long, ByVal Y1 As Long, _
    ByVal X2 As Long, ByVal Y2 As Long _
    ) As Long
'声明创建椭圆形区域的API函数
Private Declare Function SetWindowRgn Lib "user32" _
( _
    ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Boolean _
    ) As Long
'声明设置窗口形状的API函数

Private Declare Function ReleaseCapture Lib "user32" _
( _
    ) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
( _
    ByVal hWnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any _
) As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
    If Button = 1 Then
    '如果按下鼠标左键
        Dim ReturnVal As Long
        X = ReleaseCapture()
        ReturnVal = SendMessage(Form3.hWnd, WM_SYSCOMMAND, _
                                SC_MOVE + HTCAPTION, 0)
     End If
End Sub



Private Sub Command1_Click()
        Form3.Hide
End Sub

Private Sub Command2_Click()
        Data1.Refresh
End Sub

Private Sub Command3_Click()
 
    Data1.RecordSource = "select * from College_Grade4 order by 单词 desc;"
   Data1.Refresh
   
End Sub

Private Sub Command4_Click()
    Data1.RecordSource = "select * from College_Grade4 order by 单词 asc;"
   Data1.Refresh
   
End Sub

Private Sub Form_Load()
     Data1.DatabaseName = App.Path & "\" & "Word" & "\" & "data.mdb"
     liulan Form3
     Data1.Refresh
End Sub

Private Sub Image1_Click()
     Data1.RecordSource = "select * from College_Grade4 order by 单词 asc;"
   Data1.Refresh
End Sub

Private Sub Image2_Click()
    Data1.RecordSource = "select * from College_Grade4 order by 单词 desc;"
   Data1.Refresh
   
End Sub

Private Sub Image3_Click()
 Form3.Hide
    
End Sub

Private Sub Label2_Click()
End Sub