buscityjlrepunit.pas

公交行业的管理系统

        numstr:=floattostr(strtofloat(numstr2)/strtofloat(numstr1)*10000);
        ListView1.items[9].subitems[2]:=ConverterPercent(numstr);

        //添加JG11
        numstr1:=ListView1.items[6].subitems[2];
        numstr:=floattostr(strtofloat(numstr1)/strtofloat(numstr2)*10000);
        ListView1.items[10].subitems[2]:=ConverterPercent(numstr);

        //添加JG12
        numstr1:=ListView1.items[15].subitems[2];
        numstr:=floattostr(strtofloat(numstr1)/strtofloat(numstr2));
        ListView1.items[11].subitems[2]:=ConverterPercent(numstr);

        //添加JG13
        numstr1:=ListView1.items[22].subitems[6];
        numstr:=floattostr(strtofloat(numstr1)/strtofloat(numstr2));
        ListView1.items[12].subitems[2]:=ConverterPercent(numstr);

end;}

procedure TBusCityJLRepFrm.BitBtn4Click(Sender: TObject);
var sqlstr:string;
j:integer;
begin
        if(combobox1.Text='')then
        begin
                showmessage('请选择年份！');
                initialcolumn(ListView1);
                exit;
        end;

        sqlstr:='select 指标代码,本年实际 from 公交行业城市交流指标表_z where 城市代码='
                +''''+'022'+''''+' and 统计年份='+combobox1.Text;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlstr);
        ADOQuery1.Open;

        if(ADOQuery1.RecordCount<=0)then
        begin
                showmessage('对不起，不存在'+combobox1.text+'年城市交流数据！');
                BitBtn2.Enabled:=false;
                initialcolumn(ListView1);
                exit;
        end;
        BitBtn2.Enabled:=true;
        //添加数据
        initialcolumn(ListView1);
        BitBtn2.Enabled:=true;
        ADOQuery1.First;
        
        for j:=0 to ADOQuery1.recordcount-1 do
        begin
                if(j>=1)and(j<=7)then
                        ListView1.Items[j].SubItems[2]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                if(j>=9)and(j<=13)then
                        ListView1.Items[j].SubItems[2]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                if(j>=15)and(j<=24)then
                        ListView1.Items[j].SubItems[2]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                if(j>=25)and(j<=30)then
                        ListView1.Items[j-25].SubItems[6]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                if(j>=32)and(j<=45)then
                        ListView1.Items[j-25].SubItems[6]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                if(j>=47)and(j<=48)then
                        ListView1.Items[j-25].SubItems[6]:=converter(ADOQuery1.fieldbyname('本年实际').AsString);
                ADOQuery1.Next;
        end;
end;

procedure TBusCityJLRepFrm.initialcolumn(List:TListView);
var j:integer;
begin
        for j:=0 to 24 do
        begin
                if List.Items[j].SubItems.Count<7 then
                begin
                        List.Items[j].SubItems.Add(' ');
                end else
                begin
                        List.Items[j].SubItems[2]:='';
                        List.Items[j].subItems[6]:='';
                end;
        end;

end;

procedure TBusCityJLRepFrm.FillDatatoTable();
var sqlstr,sqlstr1,sqlstr2:string;
i,j:integer;
begin
        sqlstr:='insert into 公交行业城市交流指标表_z (城市代码,统计年份,指标代码) select '
                +''''+'022'+''''+','+ ComboBox1.text+','+ ' 指标代码 from'
                +' 公交行业城市交流指标定义表';
        ADOCommand1.CommandText:=sqlstr;
        ADOCommand1.Execute;
        
        for j:=1 to 7 do
        begin
                sqlstr1:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[j].Subitems[2]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[j].subitems[0]+'''';
                ADOCommand1.CommandText:=sqlstr1;
                ADOCommand1.Execute;
        end;
        for j:=9 to 13 do
        begin
                sqlstr1:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[j].Subitems[2]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[j].subitems[0]+'''';
                ADOCommand1.CommandText:=sqlstr1;
                ADOCommand1.Execute;
        end;
        for j:=15 to 24 do
        begin
                sqlstr1:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[j].Subitems[2]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[j].subitems[0]+'''';
                ADOCommand1.CommandText:=sqlstr1;
                ADOCommand1.Execute;
        end;
        for i:=0 to 5 do
        begin
                sqlstr2:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[i].Subitems[6]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[i].subitems[4]+'''';

                ADOCommand2.CommandText:=sqlstr2;
                ADOCommand2.Execute;
        end;
        for i:=7 to 20 do
        begin
                sqlstr2:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[i].Subitems[6]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[i].subitems[4]+'''';

                ADOCommand2.CommandText:=sqlstr2;
                ADOCommand2.Execute;
        end;
        for i:=22 to 23 do
        begin
                sqlstr2:='update 公交行业城市交流指标表_z set 本年实际='
                        +ListView1.Items[i].Subitems[6]+' where 城市代码='+''''+'022'
                        +''''+ ' and 统计年份='+ combobox1.Text + ' and 指标代码='
                        +''''+ListView1.Items[i].subitems[4]+'''';

                ADOCommand2.CommandText:=sqlstr2;
                ADOCommand2.Execute;
        end;

end;

procedure TBusCityJLRepFrm.ToZTable();
var i:integer;
begin

        ADOQuery1.close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select * from 公交行业城市交流指标表 where 城市代码='+
                          ''''+'022'+''''+' and 统计年份='+ComboBox1.Text);
        ADOQuery1.Open;

        if(ADOQuery1.RecordCount<=0)then
        ADOQuery1.Append else
        ADOQuery1.Edit;
        ADOQuery1.FieldByName('统计年份').Asfloat:=strtoint(combobox1.text);
        ADOQuery1.FieldByName('城市代码').AsString:='022';
        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select * from 公交行业城市交流指标表_z where 城市代码='
                +''''+'022'+''''+' and 统计年份='+combobox1.Text);
        ADOQuery2.Open;

        ADOQuery2.First;
        while not ADOQuery2.Eof do
        begin
                for i:=0 to ADOQuery1.FieldCount-1 do
                begin
                        if(ADOQuery1.Fields[i].FieldName<>'统计年份')then
                        begin
                                if(ADOQuery2.FieldByName('指标代码').AsString=ADOQuery1.Fields[i].FieldName)then
                                ADOQuery1.Fields[i].Value:=ADOQuery2.FieldByName('本年实际').Value;
                        end;
                end;
                ADOQuery2.Next;
        end;
        ADOQuery1.Post;
end;

procedure TBusCityJLRepFrm.BitBtn3Click(Sender: TObject);
begin
        BusCityJLRepFrm.Close;
end;

procedure TBusCityJLRepFrm.ClearZero();
var i:integer;
begin
        for i:=0 to 24 do
        begin
                if(ListView1.items[i].subitems[2]='')then
                        ListView1.items[i].subitems[2]:='0';
        end;

        for i:=0 to 23 do
        begin
                if(ListView1.items[i].subitems[6]='')then
                        ListView1.items[i].subitems[6]:='0';
        end;

        ListView1.items[0].subitems[2]:='';
        ListView1.items[8].subitems[2]:='';
        ListView1.items[14].subitems[2]:='';
        ListView1.items[6].subitems[6]:='';
        ListView1.items[21].subitems[6]:='';

end;

end.