📄 hrunit1.~pas

📁 delphi开发的抄表数据管理系统
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
                if formatdatetime('mm',DataModule1.adoquery3.FieldValues['设备上传时间'])=formatdatetime('mm',DataModule1.adoquery1.FieldValues['设备上传时间']) then
                begin
                    if datamodule1.ADOQuery3.FieldByName('是否导出').AsString='0' then  //未作帐数据可以更新
                    begin
                        sqlstr:='insert into 历史数据表 (设备ID号,注册号,本期指数,停转时间,电池电压,计数轮,定点时间,设备上传时间,设备当前时钟,设备类型,数据来源,问题标记,故障标记,上传模式,人工读数,估收水量,停转开始时间,当前时间,是否导出,备注)';
                        sqlstr:=sqlstr+'values('''+trim(DataModule1.adoquery3.FieldValues['设备ID号'])+''','''+trim(DataModule1.adoquery3.FieldValues['注册号'])+''','+trim(floattostr(DataModule1.adoquery3.FieldValues['本期指数']))+','+trim(DataModule1.adoquery3.FieldValues['停转时间'])+',';
                        sqlstr:=sqlstr+''''+trim(DataModule1.adoquery3.FieldValues['电池电压'])+''','+trim(floattostr(DataModule1.adoquery3.FieldValues['计数轮']))+','''+trim(DataModule1.adoquery3.FieldValues['定点时间'])+''','''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery3.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+''''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery3.FieldValues['设备当前时钟']))+''','''+trim(DataModule1.adoquery3.FieldValues['设备类型'])+''','''+trim(DataModule1.adoquery3.FieldValues['数据来源'])+''','''+trim(DataModule1.adoquery3.FieldValues['问题标记'])+''','''+trim(DataModule1.adoquery3.FieldValues['故障标记'])+''','''+trim(DataModule1.adoquery3.FieldValues['上传模式'])+''','''+trim(DataModule1.adoquery3.FieldValues['人工读数'])+''','''+trim(DataModule1.adoquery3.FieldValues['估收水量'])+''','''+trim(DataModule1.adoquery3.FieldValues['停转开始时间'])+''','''+trim(DataModule1.adoquery3.FieldValues['当前时间'])+''','''+trim(DataModule1.adoquery3.FieldValues['是否导出'])+''','''+trim(DataModule1.adoquery3.FieldValues['备注'])+''')';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.commandtext:=sqlstr;
                        DataModule1.adocommand1.Execute;
                        if (DataModule1.adoquery2.FieldByName('状态').AsString ='107') or (DataModule1.adoquery2.FieldByName('状态').AsString ='108') or (DataModule1.adoquery2.FieldByName('状态').AsString ='109') or (DataModule1.adoquery2.FieldByName('状态').AsString ='110') then
                        begin
                            sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                            sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                            sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数=''0'',估收水量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['估收水量']))+',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                            DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                            DataModule1.adocommand1.CommandText:=sqlstr;
                            DataModule1.adocommand1.Execute;
                        end
                        else if (DataModule1.adoquery2.FieldByName('状态').AsString ='103') then
                        begin
                            sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                            sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                            sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记=''000'',故障标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量=''0'',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                            DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                            DataModule1.adocommand1.CommandText:=sqlstr;
                            DataModule1.adocommand1.Execute;
                        end
                        else if (DataModule1.adoquery2.FieldByName('状态').AsString ='106') or (DataModule1.adoquery2.FieldByName('状态').AsString ='114') then
                        begin
                            sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                            sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                            sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量=''0'',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                            DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                            DataModule1.adocommand1.CommandText:=sqlstr;
                            DataModule1.adocommand1.Execute;
                        end
                        else if (DataModule1.adoquery2.FieldByName('状态').AsString ='111') or (DataModule1.adoquery2.FieldByName('状态').AsString ='000') then
                        begin
                            sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']-datamodule1.ADOQuery3.FieldValues['本期指数']))+',';
                            sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                            sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记=''000'',故障标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量=''0'',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                            DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                            DataModule1.adocommand1.CommandText:=sqlstr;
                            DataModule1.adocommand1.Execute;
                        end
                        else if (DataModule1.adoquery2.FieldByName('状态').AsString ='999') then
                        begin
                            sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['上期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                            sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                            sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['估收水量']))+',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                            DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                            DataModule1.adocommand1.CommandText:=sqlstr;
                            DataModule1.adocommand1.Execute;
                        end;
                    end;
                end
                else
                begin
                    sqlstr:='insert into 历史数据表 (设备ID号,注册号,本期指数,停转时间,电池电压,计数轮,定点时间,设备上传时间,设备当前时钟,设备类型,数据来源,问题标记,故障标记,上传模式,人工读数,估收水量,停转开始时间,当前时间,是否导出,备注)';
                    sqlstr:=sqlstr+'values('''+trim(DataModule1.adoquery3.FieldValues['设备ID号'])+''','''+trim(DataModule1.adoquery3.FieldValues['注册号'])+''','+trim(floattostr(DataModule1.adoquery3.FieldValues['本期指数']))+','+trim(DataModule1.adoquery3.FieldValues['停转时间'])+',';
                    sqlstr:=sqlstr+''''+trim(DataModule1.adoquery3.FieldValues['电池电压'])+''','+trim(floattostr(DataModule1.adoquery3.FieldValues['计数轮']))+','''+trim(DataModule1.adoquery3.FieldValues['定点时间'])+''','''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery3.FieldValues['设备上传时间']))+''',';
                    sqlstr:=sqlstr+''''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery3.FieldValues['设备当前时钟']))+''','''+trim(DataModule1.adoquery3.FieldValues['设备类型'])+''','''+trim(DataModule1.adoquery3.FieldValues['数据来源'])+''','''+trim(DataModule1.adoquery3.FieldValues['问题标记'])+''','''+trim(DataModule1.adoquery3.FieldValues['故障标记'])+''','''+trim(DataModule1.adoquery3.FieldValues['上传模式'])+''','''+trim(DataModule1.adoquery3.FieldValues['人工读数'])+''','''+trim(DataModule1.adoquery3.FieldValues['估收水量'])+''','''+trim(DataModule1.adoquery3.FieldValues['停转开始时间'])+''','''+trim(DataModule1.adoquery3.FieldValues['当前时间'])+''','''+trim(DataModule1.adoquery3.FieldValues['是否导出'])+''','''+trim(DataModule1.adoquery3.FieldValues['备注'])+''')';
                    DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                    DataModule1.adocommand1.commandtext:=sqlstr;
                    DataModule1.adocommand1.Execute;
                    if  (DataModule1.adoquery2.FieldByName('状态').AsString ='107') or (DataModule1.adoquery2.FieldByName('状态').AsString ='108') or (DataModule1.adoquery2.FieldByName('状态').AsString ='109') or (DataModule1.adoquery2.FieldByName('状态').AsString ='110') then
                    begin
                        sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                        sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数=''0'',估收水量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['估收水量']))+',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.CommandText:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='103') then
                    begin
                        sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                        sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记=''000'',故障标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量=''0'',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.CommandText:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='106') or (DataModule1.adoquery2.FieldByName('状态').AsString ='114') then
                    begin
                        sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                        sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量=''0'',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.CommandText:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='111') or (DataModule1.adoquery2.FieldByName('状态').AsString ='000') then
                    begin
                        sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']-datamodule1.ADOQuery3.FieldValues['本期指数']))+',';
                        sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记=''000'',故障标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['估收水量']))+',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.CommandText:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='999') then
                    begin
                        sqlstr:='update 当前数据表 set 设备ID号='''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''',注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',上期指数='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期指数']))+',上期流量='+trim(floattostr(datamodule1.ADOQuery3.FieldValues['本期流量']))+',本期指数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['本期指数']))+',本期流量=''0'',';
                        sqlstr:=sqlstr+'停转时间='+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',电池电压='''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''',计数轮='+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+',定点时间='''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''',设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+'设备当前时钟='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''',设备类型='''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''',数据来源='''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''',问题标记='''+trim(DataModule1.adoquery2.FieldValues['状态'])+''',故障标记=''000'',人工读数='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['人工读数']))+',估收水量='+trim(floattostr(datamodule1.ADOQuery2.FieldValues['估收水量']))+',停转开始时间='''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''',当前时间='''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''',是否导出=''0'',备注=''无备注'' where 注册号='''+trim(DataModule1.adoquery1.FieldValues['注册号'])+'''';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.CommandText:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end;
                end;
            end
            else if DataModule1.adoquery3.FieldValues['设备上传时间'] > DataModule1.adoquery1.FieldValues['设备上传时间'] then
            begin
                DataModule1.adoquery4.Connection :=datamodule1.ADOConnection1;
                DataModule1.adoquery4.SQL.Clear;
                DataModule1.ADOQuery4.Filtered:=false;
                DataModule1.adoquery4.Close;
                DataModule1.adoquery4.SQL.Add('select * from 历史数据表 where 注册号='''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''' and 设备上传时间='''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+'''');
                DataModule1.adoquery4.Prepared;
                DataModule1.adoquery4.open;
                if DataModule1.adoquery4.RecordCount =0 then
                begin
                    if (DataModule1.adoquery2.FieldByName('状态').AsString ='107') or (DataModule1.adoquery2.FieldByName('状态').AsString ='108') or (DataModule1.adoquery2.FieldByName('状态').AsString ='109') or (DataModule1.adoquery2.FieldByName('状态').AsString ='110') then
                    begin
                        sqlstr:='insert into 历史数据表 (设备ID号,注册号,本期指数,停转时间,电池电压,计数轮,定点时间,设备上传时间,设备当前时钟,设备类型,数据来源,问题标记,估收水量,停转开始时间,当前时间)';
                        sqlstr:=sqlstr+'values('''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''','''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',''0'','+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',';
                        sqlstr:=sqlstr+''''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''','+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+','''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''','''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+''''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''','''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''','''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''','''+trim(DataModule1.adoquery2.FieldValues['状态'])+''','''+trim(DataModule1.adoquery2.FieldValues['估收水量'])+''','''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''','''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''')';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.commandtext:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='103') then
                    begin
                        sqlstr:='insert into 历史数据表 (设备ID号,注册号,本期指数,停转时间,电池电压,计数轮,定点时间,设备上传时间,设备当前时钟,设备类型,数据来源,故障标记,人工读数,停转开始时间,当前时间)';
                        sqlstr:=sqlstr+'values('''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''','''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',''0'','+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',';
                        sqlstr:=sqlstr+''''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''','+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+','''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''','''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+''''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''','''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''','''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''','''+trim(DataModule1.adoquery2.FieldValues['状态'])+''','''+trim(DataModule1.adoquery2.FieldValues['人工读数'])+''','''+trim(DataModule1.adoquery2.FieldValues['停转开始时间'])+''','''+trim(DataModule1.adoquery2.FieldValues['当前时间'])+''')';
                        DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                        DataModule1.adocommand1.commandtext:=sqlstr;
                        DataModule1.adocommand1.Execute;
                    end
                    else if (DataModule1.adoquery2.FieldByName('状态').AsString ='106') or (DataModule1.adoquery2.FieldByName('状态').AsString ='114') then
                    begin
                        sqlstr:='insert into 历史数据表 (设备ID号,注册号,本期指数,停转时间,电池电压,计数轮,定点时间,设备上传时间,设备当前时钟,设备类型,数据来源,问题标记,人工读数,停转开始时间,当前时间)';
                        sqlstr:=sqlstr+'values('''+trim(DataModule1.adoquery2.FieldValues['设备ID号'])+''','''+trim(DataModule1.adoquery2.FieldValues['注册号'])+''',''0'','+trim(DataModule1.adoquery2.FieldValues['停转时间'])+',';
                        sqlstr:=sqlstr+''''+trim(DataModule1.adoquery2.FieldValues['电池电压'])+''','+trim(floattostr(DataModule1.adoquery2.FieldValues['计数轮']))+','''+trim(DataModule1.adoquery2.FieldValues['定点时间'])+''','''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备上传时间']))+''',';
                        sqlstr:=sqlstr+''''+trim(formatdatetime('yyyy-mm-dd hh:nn:ss',DataModule1.adoquery2.FieldValues['设备当前时钟']))+''','''+trim(DataModule1.adoquery2.FieldValues['设备类型'])+''','''+trim(DataModule1.adoquery2.FieldValues['数据来源'])+''','''+
上一页 1 2 3 45
💿 文件大小 852 K
👤 上传用户 Jonson_zhu
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#delphi #抄表 #数据管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -