bustranamebookyunit.pas

公交行业的管理系统

                                ListView1.Items[iRow].SubItems.Add(Converter(ADOQuery1.FieldByName('去年新增').AsString));
                                ListView1.Items[iRow].SubItems.Add(Converter(ADOQuery1.FieldByName('去年减少').AsString));
                                ListView1.Items[iRow].SubItems.Add(Converter(ADOQuery1.FieldByName('去年资本金').AsString));
                        end
                        else
                        begin
                                ListView1.Items[iRow].SubItems[1]:= Converter(ADOQuery1.FieldByName('本年合计').AsString);
                                ListView1.Items[iRow].SubItems[2]:= Converter(ADOQuery1.FieldByName('本年新增').AsString);
                                ListView1.Items[iRow].SubItems[3]:= Converter(ADOQuery1.FieldByName('本年减少').AsString);
                                ListView1.Items[iRow].SubItems[4]:= Converter(ADOQuery1.FieldByName('本年资本金').AsString);
                                ListView1.Items[iRow].SubItems[5]:= Converter(ADOQuery1.FieldByName('去年合计').AsString);
                                ListView1.Items[iRow].SubItems[6]:= Converter(ADOQuery1.FieldByName('去年新增').AsString);
                                ListView1.Items[iRow].SubItems[7]:= Converter(ADOQuery1.FieldByName('去年减少').AsString);
                                ListView1.Items[iRow].SubItems[8]:= Converter(ADOQuery1.FieldByName('去年资本金').AsString);
                        end;
                end
                else if (iRow>=19) and (iRow<=39) then
                begin
                        if ListView2.Items[iRow-19].SubItems.Count<9 then
                        begin
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('本年合计').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('本年新增').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('本年减少').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('本年资本金').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('去年合计').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('去年新增').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('去年减少').AsString));
                                ListView2.Items[iRow-19].SubItems.Add(Converter(ADOQuery1.FieldByName('去年资本金').AsString));
                        end
                        else
                        begin
                                ListView2.Items[iRow-19].SubItems[1]:= Converter(ADOQuery1.FieldByName('本年合计').AsString);
                                ListView2.Items[iRow-19].SubItems[2]:= Converter(ADOQuery1.FieldByName('本年新增').AsString);
                                ListView2.Items[iRow-19].SubItems[3]:= Converter(ADOQuery1.FieldByName('本年减少').AsString);
                                ListView2.Items[iRow-19].SubItems[4]:= Converter(ADOQuery1.FieldByName('本年资本金').AsString);
                                ListView2.Items[iRow-19].SubItems[5]:= Converter(ADOQuery1.FieldByName('去年合计').AsString);
                                ListView2.Items[iRow-19].SubItems[6]:= Converter(ADOQuery1.FieldByName('去年新增').AsString);
                                ListView2.Items[iRow-19].SubItems[7]:= Converter(ADOQuery1.FieldByName('去年减少').AsString);
                                ListView2.Items[iRow-19].SubItems[8]:= Converter(ADOQuery1.FieldByName('去年资本金').AsString);
                        end;
                end
                else if (iRow>=40) and (iRow<=51) then
                begin
                        if ListView3.Items[iRow-40].SubItems.Count<9 then
                        begin
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('本年合计').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('本年新增').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('本年减少').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('本年资本金').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('去年合计').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('去年新增').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('去年减少').AsString));
                                ListView3.Items[iRow-40].SubItems.Add(Converter(ADOQuery1.FieldByName('去年资本金').AsString));
                        end
                        else
                        begin
                                ListView3.Items[iRow-40].SubItems[1]:= Converter(ADOQuery1.FieldByName('本年合计').AsString);
                                ListView3.Items[iRow-40].SubItems[2]:= Converter(ADOQuery1.FieldByName('本年新增').AsString);
                                ListView3.Items[iRow-40].SubItems[3]:= Converter(ADOQuery1.FieldByName('本年减少').AsString);
                                ListView3.Items[iRow-40].SubItems[4]:= Converter(ADOQuery1.FieldByName('本年资本金').AsString);
                                ListView3.Items[iRow-40].SubItems[5]:= Converter(ADOQuery1.FieldByName('去年合计').AsString);
                                ListView3.Items[iRow-40].SubItems[6]:= Converter(ADOQuery1.FieldByName('去年新增').AsString);
                                ListView3.Items[iRow-40].SubItems[7]:= Converter(ADOQuery1.FieldByName('去年减少').AsString);
                                ListView3.Items[iRow-40].SubItems[8]:= Converter(ADOQuery1.FieldByName('去年资本金').AsString);
                        end;
                end;
        end;
        BitBtn2.Enabled:=true;
        iAddFlag:=1;

end;

procedure TBusTraNameBookYFm.BitBtn2Click(Sender: TObject);
var
        iRow:Integer;
        iCol:Integer;
        iRecNum:Integer;
        iYear:String;
