udmpublish.pas

一个功能较全的图书进销存软件,功能还算完备

unit udmpublish;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdmpublish = class(TDataModule)
    adsJh: TADODataSet;
    adsJhOPERATE_ORDER: TStringField;
    adsJhBOOK_CODE: TStringField;
    adsJhCN_NAME: TStringField;
    adsJhEN_NAME: TStringField;
    adsJhISBN_CODE: TStringField;
    adsJhBOOK_BARCODE: TStringField;
    adsJhGET_ID: TStringField;
    adsJhSHOW_PRICE: TBCDField;
    adsJhIN_PRICE: TBCDField;
    adsJhQUANTITY: TIntegerField;
    adsJhPAGES: TIntegerField;
    adsJhSUPPLIER_ID: TIntegerField;
    adsJhOPERATOR: TStringField;
    adsJhOPERATE_DATE: TStringField;
    adsJhALERT_QUANTITY: TIntegerField;
    adsJhSTATUS2: TStringField;
    adsShare: TADODataSet;
    adsJhBOOK_TYPE: TStringField;
    adsJhMONEY_TYPE: TStringField;
    adsJhZAITI: TStringField;
    adsJhSTATUS1: TStringField;
    l_store: TADOStoredProc;
    adsPubBook: TADODataSet;
    q_share: TADOQuery;
    adsPubBookID: TAutoIncField;
    adsPubBookBOOK_TYPE: TStringField;
    adsPubBookBOOK_CODE: TStringField;
    adsPubBookCN_NAME: TStringField;
    adsPubBookEN_NAME: TStringField;
    adsPubBookISBN_CODE: TStringField;
    adsPubBookBOOK_BARCODE: TStringField;
    adsPubBookGET_ID: TStringField;
    adsPubBookDATAFILE_ID: TIntegerField;
    adsPubBookZAITI: TStringField;
    adsPubBookIN_PRICE: TBCDField;
    adsPubBookSHOW_PRICE: TBCDField;
    adsPubBookMONEY_TYPE: TStringField;
    adsPubBookPAGES: TIntegerField;
    adsPubBookSTORE_QUANTITY: TIntegerField;
    adsPubBookSTORE_INFO: TStringField;
    adsPubBookALERT_QUANTITY: TIntegerField;
    adsPubBookSUPPLIER_ID: TIntegerField;
    adsPubBookOPERATOR: TStringField;
    adsPubBookOPERATE_DATE: TStringField;
    adsPubBookSTATUS: TStringField;
    adsAlert: TADODataSet;
    AutoIncField1: TAutoIncField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    StringField18: TStringField;
    IntegerField4: TIntegerField;
    StringField19: TStringField;
    BCDField5: TBCDField;
    BCDField6: TBCDField;
    StringField20: TStringField;
    IntegerField5: TIntegerField;
    IntegerField6: TIntegerField;
    StringField21: TStringField;
    IntegerField7: TIntegerField;
    IntegerField8: TIntegerField;
    StringField22: TStringField;
    StringField23: TStringField;
    StringField24: TStringField;
    adsrpt_jx: TADODataSet;
    ADOConnection1: TADOConnection;
    adsChTemp: TADODataSet;
    adsChTempOPERATE_ORDER: TStringField;
    adsChTempBOOK_BARCODE: TStringField;
    adsChTempCN_NAME: TStringField;
    adsChTempTYPE: TStringField;
    adsChTempMEMBER_ID: TIntegerField;
    adsChTempCUSTOMER_NAME: TStringField;
    adsChTempSHOW_PRICE: TBCDField;
    adsChTempDISCOUNT: TBCDField;
    adsChTempPRICE: TBCDField;
    adsChTempQUANTITY: TIntegerField;
    adsChTempMONEY: TBCDField;
    adsChTempOPERATE_DATE: TStringField;
    adsChTempOPERATOR: TStringField;
    adsChTempHANDLER: TStringField;
    adsChTempNOTE: TStringField;
    adsChTempIsSale: TStringField;
    adsChTempSTATUS: TStringField;
    adtDict: TADOTable;
    adtDictCLASS: TStringField;
    adtDictVALUE: TStringField;
    adtDictPARENT: TStringField;
    adtDictSTATUS: TStringField;
    adtProvider: TADOTable;
    adtProviderSUPPLIER_ID: TStringField;
    adtProviderNAME: TStringField;
    adtProviderSHORTNAME: TStringField;
    adtProviderADDRESS: TStringField;
    adtProviderCITY: TStringField;
    adtProviderLINKMAN: TStringField;
    adtProviderTEL: TStringField;
    adtProviderFAX: TStringField;
    adtProviderPOST: TStringField;
    adtProviderSTATUS: TStringField;
    adtMemInfo: TADOTable;
    adtMemInfoPINYIN_NAME: TStringField;
    adtMemInfoADDRESS: TStringField;
    adtMemInfoPOST: TStringField;
    adtMemInfoTEL: TStringField;
    adtMemInfoFAX: TStringField;
    adtMemInfoEMAIL: TStringField;
    adtMemInfoURL: TStringField;
    adtMemInfoDISCOUNT: TBCDField;
    adtMemInfoSTATUS: TStringField;
    adtMemInfoENTERPRISE_NAME: TStringField;
    adsJhSTATUS3: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmpublish: Tdmpublish;

implementation
//uses ALLSIDM;
{$R *.dfm}

end.