刚接一外单,小程序,做一个类人事资源管理的东东,将在这里随时报告情况,谢谢各位来UP。钱不多,只有2K,而且还不知道什么时候才能要得到。整系统就一个主表30左右个字段,8个LookUp表。要求实现新增,修改,查询,打印功能。准备使用 Dev Express 组件和 Fast Report 2.5 。用 Delphi 7正在学习怎么用 cxGrid,Dev 的东西有 Demo 就是爽呀!
刚接一外单,小程序,做一个类人事资源管理的东东,将在这里随时报告情况,谢谢各位来UP。钱不多,只有2K,而且还不知道什么时候才能要得到。整系统就一个主表30左右个字段,8个LookUp表。要求实现新增,修改,查询,打印功能。准备使用 Dev Express 组件和 Fast Report 2.5 。用 Delphi 7正在学习怎么用 cxGrid,Dev 的东西有 Demo 就是爽呀!
var
NavDs:TDataSource;
begin
NavDs:=TDataSource.Create(Self);
// ShowMessage(IntToStr(cxPageControl1.ActivePageIndex));
case PageControl1.ActivePageIndex of
0 :NavDs:=DM.DSfq;
1 :NavDs:=DM.DSxb;
2 :NavDs:=DM.DSmz;
3 :NavDs:=DM.DSwhcd;
4 :NavDs:=DM.DSzzmm;
5 :NavDs:=DM.DShkxz;
6 :NavDs:=DM.DShyzk;
7 :NavDs:=DM.DSylfxz;
8 :NavDs:=DM.DScjlb;
9 :NavDs:=DM.DSdj;
10:NavDs:=DM.DSzcyy;
11:NavDs:=DM.DScjbw;
12:NavDs:=DM.DSyhzc;
13:NavDs:=DM.DSyw;
14:NavDs:=DM.DScyxz;
15:NavDs:=DM.DSfdjhr;
16:NavDs:=DM.DScjzqj;
17:NavDs:=DM.DScjzhz;
18:NavDs:=DM.DSrygx;
19:NavDs:=DM.DSstzk;
end;
DBNavigator1.DataSource:=NavDs;PageControl 有20页,够恐怖吧,不过这个还不够,还有一些东西没加进来,下次换个窗体放那些Page了。省得太多了找不到。
睡觉去了,明天起来接着干,(其实应该说今天起来接着干)。:-)
打印也写好了,两种方式,一种套打,一种不套打,管他呢,全做了让他自己挑。
图片放在数据库的 Ole 里面,很方便呀,只不过数据库一下子大了很多。
1.先建立一个TMemoryStream
2.将图片保存到这个Stream中,TJPGImage.SaveToStream();
3.用Blob字段的LoadFromStream方法将图片保存到字段中从数据库中读取图片的方法刚好与之相反。呵呵,这样的问题应该很好解决啊,怎么还有这么多问
如,表中一个内容为某亲属的年龄,他宁愿用 edit ,填上一个 24,等如果到了2008年的时候,他拿 2008-2004+24来算年龄,而不是 Date 表示4.表中一处为死亡时间,他们宁愿用 edit ,写上一个 2004年,也不愿意用 data,因为 date要求完整日期,连月和日都要,客户说我只知道是 2004 年,我表中没填月和日,也没人填。5.因为1,当初没有正确估算数据量,使用 Access 做后台,所以,日后如果数据一多,系统运行将十分缓慢(有Dev Express的功劳)。