?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -