| 1986527
41018
|
2010/9/27 15:28:14 |
| 新手报到 也想写个简单的数据库登录程序 |
| zhuruinan
37862
|
2009/7/3 10:48:46 |
| 呵呵，蜗牛哥呀~~加油，往深处发展，你挺不错的，同校。难得都喜欢小D |
| ygq01
36410
|
2008/12/17 16:19:09 |
| 下载了下，还没看代码 首先为你的精神赞一个，相信你以后会写出更好的东西 |
| wzqzc2003
36323
|
2008/12/9 15:32:18 |
| 请问如何知道数据库的结构 |
| gary9912
36270
|
2008/12/1 16:40:59 |
| 写得不怎么样,不过新手看看吧 |
| friendzhou1989
36235
|
2008/11/26 9:46:48 |
| 不错啊，我支持你啊，加油啊。 |
| guester
36192
|
2008/11/18 21:53:48 |
| 谢谢各位的支持... |
| kwer
36191
|
2008/11/18 13:50:43 |
grjs_2004 35988 2008-10-30 16:45:09
沒有什麼新的東西，覺得就是小孩子玩藝！
----------
我新收的小弟看后说写得还不错。。。 |
| wdsh643
36091
|
2008/11/7 18:02:36 |
| 鼓励了，将来会写出更好的代码。做为初学者可以借鉴。真的有好多地方需要改进。总之，支持你！ |
| guester
36017
|
2008/11/2 18:02:53 |
| 大大支持开源精神......呵呵 |
| ljzhen
36014
|
2008/11/2 10:27:45 |
| 你很有才，加倍努力哦 ！ |
| slwj
35996
|
2008/10/31 13:52:05 |
【沒有什麼新的東西，覺得就是小孩子玩藝！】
呵呵，暂时没看到你们的什么东西，您也传个上来玩玩？！！
什么玩意！！！ |
| killwolf
35992
|
2008/10/30 23:24:09 |
| 鼓励一下，做得还是蛮不错的,继续努力！ |
| grjs_2004
35988
|
2008/10/30 16:45:09 |
| 沒有什麼新的東西，覺得就是小孩子玩藝！ |
| guester
35986
|
2008/10/30 14:49:22 |
| 嗯。没有用第三方控件。也没有用皮肤。刚开始登陆框是PS的图片。作了点DELPHI的边框处理，所以有了点效果。还有BUTTON上面也是两个图片，用了透明的BUTTON。呵呵， |
| harwk
35985
|
2008/10/30 11:13:16 |
| 真了没有用三方控件？那么皮肤是哪里来的 |
| bsense
35982
|
2008/10/30 10:00:51 |
| 很惊讶,能写出这么好的代码~~~~~~~~~~ |
| guester
35980
|
2008/10/30 9:43:21 |
| 是很多地方需要改正的。呵呵 |
| inbreak
35972
|
2008/10/29 23:16:02 |
虽然用记事本打开 unit1 和 unit2.pas 看了看。
楼主的代码输写能力及方法，还有待提高呀。
procedure Tfrm_main.N17Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系统吗？','海软大学生宿舍管理系统',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;
就光这个代码就写了三遍。
其实，你完全可以将 其它两个按钮的 onclick 指向 N17Click 即可。
那其它两个按钮的根本就没有写。
如果不明白再 举个例子补充一下：
object N7: TMenuItem
Caption = #23398#29983#31163#26657#22788#29702
OnClick = N7Click
end
对象N7 的 OnClick 执行的是 N7Click
object N6: TMenuItem
Caption = #22522#26412#20449#24687#24405#20837
OnClick = N6Click
end
对象 N6 的 OnClick 执行的是 N6Click.
此时你只需要就 对象 N6 的 OnClick 的执行改为 N7Click
就可以达到 点击 N6 与 N7 执行相同的代码了。
同理，返回原来的话题。。
那么你的那个 退出确定 提示，是不是不需要写三次了呢？？？、、、
还有，你的用户名与密码比较，个人建议你这样写。。
if trim(edit1.text)='' then begin
showmesage('用户名不能为空');
exit;
end;
if trim(edit2.text)='' then begin
showmesage('密码不能为空');
exit;
end;
还有你的登录密码方式，很容易被绕过的，有时常识的都知道。
用户名： ' or 0=0 密码 ' or 0=0 （当然，具体没有试，不过应该就差不多了，这个是很经典的破解方式。）
就可以跳了登录检测了。。
用这种方法，比你用 if then else if then else 要清晰很多。。。
＝＝＝＝＝＝＝＝＝＝
呵，不好意思，一点愚见。 |
