hyyearcompareunit.pas

公交行业的管理系统

unit HYYearCompareUnit;

interface

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

type
  THYYearCompare = class(TForm)
    ADOQuery1: TADOQuery;
    ADOQuery4: TADOQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    TabSheet3: TTabSheet;
    ListView3: TListView;
    TabSheet4: TTabSheet;
    ListView4: TListView;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label4: TLabel;
    ComboBox3: TComboBox;
    Panel6: 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);
    procedure ComboBox3Change(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;Row:Integer;Source:TADOQuery);
    procedure WritePercent(LView:TListView;Row:Integer);
    { Public declarations }
  end;

var
  HYYearCompare: THYYearCompare;

implementation

uses {Code,} PrintInfoUnit,
  BusTradeDataModuleUnit, PrintProc2;

{$R *.dfm}

procedure THYYearCompare.WriteListView(LView:TListView;Row:Integer;Source:TADOQuery);
var
i:integer;
begin
        for i:=0 to Row-1 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 THYYearCompare.WritePercent(LView:TListView;Row:Integer);
VAR
        IDIV,IDIVD:single;
        i:integer;
begin
        for i:=0 to Row-1 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 THYYearCompare.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 THYYearCompare.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 THYYearCompare.BitBtn1Click(Sender: TObject);
var
        iBaseYear:String;
        iComYear:String;
        sqlString:String;
        IDiv,IDivD,Result:single;
        j:integer;
        scmode,temp:String;
begin
        ClearLView(ListView1,0,22,2,5);
        ClearLView(ListView2,0,22,2,5);
        ClearLView(ListView3,0,20,2,5);
        ClearLView(ListView4,0,18,2,5);
        BitBtn2.Enabled:=false;

        temp:='';
        scmode:=ComboBox3.Text;
        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;
        if scmode='' then
        begin
                showmessage('请选择是对生成值，还是对测算值进行比较！');
                exit;
        end;
        ADOQuery4.Close;
        ADOQuery4.SQL.Clear;
        ADOQuery4.SQL.Add('select * from 公交行业统计年报_z where 统计年份='+ComboBox1.Text
                          +' and 城市代码='+''''+'022'+'''');
        ADOQuery4.Open;
        if ADOQuery4.RecordCount=0 then
        begin
                showmessage('公交行业在'+ComboBox1.Text+'年的数据为空！请重新选择报告期时间！');
                exit;
        end;
        ADOQuery4.Close;
        ADOQuery4.SQL.Clear;
        ADOQuery4.SQL.Add('select * from 公交行业统计年报_z where 统计年份='+ComboBox2.Text
                          +' and 城市代码='+''''+'022'+'''');
        ADOQuery4.Open;
        if ADOQuery4.RecordCount=0 then
        begin
                showmessage('公交行业在'+ComboBox2.Text+'年的数据为空！请重新选择基期时间！');
                exit;
        end;

        iBaseYear:=ComboBox1.Text;
        iComYear:=ComboBox2.Text;
        if scmode='生成值' then
                sqlString:='SELECT a.指标代码, max(a.全年实际) AS 报告期实际,'
                         +' max(b.全年实际) AS 基期实际, 报告期实际-基期实际 AS 比较量'