unit BusScaleZBUnit;

interface

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

type
  TBusScaleForm = class(TForm)
    ADOQuery2: TADOQuery;
    ADOCommand1: TADOCommand;
    Panel6: TPanel;
    Label13: TLabel;
    ADOQPrintMon: TADOQuery;
    QueryPageLeft1: TADOQuery;
    QueryPageRight1: TADOQuery;
    QueryPageLeft1Src: TDataSource;
    QueryPageRight1Src: TDataSource;
    ADOQuery4: TADOQuery;
    QueryPageLeft1DSDesigner: TSmallintField;
    QueryPageLeft1DSDesigner3: TWideStringField;
    QueryPageLeft1DSDesigner6: TWideStringField;
    QueryPageRight1DSDesigner: TSmallintField;
    QueryPageRight1DSDesigner3: TWideStringField;
    QueryPageRight1DSDesigner6: TWideStringField;
    QueryPageLeft1StringField: TStringField;
    QueryPageLeft1StringField2: TStringField;
    QueryPageLeft1StringField3: TStringField;
    QueryPageRight1StringField: TStringField;
    QueryPageRight1StringField2: TStringField;
    QueryPageRight1StringField3: TStringField;
    QueryPageRight1DSDesigner2: TFloatField;
    QueryPageLeft1DSDesigner2: TFloatField;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Label12: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    Edit9: TEdit;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn7: TBitBtn;
    Label5: TLabel;
    DBMemo1: TDBMemo;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure QueryPageLeft1AfterScroll(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1Change(Sender: TObject);
    procedure QueryPageLeft1AfterInsert(DataSet: TDataSet);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure QueryPageLeft1AfterEdit(DataSet: TDataSet);
    procedure QueryPageLeft1AfterPost(DataSet: TDataSet);
  private
    IsDelete:boolean;
    function CheckYearMon:boolean;
    procedure ButtonEnable(curButton:TBitBtn);  
  public
    IsModifyIndex:boolean;
    PostIndex:string;  
    curYear,curMon:string;
    function   IsEmptyRep:boolean;
    procedure  CheckBalanceRel(curRecordStr:string);
    procedure  DealProc1(ResultValue:string;Oper1Value:string;Oper2Value:string;curSigh:string);
    procedure  DealProc2(ResultValue:string;Oper1Value:string;Oper2Value:single;curSigh:string);
    function   AddPrnQuery:boolean;
    procedure  ToZTable;

    procedure  LookUpZB(var OperValue:single;OperName:string;var curPos:integer);
    procedure  OpenAllPage;
    function  BalanceRelRight(curRecordStr:string):boolean;
    procedure RefreshPage;
  end;
var
  BusScaleForm: TBusScaleForm;

implementation

uses BusTradeDataModuleUnit, PrintInfoUnit,PrintProc, CitySelectUnit;//, InputMonth;

{$R *.DFM}
function TBusScaleForm.CheckYearMon:boolean;
var
YearValue:integer;
MonValue:integer;
begin
        try
              YearValue:=StrToInt(ComboBox1.Text);
        except
              ShowMessage('年份不是數(shù)值.');
              CheckYearMon:=false;
              exit;
        end;
        if((YearValue<2000) or (YearValue>2050))then
        begin
                ShowMessage('輸入年份不對(duì).');
                CheckYearMon:=false;
                exit;
        end; 
        CheckYearMon:=true;

end;
function  TBusScaleForm.IsEmptyRep:boolean;
begin
              if((ADOQPrintMon.RecordCount>0) )then
              begin 
                      IsEmptyRep:=false;
                      exit;
              end;
              IsEmptyRep:=true;
end;
procedure TBusScaleForm.BitBtn2Click(Sender: TObject);{添加}
begin
              if(not CheckYearMon)then exit;
              if(not IsEmptyRep)then
              begin
                   showmessage('該月數(shù)據(jù)已存在,請(qǐng)先刪除該月數(shù)據(jù).');
                   exit;
              end;
              ButtonEnable(BitBtn2);
              BusTradeDataModule.ADOConnection1.BeginTrans;
              ADOCommand1.CommandText:='insert into 公交行業(yè)城市規(guī)模指標(biāo)表_z(指標(biāo)代碼,統(tǒng)計(jì)年份,城市代碼)'
                                       +' select  指標(biāo)代碼,'+ComboBox1.text+','
                                       +''''+Edit9.text+''''+' from  公交行業(yè)城市規(guī)模指標(biāo)定義表 ';
              ADOCommand1.Execute;
              OpenAllPage;
end;

procedure TBusScaleForm.BitBtn4Click(Sender: TObject);{刪除}
begin
       if(MessageBox(self.Handle,'你是否刪除？','提示',MB_OKCANCEL)=IDOK)then
       begin
                BusTradeDataModule.ADOConnection1.BeginTrans;
                ADOCommand1.CommandText:='delete from  公交行業(yè)城市規(guī)模指標(biāo)表_z '+
                                ' where  統(tǒng)計(jì)年份='+ComboBox1.text+ 
                                ' and 城市代碼='+''''+Edit9.text+'''';
                ADOCommand1.Execute;

                ADOCommand1.CommandText:='delete from  公交行業(yè)城市規(guī)模指標(biāo)表 '+
                                        ' where  統(tǒng)計(jì)年份='+ComboBox1.text+ 
                                        ' and 城市代碼='+''''+Edit9.text+'''';
                ADOCommand1.Execute;
                BusTradeDataModule.ADOConnection1.CommitTrans;
                OpenAllPage;
                DBGrid1.ReadOnly:=true;
                exit;
       end;
end;
procedure TBusScaleForm.ButtonEnable(curButton:TBitBtn);
begin
        if(curButton=nil)then
        begin
            BitBtn2.Enabled:=True;
            BitBtn4.Enabled:=True;
            BitBtn6.Enabled:=True;

            BitBtn3.Enabled:=False;
            BitBtn5.Enabled:=False;
            BitBtn8.Enabled:=true;

            DBGrid1.ReadOnly:=true;
            DBGrid2.ReadOnly:=true;
            exit;
        end;

        if((curButton.Name='BitBtn2') or (curButton.Name='BitBtn4') or (curButton.Name='BitBtn6'))then
        begin
            BitBtn2.Enabled:=False;
            BitBtn4.Enabled:=False;
            BitBtn6.Enabled:=False;
            BitBtn7.Enabled:=false;
            BitBtn8.Enabled:=False;

            BitBtn3.Enabled:=True;
            BitBtn5.Enabled:=True;

            ComboBox1.Enabled:=false;
            DBGrid1.ReadOnly:=false;
            DBGrid2.ReadOnly:=false;
        end;
        if((curButton.Name='BitBtn3') or (curButton.Name='BitBtn5'))then
        begin
            BitBtn2.Enabled:=True;
            BitBtn4.Enabled:=True;
            BitBtn6.Enabled:=True;
            BitBtn7.Enabled:=true;
            BitBtn8.Enabled:=True;

            BitBtn3.Enabled:=False;
            BitBtn5.Enabled:=False;
            ComboBox1.Enabled:=true;
            DBGrid1.ReadOnly:=true;
            DBGrid2.ReadOnly:=true; 
        end;  

end;
procedure TBusScaleForm.BitBtn3Click(Sender: TObject);{確定}
var
i:integer;
WrongMessage:string;
begin 
        if(not CheckYearMon)then exit;
        RefreshPage;
        BusTradeDataModule.ADOConnection1.CommitTrans;
        ButtonEnable(BitBtn3);
        DBGrid1.ReadOnly:=True;
        ToZTable;
        showmessage('數(shù)據(jù)已經(jīng)保存！');
end;
procedure TBusScaleForm.ToZTable;
var
i:integer;
begin
        
        if(ADOQuery4.RecordCount<=0)then
        ADOQuery4.Append else
        ADOQuery4.Edit;
        ADOQuery4.FieldByName('統(tǒng)計(jì)年份').AsInteger:=StrToInt(ComboBox1.Text);
        ADOQuery4.FieldByName('城市代碼').AsString:=trim(Edit9.text);
        ADOQPrintMon.Close;
        ADOQPrintMon.Open;
        ADOQPrintMon.First;
        while not ADOQPrintMon.Eof do
        begin
                for i:=0 to ADOQuery4.FieldCount-1 do
                begin
                        if((ADOQuery4.Fields[i].FieldName<>'統(tǒng)計(jì)年份') and
                           (ADOQuery4.Fields[i].FieldName<>'統(tǒng)計(jì)月份') and
                           (ADOQuery4.Fields[i].FieldName<>'企業(yè)代碼') and
                           (ADOQuery4.Fields[i].FieldName<>'數(shù)值類(lèi)型') )then
                        begin
                                if(ADOQPrintMon.FieldByName('指標(biāo)代碼').AsString=ADOQuery4.Fields[i].FieldName)then
                                ADOQuery4.Fields[i].Value:=ADOQPrintMon.FieldByName('本年實(shí)際').Value;
                        end;
                end;
                ADOQPrintMon.Next;
        end;
        ADOQuery4.Post;
end;
procedure TBusScaleForm.BitBtn5Click(Sender: TObject);{取消}
begin
       ButtonEnable(BitBtn5);
       BusTradeDataModule.ADOConnection1.RollbackTrans;
       DBGrid1.ReadOnly:=True;
       OpenAllPage;
end;

procedure TBusScaleForm.FormCreate(Sender: TObject);
begin
         IsDelete:=false;
         IsModifyIndex:=false;
end;

procedure TBusScaleForm.BitBtn6Click(Sender: TObject);{修改}
begin          
        if(IsEmptyRep)then
        begin
                MessageBox(self.handle,'數(shù)據(jù)為空！','消息',MB_OK);
                exit;
        end;
        ButtonEnable(BitBtn6);
        BusTradeDataModule.ADOConnection1.BeginTrans;
end;
function  TBusScaleForm.BalanceRelRight(curRecordStr:string):boolean;
var
Oper1,Oper2:single;
curPos:integer;
WrongMessage:string;
begin
                WrongMessage:='';
                {if((curRecordStr='G14') or (curRecordStr='G11'))then
                begin
                        LookUpZB(Oper1,'G14',curPos);
                        LookUpZB(Oper2,'G11',curPos);
                        if(Oper1>Oper2)then
                        begin
                              WrongMessage:='G14<=G11的平衡關(guān)系不滿(mǎn)足！';
                        end;
                end;
                if((curRecordStr='G18') or (curRecordStr='G15'))then
                begin
                        LookUpZB(Oper1,'G18',curPos);
                        LookUpZB(Oper2,'G15',curPos);
                        if(Oper1>Oper2)then
                        begin
                              WrongMessage:='G18<=G15的平衡關(guān)系不滿(mǎn)足！';
                        end;
                end;
                if(WrongMessage<>'')then
                begin
                        BalanceRelRight:=false;
                        //MessageBox(self.Handle,PCHAR(WrongMessage),PCHAR('錯(cuò)誤'),MB_OK);
                        exit;
                end;
                }
                BalanceRelRight:=true;
end;
procedure  TBusScaleForm.CheckBalanceRel(curRecordStr:string);
var
WrongMessage:string;
begin
        if((curRecordStr='TO13') or  (curRecordStr='TO15') or (curRecordStr='TO17')
           or  (curRecordStr='TO19') or  (curRecordStr='TO21') or (curRecordStr='TO22')
           or  (curRecordStr='TO23') or  (curRecordStr='TO26') or (curRecordStr='TO28')
           or  (curRecordStr='TO30') or  (curRecordStr='TO32') or (curRecordStr='TO34'))then
        begin