tradeselfscalecompareunit.~pas

公交行业的管理系统

unit TradeSelfScaleCompareUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB, ADODB;

type
  TTradeSelfScaleCompare = class(TForm)
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    procedure IninLView(LView:TListView;sRow,eRow,sCol,eCol:Integer);
    procedure ClearLView(LView:TListView;sRow,eRow,sCol,eCol:Integer);
    procedure WriteListView(LView:TListView;bRow:Integer;eRow:Integer;Source:TADOQuery);
    procedure WritePercent(LView:TListView;sRow:Integer;eRow:Integer);
    { Public declarations }
  end;

var
  TradeSelfScaleCompare: TTradeSelfScaleCompare;

implementation

uses BusTradeDataModuleUnit, PrintProc2, PrintInfoUnit;

{$R *.dfm}

procedure TTradeSelfScaleCompare.WriteListView(LView:TListView;bRow:Integer;eRow:Integer;Source:TADOQuery);
var
i:integer;
begin
        for i:=bRow to eRow do
        begin
                if LView.Items[i].SubItems.Count<3 then
                begin
                        if (Source.fieldbyname('报告期实际').AsString<>'') then
                                LView.Items[i].SubItems.Add(Converter(Source.fieldbyname('报告期实际').ASFloat))
                        else
                                LView.Items[i].SubItems.Add('0');
                        if (Source.fieldbyname('基期实际').AsString<>'') then
                                LView.Items[i].SubItems.Add(Converter(Source.fieldbyname('基期实际').ASFloat))
                        else
                                LView.Items[i].SubItems.Add('0');
                        if (Source.fieldbyname('比较量').AsString<>'') then
                                LView.Items[i].SubItems.Add(Converter(Source.fieldbyname('比较量').ASFloat))
                        else
                                LView.Items[i].SubItems.Add('0');
                        LView.Items[i].SubItems.Add('0');
                        Source.Next;
                end
                else
                begin
                        if (Source.fieldbyname('报告期实际').AsString<>'') then
                                LView.Items[i].SubItems[2]:=Converter(Source.fieldbyname('报告期实际').ASFloat)
                        else
                                LView.Items[i].SubItems[2]:='0';
                        if (Source.fieldbyname('基期实际').AsString<>'') then
                                LView.Items[i].SubItems[3]:=Converter(Source.fieldbyname('基期实际').ASFloat)
                        else
                                LView.Items[i].SubItems[3]:='0';
                        if (Source.fieldbyname('比较量').AsString<>'') then
                                LView.Items[i].SubItems[4]:=Converter(Source.fieldbyname('比较量').ASFloat)
                        else
                                LView.Items[i].SubItems[4]:='0';
                        LView.Items[i].SubItems[5]:='0';
                        Source.Next;
                end;
        end;
end;

procedure TTradeSelfScaleCompare.WritePercent(LView:TListView;sRow:Integer;eRow:Integer);
VAR
        IDIV,IDIVD:single;
        i:integer;
begin
        for i:=sRow to eRow do
        begin
                if LView.Items[i].SubItems[3]<>'0' then
                begin
                        iDiv:=StrToFloat(LView.Items[i].SubItems[4]);
                        iDivD:=StrToFloat(LView.Items[i].SubItems[3]);
                        LView.Items[i].SubItems[5]:=ConverterPercent(FloatToStr(iDiv/iDivD*100));
                end else LView.Items[i].SubItems[5]:='0';
        end;
end;

procedure TTradeSelfScaleCompare.IninLView(LView:TListView;sRow,eRow,sCol,eCol:Integer);
var
        i,j:Integer;
begin
        for i:=sRow to eRow do
                for j:=sCol to eCol do
                        LView.Items[i].SubItems.Add('0');
end;

procedure TTradeSelfScaleCompare.ClearLView(LView:TListView;sRow,eRow,sCol,eCol:Integer);
var
        i,j:Integer;
begin
        for i:=sRow to eRow do
                for j:=sCol to eCol do
                        LView.Items[i].SubItems[j]:='0';
end;

procedure TTradeSelfScaleCompare.BitBtn1Click(Sender: TObject);
var
        iBaseYear:String;
        iComYear:String;
        sqlString:String;
