bustradeyeareditunit.~pas

公交行业的管理系统

unit BusTradeYearEditUnit;

interface

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

type
  TBusTradeYearEditFrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    Panel2: TPanel;
    Label11: TLabel;
    SpeedButton1: TSpeedButton;
    Edit9: TEdit;
    Panel5: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton2: TSpeedButton;
    ComboBox1: TComboBox;
    PageControl1: TPageControl;
    Panel4: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOQuery1: TADOQuery;
    BusADOQuery: TADOQuery;
    ADOQPrintYear: TADOQuery;
    ADOCommand1: TADOCommand;
    ListView1: TListView;
    ListView3: TListView;
    Panel11: TPanel;
    Panel12: TPanel;
    ListView4: TListView;
    Panel13: TPanel;
    Panel14: TPanel;
    DBMemo1: TDBMemo;
    Label4: TLabel;
    DataSource1: TDataSource;
    Panel6: TPanel;
    Panel9: TPanel;
    DBEdit1: TDBEdit;
    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;
    ListView2: TListView;
    Panel7: TPanel;
    Panel10: TPanel;
    DBEdit24: TDBEdit;
    DBEdit25: 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;
    DBEdit50: TDBEdit;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit62: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    DBEdit69: TDBEdit;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit75: TDBEdit;
    DBEdit76: TDBEdit;
    DBEdit77: TDBEdit;
    DBEdit78: TDBEdit;
    DBEdit79: TDBEdit;
    DBEdit80: TDBEdit;
    DBEdit81: TDBEdit;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    DBEdit84: TDBEdit;
    DBEdit85: TDBEdit;
    DBEdit86: TDBEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BusADOQueryDSDesigner: TWideStringField;
    BusADOQueryDSDesigner2: TIntegerField;
    BusADOQueryDSDesigner3: TWideStringField;
    BusADOQueryDSDesigner4: TWideStringField;
    BusADOQueryDSDesigner5: TWideStringField;
    BusADOQueryDSDesigner6: TDateTimeField;
    BusADOQueryGN01: TIntegerField;
    BusADOQueryGN02: TIntegerField;
    BusADOQueryGN03: TIntegerField;
    BusADOQueryGN04: TIntegerField;
    BusADOQueryGN05: TIntegerField;
    BusADOQueryGN06: TIntegerField;
    BusADOQueryGN07: TIntegerField;
    BusADOQueryGN08: TIntegerField;
    BusADOQueryGN09: TIntegerField;
    BusADOQueryGN10: TIntegerField;
    BusADOQueryGN11: TIntegerField;
    BusADOQueryGN12: TIntegerField;
    BusADOQueryGN13: TIntegerField;
    BusADOQueryGN14: TIntegerField;
    BusADOQueryGN15: TIntegerField;
    BusADOQueryGN16: TIntegerField;
    BusADOQueryGN17: TIntegerField;
    BusADOQueryGN18: TIntegerField;
    BusADOQueryGN19: TIntegerField;
    BusADOQueryGN20: TIntegerField;
    BusADOQueryGN21: TIntegerField;
    BusADOQueryGN22: TIntegerField;
    BusADOQueryGN23: TIntegerField;
    BusADOQueryGN24: TIntegerField;
    BusADOQueryGN25: TIntegerField;
    BusADOQueryGN26: TIntegerField;
    BusADOQueryGN27: TIntegerField;
    BusADOQueryGN28: TIntegerField;
    BusADOQueryGN29: TIntegerField;
    BusADOQueryGN30: TIntegerField;
    BusADOQueryGN31: TIntegerField;
    BusADOQueryGN32: TIntegerField;
    BusADOQueryGN33: TIntegerField;
    BusADOQueryGN34: TIntegerField;
    BusADOQueryGN35: TIntegerField;
    BusADOQueryGN36: TIntegerField;
    BusADOQueryGN37: TIntegerField;
    BusADOQueryGN38: TIntegerField;
    BusADOQueryGN39: TIntegerField;
    BusADOQueryGN40: TIntegerField;
    BusADOQueryGN41: TIntegerField;
    BusADOQueryGN42: TIntegerField;
    BusADOQueryGN43: TIntegerField;
    BusADOQueryGN44: TIntegerField;
    BusADOQueryGN45: TIntegerField;
    BusADOQueryGN46: TFloatField;
    BusADOQueryGN47: TIntegerField;
    BusADOQueryGN48: TIntegerField;
    BusADOQueryGN49: TIntegerField;
    BusADOQueryGN50: TIntegerField;
    BusADOQueryGN51: TIntegerField;
    BusADOQueryGN52: TIntegerField;
    BusADOQueryGN53: TIntegerField;
    BusADOQueryGN54: TIntegerField;
    BusADOQueryGN55: TIntegerField;
    BusADOQueryGN56: TIntegerField;
    BusADOQueryGN57: TIntegerField;
    BusADOQueryGN58: TFloatField;
    BusADOQueryGN59: TFloatField;
    BusADOQueryGN60: TIntegerField;
    BusADOQueryGN61: TFloatField;
    BusADOQueryGN62: TIntegerField;
    BusADOQueryGN63: TFloatField;
    BusADOQueryGN64: TFloatField;
    BusADOQueryGN65: TIntegerField;
    BusADOQueryGN66: TIntegerField;
    BusADOQueryGN67: TIntegerField;
    BusADOQueryGN68: TFloatField;
    BusADOQueryGN69: TFloatField;
    BusADOQueryGN70: TFloatField;
    BusADOQueryGN71: TFloatField;
    BusADOQueryGN72: TFloatField;
    BusADOQueryGN73: TFloatField;
    BusADOQueryGN74: TFloatField;
    BusADOQueryGN75: TFloatField;
    BusADOQueryGN76: TFloatField;
    BusADOQueryGN77: TFloatField;
    BusADOQueryGN78: TFloatField;
    BusADOQueryGN79: TFloatField;
    BusADOQueryGN80: TFloatField;
    BusADOQueryGN81: TFloatField;
    BusADOQueryGN82: TFloatField;
    BusADOQueryGN83: TIntegerField;
    BusADOQueryGN84: TIntegerField;
    BusADOQueryGN85: TIntegerField;
    BusADOQueryGN86: TIntegerField;
    BusADOQueryDSDesigner7: TMemoField;
    Panel8: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
   // procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BusADOQueryAfterInsert(DataSet: TDataSet);
    procedure BusADOQueryBeforePost(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    function  IsEmptyRep():boolean;
    function  CheckYear():boolean;
    function  CheckBalance():boolean;
    function  YearDataNul():boolean;
    procedure ButtonUnactive();
    procedure ButtonEnable(curButton:TButton);
    procedure PanelEnable(Bool:Boolean);
    function  AddPrnQuery():boolean;
    procedure OpenAllPage();
    procedure FillDataToZTable(SrcTable:TADOQuery;DesTable:TADOQuery);
    procedure DealDBEditExit(Sender: TObject);
    procedure DealProc1(ResultValue:string;Oper1Value:string;Oper2Value:string;curSigh:string);
    procedure LookUpZB(var OperValue:single;OperName:string;var curPos:integer);
    procedure DealProc(var ResultValue:single;Oper1Value:single;Oper2Value:single;curSigh:string);
 public
    { Public declarations }
  end;

var
  BusTradeYearEditFrm: TBusTradeYearEditFrm;

implementation

uses BusTradeDataModuleUnit, EprSelectUnit, Code2, PrintNameBook, PrintProc,
  PrintInfoUnit, CitySelectUnit;

{$R *.dfm}

procedure TBusTradeYearEditFrm.SpeedButton1Click(Sender: TObject);
begin
        if(CitySelectForm.showmodal=mrok)then
        BusTradeYearEditFrm.Edit9.Text:=CitySelectForm.Edit1.Text;
end;

procedure TBusTradeYearEditFrm.Edit9Change(Sender: TObject);
begin
        ButtonUnactive();
end;

procedure TBusTradeYearEditFrm.ButtonUnactive();
Begin
        BitBtn2.Enabled:=false;
        BitBtn3.Enabled:=false;
        BitBtn4.Enabled:=false;
        BitBtn5.Enabled:=false;
        BitBtn6.Enabled:=false;
        BitBtn8.Enabled:=false;
end;
procedure TBusTradeYearEditFrm.ComboBox1Change(Sender: TObject);
begin
        ButtonUnactive();
end;

procedure TBusTradeYearEditFrm.SpeedButton2Click(Sender: TObject);
begin
        if(Edit9.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);
        showmessage('由于速度较慢，请您稍等！');
        AddPrnQuery;
        OpenAllPage;
        if(IsEmptyRep())then
        begin
                MessageBox(self.Handle,'不存在本年数据！','消息',MB_OK);
                BitBtn6.enabled:=false;
                exit;
        end;
        BitBtn6.Enabled:=true;
end;

function TBusTradeYearEditFrm.CheckYear:boolean;
var
YearValue:integer;
begin