bustradescaleeditunit.pas

公交行业的管理系统

unit BusTradeScaleEditUnit;

interface

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

type
  TBusTradeScaleEditFrm = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Panel4: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton2: TSpeedButton;
    ComboBox2: TComboBox;
    Panel5: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Panel29: TPanel;
    Label8: TLabel;
    SpeedButton1: TSpeedButton;
    Edit01: TEdit;
    Panel2: TPanel;
    Panel6: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    ListView1: TListView;
    Panel7: TPanel;
    ListView2: TListView;
    Panel8: TPanel;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    Panel9: TPanel;
    Panel10: TPanel;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOCommand1: TADOCommand;
    ADOQPrintYear: TADOQuery;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    Edit1: TEdit;
    DBEdit50: TDBEdit;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TSmallintField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1TO01: TWideStringField;
    ADOQuery1TO02: TFloatField;
    ADOQuery1TO03: TFloatField;
    ADOQuery1TO04: TFloatField;
    ADOQuery1TO05: TFloatField;
    ADOQuery1TO06: TFloatField;
    ADOQuery1TO07: TFloatField;
    ADOQuery1TO08: TFloatField;
    ADOQuery1TO09: TFloatField;
    ADOQuery1TO10: TFloatField;
    ADOQuery1TO11: TFloatField;
    ADOQuery1TO12: TFloatField;
    ADOQuery1TO13: TFloatField;
    ADOQuery1TO14: TFloatField;
    ADOQuery1TO15: TFloatField;
    ADOQuery1TO16: TFloatField;
    ADOQuery1TO17: TFloatField;
    ADOQuery1TO18: TFloatField;
    ADOQuery1TO19: TFloatField;
    ADOQuery1TO20: TFloatField;
    ADOQuery1TO21: TFloatField;
    ADOQuery1TO22: TFloatField;
    ADOQuery1TO23: TFloatField;
    ADOQuery1TO24: TFloatField;
    ADOQuery1TO26: TFloatField;
    ADOQuery1TO27: TFloatField;
    ADOQuery1TO28: TFloatField;
    ADOQuery1TO29: TFloatField;
    ADOQuery1TO30: TFloatField;
    ADOQuery1TO31: TFloatField;
    ADOQuery1TO32: TFloatField;
    ADOQuery1TO33: TFloatField;
    ADOQuery1TO34: TFloatField;
    ADOQuery1TO35: TFloatField;
    ADOQuery1TO36: TFloatField;
    ADOQuery1TO37: TFloatField;
    ADOQuery1TO38: TIntegerField;
    ADOQuery1TO39: TFloatField;
    ADOQuery1TO40: TFloatField;
    ADOQuery1TO41: TFloatField;
    ADOQuery1TO42: TFloatField;
    ADOQuery1TO43: TIntegerField;
    ADOQuery1TO44: TIntegerField;
    ADOQuery1TO45: TIntegerField;
    ADOQuery1TO46: TIntegerField;
    ADOQuery1TO47: TFloatField;
    ADOQuery1TO48: TIntegerField;
    ADOQuery1TO49: TFloatField;
    ADOQuery1TO50: TFloatField;
    ADOQuery1DSDesigner6: TMemoField;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit01Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    function  CheckBalance():boolean;
    function  CheckYear:boolean;
    function  IsEmptyRep():boolean;
    function  AddPrnQuery:boolean;
    procedure OpenAllPage();
    procedure ButtonEnable(curButton:TButton);
    procedure FillDataToZTable(SrcTable:TADOQuery;DesTable:TADOQuery);
  public
    { Public declarations }
  end;

var
  BusTradeScaleEditFrm: TBusTradeScaleEditFrm;

implementation

uses  CitySelectUnit, PrintInfoUnit,
  PrintProc2, PrintNameBook, BusTradeDataModuleUnit, PrintProc;

{$R *.dfm}

procedure TBusTradeScaleEditFrm.SpeedButton1Click(Sender: TObject);
begin
        if(CitySelectForm.showmodal=mrok)then
        BusTradeScaleEditFrm.Edit01.Text:=CitySelectForm.Edit1.Text;

end;

