- 在线时间
- 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()& j: ?) O5 i. w8 ~& h1 R$ ?
Unload Me% z5 z; x/ I5 U+ @1 i7 x9 }
End Sub5 o8 K/ g2 `/ M& g
Private Sub cmdOK_Click()# n0 a/ B: a/ E" [ V% `
If Me.User = "111" And Me.Password = "111" Then- K( r4 ~/ g' y$ g5 v: N `
Call Login/ C/ }& J( q# }. Q+ U
Load FrmCourse
$ o) j/ n2 p* o, ~! l. Z FrmCourse.Show
9 p' h' T, l; W/ r) H1 q6 ? FrmCourse.Visible = True) _' u, s; c! k% |; M( U) f
Unload Me/ U, T0 Y; i( F/ |
'FlagOpen = True
% Q; n. n8 t5 Y# J; c+ T0 wElse) ^9 v* I. I: A2 r' d) Z
MsgBox "用户名或密码输入不正确!"; S: J: ?; ` u* @& M% h
'FlagOpen = False
) c5 }+ f" Q: u, e0 i: g+ c: OEnd If
3 | |! q' c7 }. l3 w4 p: oEnd Sub</P><>rivate Sub Form_Load(). r% a. O! N+ z* } _# h' U3 g* h
'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 > 80"
% M* d+ y# V" ODim strleft, strsingle, strencycoded As String
4 ]! F. O8 t* z+ C- VDim intorigine, intencycoded As Integer
. M+ F( \+ `# Y. @- f'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
* ^0 t. {# P3 `6 gOpen App.Path & "\" & "pwl.txt" For Input As #1
' b& J: h! P" B4 y# @; x! QLine Input #1, Xorpwl$" }# ], u" m6 }7 S0 l/ h4 J1 Q6 Q7 M
Close #1
6 H. F1 d4 M; g3 l6 \/ u( Kpwl = ""
2 l& i( @9 e _. S' I; \% tFor i = 1 To Len(Xorpwl)' r! I3 g8 o" v" L' R! T2 _. O
strleft = Left(Xorpwl, i)
: [8 E. N- Q. N1 C s9 \ strsingle = Right(strleft, 1)
( k+ ] S$ k% a) u" @5 I intorigine = Asc(strsingle)
% I, M9 T4 G) E% U intencycoded = intorigine Xor 75 _: N$ D. _ c1 d- J
strencycoded = Chr(intencycoded)
( w' H. T0 N0 c( u: A$ Q0 } pwl = pwl + strencycoded9 S$ c6 ?5 z1 C- I" S
Next
6 |' e- ?' @ a9 ~1 A6 U6 G+ X
$ {' v. I4 p5 k8 B' X0 W! vEnd Sub</P><>ublic Property Get User() As String
( D G6 l& j7 BUser = Me.TextUser.Text$ |& K, c4 ]& @3 _. o+ S
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
: t$ n9 s$ \' ?$ y% T! z0 rMe.TextUser.Text = vNewValue
3 q3 P- n, J' e, g/ PEnd Property</P><>ublic Property Get Password() As Variant
1 P* ~2 A: P9 f3 f: Z2 j0 m. CPassword = Me.TextPassword.Text7 R# ~: o4 I d$ o3 `0 G% W' ?4 o, G
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)- b; R I1 |" S; N
Me.TextPassword.Text = vNewValue8 p) V2 ? r, _# | @/ E0 A8 ~
End Property</P><>ublic Sub Login()
/ P% L3 U b b: e L" w MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。" . V8 a9 q# }- r
Me.Hide
7 w( a% P! y9 o' BEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么???; C* D9 i6 A# _0 R- m8 A
</P>[em06][em06][em06][em06] |
|