- 在线时间
- 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()
5 e% H4 S z( R: A' T! jUnload Me/ {( a5 T. ^4 _* f+ T: E
End Sub: c- t3 C8 C H" b( b
Private Sub cmdOK_Click()4 K- K! Z' r4 y& I6 W9 b( ^
If Me.User = "111" And Me.Password = "111" Then1 d3 I& ` B- G
Call Login/ f! A" `% t) u) h
Load FrmCourse
* _) g5 N( Y6 y! R) [ FrmCourse.Show6 i% l f& `% u+ Q/ G
FrmCourse.Visible = True
% {0 `8 X+ w8 p Unload Me$ t8 h" o/ r1 I# Q
'FlagOpen = True V0 t- F5 j+ m4 N
Else7 O6 f+ S' W$ V- L! ]
MsgBox "用户名或密码输入不正确!"
- ^' _: J( t, H ]+ Q- J/ m 'FlagOpen = False
9 _9 m. t8 Z3 qEnd If; X+ C. X/ b; k T9 ~, U
End Sub</P>< > rivate Sub Form_Load(), T( |& n/ T, H+ m; @
'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 > 80"
! d" D; J6 ^- r+ W9 i; bDim strleft, strsingle, strencycoded As String2 d% C4 z. I& A
Dim intorigine, intencycoded As Integer* t+ S; Y9 ^9 x% R
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
* `7 u& `+ [ W# n% LOpen App.Path & "\" & "pwl.txt" For Input As #1" r2 L! j' c: a o$ W6 \
Line Input #1, Xorpwl$: o, G# q- E1 o5 j
Close #1, G& Q) V* s, [5 K# M8 P
pwl = ""4 |! O. T1 s, J, S6 \6 e) w( A
For i = 1 To Len(Xorpwl)
5 g( i' F7 Z) M( X strleft = Left(Xorpwl, i)( m1 T$ X; @5 R6 \' M7 d$ D' i
strsingle = Right(strleft, 1)
6 V2 ?3 B) F% w( E# Q2 V0 O intorigine = Asc(strsingle)) R" O5 b' U9 K" o
intencycoded = intorigine Xor 7
( W ?. u! H% M; R strencycoded = Chr(intencycoded)
/ u8 G/ a( C1 t0 ^ pwl = pwl + strencycoded: `2 \! u) y( C! c# U
Next3 Y4 ?. S$ [4 @* C, y* u: h
8 G! i1 V1 ~' W! }' q! \. m
End Sub</P>< > ublic Property Get User() As String
0 @3 c- X. t( A6 a. N/ ]User = Me.TextUser.Text
7 Y7 } V8 N6 t0 Z. U; PEnd Property</P>< > ublic Property Let User(ByVal vNewValue As String)5 C v, }9 e, s$ \) I
Me.TextUser.Text = vNewValue
O& D* `/ D: c ZEnd Property</P>< > ublic Property Get Password() As Variant8 L3 u! V8 A& H
Password = Me.TextPassword.Text$ p$ w- |0 Z" x3 O/ W0 _
End Property</P>< > ublic Property Let Password(ByVal vNewValue As Variant)1 V, E! z" a r' M) _/ {% X
Me.TextPassword.Text = vNewValue/ l) M5 F( v n# `8 j
End Property</P>< > ublic Sub Login() | @$ H- d6 O' S6 Y
MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。" / G% A8 C2 M% Z! d$ F5 L" o
Me.Hide7 O X" X a q. h
End Sub</P>< >这是login.frm的程序</P>< >制定的数据库就是连不上</P>< >不知道怎么???1 p6 \! K/ w( T" w2 F/ E- H' x
</P>[em06][em06][em06][em06] |
|