begin
        {判断打印机状态}
        if (DeviceDetect=0) then
        begin
                exit;
        end;

        iYear:=ComboBox1.Text;
        {获得填表人等数据}
        if(PrnInfoFrm.ShowModal<>mrOK)then
        begin
                exit;
        end;

        PrintInit(ExtractFilePath(Application.ExeName),'BusTradeNameBookTab');

        iCol:=3;
        for iRecNum := 0 to 51 do
        begin
                if (iRecNum>=0) and (iRecNum<=18) then
                begin
                        iRow:=iRecNum+6;

                        WriteCell(iRow,iCol,ListView1.Items[iRecNum].SubItems[1]);
                        WriteCell(iRow,iCol+1,ListView1.Items[iRecNum].SubItems[2]);
                        WriteCell(iRow,iCol+2,ListView1.Items[iRecNum].SubItems[3]);
                        WriteCell(iRow,iCol+3,ListView1.Items[iRecNum].SubItems[4]);
                        WriteCell(iRow,iCol+4,ListView1.Items[iRecNum].SubItems[5]);
                        WriteCell(iRow,iCol+5,ListView1.Items[iRecNum].SubItems[6]);
                        WriteCell(iRow,iCol+6,ListView1.Items[iRecNum].SubItems[7]);
                        WriteCell(iRow,iCol+7,ListView1.Items[iRecNum].SubItems[8]);
                end
                else if (iRecNum>=19) and (iRecNum<=39) then
                begin
                        iRow:=iRecNum+13;

                        WriteCell(iRow,iCol,ListView2.Items[iRecNum-19].SubItems[1]);
                        WriteCell(iRow,iCol+1,ListView2.Items[iRecNum-19].SubItems[2]);
                        WriteCell(iRow,iCol+2,ListView2.Items[iRecNum-19].SubItems[3]);
                        WriteCell(iRow,iCol+3,ListView2.Items[iRecNum-19].SubItems[4]);
                        WriteCell(iRow,iCol+4,ListView2.Items[iRecNum-19].SubItems[5]);
                        WriteCell(iRow,iCol+5,ListView2.Items[iRecNum-19].SubItems[6]);
                        WriteCell(iRow,iCol+6,ListView2.Items[iRecNum-19].SubItems[7]);
                        WriteCell(iRow,iCol+7,ListView2.Items[iRecNum-19].SubItems[8]);
                end
                else if (iRecNum>=40) and (iRecNum<=51) then
                begin
                        iRow:=iRecNum+19;

                        WriteCell(iRow,iCol,ListView3.Items[iRecNum-40].SubItems[1]);
                        WriteCell(iRow,iCol+1,ListView3.Items[iRecNum-40].SubItems[2]);
                        WriteCell(iRow,iCol+2,ListView3.Items[iRecNum-40].SubItems[3]);
                        WriteCell(iRow,iCol+3,ListView3.Items[iRecNum-40].SubItems[4]);
                        WriteCell(iRow,iCol+4,ListView3.Items[iRecNum-40].SubItems[5]);
                        WriteCell(iRow,iCol+5,ListView3.Items[iRecNum-40].SubItems[6]);
                        WriteCell(iRow,iCol+6,ListView3.Items[iRecNum-40].SubItems[7]);
                        WriteCell(iRow,iCol+7,ListView3.Items[iRecNum-40].SubItems[8]);
                end;
        end;
        {第一页}
        WriteCell(2,1,'汇总单位：'+Edit1.Text);
        WriteCell(2,4,iYear+ ' 年');
        WriteCell(26,1,'统计负责人：' + PrnInfoFrm.StatMainPerson);
        WriteCell(26,6,PrnInfoFrm.StatPerson);
        WriteCell(26,8,'填报日期：' + DateToStr(PrnInfoFrm.StatDate));
        {第二页}
        WriteCell(28,1,'汇总单位：'+Edit1.Text);
        WriteCell(28,4,iYear+ ' 年');
        WriteCell(53,1,'统计负责人：' + PrnInfoFrm.StatMainPerson);
        WriteCell(53,6,PrnInfoFrm.StatPerson);
        WriteCell(53,8,'填报日期：' + DateToStr(PrnInfoFrm.StatDate));
        {第三页}
        WriteCell(55,1,'汇总单位：'+Edit1.Text);
        WriteCell(55,4,iYear+ ' 年');
        WriteCell(79,1,'统计负责人：' + PrnInfoFrm.StatMainPerson);
        WriteCell(79,6,PrnInfoFrm.StatPerson);
        WriteCell(79,8,'填报日期：' + DateToStr(PrnInfoFrm.StatDate));

        PrintExcelShow;
        PrintPreview;
        CloseActiveBook;
end;

procedure TBusTraNameBookYFm.FormCreate(Sender: TObject);
begin
        iAddFlag:=0;
end;

end.