——此文章摘自《Delphi 数据库开发经典案例解析》定价¥特价¥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //当月工资管理 //设置字段的宽度 procedure TmainTabSheetShow(Sender: TObject); begin dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; end; //读取工资的历史纪录 procedure TmainButtonClick(Sender: TObject); //利用SQL 建库时的脚本实现月工资统计表的形成 begin //检查输入的要导入数据的月份和将导入数据的当前月份如果为空则提示重新输入 if (edittext=)or(edittext=) then MessageBox(输入不能为空!错误MB_OK) //检查输入的时间的格式 else if (length(editText)<>)or(length(editText)<>) then MessageBox(输入应如格式!错误MB_OK) else begin //形成当月工资统计表 adocommandCommandText:=exec sf_形成月工资统计表 +editText+ +editText+; adocommandExecute; //刷新数据 adoqueryActive:=false; adoqueryActive:=true; end; end; //计算当月工资 procedure TmainButtonClick(Sender: TObject); begin adocommandCommandText:=exec sf_当月工资统计; adocommandExecute; //刷新数据 adoqueryActive:=false; adoqueryActive:=true; end; right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |