1 procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject); 2 var wordApp,WordDoc,WrdSelection:variant; 3 strAdd:string; 4 i,j,iRangeEnd,iStart,iEnd : integer; 5 wdPar,wdRange:OleVariant; 6 oShape, oChart,myCol: OleVariant; 7 SumJHTonCount, SumWCTonCount, PJTS, PJZCSJ, YSSR, DuoJing: Currency; 8 SumJHCarCount, SumWCCarCount: Integer; 9 SumDJ,SumFDJ: Currency;//多经 非多经汇总 10 begin 11 wordApp := CreateOleObject('Word.Application'); 12 wordApp.Visible := true; 13 wordDoc:=WordApp.Documents.Add(); 14 wordDoc.select; 15 wrdSelection := WordApp.selection; 16 strAdd:='%s年第%d周战略装车点生产经营分析'; 17 strAdd:= Format(strAdd, [FormatDateTime('YYYY', Date), WeekofYear(Date)]); 18 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; 19 wrdSelection.Font.bold := true; 20 wrdSelection.Font.Size := 15; 21 //wrdSelection.Font.UnderLine := 1; 下划线 22 wrdSelection.TypeText(strAdd); 23 wordApp.selection.TypeParagraph;//换行 24 wrdSelection.Font.bold := false; 25 wrdSelection.Font.Size := 10; 26 wrdSelection.Font.bold := false; 27 wrdSelection.TypeText(FormatDateTime('MM月DD日', DateBegin.Date)+'-'+FormatDateTime('MM月DD日', DateEnd.Date)); 28 wordApp.selection.TypeParagraph;//换行 29 wrdSelection.TypeText('西安铁路局货运处'); 30 wordApp.selection.TypeParagraph;//换行 31 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft; 32 wrdSelection.Font.bold := true; 33 wrdSelection.TypeText('1、战略装车点主要运营指标完成情况：'); 34 //从新设置字体 35 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft; 36 wrdSelection.Font.bold := false; 37 wrdSelection.Font.Size := 10; 38 wrdSelection.Font.UnderLine := 0; 39 wdPar:=WordApp.ActiveDocument.Paragraphs.Add; 40 wdRange:=wdPar.Range; 41 wdRange := wordApp.ActiveDocument.Content; 42 wdRange.Collapse(wdCollapseEnd); 43 wordDoc.Tables.Add(wdRange,cdsMain.RecordCount+ 2,11); 44 //合并单元格不成功 45 {iStart:=WordDoc.Tables.Item(1).Cell(1,1).Range.Start; 46 //myCol:= WordDoc.Tables.Item(1).Cell(1,2); 47 //myCol:= WordDoc.Tables.Item(1).Columns.Item(2); 48 //iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End; 49 //iEnd:= WordDoc.Tables.Item(1).Cell(2,1).Range.Start; 50 iEnd:= iStart+ 1; 51 wdRange:=WordDoc.Range; 52 wdRange.Start:=iStart; 53 wdRange.End :=iEnd; 54 wdRange.Cells.Merge; } 55 //插入数据 56 wordDoc.Tables.Item(1).Cell(1,1).Range.Text:= '序号'; 57 wordDoc.Tables.Item(1).Cell(1,2).Range.Text:= '车站'; 58 wordDoc.Tables.Item(1).Cell(1,3).Range.Text:= '品类'; 59 wordDoc.Tables.Item(1).Cell(1,4).Range.Text:= '周计划车数'; 60 wordDoc.Tables.Item(1).Cell(1,5).Range.Text:= '周计划万吨'; 61 wordDoc.Tables.Item(1).Cell(1,6).Range.Text:= '周完成车数'; 62 wordDoc.Tables.Item(1).Cell(1,7).Range.Text:= '周完成万吨'; 63 wordDoc.Tables.Item(1).Cell(1,8).Range.Text:= '平均停时(小时)'; 64 wordDoc.Tables.Item(1).Cell(1,9).Range.Text:= '平均装车时间(小时)'; 65 wordDoc.Tables.Item(1).Cell(1,10).Range.Text:= '运输收入(万元)'; 66 wordDoc.Tables.Item(1).Cell(1,11).Range.Text:= '多经毛利测算(万元)'; 67 cdsMain.First; 68 SumJHTonCount:= 0; 69 SumWCTonCount:= 0; 70 PJTS:= 0; 71 PJZCSJ:= 0; 72 YSSR:= 0; 73 SumJHCarCount:= 0; 74 SumWCCarCount:= 0; 75 DuoJing:= 0; 76 for i:= 2 to cdsMain.RecordCount+ 1 do 77 begin 78 wordDoc.Tables.Item(1).Cell(i,1).Range.Text:= cdsMain.FieldByName('ROWNUM').AsString; 79 wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= cdsMain.FieldByName('UPNAME').AsString; 80 wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= cdsMain.FieldByName('PLNAME').AsString; 81 wordDoc.Tables.Item(1).Cell(i,4).Range.Text:= cdsMain.FieldByName('PLANCARCOUNT').AsString; 82 wordDoc.Tables.Item(1).Cell(i,5).Range.Text:= cdsMain.FieldByName('PLANTONCOUNT').AsString; 83 wordDoc.Tables.Item(1).Cell(i,6).Range.Text:= cdsMain.FieldByName('CARCOUNT').AsString; 84 wordDoc.Tables.Item(1).Cell(i,7).Range.Text:= cdsMain.FieldByName('TONCOUNT').AsString; 85 wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= cdsMain.FieldByName('AVGSTOP').AsString; 86 wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= cdsMain.FieldByName('AVGLOAD').AsString; 87 wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= cdsMain.FieldByName('TRANSINCOME').AsString; 88 wordDoc.Tables.Item(1).Cell(i,11).Range.Text:= cdsMain.FieldByName('DUOJING').AsString; 89 SumJHTonCount:= SumJHTonCount+ cdsMain.FieldByName('PLANTONCOUNT').AsCurrency; 90 SumWCTonCount:= SumWCTonCount+ cdsMain.FieldByName('TONCOUNT').AsCurrency; 91 PJTS:= PJTS+ cdsMain.FieldByName('AVGSTOP').AsCurrency; 92 PJZCSJ:= PJZCSJ+ cdsMain.FieldByName('AVGLOAD').AsCurrency; 93 YSSR:= YSSR+ cdsMain.FieldByName('TRANSINCOME').AsCurrency; 94 SumJHCarCount:= SumJHCarCount+ cdsMain.FieldByName('PLANCARCOUNT').AsInteger; 95 SumWCCarCount:= SumWCCarCount+ cdsMain.FieldByName('CARCOUNT').AsInteger; 96 DuoJing:= DuoJing+ cdsMain.FieldByName('DUOJING').AsCurrency; 97 cdsMain.Next; 98 end; 99 Inc(i); 100 wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= '合计'; 101 wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= ''; 102 wordDoc.Tables.Item(1).Cell(i,4).Range.Text:= IntToStr(SumJHCarCount); 103 wordDoc.Tables.Item(1).Cell(i,5).Range.Text:= CurrToStr(SumJHTonCount); 104 wordDoc.Tables.Item(1).Cell(i,6).Range.Text:= IntToStr(SumWCCarCount); 105 wordDoc.Tables.Item(1).Cell(i,7).Range.Text:= CurrToStr(SumWCTonCount); 106 if cdsMain.RecordCount> 0 then 107 begin 108 wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= CurrToStr(PJTS/ cdsMain.RecordCount); 109 wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= CurrToStr(PJZCSJ/ cdsMain.RecordCount); 110 end; 111 wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= CurrToStr(YSSR); 112 wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= CurrToStr(DuoJing); 113 114 wordApp.Selection.EndKey(wdStory,EmptyParam); 115 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 116 wdRange := wordApp.activeDocument.Content; 117 wdRange.Collapse(wdCollapseEnd); 118 if SumJHTonCount<= 0 then SumJHTonCount:= SumWCTonCount; 119 //if EdtQJHF.Value<= 0 then EdtQJHF.Value:= SumWCTonCount; 120 //if SumJHCarCount<= 0 then SumJHTonCount:= SumWCCarCount; 121 wrdSelection.TypeText('（1）全局28个战略装车点共装车'+ IntToStr(SumWCCarCount)+'辆，完成计划的'+ GetPercent(SumWCCarCount , SumJHCarCount)+'；发送货物' 122 +CurrToStr(SumWCTonCount)+'万吨，完成计划的'+GetPercent(SumWCTonCount , SumJHTonCount)+'，占全局货发总量的' 123 +GetPercent(SumWCTonCount , EdtQJHF.Value)+ '。'); 124 wordApp.selection.TypeParagraph;//换行 125 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; 126 wrdSelection.TypeText('图-6 战略装车点装车数完成情况'); 127 128 129 wordApp.Selection.EndKey(wdStory,EmptyParam); 130 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 131 wdRange := wordApp.activeDocument.Content; 132 wdRange.Collapse(wdCollapseEnd); 133 134 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 135 oChart:= oShape.OleFormat.Object; 136 oChart.Application.DataSheet.Cells.Clear; 137 oChart.ChartArea.Font.Size:= 8; 138 oChart.Application.Update; 139 oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图 140 //添加行标题 141 oChart.Application.DataSheet.Cells[2,1].Value:= '计划'; 142 oChart.Application.DataSheet.Cells[3,1].Value:= '实际完成'; 143 //添加列标题 144 oChart.Application.DataSheet.Cells[1,2].Value:= '上周'; 145 oChart.Application.DataSheet.Cells[1,3].Value:= '本周'; 146 147 oChart.Application.DataSheet.Cells[2, 2].Value:= LastPlanCarCount; 148 oChart.Application.DataSheet.Cells[2, 3].Value:= SumJHCarCount; 149 oChart.Application.DataSheet.Cells[3, 2].Value:= LastImplCarCount; 150 oChart.Application.DataSheet.Cells[3, 3].Value:= SumWCCarCount; 151 oChart.Application.Update; 152 oChart.Application.Quit; 153 154 wordApp.Selection.EndKey(wdStory,EmptyParam); 155 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 156 wdRange := wordApp.activeDocument.Content; 157 wdRange.Collapse(wdCollapseEnd); 158 wrdSelection.TypeText('图-7 战略装车点货物发送量完成情况'); 159 wordApp.Selection.EndKey(wdStory,EmptyParam); 160 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 161 wdRange := wordApp.activeDocument.Content; 162 wdRange.Collapse(wdCollapseEnd); 163 164 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 165 oChart:= oShape.OleFormat.Object; 166 oChart.Application.DataSheet.Cells.Clear; 167 oChart.ChartArea.Font.Size:= 8; 168 oChart.Application.Update; 169 oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图 170 //添加行标题 171 oChart.Application.DataSheet.Cells[2,1].Value:= '计划'; 172 oChart.Application.DataSheet.Cells[3,1].Value:= '实际完成'; 173 //添加列标题 174 oChart.Application.DataSheet.Cells[1,2].Value:= '上周'; 175 oChart.Application.DataSheet.Cells[1,3].Value:= '本周'; 176 177 oChart.Application.DataSheet.Cells[2, 2].Value:= LastPlanTonCount; 178 oChart.Application.DataSheet.Cells[2, 3].Value:= SumJHTonCount; 179 oChart.Application.DataSheet.Cells[3, 2].Value:= LastImplTonCount; 180 oChart.Application.DataSheet.Cells[3, 3].Value:= SumWCTonCount; 181 oChart.Application.Update; 182 oChart.Application.Quit; 183 184 wordApp.Selection.EndKey(wdStory,EmptyParam); 185 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 186 wdRange := wordApp.activeDocument.Content; 187 wdRange.Collapse(wdCollapseEnd); 188 wrdSelection.TypeText('图-8 战略装车量占货物发送量情况'); 189 wordApp.Selection.EndKey(wdStory,EmptyParam); 190 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 191 wdRange := wordApp.activeDocument.Content; 192 wdRange.Collapse(wdCollapseEnd); 193 194 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 195 oChart:= oShape.OleFormat.Object; 196 oChart.Application.DataSheet.Cells.Clear; 197 oChart.ChartArea.Font.Size:= 8; 198 oChart.Application.Update; 199 oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图 200 //添加行标题 201 oChart.Application.DataSheet.Cells[2,1].Value:= '发送万吨'; 202 //添加列标题 203 oChart.Application.DataSheet.Cells[1,2].Value:= '战略装车点'; 204 oChart.Application.DataSheet.Cells[1,3].Value:= '其他装车'; 205 oChart.Application.DataSheet.Cells[2, 2].Value:= SumWCTonCount; 206 oChart.Application.DataSheet.Cells[2, 3].Value:= EdtQJHF.Value; 207 oChart.Application.Update; 208 oChart.Application.Quit; 209 210 wordApp.Selection.EndKey(wdStory,EmptyParam); 211 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 212 wdRange := wordApp.activeDocument.Content; 213 wdRange.Collapse(wdCollapseEnd); 214 wrdSelection.TypeText('图-9 战略装车量分品类完成情况'); 215 wordApp.Selection.EndKey(wdStory,EmptyParam); 216 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 217 wdRange := wordApp.activeDocument.Content; 218 wdRange.Collapse(wdCollapseEnd); 219 220 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 221 oChart:= oShape.OleFormat.Object; 222 oChart.Application.DataSheet.Cells.Clear; 223 oChart.ChartArea.Font.Size:= 8; 224 oChart.Application.Update; 225 oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图 226 //添加行标题 227 oChart.Application.DataSheet.Cells[2,1].Value:= '发送万吨'; 228 //添加列标题 229 cdsGroupByPL.First; 230 for i:= 2 to cdsGroupByPL.RecordCount+ 1 do 231 begin 232 oChart.Application.DataSheet.Cells[1,i].Value:= Trim(cdsGroupByPL.FieldByName('PLNAME').AsString); 233 oChart.Application.DataSheet.Cells[2, i].Value:= cdsGroupByPL.FieldByName('TONCOUNT').AsCurrency; 234 cdsGroupByPL.Next; 235 end; 236 oChart.Application.Update; 237 oChart.Application.Quit; 238 239 wordApp.Selection.EndKey(wdStory,EmptyParam); 240 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 241 wdRange := wordApp.activeDocument.Content; 242 wdRange.Collapse(wdCollapseEnd); 243 wrdSelection.TypeText(' （2）货车停留时间平均为'+ GetDiv(PJTS,cdsMain.RecordCount)+'小时,较考核目标超'+GetOverloadTime(PJTS,cdsMain.RecordCount,5)+'小时，' 244 +'较全局平均停时减少2.8小时；平均装车作业时间'+ GetDiv(PJZCSJ, cdsMain.RecordCount)+'小时，较考核目标超'+GetOverloadTime(PJZCSJ,cdsMain.RecordCount,2)+'小时。'); 245 wordApp.selection.TypeParagraph;//换行 246 wrdSelection.TypeText(' （3）路局多经参与经营的12个战略装车点，本周总计完成'+ IntToStr(SumWCCarCount) 247 +'车，比上周'+ IntToStr(Trunc(LastImplCarCount))+'车多装'+ IntToStr(Trunc(SumWCCarCount- LastImplCarCount))+'车，增加了' 248 +GetPercent(SumJHCarCount- LastImplCarCount, LastImplCarCount)+'，日均装车'+GetDiv(SumWCTonCount, Trunc(DateEnd.Date-DateBegin.Date+ 1)) 249 +'车。占全局战略装车点发送总量的'+ GetPercent(SumWCCarCount, EdtQJHF.Value)+'。'); 250 wordApp.selection.TypeParagraph;//换行 251 wrdSelection.TypeText(' 3、毛利分析：本周实现毛利'+ CurrToStr(DuoJing)+'万元，和上周基本持平。'); 252 SumDJ:= 0; 253 SumFDJ:= 0; 254 cdsMain.First; 255 with cdsMain do 256 begin 257 DisableControls; 258 while not Eof do 259 begin 260 if FieldByName('DJCY').AsInteger= 0 then 261 SumDJ:= SumDJ+ FieldByName('TONCOUNT').AsCurrency 262 else 263 SumFDJ:= SumFDJ+ FieldByName('TONCOUNT').AsCurrency; 264 cdsMain.Next; 265 end; 266 EnableControls; 267 end; 268 wordApp.selection.TypeParagraph;//换行 269 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; 270 wrdSelection.TypeText('图-10 多经参与战略装车情况'); 271 wordApp.Selection.EndKey(wdStory,EmptyParam); 272 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 273 wdRange := wordApp.activeDocument.Content; 274 wdRange.Collapse(wdCollapseEnd); 275 276 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 277 oChart:= oShape.OleFormat.Object; 278 oChart.Application.DataSheet.Cells.Clear; 279 oChart.ChartArea.Font.Size:= 8; 280 oChart.Application.Update; 281 oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图 282 //添加行标题 283 oChart.Application.DataSheet.Cells[2,1].Value:= '发送吨'; 284 //添加列标题 285 oChart.Application.DataSheet.Cells[1,2].Value:= '多经参与经营发送吨'; 286 oChart.Application.DataSheet.Cells[1,3].Value:= '其他战略装车点发送吨'; 287 oChart.Application.DataSheet.Cells[2, 2].Value:= SumDJ; 288 oChart.Application.DataSheet.Cells[2, 3].Value:= SumFDJ; 289 oChart.Application.Update; 290 oChart.Application.Quit; 291 292 wordApp.selection.TypeParagraph;//换行 293 wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; 294 wrdSelection.TypeText('图-11 多经参与战略装车点经营收入（万元）'); 295 wordApp.Selection.EndKey(wdStory,EmptyParam); 296 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 297 wdRange := wordApp.activeDocument.Content; 298 wdRange.Collapse(wdCollapseEnd); 299 300 oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:='MSGraph.Chart.8',FileName:='',LinkToFile :=False,DisplayAsIcon :=False); 301 oChart:= oShape.OleFormat.Object; 302 oChart.Application.DataSheet.Cells.Clear; 303 oChart.ChartArea.Font.Size:= 8; 304 oChart.Application.Update; 305 oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图 306 //添加行标题 307 oChart.Application.DataSheet.Cells[2,1].Value:= '收入（万元）'; 308 //添加列标题 309 oChart.Application.DataSheet.Cells[1,2].Value:= '本周'; 310 oChart.Application.DataSheet.Cells[1,3].Value:= '上周'; 311 oChart.Application.DataSheet.Cells[2, 2].Value:= 319.14; 312 oChart.Application.DataSheet.Cells[2, 3].Value:= 314.96; 313 oChart.Application.Update; 314 oChart.Application.Quit; 315 316 wordApp.Selection.EndKey(wdStory,EmptyParam); 317 wdPar := wordApp.ActiveDocument.Paragraphs.Add; 318 wdRange := wordApp.activeDocument.Content; 319 wdRange.Collapse(wdCollapseEnd); 320 wrdSelection.TypeText(' （4）装车分析：与上周一样，全局仅有黄陵、安口南两个战略装车点到达日均装运一列的要求，' 321 +'占全局战略装车点总数的7%。周装车少于100车的有梅家坪、白水江、燕子砭、咸阳西4个点。'); 322 wordApp.selection.TypeParagraph;//换行 323 wrdSelection.TypeText('2.存在问题及分析：'); 324 wordApp.selection.TypeParagraph;//换行 325 wrdSelection.TypeText(' （1）全局共有14个装车点为完成周装车计划。完成比例在50%以下的有桑树坪、合阳、白水江、燕子砭4个战略装车点，占总数的14%'); 326 wordApp.selection.TypeParagraph;//换行 327 wrdSelection.TypeText(' 主要原因有四个方面。一是空出来源紧张，不能满足日均装车需求。装运大宗货源煤炭、石油需要的敞车、罐车缺口较大。' 328 +'如牛家梁在请求车5418车的情况下，仅承认了916车；柞水、官渡、三桥也存在此类原因。本周共产生坏车及过期车2104量，' 329 +'修复使用1745车。三是停限装原因，战略装车点请求车兑现率仅为41%。四是货源依旧不足。铁矿石、焦炭市场不好影响装车。'); 330 wordApp.selection.TypeParagraph;//换行 331 wrdSelection.TypeText(' （2）一是装车速度较慢，影响装车时间，造成平均停时较大，如合阳点专用线装车为漏斗漏煤，装车速度较快，平煤采取刮板刮平后，' 332 +'人工平顶，速度较慢，引起停时较大。二是坏车修复时间长，也是引起停时较大的一个重要原因。'); 333 wordApp.selection.TypeParagraph;//换行 334 wrdSelection.TypeText('3.战略装车点下周重点工作：'); 335 wordApp.selection.TypeParagraph;//换行 336 wrdSelection.TypeText(' （1）加大货源组织工作。广泛宣传战略装车点优势，公布资源受理电话、去向、运输品类和开行时间，在货运计划、配空车' 337 +'等方面予以优惠政策，重点做好新建战略装车点瑶曲、安口南的货源组织工作，开发战略装车点新货源，保证装车上量。'); 338 wordApp.selection.TypeParagraph;//换行 339 wrdSelection.TypeText(' （2）提高承认车兑现率。对组织不力造成承认车落空的进行认真分析，纳入考核并追究管理责任。调度、运输、货运部门要加强协作，' 340 +'落实战略装车点计划、承认、配空、挂运四优先制度。'); 341 wordApp.selection.TypeParagraph;//换行 342 wrdSelection.TypeText(' （3）大力压缩等待时间。与专用线加强协调，增强战略装车点装车、平顶、加固车门人员力量，压缩撞车后的整理等待时间。'); 343 end;
