bustradezhyearrepunit.~pas

公交行业的管理系统

                exit;
        end else
        begin
                for iRow:=0 to ADOQuery1.recordcount-1 do
                begin
                        if(ADOQuery1.FieldByName('全年实际').AsString <>'')then
                        begin
                                iExistFlag:=1;
                                break;
                        end;
                        ADOQuery1.Next;
                end;

        end;

        if(iExistFlag=0)then
        begin
                showmessage('对不起，不存在'+combobox1.text+'年行业年报数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end;
        iExistFlag:=0;
        //结束判断行业年报

        sqlstr2:='select 指标代码,本月实际 from 公交行业统计月报_z where 统计年份='
                +combobox1.text+' and 城市代码='+''''+'022'+''''+' and 统计月份=12';
        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add(sqlstr2);
        ADOQuery2.open;

        if(ADOQuery2.RecordCount<=0)then
        begin
                showmessage('对不起，不存在 '+Combobox1.Text+' 年12月份数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end else
        begin
                for iRow:=0 to ADOQuery2.recordcount-1 do
                begin
                        if(ADOQuery2.FieldByName('本月实际').AsString <>'')then
                        begin
                                iExistFlag:=1;
                                break;
                        end;
                        ADOQuery1.Next;
                end;

        end;
        if(iExistFlag=0)then
        begin
                showmessage('对不起，不存在'+combobox1.text+'年12月份行业月报数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end;
        iExistFlag:=0;


        //开始判断是否有行业月报数据
        sqlstr2:='select 指标代码,本月实际 from 公交行业统计月报_z where 统计年份='
                 +Combobox1.text+' and 城市代码='+''''+'022'+''''+' order by 指标代码';
        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add(sqlstr2);
        ADOQuery2.Open;

        if(ADOQuery2.RecordCount<=0)then
        begin
                showmessage('对不起，不存在'+combobox1.text+'年行业月报数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end else
        begin
                for iRow:=0 to ADOQuery2.recordcount-1 do
                begin
                        if(ADOQuery2.FieldByName('本月实际').AsString <>'')then
                        begin
                                iExistFlag:=1;
                                break;
                        end;
                        ADOQuery2.Next;
                end;

        end;

        if(iExistFlag=0)then
        begin
                showmessage('不存在'+combobox1.Text+'年行业月报数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end;
        iExistFlag:=0;
        //结束判断是否有行业月报数据

        //从规模指标表中选数据

        sqlstr3:='select 指标代码,本年实际 from 公交行业城市规模指标表_z where 城市代码='+
                 ''''+'022'+''''+' and 统计年份='+combobox1.text+' order by 指标代码';
        ADOQuery3.Close;
        ADOQuery3.SQL.Clear;
        ADOQuery3.SQL.Add(sqlstr3);
        ADOQuery3.Open;

        if(ADOQuery3.RecordCount<=0)then
                begin
                showmessage('对不起，不存在'+combobox1.text+'年规模数据，无法生成综合年报！');
                BitBtn4.Enabled:=false;
                exit;
        end;
        BitBtn4.enabled:=true;
        showmessage('生成数据比较慢，请您稍等！');
        BitBtn17.Enabled:=false;

        ADOQuery1.First;
        {从行业年报中选出的数据添加到综合年报中}
                for j:=0 to 1 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView1.Items[j].SubItems[2]:='0';
                        end else
                                ListView1.Items[j].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;

                for j:=2 to 11 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView1.Items[j+3].SubItems[2]:='0';
                        end else
                                ListView1.Items[j+3].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;

                for j:=12 to 15 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView1.Items[j+6].SubItems[2]:='0';
                        end else
                                ListView1.Items[j+6].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;


              //添加第二页数据
                for j:=16 to 26 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView2.Items[j-16].SubItems[2]:='0';
                        end else
                                ListView2.Items[j-16].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;

                for j:=27 to 34 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                        ListView2.Items[j-13].SubItems[2]:='0';
                        end else
                                ListView2.Items[j-13].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;


                //添加第三页数据
                for j:=35 to 45 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView3.Items[j-35].SubItems[2]:='0';
                        end else
                                ListView3.Items[j-35].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;

                for j:=46 to 46 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView3.Items[21].SubItems[2]:='0';
                        end else
                                ListView3.Items[21].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').AsString);
                        ADOQuery1.Next;
                end;


                //添加第四页数据
                for j:=47 to 54 do
                begin
                        if (ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView4.Items[j-47].SubItems[2]:='0';
                        end else
                                ListView4.Items[j-47].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;


                //添加第六页数据
                for j:=55 to 64 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView6.Items[j-42].SubItems[2]:='0';
                        end else
                                ListView6.Items[j-42].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;


                //添加第八页数据
                for  j:=65 to 85 do
                begin
                        if(ADOQuery1.Fieldbyname('全年实际').asstring='')then
                        begin
                                ListView8.Items[j-63].SubItems[2]:='0';
                        end else
                                ListView8.Items[j-63].SubItems[2]:=Converter(ADOQuery1.Fieldbyname('全年实际').asstring);
                        ADOQuery1.Next;
                end;



        FillMonDataToList();
        //添加城市规模指标值
        Insertnum3();

        //添加三个特殊数据
        Insertnum1();
        Insertnum2();

        //向数据库公交行业综合年报_z中添加数据
        sqlstr:='select * from 公交行业综合年报_z where  统计年份='+combobox1.text;
        ADOQuery.Close;
        ADOQuery.SQL.Clear;
        ADOQuery.SQL.Add(sqlstr);
        ADOQuery.Open;

        if(ADOQuery.RecordCount<=0)then
        begin
                ADOCommand1.CommandText:='insert into 公交行业综合年报_z (统计年份,指标代码,测算值) select '
                                         +Combobox1.text+','+'指标代码,0 from'
                                         +' 公交行业综合年报指标定义表';
                ADOCommand1.Execute;
        end;
              FillDatatoTable(ListView1);
              FillDatatoTable(ListView2);
              FillDatatoTable(ListView3);
              FillDatatoTable(ListView4);
              FillDatatoTable(ListView5);
              FillDatatoTable(ListView6);
              FillDatatoTable(ListView7);
              FillDatatoTable(ListView8);

              //添加到纵表
              FillDatatoZTable();
              BitBtn17.enabled:=true;

end;

procedure TBusTradeZHYearRepFrm.FillDatatoTable(List:TListView);
var j:integer;
sqlstr:string;
begin

        if(List<>ListView6)or (List<>ListView7) or (List<>ListView8) then
        begin
                for j:=0 to 21 do
                begin
                        ADOCommand1.CommandText:='update 公交行业综合年报_z set 全年实际='
                                                +List.Items[j].Subitems[2]+' where 统计年份='
                                                + combobox1.Text + ' and 指标代码='+''''+List.Items[j].subitems[0]+'''';
                        ADOCommand1.Execute;
                end;
        end else
        begin
                for j:=0 to 22 do
                begin
                        ADOCommand1.CommandText:='update 公交行业综合年报_z set 全年实际='
                                                +List.Items[j].Subitems[2]+' where 统计年份='
                                                + combobox1.Text + ' and 指标代码='+''''+List.Items[j].subitems[0]+'''';
                        ADOCommand1.Execute;
                end;
        end;
end;

procedure TBusTradeZHYearRepFrm.initialcolumn(List:TListView);
var j:integer;
begin

        if(List=ListView1)or(List=ListView2)or (List=ListView3)
            or (List=ListView4) or(List=ListView5)then
        begin
                for j:=0 to 21 do