umenu.pas

Mosaic ERP大型系统 v6.09.rar

unit Umenu;

interface

uses
  Windows, Messages, SysUtils, Classes, shellAPI, Graphics, Controls, Forms, Dialogs,
  DBTables, registry, Buttons, Menus, StdCtrls, ActnList, ComCtrls,
  ExtCtrls, Db, ToolWin, StdActns, ImgList, ppComm, ppCache, ppClass,
  ppProd, ppReport, ppRptExp, ppBands, raIde, RxCalc, appexec, ppRelatv,
  ppDB, ppDBPipe, ppDBBDE, ppEndUsr, ppPrnabl, ppStrtch, ppDsgnDB, dadbbde,
  ppctrls, ppmodule, ppvar, raclass, racodmod, ravalue, dadatman,
  ppCTDsgn, myChkBox, DdeMan, TxtraDev, TXComp, AppEvent, RxGrdCpt ,
  leggiImpostazioni;

type
  Tmenu_form = class(TForm)
    MainMenu1: TMainMenu;
    Anagrafiche: TMenuItem;
    Nuovo2: TMenuItem;
    Elimina1: TMenuItem;
    Articolo1: TMenuItem;
    Cliente1: TMenuItem;
    Articolo2: TMenuItem;
    Fornitori1: TMenuItem;
    Depositi1: TMenuItem;
    CatClienti1: TMenuItem;
    CatArticoli1: TMenuItem;
    Causalidocumento1: TMenuItem;
    Help: TMenuItem;
    Manuale1: TMenuItem;
    CatMerceologiche1: TMenuItem;
    Iva1: TMenuItem;
    lista_Comandi: TActionList;
    Nuovo_articolo: TAction;
    Nuovo_soggetto: TAction;
    Fine_prg: TAction;
    Apri_articoli: TAction;
    Apri_soggetti: TAction;
    Modalitpagamento1: TMenuItem;
    Banche1: TMenuItem;
    Conti1: TMenuItem;
    Anagrafico1: TMenuItem;
    Anagrafico2: TMenuItem;
    Marche1: TMenuItem;
    Tipidocumento1: TMenuItem;
    Documenti1: TMenuItem;
    Imballi1: TMenuItem;
    Numeratori1: TMenuItem;
    Documenti: TMenuItem;
    FileMenu: TMenuItem;
    Nuovo3: TMenuItem;
    Apri1: TMenuItem;
    Amministrazione: TMenuItem;
    Pianopagamenti1: TMenuItem;
    Informazioni1: TMenuItem;
    Magazzino: TMenuItem;
    Giacenza1: TMenuItem;
    Tipidoc: TAction;
    Numeratori: TAction;
    Causali_documento: TAction;
    Depositi: TAction;
    Conti: TAction;
    Modalita_pagamento: TAction;
    Banche: TAction;
    Gruppi_soggetti: TAction;
    Imballi: TAction;
    Tabelle_iva: TAction;
    Marche: TAction;
    Categorie_merceologiche: TAction;
    Categorie_Articoli: TAction;
    Nuovo_documento: TAction;
    scorri_documenti: TAction;
    Situazione: TAction;
    Controllo_sottoscorta: TAction;
    Estratto_conto: TAction;
    Scadenziario: TAction;
    Inserimento_Pagamenti: TAction;
    Inserimento_incassi: TAction;
    barra_stato: TStatusBar;
    Mostra_ricerca: TAction;
    Impostazioni_globali: TAction;
    Impostazioniglobali1: TMenuItem;
    Tipisoggetto: TAction;
    TipoSoggetto1: TMenuItem;
    Zone: TAction;
    Zone1: TMenuItem;
    Agenti: TAction;
    Agenti1: TMenuItem;
    Listini1: TMenuItem;
    Listini: TAction;
    Finestre: TMenuItem;
    MinimizeAll1: TWindowMinimizeAll;
    Minimizza1: TMenuItem;
    Close1: TWindowClose;
    Close2: TMenuItem;
    Cascade1: TWindowCascade;
    Cascata1: TMenuItem;
    Varianti: TAction;
    Varianti1: TMenuItem;
    Stagioni: TAction;
    Stagioni1: TMenuItem;
    Vettori: TAction;
    Vettori1: TMenuItem;
    Ubicazioni: TAction;
    Ubicazioni1: TMenuItem;
    Etichette: TAction;
    Etichette1: TMenuItem;
    Mostra_toolbar: TAction;
    Mostratoolbar1: TMenuItem;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Soggetti: TPopupMenu;
    NuovoSoggetto1: TMenuItem;
    Anagraficasoggetti1: TMenuItem;
    articoli: TPopupMenu;
    NuovoArticolo1: TMenuItem;
    Articoli1: TMenuItem;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    scheda_soggetto: TAction;
    Schedasoggetto1: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Orologio: TTimer;
    Listaimmagini: TImageList;
    Shape7: TShape;
    Shape26: TShape;
    Shape25: TShape;
    Shape24: TShape;
    Shape1: TShape;
    Shape4: TShape;
    Shape6: TShape;
    Label7: TLabel;
    Shape5: TShape;
    Label8: TLabel;
    Shape3: TShape;
    Label1: TLabel;
    Shape2: TShape;
    Shape15: TShape;
    Label2: TLabel;
    Shape16: TShape;
    Shape22: TShape;
    Label10: TLabel;
    Shape23: TShape;
    ppDesigner1: TppDesigner;
    tblItem: TTable;
    dsItem: TDataSource;
    plItem: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    tblFolder: TTable;
    dsFolder: TDataSource;
    plFolder: TppBDEPipeline;
    ReportExplorer: TppReportExplorer;
    ReportManager: TAction;
    Tools: TMenuItem;
    ReportManager1: TMenuItem;
    document_manager: TAction;
    Documentexplorer1: TMenuItem;
    ToolButton9: TToolButton;
    Importazioni: TAction;
    Ribaelettroniche1: TMenuItem;
    Gestione1: TMenuItem;
    Generazioneautomatica1: TMenuItem;
    Dischetto1: TMenuItem;
    StoricoRb: TAction;
    generaRb: TAction;
    DiscoRb: TAction;
    TTMenu: TTable;
    Esegui: TAppExec;
    TTMenuEtichetta: TStringField;
    TTMenuComando: TStringField;
    TTMenuModificabile: TBooleanField;
    TTMenuVisibile: TBooleanField;
    ConfiguraMenu: TAction;
    DSMenu: TDataSource;
    ConfiguraMenu1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    TTMenuParametri: TStringField;
    TTMenuChiudiEURO2000: TBooleanField;
    TTMenuAttendiesecuzione: TBooleanField;
    Statistiche: TAction;
    informazioni: TAction;
    Contabilita1: TMenuItem;
    Primanota: TAction;
    PrimanotaMenu: TMenuItem;
    Primanota1: TMenuItem;
    contabilita: TToolButton;
    ToolButton11: TToolButton;
    PopupMenu1: TPopupMenu;
    MenuContabilita: TPopupMenu;
    Intestazione: TAction;
    Instestazione1: TMenuItem;
    Ritenute: TAction;
    Ritenute1: TMenuItem;
    GestioneRitenute: TAction;
    Ritenute2: TMenuItem;
    Importa_articoli: TAction;
    Importaarticoli1: TMenuItem;
    Imposta_Documenti: TAction;
    Impostazionidefault1: TMenuItem;
    Calcolatrice: TAction;
    RxCalculator: TRxCalculator;
    Calcolatrice1: TMenuItem;
    Shape9: TShape;
    Label5: TLabel;
    Shape10: TShape;
    ppDataDictionary1: TppDataDictionary;
    Label4: TLabel;
    Shape28: TShape;
    Shape27: TShape;