procedure TBusTradeScaleEditFrm.Edit01Change(Sender: TObject);
begin
        BitBtn1.Enabled:=false;
        BitBtn2.Enabled:=false;
        BitBtn3.Enabled:=false;
        BitBtn4.Enabled:=false;
        BitBtn5.Enabled:=false;
        BitBtn6.Enabled:=false;
        Panel8.Enabled:=false;
        Panel7.Enabled:=false;
end;

procedure TBusTradeScaleEditFrm.ComboBox2Change(Sender: TObject);
begin
        BitBtn1.Enabled:=false;
        BitBtn2.Enabled:=false;
        BitBtn3.Enabled:=false;
        BitBtn4.Enabled:=false;
        BitBtn5.Enabled:=false;
        BitBtn6.Enabled:=false;
        Panel8.Enabled:=false;
        Panel7.Enabled:=false;
end;

procedure TBusTradeScaleEditFrm.SpeedButton2Click(Sender: TObject);
begin
        if(not CheckYear)then exit;
        if(BitBtn4.Enabled=true)then
        begin
                MessageBox(self.Handle,'请先确认你的添加，修改，删除结果。','注意',MB_OK);
                exit;
        end;

        ButtonEnable(nil);
        AddPrnQuery;
        OpenAllPage;
        if(IsEmptyRep())then
        begin
                MessageBox(self.Handle,'不存在本年数据！','消息',MB_OK);
                BitBtn6.enabled:=false;
                exit;
        end;
        BitBtn6.Enabled:=true;
end;

procedure TBusTradeScaleEditFrm.BitBtn1Click(Sender: TObject);
begin
        if(not CheckYear)then exit;
        if(not IsEmptyRep)then
        begin
                showmessage('该年数据已存在,请先删除该年数据！');
                BitBtn6.Enabled:=true;
                exit;
        end;
        ButtonEnable(BitBtn1);
        ADOQuery1.Append;
end;

procedure TBusTradeScaleEditFrm.BitBtn2Click(Sender: TObject);
begin
        if(IsEmptyRep)then
        begin
                MessageBox(self.handle,'数据为空！','消息',MB_OK);
                exit;
        end;

        ButtonEnable(BitBtn2);
        ADOQuery1.Edit;
end;

procedure TBusTradeScaleEditFrm.BitBtn3Click(Sender: TObject);
begin
        if(IsemptyRep)then
        begin
                showmessage('不存在该年数据！');
                BitBtn6.Enabled:=false;
                exit;
        end;

        if(MessageBox(self.Handle,'你是否删除？','提示',MB_OKCANCEL)=IDOK)then
        begin
                BusTradeDataModule.ADOConnection1.BeginTrans;
                ADOCommand1.CommandText:='delete from  公交行业城市规模指标表 '+' where  统计年份='+
                                         ComboBox2.text+' and 城市代码='+''''+Edit01.text+'''';
                ADOCommand1.Execute;

                ADOCommand1.CommandText:='delete from  公交行业城市规模指标表_z '+
                                        ' where  统计年份='+ComboBox2.text+
                                        ' and 城市代码='+''''+Edit01.text+'''';
                ADOCommand1.Execute;

                BusTradeDataModule.ADOConnection1.CommitTrans;
                ButtonEnable(BitBtn3);
                BitBtn6.Enabled:=false;
                OpenAllPage;
                AddPrnQuery;
                exit;
       end;
       BitBtn6.Enabled:=true;
end;

procedure TBusTradeScaleEditFrm.BitBtn4Click(Sender: TObject);
begin
        if(CheckBalance)then exit;
        if(ADOQuery1.State in [dsInsert,dsEdit])then
                ADOQuery1.Post;
        ButtonEnable(BitBtn4);
        FillDataToZTable(ADOQuery1,ADOQPrintYear);
        showmessage('数据已经保存！');
        BitBtn6.Enabled:=true;
end;

procedure TBusTradeScaleEditFrm.BitBtn5Click(Sender: TObject);
begin
       ButtonEnable(BitBtn5);
       ADOQuery1.Cancel;
end;

procedure TBusTradeScaleEditFrm.BitBtn6Click(Sender: TObject);
var iRows,iCols,i:integer;
begin