menuunit.~pas

公交行业的管理系统

        PrintExcelShow;
        PrintPreview;//PrintOut;
        CloseActiveBook;

end;

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

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

end;

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

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

end;

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

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

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

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

procedure TMainFrm.N55Click(Sender: TObject);
begin
        Application.CreateForm(TBusHYMonthRep, BusHYMonthRep);
        BusHYMonthRep.ShowModal;
        BusHYMonthRep.Free;
end;

procedure TMainFrm.N57Click(Sender: TObject);
begin
        Application.CreateForm(TBusHYYearRep, BusHYYearRep);
        BusHYYearRep.ShowModal;
        BusHYYearRep.Free;
end;

procedure TMainFrm.N59Click(Sender: TObject);
begin
        Application.CreateForm(TBusTraZhYearFm, BusTraZhYearFm);
        BusTraZhYearFm.ShowModal;
        BusTraZhYearFm.Free;
end;

procedure TMainFrm.N61Click(Sender: TObject);
begin
        Application.CreateForm(TBusTraCityJLFm, BusTraCityJLFm);
        BusTraCityJLFm.ShowModal;
        BusTraCityJLFm.Free;
end;

procedure TMainFrm.N63Click(Sender: TObject);
begin
        Application.CreateForm(TBusTraCityScaleFm, BusTraCityScaleFm);
        BusTraCityScaleFm.ShowModal;
        BusTraCityScaleFm.Free;
end;

procedure TMainFrm.N64Click(Sender: TObject);
begin
        Application.CreateForm(TAnnualReport, AnnualReport);
        AnnualReport.ShowModal;
        AnnualReport.Free;
end;

procedure TMainFrm.N40Click(Sender: TObject);
begin
        Application.CreateForm(TBusCityJLRepFrm, BusCityJLRepFrm);
        BusCityJLRepFrm.ShowModal;
        BusCityJLRepFrm.Free;
end;

procedure TMainFrm.N34Click(Sender: TObject);
begin
                Application.CreateForm(TBusTradeYearEditFrm, BusTradeYearEditFrm);
                BusTradeYearEditFrm.ShowModal;
                BusTradeYearEditFrm.Free;
end;

procedure TMainFrm.N39Click(Sender: TObject);
begin
        Application.CreateForm(TBusTradeZHYearRepFrm, BusTradeZHYearRepFrm);
        BusTradeZHYearRepFrm.ShowModal;
        BusTradeZHYearRepFrm.Free;
end;

procedure TMainFrm.N30Click(Sender: TObject);
begin
        Application.CreateForm(TLookImportData4, LookImportData4);
        Application.CreateForm(TLookImportData5, LookImportData5);
        Application.CreateForm(TTradeOutputFrm, TradeOutputFrm);
        TradeOutputFrm.ShowModal;
        TradeOutputFrm.Free;
        LookImportData4.Free;
        LookImportData5.Free;
end;

procedure TMainFrm.N33Click(Sender: TObject);
begin
        Application.CreateForm(TBusTradeMonEditFrm, BusTradeMonEditFrm);
        BusTradeMonEditFrm.ShowModal;
        BusTradeMonEditFrm.Free;
end;

procedure TMainFrm.N35Click(Sender: TObject);
begin
                Application.CreateForm(TBusTradeJLEditFrm, BusTradeJLEditFrm);
                BusTradeJLEditFrm.showmodal;
                BusTradeJLEditFrm.free;
end;

procedure TMainFrm.N36Click(Sender: TObject);
begin
                 Application.CreateForm(TBusTradeScaleEditFrm, BusTradeScaleEditFrm);
                 BusTradeScaleEditFrm.showmodal;
                 BusTradeScaleEditFrm.free;
end;

procedure TMainFrm.N37Click(Sender: TObject);
begin
        Application.CreateForm(TBusTradeCountMonFm, BusTradeCountMonFm);
        BusTradeCountMonFm.ShowModal;
        BusTradeCountMonFm.Free;
end;

procedure TMainFrm.N66Click(Sender: TObject);
begin
        {Application.CreateForm(TBusTraZHYearLRFm, BusTraZHYearLRFm);
        BusTraZHYearLRFm.ShowModal;
        BusTraZHYearLRFm.Free;}
end;

procedure TMainFrm.N65Click(Sender: TObject);
begin
        {Application.CreateForm(TBusTraYearLRFm, BusTraYearLRFm);
        BusTraYearLRFm.ShowModal;
        BusTraYearLRFm.Free;}
end;

procedure TMainFrm.N9Click(Sender: TObject);
begin
        Application.CreateForm(TAddYearRepQueryFrm, AddYearRepQueryFrm);
        Application.CreateForm(TAddYearQueryFrm, AddYearQueryFrm);
        AddYearQueryFrm.ShowModal;
        AddYearQueryFrm.Free;
        AddYearRepQueryFrm.Free;
        
