menuunit.pas

公交行业的管理系统

unit MenuUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, jpeg;

type
  TMainFrm = class(TForm)
    MainMenu: TMainMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N21: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    Image1: TImage;
    N310: TMenuItem;
    gp1: TMenuItem;
    gym1: TMenuItem;
    SF1: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N32: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N310Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure gp1Click(Sender: TObject);
    procedure gym1Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure SF1Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //dirstr:String;
    dirstr:string;
    flag:integer;
  end;

var
  MainFrm: TMainFrm;

implementation

uses HYMonthCompareUnit, HYYearCompareUnit, OtherHYCompareUnit,
  OtherHYYearCompareUnit, BusTradeDataModuleUnit,{ Code,} PrintInfoUnit,
  PrintProc, TradeSelfJLCompareUnit, OtherTradeJLCompareUnit,
  TradeSelfScaleCompareUnit, OtherTradeScaleCompareUnit, TradeImportUnit,
  Epr_SelectUnit, BusTraNameBookComUnit, BusHYMonthRepUnit,
  BusHYYearReportUnit, BusTraCityJLUnit, BusTraCityScaleUnit,
  BusTraNameBookYUnit, BusTraZHYearUnit, Query, BusIndustry_Report,
  {BusTraMonLRUnit,} BusTradeMonSumUnit, BusTradeYearSumUnit,
  BusCityJLRepUnit, BusTradeYearEditUnit, BusTradeZHYearRepUnit,
  LookImportData4Unit, LookImportData5Unit,
  BusTradeCountMonUnit, {BusTraYearLRUnit,}
  {BusTraZHYearLRUnit, }AddYearQueryUnit, CityGQueryUnit, CityJQueryUnit,
  AddYearRepQueryUnit, CityGRepQueryUnit, CityJRepQueryUnit{, SystemSetUnit},
  BusTradeYearRepUnit, SystemSetUnit, Query3Unit, HYMonQueryUnit,
  HYYearQueryUnit, NameBookScaleQueryUnit, Query2, HYMonthReportUnit,
  HYYearReportQuery, NameBookSaleQueryUnit, BusTradeCSZHYearRepUnit,
  CitySelectUnit, Unit3, Unit1, TradeOutputUnit, Epr_NameBookUnit,
  HYLookImportDataUnit3, HYLookImportDataUnit2, HYLookImportDataUnit,
  Unitlogin, BusTradeMonEditUnit, BusTradeScaleEditUnit, BusTradeJLEditUnit;

{$R *.dfm}

procedure TMainFrm.N4Click(Sender: TObject);
begin
        {Application.CreateForm(THYMonthCompareFrm, HYMonthCompareFrm);
        HYMonthCompareFrm.ShowModal;
        HYMonthCompareFrm.Free;}
        Application.CreateForm(TBusTradeYearSumFrm, BusTradeYearSumFrm);
        BusTradeYearSumFrm.ShowModal;
        BusTradeYearSumFrm.Free;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
        OpenExcelApp;
        GetDir(0,dirstr); { 0 = Current drive }
end;

procedure TMainFrm.FormDestroy(Sender: TObject);
begin
        CloseExcelApp;
end;

procedure TMainFrm.N5Click(Sender: TObject);
begin
        Application.CreateForm(TOtherHYMonthFrm, OtherHYMonthFrm);
        OtherHYMonthFrm.ShowModal;
        OtherHYMonthFrm.Free;
end;

procedure TMainFrm.N2Click(Sender: TObject);
begin
        {Application.CreateForm(TBusTraMonLRFm, BusTraMonLRFm);
        BusTraMonLRFm.ShowModal;
        BusTraMonLRFm.Free;}
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
        //EprSelect.ShowModal;
        Application.CreateForm(TBusTradeMonSumFrm, BusTradeMonSumFrm);
        BusTradeMonSumFrm.ShowModal;
        BusTradeMonSumFrm.Free;
end;

procedure TMainFrm.N18Click(Sender: TObject);
begin
        Application.CreateForm(THYMonthCompareFrm, HYMonthCompareFrm);
        HYMonthCompareFrm.ShowModal;
        HYMonthCompareFrm.Free;
end;

procedure TMainFrm.N19Click(Sender: TObject);
begin
        Application.CreateForm(TOtherHYMonthFrm, OtherHYMonthFrm);
        OtherHYMonthFrm.ShowModal;
        OtherHYMonthFrm.Free;
end;

procedure TMainFrm.N20Click(Sender: TObject);
begin
        Application.CreateForm(THYYearCompare, HYYearCompare);
        HYYearCompare.ShowModal;
        HYYearCompare.Free;
end;

procedure TMainFrm.N21Click(Sender: TObject);
begin
        Application.CreateForm(TOtherHYYearCompareFrm, OtherHYYearCompareFrm);
        OtherHYYearCompareFrm.ShowModal;
        OtherHYYearCompareFrm.Free;        
end;
procedure TMainFrm.N22Click(Sender: TObject);
begin
        Application.CreateForm(TTradeSelfJLCompare, TradeSelfJLCompare);
        TradeSelfJLCompare.ShowModal;
        TradeSelfJLCompare.Free;

end;

procedure TMainFrm.N23Click(Sender: TObject);
begin
        Application.CreateForm(TOtherTradeJLCompare, OtherTradeJLCompare);
        OtherTradeJLCompare.ShowModal;
        OtherTradeJLCompare.Free;
end;

procedure TMainFrm.N24Click(Sender: TObject);
begin
        Application.CreateForm(TTradeSelfScaleCompare, TradeSelfScaleCompare);
        TradeSelfScaleCompare.ShowModal;
        TradeSelfScaleCompare.Free;
end;

procedure TMainFrm.N25Click(Sender: TObject);
begin
        Application.CreateForm(TOtherTradeScaleCompare, OtherTradeScaleCompare);
        OtherTradeScaleCompare.ShowModal;
        OtherTradeScaleCompare.Free;
end;

procedure TMainFrm.N29Click(Sender: TObject);
begin
        Application.CreateForm(THYLookImportData3, HYLookImportData3);
        Application.CreateForm(THYLookImportData2, HYLookImportData2);
        Application.CreateForm(THYLookImportData, HYLookImportData);
        Application.CreateForm(TTradeImportFrm, TradeImportFrm);
        TradeImportFrm.ShowModal;
        TradeImportFrm.Free;
end;

procedure TMainFrm.N51Click(Sender: TObject);
begin
        Close;
end;

procedure TMainFrm.N13Click(Sender: TObject);
begin
        Application.CreateForm(TBusTraNameBookComFm, BusTraNameBookComFm);
        BusTraNameBookComFm.ShowModal;
        BusTraNameBookComFm.Free;
end;

procedure TMainFrm.N52Click(Sender: TObject);
begin
        if DeviceDetect=0 then
        begin
                exit;
        end;

        PrintInit(ExtractFilePath(Application.ExeName),'BusTradeNameBookTab');
        PrintExcelShow;
        PrintPreview;//PrintOut;
        CloseActiveBook;

end;

procedure TMainFrm.N53Click(Sender: TObject);
begin
        Application.CreateForm(TBusTraNameBookYFm, BusTraNameBookYFm);
        BusTraNameBookYFm.ShowModal;
        BusTraNameBookYFm.Free;
end;

procedure TMainFrm.N54Click(Sender: TObject);
begin
        if DeviceDetect=0 then
        begin
                exit;
        end;

        PrintInit(ExtractFilePath(Application.ExeName),'BusTradeCountMonTab');