liste_nozze.pas

基于OOP设计的一套较好的ERP系统

unit Liste_nozze;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Menus, Grids, DBGridEh, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask,
  DBGrids, ActnList, ComCtrls, ToolWin, ImgList, ppModule, daDatMod,
  ppBands, ppVar, ppCtrls, ppPrnabl, ppClass, ppDB, ppProd, ppReport,
  ppComm, ppRelatv, ppCache, ppDBPipe, ppDBBDE, raCodMod, ppStrtch, ppMemo,
  ppBarCod;


type
  TLista_nozze = class(TForm)
    MainMenu1: TMainMenu;
    File_menu: TMenuItem;
    liste: TTable;
    lista: TTable;
    DSListe: TDataSource;
    DSLista: TDataSource;
    tbolle: TTable;
    dbolle: TTable;
    promozione: TTable;
    ActionList1: TActionList;
    Articoli: TAction;
    Listaimmagini: TImageList;
    InsListe: TAction;
    AnagraficiBox: TGroupBox;
    listaIdlista: TIntegerField;
    listaIdriga: TIntegerField;
    listaArticolo: TStringField;
    listaDescrizione: TStringField;
    listaQta: TFloatField;
    listaPrezzoL: TCurrencyField;
    listaPrezzoE: TCurrencyField;
    listaQtaprenota: TFloatField;
    listaQtaconsegnata: TFloatField;
    listaOrdinamento: TIntegerField;
    listeIndirizzoattualesposo: TStringField;
    listeIndirizzoattualesposa: TStringField;
    listeCAPattualesposo: TStringField;
    listeCAPattualesposa: TStringField;
    listeLocalitattualesposo: TStringField;
    listeLocalitattualesposa: TStringField;
    listeProvinciaattualesposo: TStringField;
    listeProvinciaattualesposa: TStringField;
    listeTelefonosposo: TStringField;
    listeTelefonosposa: TStringField;
    listeCellsposo: TStringField;
    listeCellsposa: TStringField;
    listeIndirizzocoppia: TStringField;
    listeCAPcoppia: TStringField;
    listeLocalitcoppia: TStringField;
    listeProvinciacoppia: TStringField;
    listeDatanozze: TDateField;
    listeRecapitodelleconsegne: TStringField;
    listeTipopromozione: TStringField;
    listeSconto: TFloatField;
    listeNote: TMemoField;
    Numera: TTable;
    tbolleIdbolla: TIntegerField;
    tbolleData: TDateField;
    tbolleN: TIntegerField;
    tbolleDestinatario: TStringField;
    tbolleIndirizzo: TStringField;
    tbolleIdpicklist: TIntegerField;
    tbolleIdlista: TIntegerField;
    tbolleIdscontrino: TIntegerField;
    tbolleNote: TMemoField;
    tbolleTipoconsegna: TStringField;
    tbolleVettore: TStringField;
    tbolleColli: TIntegerField;
    tbolleDataeorapertenza: TDateField;
    dbolleIdbolla: TIntegerField;
    dbolleIdrigapick: TIntegerField;
    dbolleArticolo: TStringField;
    dbolleDescrizione: TStringField;
    dbolleQta: TFloatField;
    promozioneTipopromozione: TStringField;
    promozioneDal: TDateField;
    promozioneAl: TDateField;
    promozioneSconto: TFloatField;
    NumeraIDlista: TIntegerField;
    NumeraIDriga: TIntegerField;
    NumeraIDprenotazione: TIntegerField;
    NumeraIDpicklist: TIntegerField;
    NumeraIDbolla: TIntegerField;
    Fine: TAction;
    Fine1: TMenuItem;
    ToolBar2: TToolBar;
    DBNav1: TDBNavigator;
    ToolButton2: TToolButton;
    finebutton: TToolButton;
    DBEdit1: TDBEdit;
    TTSezione: TTable;
    DSSezione: TDataSource;
    Sezione: TAction;
    ToolButton5: TToolButton;
    listasezionelookup: TStringField;
    NumeraOrdinamento: TIntegerField;
    ppQStampa: TppBDEPipeline;
    Nuovo: TAction;
    Conferma: TAction;
    Annulla: TAction;
    Elimina: TAction;
    ToolButton10: TToolButton;
    Stampa: TAction;
    listeTelefonoconsegne: TStringField;
    listeModalitdiconsegna: TStringField;
    Nuova_Lista: TAction;
    ToolButton8: TToolButton;
    listeRecapitodelleconsegne2: TStringField;
    listeTelefonodelleconsegne2: TStringField;
    listeData: TDateField;
    Elimina_Liste: TAction;
    ToolButton9: TToolButton;
    Aggiorna_Lista: TAction;
    Aggiorna: TAction;
    Stampa2: TMenuItem;
    Interna1: TMenuItem;
    listeModalitdiconsegna2: TStringField;
    ToolButton12: TToolButton;
    Aggiorna_Liste: TAction;
    ToolButton14: TToolButton;
    Su: TAction;
    Giu: TAction;
    ListaBis: TTable;
    ListaBisIdlista: TIntegerField;
    ListaBisIdriga: TIntegerField;
    ListaBisSezione: TStringField;
    ListaBisArticolo: TStringField;
    ListaBisDescrizione: TStringField;
    ListaBisQta: TFloatField;
    ListaBisPrezzoL: TCurrencyField;
    ListaBisPrezzoE: TCurrencyField;
    ListaBisQtaprenota: TFloatField;
    ListaBisQtaconsegnata: TFloatField;
    ListaBisOrdinamento: TIntegerField;
    TTArticoli: TTable;
    listaSezione: TStringField;
    TTSezioneSezione: TStringField;
    Prenota_Compra: TAction;
    listaSelezione: TBooleanField;
    listaQtaselezionata: TFloatField;
    ListaBox: TGroupBox;
    listagrid: TDBGrid;
    listaQtarimasta: TFloatField;
    listaQtanonconsegnata: TFloatField;
    Convalida_prenotazione: TAction;
    Non_venduti: TAction;
    Non_consegnati: TAction;
    Panel1: TPanel;
    selezione: TComboBox;
    Sezioni1: TMenuItem;
    listaQtarimasta2: TFloatField;
    Id: TEdit;
    Sposo: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Sposa: TEdit;
    Label1: TLabel;
    listeIDlista: TIntegerField;
    listeCognomenomesposo: TStringField;
    listeCognomenomesposa: TStringField;
    TTSezioneIdSezione: TIntegerField;
    NumeraIDSezione: TIntegerField;
    ToolBar3: TToolBar;
    ToolButton16: TToolButton;
    ToolButton19: TToolButton;
    ToolButton23: TToolButton;
    ToolButton15: TToolButton;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    DBNavigator2: TDBNavigator;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    ToolButton13: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    listaQtavenduta: TFloatField;
    listaArticoloetichetta: TStringField;
    ListaBisQtavenduta: TFloatField;
    listegrid: TDBGridEh;
    Articoli1: TMenuItem;
    PrenotaCompra1: TMenuItem;
    Prenotazioni1: TMenuItem;
    Nonvenduti2: TMenuItem;
    Nonconsegnati2: TMenuItem;
    Nuovo1: TMenuItem;
    Modifica1: TMenuItem;
    Anagrafici1: TMenuItem;
    AggListe1: TMenuItem;
    AggListe2: TMenuItem;
    Lista2: TMenuItem;
    Solo_Venduti: TAction;
    ToolButton20: TToolButton;
    Venduti1: TMenuItem;
    Tprenotazioni_Bis: TTable;
    Tprenotazioni_BisIdprenotazione: TIntegerField;
    Tprenotazioni_BisNominativo: TStringField;
    Tprenotazioni_BisNtelefono: TStringField;
    Tprenotazioni_BisCaparraL: TCurrencyField;
    Tprenotazioni_BisCaparraE: TCurrencyField;
    Tprenotazioni_BisId_lista: TIntegerField;
    Tprenotazioni_BisStato: TStringField;
    Tprenotazioni_BisConsegna: TStringField;
    DsTPrenotazioni: TDataSource;
    Dprenotazioni: TTable;
    DprenotazioniIdprenotazione: TIntegerField;
    DprenotazioniIdrigalista: TIntegerField;
    DprenotazioniQta: TFloatField;
    DprenotazioniPrezzoL: TCurrencyField;
    DprenotazioniPrezzoE: TCurrencyField;
    DprenotazioniDescrizione: TStringField;
    DprenotazioniArticolo: TStringField;
    QtaTot: TAction;
    ToolButton21: TToolButton;
    listaDenominazione: TStringField;
    ppstampa: TppReport;
    listaImportoL: TCurrencyField;
    listaImportoE: TCurrencyField;
    listeIdGiornale: TStringField;
    listaIdGiornale: TStringField;
    tbolleIdGiornale: TStringField;
    dbolleIdGiornale: TStringField;
    promozioneIdGiornale: TStringField;
    NumeraIdGiornale: TStringField;
    TTSezioneIdGiornale: TStringField;
    ListaBisIdGiornale: TStringField;
    Tprenotazioni_BisIdGiornale: TStringField;
    DprenotazioniIdGiornale: TStringField;
    TTArticoliArticolo: TStringField;
    TTArticoliDescrizione: TStringField;
    TTArticoliDescrizioneetichetta: TStringField;
    TTArticoliFamiglia: TStringField;
    TTArticoliGestionescadenza: TBooleanField;
    TTArticoliScadenzaingiorni: TSmallintField;
    TTArticoliScadenzainmesi: TSmallintField;
    TTArticoliScadenzaassolutaggmm: TStringField;
    TTArticoliTiposcadenzaGMA: TStringField;
    TTArticoliUM: TStringField;
    TTArticoliArticoloetichetta: TStringField;
    TTArticoliFornitore: TStringField;
    TTArticoliArticolofornitore: TStringField;
    TTArticoliPrezzoacquistoL: TCurrencyField;
    TTArticoliPrezzoacquistoE: TCurrencyField;
    TTArticoliPrezzoacquistoLivato: TCurrencyField;
    TTArticoliPrezzoacquistoEivato: TCurrencyField;
    TTArticoliPrezzolistinoL: TCurrencyField;
    TTArticoliPrezzolistinoE: TCurrencyField;
    TTArticoliPrezzolistinoLivato: TCurrencyField;
    TTArticoliPrezzolistinoEivato: TCurrencyField;
    TTArticoliSconto: TFloatField;
    TTArticoliSconto2: TFloatField;
    TTArticoliSconto3: TFloatField;
    TTArticoliStagione: TStringField;
    TTArticoliMinimoordine: TFloatField;
    TTArticoliConsegna: TFloatField;
    TTArticoliSottoscorta: TFloatField;
    TTArticoliMinimomagazzino: TFloatField;
    TTArticoliAllarmenegativi: TBooleanField;
    TTArticoliAllarmesottoscorta: TBooleanField;
    TTArticoliClasseriordino: TSmallintField;
    TTArticoliGestioneriordino: TBooleanField;
    TTArticoliPesolordo: TFloatField;
    TTArticoliPesoImballo: TFloatField;
    TTArticoliVolume: TFloatField;
    TTArticoliImballo: TStringField;
    TTArticoliTipoarticolo: TStringField;
    TTArticoliCategoriamerceologica: TStringField;
    TTArticoliMarca: TStringField;
    TTArticoliCodiceIVA: TStringField;
    TTArticoliGestionegiacenza: TBooleanField;
    TTArticoliGestioneVarianti: TBooleanField;
    TTArticoliVariante1: TStringField;
    TTArticoliVariante2: TStringField;
    TTArticoliConaiassolto: TBooleanField;
    TTArticoliStampanellistino: TBooleanField;
    TTArticoliStampaetichetta: TBooleanField;
    TTArticoliUbicazione: TStringField;
    TTArticoliGiacenzainiziale: TFloatField;
    TTArticoliDistintabase: TBooleanField;
    TTArticoliIdGiornale: TStringField;
    QStampa: TQuery;
    DsQStampa: TDataSource;
    QStampaIdriga: TIntegerField;
    QStampaIdlista: TIntegerField;
    QStampaSezione: TStringField;
    QStampaArticolo: TStringField;
    QStampaDescrizione: TStringField;
    QStampaQta: TFloatField;
    QStampaPrezzoL: TCurrencyField;
    QStampaPrezzoE: TCurrencyField;
    QStampaOrdinamento: TIntegerField;
    QStampaArticoloetichetta: TStringField;
    QStampaDenominazione: TStringField;
    QStampaIDlista2: TIntegerField;
    QStampaCognomenomesposo: TStringField;
    QStampaCognomenomesposa: TStringField;
    QStampaDatanozze: TDateField;
    QStampaModalitdiconsegna: TStringField;
    QStampaIndirizzoattualesposo: TStringField;
    QStampaIndirizzoattualesposa: TStringField;
    QStampaCAPattualesposo: TStringField;
    QStampaCAPattualesposa: TStringField;
    QStampaLocalitattualesposo: TStringField;
    QStampaLocalitattualesposa: TStringField;
    QStampaProvinciaattualesposo: TStringField;
    QStampaProvinciaattualesposa: TStringField;
    QStampaTelefonosposo: TStringField;
    QStampaTelefonosposa: TStringField;
    QStampaCellsposo: TStringField;
    QStampaCellsposa: TStringField;
    QStampaIndirizzocoppia: TStringField;
    QStampaCAPcoppia: TStringField;
    QStampaLocalitcoppia: TStringField;
    QStampaProvinciacoppia: TStringField;
    QStampaData: TDateField;
    QStampaRecapitodelleconsegne: TStringField;
    QStampaTelefonoconsegne: TStringField;
    QStampaRecapitodelleconsegne2: TStringField;
    QStampaTelefonodelleconsegne2: TStringField;
    QStampaTipopromozione: TStringField;
    QStampaSconto: TFloatField;
    QStampaNote: TMemoField;
    QStampaModalitdiconsegna2: TStringField;
    QStampaIdGiornale: TStringField;
    QStampaQtaprenota: TFloatField;
    QStampaQtavenduta: TFloatField;
    QStampaQtaconsegnata: TFloatField;
    QStampaSelezione: TBooleanField;
    QStampaQtaselezionata: TFloatField;
    QStampaQtarimasta: TFloatField;
    QStampaQtarimasta2: TFloatField;
    QStampaQtanonconsegnata: TFloatField;
    QStampaIdGiornale_1: TStringField;
    QStampaImportoL: TCurrencyField;
    pplista: TppBDEPipeline;
    listeOperatore: TStringField;
    QStampaOperatore: TStringField;
    TTArticoliNote: TMemoField;
    TTArticoliOfferta: TBooleanField;
    listaArticolofornitore: TStringField;
    TTArtForn: TTable;
    QStampaArticolofornitore: TStringField;
    listePostazione: TStringField;
    QStampaPostazione: TStringField;
    listeScontrino: TBooleanField;
    ppInterna: TppReport;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText3: TppDBText;
    ppLabel2: TppLabel;
    ppLine1: TppLine;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLabel6: TppLabel;
    ppDBText8: TppDBText;
    ppLabel7: TppLabel;
    ppDBText9: TppDBText;
    ppLine2: TppLine;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppDBText10: TppDBText;
    ppLabel10: TppLabel;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppLabel11: TppLabel;
    ppDBText14: TppDBText;
    ppLabel12: TppLabel;
    ppDBText15: TppDBText;
    ppLabel13: TppLabel;
    ppDBText16: TppDBText;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppDBText17: TppDBText;
    ppLine5: TppLine;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBMemo2: TppDBMemo;
    ppDBBarCode2: TppDBBarCode;
    ppDetailBand1: TppDetailBand;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBBarCode3: TppDBBarCode;
    ppLine8: TppLine;
    ppFooterBand1: TppFooterBand;
    ppSystemVariable2: TppSystemVariable;