end;

procedure TMainFrm.N11Click(Sender: TObject);
begin
        Application.CreateForm(TCityGRepQueryFrm, CityGRepQueryFrm);
        Application.CreateForm(TCityGQueryFrm, CityGQueryFrm);
        CityGQueryFrm.ShowModal;
        CityGQueryFrm.Free;
        CityGRepQueryFrm.Free;
end;

procedure TMainFrm.N10Click(Sender: TObject);
begin
        Application.CreateForm(TCityJRepQueryFrm, CityJRepQueryFrm);
        Application.CreateForm(TCityJQueryFrm, CityJQueryFrm);
        CityJQueryFrm.ShowModal;
        CityJQueryFrm.Free;
        CityJRepQueryFrm.Free;
end;

procedure TMainFrm.FormShow(Sender: TObject);
begin
       if FileExists(dirstr+'\'+'water.jpg') then
       begin
       image1.Picture.LoadFromFile(dirstr+'\'+'water.jpg');
       end;
end;

procedure TMainFrm.N49Click(Sender: TObject);
begin
{      Application.CreateForm(Tsystemform, systemform);
      systemform.showmodal;
      systemform.Free;    }
      flag:=1;
        Application.CreateForm(TFormLogin, FormLogin);
        FormLogin.showmodal;
        FormLogin.free;
end;

procedure TMainFrm.N38Click(Sender: TObject);
begin
        Application.CreateForm(TBusTradeYearRepFrm, BusTradeYearRepFrm);
        BusTradeYearRepFrm.ShowModal;
        BusTradeYearRepFrm.Free;
end;

procedure TMainFrm.N310Click(Sender: TObject);
begin
     Application.CreateForm(TQuery3Form, Query3Form);
     Query3Form.showmodal;
     Query3Form.Destroy;
end;

procedure TMainFrm.N7Click(Sender: TObject);
begin
       Application.CreateForm(THYMonQueryFrm, HYMonQueryFrm);
       Application.CreateForm(THYMonthRepQueryFrm, HYMonthRepQueryFrm);
       HYMonQueryFrm.showmodal;
       HYMonQueryFrm.Destroy;
       HYMonthRepQueryFrm.Destroy;
end;

procedure TMainFrm.N8Click(Sender: TObject);
begin
      Application.CreateForm(THYYearQueryFrm, HYYearQueryFrm);
      Application.CreateForm(THYYearRepQueryFrm, HYYearRepQueryFrm);
      HYYearQueryFrm.showmodal;
      HYYearQueryFrm.Destroy;
      HYYearRepQueryFrm.Destroy;
end;

procedure TMainFrm.gp1Click(Sender: TObject);
begin
        Application.CreateForm(TQueryForm, QueryForm);
        QueryForm.ShowModal;
        QueryForm.Free;
end;

procedure TMainFrm.gym1Click(Sender: TObject);
begin
       Application.CreateForm(TNameBookScaleQuery, NameBookScaleQuery);
       NameBookScaleQuery.showmodal;
       NameBookScaleQuery.destroy;
end;

procedure TMainFrm.N48Click(Sender: TObject);
begin
      WinExec(PCHAR(ExtractFilePath(Application.ExeName)+'BusCorProj.exe'),SW_SHOW);
end;

procedure TMainFrm.SF1Click(Sender: TObject);
begin
       Application.CreateForm(TQueryForm2, QueryForm2);
       QueryForm2.showmodal;
       QueryForm2.destroy;
end;

procedure TMainFrm.N67Click(Sender: TObject);
begin
       Application.CreateForm(TNameBookSaleQuery, NameBookSaleQuery);
       NameBookSaleQuery.showmodal;
       NameBookSaleQuery.Destroy;
end;

procedure TMainFrm.N68Click(Sender: TObject);
begin
      Application.CreateForm(TBusTradeCSZHYearRepFrm, BusTradeCSZHYearRepFrm);
      BusTradeCSZHYearRepFrm.showmodal;
      BusTradeCSZHYearRepFrm.Destroy;
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;

procedure TMainFrm.N31Click(Sender: TObject);
begin
      Application.CreateForm(TBHForm, BHForm);
      Application.CreateForm(TOKBottomDlg, OKBottomDlg);
      BHForm.showmodal;
      OKBottomDlg.Destroy;
      BHForm.Destroy;
end;

procedure TMainFrm.N32Click(Sender: TObject);
begin
      Application.HelpFile:=ExtractFilePath(Application.ExeName)+'help\D5.hlp';
      Application.HelpCommand(HELP_FINDER, 0);
end;

procedure TMainFrm.N70Click(Sender: TObject);
begin
        Application.CreateForm(TEpr_NameBook, Epr_NameBook);
        Epr_NameBook.showmodal;
        Epr_NameBook.Free;
end;

end.