公开我写的三层程序——网络考试系统源码 ( 积分: 100 )

网络考试，应该今后一些考试要向这方面发展，比如四六级的口语（学习托福)，楼主如果把软件做得成熟一点，占领市场，呵呵，最好到教育部考试中心推一推，要是成了，可就发了，全国上千个考点，...

感谢楼主，我下载了。。

收起来吧！

Ttkglserver = class(TRemoteDataModule, Itkglserver)
qry1: TADOQuery;
qry2: TADOQuery;
qry3: TADOQuery;
qry4: TADOQuery;
qry5: TADOQuery;
qry6: TADOQuery;
qry7: TADOQuery;
qry8: TADOQuery;
qry9: TADOQuery;
qry10: TADOQuery;
qry11: TADOQuery;
qry12: TADOQuery;
qry13: TADOQuery;
qry14: TADOQuery;
qry15: TADOQuery;
qry16: TADOQuery;
dsp1: TDataSetProvider;
dsp2: TDataSetProvider;
dsp3: TDataSetProvider;
dsp4: TDataSetProvider;
dsp5: TDataSetProvider;
dsp6: TDataSetProvider;
dsp7: TDataSetProvider;
dsp8: TDataSetProvider;
dsp9: TDataSetProvider;
dsp10: TDataSetProvider;
dsp11: TDataSetProvider;
dsp12: TDataSetProvider;
dsp13: TDataSetProvider;
dsp14: TDataSetProvider;
cds: TClientDataSet;
CDS1: TClientDataSet;
procedure addksmd(tkbh: Integer;
ksbh: Integer;
const zkzh: WideString;
const xm: WideString;
xb: Integer;
const sfzh: WideString;
const lxfs: WideString;const lxdz: WideString;
var err: OleVariant);
safecall;
//添加考生
procedure adddfjl(tkbh: Integer;
sjbh: Integer;
const dfjl: WideString;
qsfw: Integer;
jzfw: Integer;
var err: OleVariant);
safecall;
//添加得分结论
procedure RemoteDataModuleCreate(Sender: TObject);
procedure RemoteDataModuleDestroy(Sender: TObject);
procedure getdata(const sSQL: WideString;
var vData: OleVariant);
safecall;//获取数据
procedure ExecSqls(const sSql: WideString);
safecall;
//执行SQL
procedure chkusr(const usrid: WideString;
const usrpwd: WideString;
var usrrgts: OleVariant);
safecall;//检查用户
procedure isreged(const usrid: WideString;
var betrue: OleVariant);
safecall;
//检查用户登录名称是否注册
procedure addtree(tkbh: Integer;
const parentid: WideString;
const nodetext: WideString;
var isok: OleVariant);
safecall;
procedure addlib(const dlmc:WideString;tklx:Integer;const tkmc:WideString;var tkbh:OleVariant;var err:OleVariant);safecall;
procedure addst(df1: Integer;
df2: Integer;
df3: Integer;
df4: Integer;var stnr: OleVariant;
var err: OleVariant);
safecall;//添加、修改试题
procedure scst(tkbh: Integer;
stbh: Integer;
var err: OleVariant);
safecall;//删除试题
------------------------
这真是你写的吗?怕是哪个冒牌你！

to 13708782004：
不是我写的，难道是你写的不成！[!]

qry1: TADOQuery;
qry2: TADOQuery;
qry3: TADOQuery;
qry4: TADOQuery;
………………
这是里面的源代码？
变量定义成这样，汗。
而且好象编码风格不是很统一，不是特别喜欢。
我觉得好的编码风格这是作为程序员的最基本素质。

呵呵，终于明白13708782004是什么人了！不就是前天晚上让我测试你的所谓的什么“榨尽最后一滴血”的软件嘛！我没空，对此也不感兴趣！
天地之间自有一杆秤，称别人的时候，也是在称自己啊！

To zbird
非常同意你的观点，编码风格都不好，算什么合格的程序员呢？

zbird说的很对，作为一个程序员，应该具备一定的编码风格。

to lsh1982
这是一个免费的源码，注重的是功能的实现，变量的不规范
是荷塘新月的一时手懒，你写个试验性的demo还给label和button起名吗？

to:荷塘新月 不好意思，我也是一时性急！对不起了！让人左找又找的东西，公然和我期望中相嫌太多了！所以过急了！望包涵！

雷锋，雷锋，又见雷锋！
雷是雷锋的雷，锋是雷锋的锋！
[]

谁有编程风格比较好的源码，偶想学习借鉴一下。
htxy99@yahoo.com

谢谢了，我以后要学ASP.net编程，我想这个三层程序源码一定会对我有帮助的

不错，谢谢了

我自认为写得还算规范。
----
我的程序不想维护了，且改用java了，代码公布算了。
是去年学习设计模式及OOP写的，有点严重的过度设计。[]
如果要的话发给你好了。

谢谢 zbird大侠！
我的邮箱：htxy99@yahoo.com

谢谢，我也需要，请给一份：
yinxu_china@hotmail.com

谢谢，我也需要，请给一份：
jsj0088@163.com

zbird大侠:
能给我一份吗,学习
machcat@126.com 谢谢!