otherhyyearcompareunit.~pas

公交行业的管理系统

unit OtherHYYearCompareUnit;

interface

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

type
  TOtherHYYearCompareFrm = class(TForm)
    ADOQuery1: TADOQuery;
    ADOQuery4: TADOQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    Label11: TLabel;
    Label1: TLabel;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    Panel5: TPanel;
    Label10: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox3: TComboBox;
    Edit7: TEdit;
    Panel3: TPanel;
    Label4: TLabel;
    Label12: TLabel;
    ComboBox2: TComboBox;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    SpeedButton2: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    TabSheet3: TTabSheet;
    ListView3: TListView;
    TabSheet4: TTabSheet;
    ListView4: TListView;
    Panel6: TPanel;
    Panel7: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure ComboBox3Change(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;Row:Integer;Source:TADOQuery);
    procedure WritePercent(LView:TListView;Row:Integer);
    { Public declarations }
  end;

var
  OtherHYYearCompareFrm: TOtherHYYearCompareFrm;

implementation

uses {Code,} PrintInfoUnit,
  BusTradeDataModuleUnit, CitySelectUnit, PrintProc2;

{$R *.dfm}
procedure TOtherHYYearCompareFrm.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 TOtherHYYearCompareFrm.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 TOtherHYYearCompareFrm.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 TOtherHYYearCompareFrm.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 TOtherHYYearCompareFrm.BitBtn1Click(Sender: TObject);
var
        iComCpy:String;
        iBaseCpy:string;
        iBaseYear:String;
        sqlString:String;
        IDiv,IDivD,Result:single;
        j:integer;
        scmode: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;

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

        iComCpy:=''''+Edit6.Text+'''';
        iBaseCpy:=''''+Edit7.Text+'''';
        iBaseYear:=ComboBox2.Text;
        if scmode='生成值' then
                sqlString:='SELECT a.指标代码, max(a.全年实际) AS 比较城市实际,'
                          +' max(b.测算值) AS 被比较城市实际, 比较城市实际-被比较城市实际 AS 比较量'
                          +' FROM 公交行业统计年报_z AS a, 公交行业统计年报_z AS b '
                          +' WHERE a.城市代码= '+iComCpy+' and b.城市代码='+iBaseCpy
                          +' And a.统计年份='+iBaseYear
                          +' And b.统计年份='+iBaseYear
                          +' And a.指标代码=b.指标代码'
                          +' GROUP BY a.指标代码,a.统计年份,b.统计年份'
                          +' Order by a.指标代码'
        else
                sqlString:='SELECT a.指标代码, max(a.测算值) AS 比较城市实际,'
                          +' max(b.测算值) AS 被比较城市实际, 比较城市实际-被比较城市实际 AS 比较量'
                          +' FROM 公交行业统计年报_z AS a, 公交行业统计年报_z AS b '
                          +' WHERE a.城市代码= '+iComCpy+' and b.城市代码='+iBaseCpy
                          +' And a.统计年份='+iBaseYear
                          +' And b.统计年份='+iBaseYear
                          +' And a.指标代码=b.指标代码'
                          +' GROUP BY a.指标代码,a.统计年份,b.统计年份'
                          +' Order by a.指标代码';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;