bustradejleditunit.~pas

公交行业的管理系统

unit BusTradeJLEditUnit;

interface

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

type
  TBusTradeJLEditFrm = 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;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Panel6: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    ADOQuery2: TADOQuery;
    ADOQPrintYear: TADOQuery;
    Panel10: TPanel;
    Panel11: TPanel;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    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;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    ListView1: TListView;
    ListView2: TListView;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit49: TDBEdit;
    ADOQuery1DSDesigner: TSmallintField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TDateTimeField;
    ADOQuery1JG01: TIntegerField;
    ADOQuery1JG02: TFloatField;
    ADOQuery1JG03: TFloatField;
    ADOQuery1JG04: TFloatField;
    ADOQuery1JG05: TFloatField;
    ADOQuery1JG06: TFloatField;
    ADOQuery1JG07: TFloatField;
    ADOQuery1JG08: TFloatField;
    ADOQuery1JG09: TFloatField;
    ADOQuery1JG10: TFloatField;
    ADOQuery1JG11: TFloatField;
    ADOQuery1JG12: TIntegerField;
    ADOQuery1JG13: TIntegerField;
    ADOQuery1JG14: TFloatField;
    ADOQuery1JG15: TFloatField;
    ADOQuery1JG16: TIntegerField;
    ADOQuery1JG17: TIntegerField;
    ADOQuery1JG18: TIntegerField;
    ADOQuery1JG19: TIntegerField;
    ADOQuery1JG20: TIntegerField;
    ADOQuery1JG21: TIntegerField;
    ADOQuery1JG22: TIntegerField;
    ADOQuery1JG23: TIntegerField;
    ADOQuery1JG24: TFloatField;
    ADOQuery1JG25: TFloatField;
    ADOQuery1JG26: TFloatField;
    ADOQuery1JG27: TFloatField;
    ADOQuery1JG28: TFloatField;
    ADOQuery1JG29: TFloatField;
    ADOQuery1JG30: TFloatField;
    ADOQuery1JG31: TIntegerField;
    ADOQuery1JG32: TFloatField;
    ADOQuery1JG33: TIntegerField;
    ADOQuery1JG34: TIntegerField;
    ADOQuery1JG35: TIntegerField;
    ADOQuery1JG36: TIntegerField;
    ADOQuery1JG37: TIntegerField;
    ADOQuery1JG38: TIntegerField;
    ADOQuery1JG39: TFloatField;
    ADOQuery1JG40: TFloatField;
    ADOQuery1JG41: TFloatField;
    ADOQuery1JG42: TFloatField;
    ADOQuery1JG43: TFloatField;
    ADOQuery1JG44: TFloatField;
    ADOQuery1JG45: TFloatField;
    ADOQuery1JG46: TIntegerField;
    ADOQuery1JG47: TFloatField;
    ADOQuery1JG48: TIntegerField;
    ADOQuery1JG49: TIntegerField;
    ADOQuery1DSDesigner4: TMemoField;
    Edit1: TEdit;
    DBEdit48: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit50: TDBEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    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 BitBtn7Click(Sender: TObject);
    procedure Edit01Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    function  AddPrnQuery:boolean;
    function  CheckYear:boolean;
    function  IsEmptyRep():boolean;
    procedure OpenAllPage();
    procedure ButtonEnable(curButton:TButton);
    procedure FillDataToZTable(SrcTable:TADOQuery;DesTable:TADOQuery);
    function  CheckBalance():boolean;
    procedure DealDBEditExit(Sender: TObject);
  public
    { Public declarations }
  end;

var
  BusTradeJLEditFrm: TBusTradeJLEditFrm;

implementation

uses  CitySelectUnit, PrintProc2, PrintInfoUnit, BusTradeDataModuleUnit,
  PrintProc;

{$R *.dfm}

procedure TBusTradeJLEditFrm.SpeedButton1Click(Sender: TObject);
begin
        if(CitySelectForm.showmodal=mrok)then
        BusTradeJLEditFrm.Edit01.Text:=CitySelectForm.Edit1.Text;
end;

procedure TBusTradeJLEditFrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
        if(Key=Char(13))then
        begin
                key:=Char(0);
                Selectnext(self.ActiveControl,true,true);
        end;
end;

procedure TBusTradeJLEditFrm.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;
        Panel9.Enabled:=false;
end;

procedure TBusTradeJLEditFrm.SpeedButton2Click(Sender: TObject);
begin
        if(Edit01.Text='')then
        begin
                showmessage('请选择城市代码！');
                exit;
        end;

        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 TBusTradeJLEditFrm.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 TBusTradeJLEditFrm.BitBtn2Click(Sender: TObject);
begin
        if(IsEmptyRep)then
        begin
                MessageBox(self.handle,'数据为空！','消息',MB_OK);
                BitBtn6.Enabled:=false;
                exit;
        end;
        ButtonEnable(BitBtn2);
        ADOQuery1.Edit;
end;

procedure TBusTradeJLEditFrm.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 TBusTradeJLEditFrm.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 TBusTradeJLEditFrm.BitBtn5Click(Sender: TObject);
begin
       ButtonEnable(BitBtn5);