bustrademoneditunit.pas

公交行业的管理系统

unit BusTradeMonEditUnit;

interface

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

type
  TBusTradeMonEditFrm = 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;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    ComboBox2: TComboBox;
    Label5: TLabel;
    BusADOQueryDSDesigner: TWideStringField;
    BusADOQueryDSDesigner2: TSmallintField;
    BusADOQueryDSDesigner3: TSmallintField;
    BusADOQueryDSDesigner4: TWideStringField;
    BusADOQueryDSDesigner5: TWideStringField;
    BusADOQueryDSDesigner6: TWideStringField;
    BusADOQueryDSDesigner7: TDateTimeField;
    BusADOQueryG01: TIntegerField;
    BusADOQueryG02: TIntegerField;
    BusADOQueryG03: TIntegerField;
    BusADOQueryG04: TIntegerField;
    BusADOQueryG05: TIntegerField;
    BusADOQueryG06: TIntegerField;
    BusADOQueryG07: TIntegerField;
    BusADOQueryG08: TIntegerField;
    BusADOQueryG09: TIntegerField;
    BusADOQueryG10: TIntegerField;
    BusADOQueryG11: TIntegerField;
    BusADOQueryG12: TIntegerField;
    BusADOQueryG13: TIntegerField;
    BusADOQueryG14: TIntegerField;
    BusADOQueryG15: TIntegerField;
    BusADOQueryG16: TIntegerField;
    BusADOQueryG17: TIntegerField;
    BusADOQueryG18: TIntegerField;
    BusADOQueryG19: TIntegerField;
    BusADOQueryG20: TIntegerField;
    BusADOQueryG21: TIntegerField;
    BusADOQueryG22: TIntegerField;
    BusADOQueryG23: TIntegerField;
    BusADOQueryG24: TIntegerField;
    BusADOQueryG25: TIntegerField;
    BusADOQueryG26: TFloatField;
    BusADOQueryG27: TFloatField;
    BusADOQueryG28: TFloatField;
    BusADOQueryG29: TFloatField;
    BusADOQueryG30: TFloatField;
    BusADOQueryG31: TFloatField;
    BusADOQueryG32: TFloatField;
    BusADOQueryG33: TFloatField;
    BusADOQueryG34: TFloatField;
    BusADOQueryG35: TFloatField;
    BusADOQueryG36: TFloatField;
    BusADOQueryG37: TFloatField;
    BusADOQueryG38: TFloatField;
    BusADOQueryG39: TFloatField;
    BusADOQueryG40: TFloatField;
    BusADOQueryG41: TFloatField;
    BusADOQueryG42: TFloatField;
    BusADOQueryG43: TFloatField;
    BusADOQueryG44: TFloatField;
    BusADOQueryG45: TFloatField;
    BusADOQueryG46: TFloatField;
    BusADOQueryG47: TFloatField;
    BusADOQueryG48: TFloatField;
    BusADOQueryG49: TFloatField;
    BusADOQueryG50: TFloatField;
    BusADOQueryG51: TFloatField;
    BusADOQueryG52: TFloatField;
    BusADOQueryG53: TFloatField;
    BusADOQueryG54: TFloatField;
    BusADOQueryG55: TFloatField;
    BusADOQueryG56: TFloatField;
    BusADOQueryG57: TFloatField;
    BusADOQueryG58: TFloatField;
    BusADOQueryG59: TFloatField;
    BusADOQueryG60: TFloatField;
    BusADOQueryG61: TFloatField;
    BusADOQueryG62: TFloatField;
    BusADOQueryG64: TFloatField;
    BusADOQueryG65: TFloatField;
    BusADOQueryG66: TIntegerField;
    BusADOQueryG67: TFloatField;
    BusADOQueryG68: TFloatField;
    BusADOQueryG69: TFloatField;
    BusADOQueryG71: TFloatField;
    BusADOQueryG72: TIntegerField;
    BusADOQueryG73: TIntegerField;
    BusADOQueryG74: TFloatField;
    BusADOQueryG75: TIntegerField;
    BusADOQueryG76: TIntegerField;
    BusADOQueryG77: TIntegerField;
    BusADOQueryG78: TFloatField;
    BusADOQueryG79: TIntegerField;
    BusADOQueryG80: TIntegerField;
    BusADOQueryG81: TIntegerField;
    BusADOQueryG82: TIntegerField;
    BusADOQueryG83: TIntegerField;
    BusADOQueryDSDesigner8: TMemoField;
    ListView1: TListView;
    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;
    ListView2: TListView;
    Panel7: TPanel;
    Panel10: TPanel;
    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;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    Panel8: TPanel;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    ListView3: TListView;
    Panel11: TPanel;
    Panel12: TPanel;
    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;
    ListView4: TListView;
    Panel13: TPanel;
    Panel14: TPanel;
    DBEdit62: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    DBEdit69: 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;
    Edit4: TEdit;
    Panel15: TPanel;
    Label6: TLabel;
    Label7: 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
  BusTradeMonEditFrm: TBusTradeMonEditFrm;

implementation

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

{$R *.dfm}

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

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

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

procedure TBusTradeMonEditFrm.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 TBusTradeMonEditFrm.CheckYear:boolean;
var
YearValue:integer;
begin
        try
                YearValue:=StrToInt(ComboBox1.Text);