【文章內(nèi)容簡介】 然科學(xué)版），2004（第44卷，第4期：466～469）附錄 部分程序代碼1 系統(tǒng)的登錄Private Const WS_EX_LAYERED = amp。H80000Private Const GWL_EXSTYLE = (20)Private Const LWA_ALPHA = amp。H2Private Const LWA_COLORKEY = amp。H1Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer 39。聲明變量Private Sub cmdDL_Click()If = Then MsgBox 請選擇登陸用戶！, 48, 錯(cuò)誤提示 Exit SubEnd IfCall OpenConnSQL = select * from 系統(tǒng)用戶表 where Czy=39。 amp。 amp。 39。 SQL, , 1, 1 If zhuan() = IIf(Trim(IsNull((pass))), , Trim((pass))) Then gCzy = (czy) gCzyqx = (czyqx) Call CloseConn Unload Me Else MsgBox 密碼錯(cuò)誤！, 48, 錯(cuò)誤提示 End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls 39。XP效果End SubPrivate Sub Form_Load() = 39。外邊框 = = = 39。Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 2039。Call OpenConnSQL = select czy from 系統(tǒng)用戶表 SQL, , 1, 1 Do While Not rs!czy LoopCall CloseConnCall OpenConnSQL = select 公司名稱 from 公司信息 SQL, , 1, 1 If 0 Then gGsmc = rs!公司名稱 Else gGsmc = 公司信息未知 End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 Then = FalseExit SubEnd If SetLayeredWindowAttributes , 0, Alpha, LWA_ALPHAEnd Sub2 基礎(chǔ)檔案查詢Private Const WS_EX_LAYERED = amp。H80000Private Const GWL_EXSTYLE = (20)Private Const LWA_ALPHA = amp。H2Private Const LWA_COLORKEY = amp。H1Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer 39。聲明變量Private Sub cmdDL_Click()If = Then MsgBox 請選擇登陸用戶！, 48, 錯(cuò)誤提示 Exit SubEnd IfCall OpenConnSQL = select * from 系統(tǒng)用戶表 where Czy=39。 amp。 amp。 39。 SQL, , 1, 1 If zhuan() = IIf(Trim(IsNull((pass))), , Trim((pass))) Then gCzy = (czy) gCzyqx = (czyqx) Call CloseConn Unload Me Else MsgBox 密碼錯(cuò)誤！, 48, 錯(cuò)誤提示 End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls 39。XP效果End SubPrivate Sub Form_Load() = 39。外邊框 = = = 39。Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 2039。Call OpenConnSQL = select czy from 系統(tǒng)用戶表 SQL, , 1, 1 Do While Not rs!czy LoopCall CloseConnCall OpenConnSQL = select 公司名稱 from 公司信息 SQL, , 1, 1 If 0 Then gGsmc = rs!公司名稱 Else gGsmc = 公司信息未知 End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 Then = FalseExit SubEnd If SetLayeredWindowAttributes , 0, Alpha, LWA_ALPHAEnd Sub3 用戶管理Dim qx As String 39。權(quán)限Private Sub Check1_Click(Index As Integer)End SubPrivate Sub cmdBC_Click() 39。保存按鈕 If Trim() = Then MsgBox 登陸名不能為空！, 48, 提示 Exit Sub End If If = 新增 Then For i = 0 To If Trim() = (i) Then MsgBox 該用戶已經(jīng)存在！, 48, 提示 Exit Sub End If Next Call OpenConn SQL = select * from 系統(tǒng)用戶表 SQL, , 3, 3 rs!czy = Trim() rs!pass = zhuan(123456) For i = 0 To 5 qx = qx amp。 (i).Value Next rs!czyqx = qx Call CloseConn qx = MsgBox 操作員添加成功，初始密碼為123456，請注意修改！, 64, 提示 = True = FalseElse Call OpenConn SQL = select * from 系統(tǒng)用戶表 where czy=39。 amp。 amp。 39。 SQL, , 3, 3 For i = 0 To 5 qx = qx amp。 (i).Value Next rs!czyqx = qx Call C