delphi7+MSSQL
我有表table1(人事资料表,包括字段:id,bm.jbgz),在form1上放dbcombo1用来输入ID,dbcombox2用来输入部门,dbedit1用来输入基本工资,当在dbcombox1里输入工号,系统检查table1里有无此工号,若有,在dbcombox2和edit1显示对应的部门和基本工资,若无,提示是新的工号,然后分别在dbconbox2和edit1里手动输入新的部门和基本工资.
同样在form1上放置的dbedit2...dbeditn分别对应于table2(相关字段包括:年,月,id,bm,jbgz,加班时间,加班费,总计,扣税,奖罚,实发)不同时段的加班时间、加班费、总计,扣税,奖罚,实发,且当输入加班时间就自动算出相应的加班费,以及总计,扣税,奖罚,实发,最后当光标跳出dbeditn(实发),这笔工资资料就存到table2,
TKS!!!
我有表table1(人事资料表,包括字段:id,bm.jbgz),在form1上放dbcombo1用来输入ID,dbcombox2用来输入部门,dbedit1用来输入基本工资,当在dbcombox1里输入工号,系统检查table1里有无此工号,若有,在dbcombox2和edit1显示对应的部门和基本工资,若无,提示是新的工号,然后分别在dbconbox2和edit1里手动输入新的部门和基本工资.
同样在form1上放置的dbedit2...dbeditn分别对应于table2(相关字段包括:年,月,id,bm,jbgz,加班时间,加班费,总计,扣税,奖罚,实发)不同时段的加班时间、加班费、总计,扣税,奖罚,实发,且当输入加班时间就自动算出相应的加班费,以及总计,扣税,奖罚,实发,最后当光标跳出dbeditn(实发),这笔工资资料就存到table2,
TKS!!!
解决方案 »
- delphi连接数据库出错
- delphi 数据下载
- 请问为什么读出的纪录带空格
- 关于如何使DELPHI窗口永远成为当前窗口!!!急急急!!!
- taideveloper(孔丙已) 或 happyzsl(学习) 请教一下!
- 我想实现类似于DBNavigator的功能,请问我该如何根据数据集的状态来控制button的enable状态呢?!!!!!
- 求救,谁会制作帮助文件,
- 请问600元的usb2.0/1394一体pci卡贵不贵?
- hi
- 在用Paradox数据库时,如何生成 .MB文件?
- 用delphi怎样实现即时抓取视频(realplay 、window media play正在播放视频)?
- DBchart控件问题 急急急!!在线等
id:string;
begin
id:=dbcombo1.text;
if ADOTable1.Locate("id",id,[]) then
begin
DBcombox2.text:=ADOTable1.FieldByName(bm).asstring;
DBedit1.text:=FloatToString(ADOtABLE1.FieldByName(jbgz).asfloat)
else
MessageBox("这是一个新工号,请手输入部门和基本工资","提示信息",MB_OK OR MB_ICONERROR);
end;
end;
试试。我没测试