namebookscalequeryunit.~pas

公交行业的管理系统

unit NameBookScaleQueryUnit;

interface

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

type
  TNameBookScaleQuery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel2: TPanel;
    ListView1: TListView;
    ListView2: TListView;
    ListView3: TListView;
    ComboBox1: TComboBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    function FindRow(LView:TListView;input:String;sPos:integer;ePos:integer):integer;
    function FindCol(input:String):integer;
    procedure StandardInput(LView:TListView;Spos:integer;Epos:integer;Sfield:string);
    procedure sumCa(Spos:integer;Epos:integer;LView:TListView);
    procedure sumCa2(Spos:integer;Epos:integer;LView:TListView);
    procedure moneySum(input:string;Row:integer);
    procedure sumXJ(Spos:integer;Epos:integer;LView:TListView);
    procedure sumXJ2(Spos:integer;Epos:integer;LView:TListView);
    procedure ZongSum(Col:integer;Input:string);
    { Public declarations }
  end;

var
  NameBookScaleQuery: TNameBookScaleQuery;

implementation

uses BusTradeDataModuleUnit, PrintProc, PrintInfoUnit, PrintProc2;

{$R *.dfm}

function TNameBookScaleQuery.FindRow(LView:TListView;input:String;sPos:integer;ePos:integer):integer;
var
        temp:string;
        k:integer;
begin
        for k:=sPos to ePos do
        begin
                temp:=copy(LView.Items[k].Caption,4,Length(LView.Items[k].Caption)-1);
                if temp=input then
                begin
                        FindRow:=k;
                        exit;
                end;
        end;
        FindRow:=-1;
end;

function TNameBookScaleQuery.FindCol(input:String):integer;
begin
        if input='特大型' then
        begin
                FindCol:=2;
                exit;
        end;
        if input='大型' then
        begin
                FindCol:=3;
                exit;
        end;
        if input='中型' then
        begin
                FindCol:=4;
                exit;
        end;
        if input='小型' then
        begin
                FindCol:=5;
                exit;
        end;
        if input='其他' then
        begin
                FindCol:=6;
                exit;
        end;
        FindCol:=-1;
end;

procedure TNameBookScaleQuery.StandardInput(LView:TListView;Spos:integer;Epos:integer;Sfield:string);
var
        i,j,iRow:integer;
        sString:string;
        scale: array [0..4] of string;
begin
        scale[0]:='特大型';
        scale[1]:='大型';
        scale[2]:='中型';
        scale[3]:='小型';
        scale[4]:='其他';
        j:=2;
        for i:=0 to 4 do
        begin
                sString:='select '+Sfield+' AS 字段类型, count('+Sfield+') AS 合计';
                sString:=sString+' FROM 公用事业单位基本情况表 WHERE 企业规模='+''''+scale[i]+'''';
                sString:=sString+' AND 统计年份='+ComboBox1.Text+' and 城市代码='+''''+'022'+''''+' GROUP BY '+Sfield;

                ADOQuery1.Close;
                ADOQuery1.SQL.Clear;
                ADOQuery1.SQL.Add(sString);
                ADOQuery1.Open;
                ADOQuery1.First;

                while (not ADOQuery1.Eof) do
                begin
                        if FindRow(LView,ADOQuery1.fieldbyname('字段类型').AsString,Spos,Epos)>0 then
                                iRow:=FindRow(LView,ADOQuery1.fieldbyname('字段类型').AsString,Spos,Epos)
                        else begin
                                showmessage('名录库中有错误！请检查名录库中的数据！');
                                exit;
                        end;
                        LView.Items[iRow].SubItems[j]:=ADOQuery1.fieldbyname('合计').AsString;
                        ADOQuery1.Next;
                end;
                j:=j+1;
        end;
end;

procedure TNameBookScaleQuery.sumCa(Spos:integer;Epos:integer;LView:TListView);
var
        i,j,temp:integer;
begin
        for j:=Spos to Epos do
        begin
                temp:=0;
                for i:=2 to 6 do
                        temp:=temp+StrToInt(LView.Items[j].SubItems[i]);
                LView.Items[j].SubItems[1]:=IntToStr(temp);
        end;
end;

procedure TNameBookScaleQuery.sumCa2(Spos:integer;Epos:integer;LView:TListView);
var
        i,j:integer;
        temp:single;
begin
        for j:=Spos to Epos do
        begin
                temp:=0;
                for i:=2 to 6 do
                        temp:=temp+StrToFloat(LView.Items[j].SubItems[i]);
                LView.Items[j].SubItems[1]:=FloatToStr(temp);
        end;
end;

procedure TNameBookScaleQuery.moneySum(input:string;Row:integer);
var
        i:integer;
        sString:String;
        scale: array [0..4] of string;
begin
        scale[0]:='特大型';
        scale[1]:='大型';
        scale[2]:='中型';
        scale[3]:='小型';
        scale[4]:='其他';

        for i:=0 to 4 do
        begin
                sString:='select b.'+input+' as 类型, sum(a.企业注册资本金) AS 合计';
                sString:=sString+' FROM 公用事业单位基本情况表 AS a, 主要业务活动表 AS b';
                sString:=sString+' WHERE a.统计年份='+ComboBox1.Text+' and b.统计年份=a.统计年份';
                sString:=sString+' and b.'+input+'='+''''+'1'+''''+' and a.城市代码='+''''+'022'+'''';
                sString:=sString+' and a.企业规模='+''''+scale[i]+''''+' and a.单位代码=b.企业代码 GROUP BY b.'+input;

                ADOQuery1.Close;
                ADOQuery1.SQL.Clear;
                ADOQuery1.SQL.Add(sString);
                ADOQuery1.Open;

                if (ADOQuery1.fieldbyname('合计').AsString<>'') then
                        ListView3.Items[Row].SubItems[i+2]:=ADOQuery1.fieldbyname('合计').AsString
        end;
end;

procedure TNameBookScaleQuery.sumXJ(Spos:integer;Epos:integer;LView:TListView);{计算按类型分的各个规模小记XJ}
var
        i,j,temp:integer;
begin
        for i:=2 to 6 do
        begin
                temp:=0;
                for j:=Spos to Epos do
                        temp:=temp+StrToInt(LView.Items[j].SubItems[i]);
                LView.Items[Spos-1].SubItems[i]:=IntToStr(temp);
        end;
end;