Delphi中_计算字段过程.docx

下载文档

18
0
约1.7千字
约 4页
2017-12-19 发布于河南
举报
版权申诉
保障服务

Delphi中_计算字段过程.docx

1、本文档共4页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

Delphi中_计算字段过程

我的DELPHI表字段计算操作步骤放置控件： DBGrid1，DataSource1，Query_TSimpleData连接方式：DBGrid1 连接 DataSource1DataSource1 连接 Query_TSimpleDataQuery_TSimpleData 连接数据库连接数据库SQL语句运行如图：Query 字段的添加给计算字段赋值：procedure TSeatStatisticsForm.DBGrid_QueryCalcFields(DataSet: TDataSet);var temp1,temp2,temp3,temp4:String; itime1, itime2: extended; count1,count2: integer;begin Query1.Connection:= DBModule1.SQLConnection1; Query1.Close; Query1.DataSet.CommandText:=Select BRANCH,MACHINE,SEAT_DESC,COUNT(QUE_DATE)as Cunt, +cast(sum(EVAL)/(count(QUE_NO))as decimal(9,2))as AVG_EVAL from QUEUE + where +SqlSubstring(QUE_DATE,1, 10)+=+FormatDateTime(yyyy-MM-dd,DateTimePicker1.DateTime) + and +SqlSubstring(QUE_DATE,1, 10)+=+FormatDateTime(yyyy-MM-dd,DateTimePicker2.DateTime)+ +temp1+temp2+temp3+group by BRANCH,MACHINE,SEAT_DESC; Query1.Open; itime1:= 0; count1:= 0; count2:= 0; while not Query1.Eof do begin if Query1.FieldByName(BEGIN_TIME).AsString then begin itime1 := itime1+(strtotime(Query1.FieldByName(BEGIN_TIME).AsString) -strtotime(Query1.FieldByName(QUE_TIME).AsString))*24*60; inc(count1); end; if Query1.FieldByName(END_TIME).AsString then begin if Query1.FieldByName(END_TIME).AsStringQuery1.FieldByName(BEGIN_TIME).AsString thenitime2 := itime2+(strtotime(Query1.FieldByName(END_TIME).AsString) -strtotime(Query1.FieldByName(BEGIN_TIME).AsString))*24*60 else itime2 := itime2+0; inc(count2); end; Query1.Next; end; if count10 then begin Query1.FieldByName(Wait_Time).AsString := formatCurr(0,(itime1/count1)); end; if count20 then begin Query1.FieldByName(Work_Time).AsString := formatCurr(0,(itime2/count2)); end; Query1.Close; //Query1.Destroy;end;