bustrazhyearlrunit.pas

公交行业的管理系统

unit BusTraZHYearLRUnit;

interface

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

type
  TBusTraZHYearLRFm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Label6: TLabel;
    Edit1: TEdit;
    Panel5: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Panel6: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    TabSheet5: TTabSheet;
    ListView3: TListView;
    TabSheet6: TTabSheet;
    ListView4: TListView;
    TabSheet7: TTabSheet;
    ListView5: TListView;
    TabSheet8: TTabSheet;
    ListView6: TListView;
    TabSheet3: TTabSheet;
    ListView7: TListView;
    TabSheet4: TTabSheet;
    ListView8: TListView;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    iExistFlag:Integer;
    { Public declarations }
  end;

var
  BusTraZHYearLRFm: TBusTraZHYearLRFm;

implementation

uses BusTradeDataModuleUnit, PrintInfoUnit, PrintProc;

{$R *.dfm}

procedure TBusTraZHYearLRFm.BitBtn1Click(Sender: TObject);
var
        iYear:String;
        iLYear:String;
        sqlString:String;
        iRow:integer;
        iCityCode:String;

begin
        iYear:=ComboBox1.Text;
        if ((Length(iYear) <> 4) or (iYear<'1990') or (iYear >'2030')) then
        begin
                ShowMessage('请输入在时间范围1990-2030内的合法年份!');
                exit;
        end;
        iLYear:=IntToStr(StrToInt(iYear)-1);
        {查询}
        sqlString:= 'select 指标代码,测算值 as 全年实际 from 公交行业综合年报_z where '
                   + ' 统计年份=' + iYear + ' order by 指标代码';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

        if ADOQuery1.RecordCount=0 then
        begin
                ShowMessage('不存在' + iYear + '年的行业综合年报测算数据,请先录入!');
                ClearData(ListView1,22,0,3,2);
                ClearData(ListView2,22,0,3,2);
                ClearData(ListView3,22,0,3,2);
                ClearData(ListView4,22,0,3,2);
                ClearData(ListView5,22,0,3,2);
                ClearData(ListView6,23,0,3,2);
                ClearData(ListView7,23,0,3,2);
                ClearData(ListView8,23,0,3,2);
                BitBtn2.Enabled:=false;
                exit;
        end
        else
        begin
                ADOQuery1.First;
                for  iRow:= 0 to ADOQuery1.RecordCount-1 do
                begin
                        if ADOQuery1.FieldByName('全年实际').AsString<>'' then
                        begin
                                iExistFlag:=1;
                                break;
                        end;
                        ADOQuery1.Next;
                end;

                if iExistFlag=0 then
                begin
                        ShowMessage('不存在' + iYear + '年的行业综合年报测算数据,请先录入!');
                        ClearData(ListView1,22,0,3,2);
                        ClearData(ListView2,22,0,3,2);
                        ClearData(ListView3,22,0,3,2);
                        ClearData(ListView4,22,0,3,2);
                        ClearData(ListView5,22,0,3,2);
                        ClearData(ListView6,23,0,3,2);
                        ClearData(ListView7,23,0,3,2);
                        ClearData(ListView8,23,0,3,2);
                        exit;
                end;
        end;

        iExistFlag:=0;
        sqlString:= 'select 指标代码,测算值 as 全年实际 from 公交行业综合年报_z where '
                   + ' 统计年份=' + iLYear + ' order by 指标代码';

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

        if ADOQuery1.RecordCount=0 then
        begin
                ShowMessage('不存在' + iLYear + '年的行业综合年报测算数据,请先录入!');
                ClearData(ListView1,22,0,3,2);
                ClearData(ListView2,22,0,3,2);
                ClearData(ListView3,22,0,3,2);
                ClearData(ListView4,22,0,3,2);
                ClearData(ListView5,22,0,3,2);
                ClearData(ListView6,23,0,3,2);
                ClearData(ListView7,23,0,3,2);
                ClearData(ListView8,23,0,3,2);
                BitBtn2.Enabled:=false;
                exit;
        end
        else
        begin
                ADOQuery1.First;
                for  iRow:= 0 to ADOQuery1.RecordCount-1 do
                begin
                        if ADOQuery1.FieldByName('全年实际').AsString<>'' then
                        begin
                                iExistFlag:=1;
                                break;
                        end;
                        ADOQuery1.Next;
                end;

                if iExistFlag=0 then
                begin
                        ShowMessage('不存在' + iLYear + '年的行业综合年报测算数据,请先录入!');
                        ClearData(ListView1,22,0,3,2);
                        ClearData(ListView2,22,0,3,2);
                        ClearData(ListView3,22,0,3,2);
                        ClearData(ListView4,22,0,3,2);
                        ClearData(ListView5,22,0,3,2);
                        ClearData(ListView6,23,0,3,2);
                        ClearData(ListView7,23,0,3,2);
                        ClearData(ListView8,23,0,3,2);
                        exit;
                end;

                iExistFlag:=0;
                ADOQuery1.First;
                for iRow := 0 to ADOQuery1.RecordCount-1 do
                begin
                        if ADOQuery1.FieldByName('全年实际').Value=0 then
                        begin
                                ShowMessage('对不起，基期数据不能为零，请重新录入数据，或者选择新的基期！');
                                ClearData(ListView1,22,0,3,2);
                                ClearData(ListView2,22,0,3,2);
                                ClearData(ListView3,22,0,3,2);
                                ClearData(ListView4,22,0,3,2);
                                ClearData(ListView5,22,0,3,2);
                                ClearData(ListView6,23,0,3,2);
                                ClearData(ListView7,23,0,3,2);
                                ClearData(ListView8,23,0,3,2);
                                BitBtn2.Enabled:=false;
                                exit;
                        end;
                        ADOQuery1.Next;
                end;