begin
        ClearLView(ListView1,1,10,2,5);
        ClearLView(ListView1,12,23,2,5);
        ClearLView(ListView2,0,15,2,5);
        ClearLView(ListView2,17,24,2,5);
        BitBtn2.Enabled:=false;

        if (ComboBox1.Text='') then
        begin
            showmessage('请输入报告期的时间！');
            exit;
        end;
        if (length(ComboBox1.Text)<>4) or (ComboBox1.Text>'3000') or (ComboBox1.Text<'1900') then
        begin
                showmessage('对不起！报告期年份非法！请重新选择！');
                exit;
        end;
        if (ComboBox2.Text='') then
        begin
            showmessage('请输入基期的时间！');
            exit;
        end;
        if (length(ComboBox2.Text)<>4) or (ComboBox2.Text>'3000') or (ComboBox2.Text<'1900') then
        begin
                showmessage('对不起！基期年份非法！请重新选择！');
                exit;
        end;

        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select * from 公交行业城市规模指标表_z where 统计年份='+ComboBox1.Text
                          +'AND 指标代码 not in (' + '''' + 'TO01' + '''' +','+''''+'TO12'+''''
                          +','+''''+'TO42'+''''+')'+' and 城市代码='+''''+'022'+'''');
        ADOQuery2.Open;
        if ADOQuery2.RecordCount=0 then
        begin
            showmessage('公交行业在'+ComboBox1.Text+'年的数据为空！请重新选择报告期时间！');
            exit;
        end;
        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select * from 公交行业城市规模指标表_z where 统计年份='+ComboBox2.Text
                          +'AND 指标代码 not in (' + '''' + 'TO01' + '''' +','+''''+'TO12'+''''
                          +','+''''+'TO42'+''''+')'+' and 城市代码='+''''+'022'+'''');
        ADOQuery2.Open;
        if ADOQuery2.RecordCount=0 then
        begin
            showmessage('公交行业在'+ComboBox2.Text+'年的数据为空！请重新选择基期时间！');
            exit;
        end;

        iBaseYear:=ComboBox1.Text;
        iComYear:=ComboBox2.Text;
        sqlString:='SELECT a.指标代码, max(a.本年实际) AS 报告期实际,'
                 +' max(b.本年实际) AS 基期实际, 报告期实际-基期实际 AS 比较量'
                 + ' FROM 公交行业城市规模指标表_z AS a, 公交行业城市规模指标表_z AS b '
                 + ' WHERE a.统计年份='+iBaseYear+ ' And b.统计年份='+iComYear
                 +' AND a.指标代码 not in (' + '''' + 'TO01' + '''' +','+''''+'TO12'+''''
                 +','+''''+'TO42'+''''+')'+ ' And a.指标代码=b.指标代码'
                 +' and a.城市代码='+''''+'022'+''''+' and b.城市代码=a.城市代码'
                 +' GROUP BY a.指标代码,a.统计年份,b.统计年份 ORDER BY a.指标代码';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

        if ADOQuery1.RecordCount<>0 then
        begin
                ADOQuery1.First;

                WriteListView(ListView1,1,10,ADOQuery1);
                WriteListView(ListView1,12,23,ADOQuery1);
                WriteListView(ListView2,0,15,ADOQuery1);
                WriteListView(ListView2,17,24,ADOQuery1);

                //..........................百分比...........................//
                WritePercent(ListView1,1,10);
                WritePercent(ListView1,12,23);
                WritePercent(ListView2,0,15);
                WritePercent(ListView2,17,24);

                BitBtn2.Enabled:=true;
        end;
end;

procedure TTradeSelfScaleCompare.BitBtn3Click(Sender: TObject);
begin
        TradeSelfScaleCompare.Close;
end;

procedure TTradeSelfScaleCompare.BitBtn2Click(Sender: TObject);
var
        iRow:Integer;
        iCol:Integer;
begin
        if (DeviceDetect=0) then
        begin
                exit;
        end;
        if PrnInfoFrm.ShowModal=mrOK then
        begin

                OpenForEdit(ExtractFilePath(application.exeName),'BusCityScaleSelfComTab');

                for iRow:=0 to 23 do
                begin
                        for iCol:=2 to 5 do
                                WriteCellForEdit(iRow+4,iCol+2,ListView1.Items[iRow].SubItems[iCol]);
                        WriteCellForEdit(2,4,'报告期：   '+ComboBox1.Text+'年   基期：   '+ComboBox2.Text+'年');
                        WriteCellForEdit(29,1,'统计负责人：'+PrnInfoFrm.StatMainPerson);
                        WriteCellForEdit(29,4,'统计人员：'+PrnInfoFrm.StatPerson);
                        WriteCellForEdit(29,6,'填报日期：'+DateToStr(PrnInfoFrm.StatDate));
                end;
                for iRow:=0 to 24 do
                begin
                        for iCol:=2 to 5 do
                                WriteCellForEdit(iRow+34,iCol+2,ListView2.Items[iRow].SubItems[iCol]);
                        WriteCellForEdit(32,4,'报告期：   '+ComboBox1.Text+'年   基期：   '+ComboBox2.Text+'年');
                        WriteCellForEdit(59,1,'统计负责人：'+PrnInfoFrm.StatMainPerson);
                        WriteCellForEdit(59,4,'统计人员：'+PrnInfoFrm.StatPerson);
                        WriteCellForEdit(59,6,'填报日期：'+DateToStr(PrnInfoFrm.StatDate));
                end;

                PrintExcelEdit;
        end;
end;

procedure TTradeSelfScaleCompare.FormShow(Sender: TObject);
begin
        TabSheet1.TabVisible:=True;
        TabSheet1.TabVisible:=True;
        PageControl1.ActivePage:=TabSheet2;
        PageControl1.ActivePage:=TabSheet1;
        IninLView(ListView1,1,10,2,5);
        IninLView(ListView1,12,23,2,5);
        IninLView(ListView2,0,15,2,5);
        IninLView(ListView2,17,24,2,5);
        BitBtn2.Enabled:=false;
end;

procedure TTradeSelfScaleCompare.ComboBox1Change(Sender: TObject);
begin
        ClearLView(ListView1,1,10,2,5);
        ClearLView(ListView1,12,23,2,5);
        ClearLView(ListView2,0,15,2,5);
        ClearLView(ListView2,17,24,2,5);
        BitBtn2.Enabled:=false;
end;

procedure TTradeSelfScaleCompare.ComboBox2Change(Sender: TObject);
begin
        ClearLView(ListView1,1,10,2,5);
        ClearLView(ListView1,12,23,2,5);
        ClearLView(ListView2,0,15,2,5);
        ClearLView(ListView2,17,24,2,5);
        BitBtn2.Enabled:=false;
end;

end.