- 在线时间
- 0 小时
- 最后登录
- 2008-4-28
- 注册时间
- 2004-5-30
- 听众数
- 1
- 收听数
- 0
- 能力
- 0 分
- 体力
- 453 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 95
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 30
- 主题
- 10
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   94.74% 该用户从未签到
网络挑战赛参赛者
|
< >VB做一个课程管理系统</P>< >连Access的数据库</P>< >运行时</P>< >总是无法连接*.mdb文件</P>< >弹出窗口<b>Action X部件不能创建对象</b></P>< ><b>但是在学校机房的机子上运行能连接的</b></P>< ><b>是不是我的电脑什么程序没安装啊??很迷茫的</b></P>< > rivate Sub CmdCancel_Click()+ Q+ U) @# D+ ~, E( u
Unload Me9 E' H, l9 \7 ~+ h. c7 ~( l
End Sub! V% x9 p! r% g6 P3 ~
Private Sub cmdOK_Click()" m) E; c/ K6 ]2 r: p
If Me.User = "111" And Me.Password = "111" Then8 ]$ \; p# H8 t) T# M2 h6 h
Call Login
, H+ ?" x& I [2 Z7 X; @, s% F Load FrmCourse( A( @3 G" r+ S, ~
FrmCourse.Show) l: |$ y* U6 G. r# l
FrmCourse.Visible = True
* A. P. L- \4 }, Q" x Unload Me
* {3 ~% H* P1 g8 ^ 'FlagOpen = True
) y. I. A7 a9 A7 X8 cElse
5 d o3 }4 h; @/ y% L MsgBox "用户名或密码输入不正确!"
/ B1 v, A8 R; J9 R 'FlagOpen = False
) a; E% Y1 `1 O1 L: O5 mEnd If
- c1 \" X' y4 ]* x3 AEnd Sub</P>< > rivate Sub Form_Load()& S( p5 j5 [/ i& P6 O
'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 > 80"
4 G& M+ c/ |. b, ^, eDim strleft, strsingle, strencycoded As String
7 r, @* ^) a- B* U2 |Dim intorigine, intencycoded As Integer
7 O. f) b$ D) x1 m'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE/ d5 N; A; \9 w8 n4 L
Open App.Path & "\" & "pwl.txt" For Input As #1+ f2 S' \" Q9 Q. W
Line Input #1, Xorpwl$& ?* m% u7 S% I6 B2 {+ s9 i) [. R
Close #1
, Y! u' A, e& {% x3 E; Dpwl = """ W' |4 R. s& Z! f: U
For i = 1 To Len(Xorpwl)
, N1 w9 Y" d3 @1 O$ q5 I2 |' \) ` strleft = Left(Xorpwl, i)- u" W' v8 [- m3 [
strsingle = Right(strleft, 1)( E- i1 {/ Y- Y$ V" S
intorigine = Asc(strsingle)
* ^' M* V! \6 A( M0 w4 i intencycoded = intorigine Xor 7
& \& n+ b+ ?# r$ ?2 P strencycoded = Chr(intencycoded)3 q8 R, g2 v$ ~* S' _
pwl = pwl + strencycoded
z1 `8 }* j' i: WNext
1 J1 ^/ Q c5 L: O, M* P 3 s4 b$ y- r l; x! |; Y
End Sub</P>< > ublic Property Get User() As String
6 G& Y* ~& J3 H% xUser = Me.TextUser.Text8 C% ]- [2 X9 W
End Property</P>< > ublic Property Let User(ByVal vNewValue As String)2 D4 e1 ^1 X& W: ^0 P9 ~( x5 U
Me.TextUser.Text = vNewValue
, G1 w8 C7 l2 {1 N' N# ?, ?% sEnd Property</P>< > ublic Property Get Password() As Variant2 m1 o9 W v3 u4 g2 G
Password = Me.TextPassword.Text
$ w* u8 R! K: C4 q+ nEnd Property</P>< > ublic Property Let Password(ByVal vNewValue As Variant)
3 j8 q9 x( T: f* z0 }9 GMe.TextPassword.Text = vNewValue
1 q8 T! j7 A# d1 N# BEnd Property</P>< > ublic Sub Login()! i+ U) h. C* J+ J
MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"
5 x9 }$ a( p5 T7 r8 A5 s Me.Hide' v) ^ L$ E5 `: O1 t
End Sub</P>< >这是login.frm的程序</P>< >制定的数据库就是连不上</P>< >不知道怎么???
" P/ |/ D& e- n8 T</P>[em06][em06][em06][em06] |
|