- 在线时间
- 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(), e) O+ q5 L6 i' O5 ^1 |
Unload Me
# w- y4 p4 m* v, H* v1 S% J; f' u; ^End Sub+ }" G. j, C# Y0 |9 Q$ L
Private Sub cmdOK_Click()2 c# e: C, L) A* d% R0 l- \4 S# i
If Me.User = "111" And Me.Password = "111" Then
# x5 P/ s& C: o# u8 b; _ Call Login
3 p: {. X/ B6 u9 I2 }3 I# I Load FrmCourse* d& u+ f( y" e: P# n! X- }
FrmCourse.Show. A/ r3 O) b( H1 `
FrmCourse.Visible = True2 \ c# q6 v1 ~
Unload Me
+ G7 ^' E# R8 X0 A- e 'FlagOpen = True
6 t4 T4 k# Q. K& x' PElse
2 B; O! Z# C5 @& z* B" G& O MsgBox "用户名或密码输入不正确!") h6 w; ~2 u0 [
'FlagOpen = False
% `2 ~, C" o8 m4 V3 M$ H# `! AEnd If
. e( s$ |7 ^, Q5 D& sEnd Sub</P>< > rivate Sub Form_Load()/ r- I6 B2 A/ @ `/ h
'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 > 80"
& z q3 \8 k& j7 C+ ^Dim strleft, strsingle, strencycoded As String- n' D5 u' G9 k1 T" K9 B h3 _) n- o8 z
Dim intorigine, intencycoded As Integer
% f* n( k5 V2 T6 I! ^: v) E/ t'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE5 b& K2 s2 A# m* n" N. x& X
Open App.Path & "\" & "pwl.txt" For Input As #1/ y$ M+ Y5 O7 j' L) e
Line Input #1, Xorpwl$
( i; F C& a% e. AClose #1) s6 m3 X8 Y' M
pwl = ""( [% @$ q, \9 z M9 N! r
For i = 1 To Len(Xorpwl), _% m( w# ^8 A+ M2 \( V! [
strleft = Left(Xorpwl, i)
/ V- X: v# P% U1 _" m strsingle = Right(strleft, 1)
, {" e, i' r) G0 W* E intorigine = Asc(strsingle)/ U1 C' D2 N. Y; f4 q
intencycoded = intorigine Xor 7
) H9 w I. Q }! }. d m7 s3 @ strencycoded = Chr(intencycoded)
2 s6 B0 U8 I4 ~3 T6 s pwl = pwl + strencycoded
H' T! H, |* c7 kNext7 K- c& F g- k5 w/ x
; n$ J$ Z3 x* j& \' Z0 f
End Sub</P>< > ublic Property Get User() As String
) n; k8 Q- K' U5 hUser = Me.TextUser.Text Y8 H, X) u: J' B
End Property</P>< > ublic Property Let User(ByVal vNewValue As String)) I5 n* K9 o$ f4 g/ F
Me.TextUser.Text = vNewValue4 a. e) F& d N5 {7 S) f1 ?
End Property</P>< > ublic Property Get Password() As Variant
7 @: W1 P( N6 u- V+ l5 XPassword = Me.TextPassword.Text* \- H1 ]- A1 t' ^. m: E ^6 l$ g- e
End Property</P>< > ublic Property Let Password(ByVal vNewValue As Variant)
9 C5 Z6 n" d) PMe.TextPassword.Text = vNewValue
- X; r* v; I9 X' A2 v7 S& ^End Property</P>< > ublic Sub Login()# G( a- v2 D3 Q6 K
MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。" 7 ?3 H8 D0 d5 ]; Q1 U
Me.Hide
- i6 u$ s$ D: j6 W+ I3 @End Sub</P>< >这是login.frm的程序</P>< >制定的数据库就是连不上</P>< >不知道怎么???- `; Y) I' d& \; w3 w7 S- P% g
</P>[em06][em06][em06][em06] |
|