datamod1.~pas

this is sample for traders

unit DataMod1;

interface

uses
  SysUtils, Classes, ZConnection, DB, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, frxClass, frxDBSet, ZSqlUpdate;

type
  TDM1 = class(TDataModule)
    DtaCon: TZConnection;
    qGudang: TZQuery;
    qGudangEdit: TZQuery;
    dsGudang: TDataSource;
    qItem: TZQuery;
    qItemGrup: TZQuery;
    qItemBrand: TZQuery;
    qItemQTY: TZQuery;
    qItemEdit: TZQuery;
    qItemPrice: TZQuery;
    tbSat: TZTable;
    qHisPurc: TZQuery;
    qItemITEMCODE: TStringField;
    qItemCODEBAR: TStringField;
    qItemSERIAL: TSmallintField;
    qItemGRUPCODE: TStringField;
    qItemBRANDCODE: TStringField;
    qItemITEMNAME: TStringField;
    qItemSIZENAME: TStringField;
    qItemUNITID: TIntegerField;
    qItemLASTCOST: TFloatField;
    qItemAVGCOST: TFloatField;
    qItemRELEVEL: TFloatField;
    qItemFOTO: TBlobField;
    qItemLASTUPDATE: TDateField;
    qItemOPBAL: TFloatField;
    qItemONHAND: TFloatField;
    qItemGRUPNAME: TStringField;
    qItemBRANDNAME: TStringField;
    qItemSAT: TStringField;
    qItemBrandBRANDCODE: TStringField;
    qItemBrandBRANDNAME: TStringField;
    qItemBrandPOM: TSmallintField;
    qItemGrupGRUPCODE: TStringField;
    qItemGrupGRUPNAME: TStringField;
    dsItem: TDataSource;
    qItemSELLPRICE: TFloatField;
    qItemCURR: TStringField;
    qItemPriceCURR: TStringField;
    qItemPriceSELLPRICE: TFloatField;
    qItemPriceITEMCODE: TStringField;
    qItemPriceEdit: TZQuery;
    tbCurrency: TZTable;
    sysReg: TZQuery;
    frxDBItem: TfrxDBDataset;
    qLgn: TZQuery;
    dsLgn: TDataSource;
    qLgnLGNCODE: TStringField;
    qLgnNAMALGN: TStringField;
    qLgnJENIS: TStringField;
    qLgnCREDLIMIT: TFloatField;
    qLgnOPBAL: TFloatField;
    qLgnCURBAL: TFloatField;
    qEdLgn: TZQuery;
    tbTitleName: TZTable;
    qLgnCtc: TZQuery;
    qLgnCtcLGNCODE: TStringField;
    qLgnCtcLINENO: TIntegerField;
    qLgnCtcCTCPERSON: TStringField;
    qLgnCtcMOBILEPHN: TStringField;
    qLgnPhone: TZQuery;
    qLgnPhoneLGNCODE: TStringField;
    qLgnPhoneLINENO: TIntegerField;
    qLgnPhoneTLP: TStringField;
    qLgnPhoneJENIS: TStringField;
    dsEdLgn: TDataSource;
    qEdLgnLGNCODE: TStringField;
    qEdLgnNAMALGN: TStringField;
    qEdLgnJENIS: TStringField;
    qEdLgnCREDLIMIT: TFloatField;
    qEdLgnOPBAL: TFloatField;
    qEdLgnCURBAL: TFloatField;
    qPegawai: TZQuery;
    qPegawaiEdit: TZQuery;
    dsPegawai: TDataSource;
    tbJabatan: TZTable;
    tbDepartment: TZTable;
    qPegawaiPEGNIP: TStringField;
    qPegawaiPEGNAME: TStringField;
    qPegawaiJENISID: TStringField;
    qPegawaiPEGID: TStringField;
    qPegawaiALAMAT: TMemoField;
    qPegawaiRTRW: TStringField;
    qPegawaiKELURAHAN: TStringField;
    qPegawaiKECAMATAN: TStringField;
    qPegawaiKOTA: TStringField;
    qPegawaiKODEPOS: TStringField;
    qPegawaiPHONE_1: TStringField;
    qPegawaiPHONE_2: TStringField;
    qPegawaiHANDPHONE: TStringField;
    qPegawaiBIRTHPLACE: TStringField;
    qPegawaiBIRTHDAY: TDateField;
    qPegawaiSEX: TStringField;
    qPegawaiAGAMA: TStringField;
    qPegawaiWN: TStringField;
    qPegawaiHIREDATE: TDateField;
    qPegawaiFOTO: TBlobField;
    qPegawaiMARITAL: TStringField;
    qPegawaiJABATAN: TStringField;
    qPegawaiDEPARTMENT: TStringField;
    qPegawaiDEPNAME: TStringField;
    qPegawaiJABNAME: TStringField;
    qPegawaiEditPEGNIP: TStringField;
    qPegawaiEditPEGNAME: TStringField;
    qPegawaiEditJENISID: TStringField;
    qPegawaiEditPEGID: TStringField;
    qPegawaiEditALAMAT: TMemoField;
    qPegawaiEditRTRW: TStringField;
    qPegawaiEditKELURAHAN: TStringField;
    qPegawaiEditKECAMATAN: TStringField;
    qPegawaiEditKOTA: TStringField;
    qPegawaiEditKODEPOS: TStringField;
    qPegawaiEditPHONE_1: TStringField;
    qPegawaiEditPHONE_2: TStringField;
    qPegawaiEditHANDPHONE: TStringField;
    qPegawaiEditBIRTHPLACE: TStringField;
    qPegawaiEditBIRTHDAY: TDateField;
    qPegawaiEditSEX: TStringField;
    qPegawaiEditAGAMA: TStringField;
    qPegawaiEditWN: TStringField;
    qPegawaiEditHIREDATE: TDateField;
    qPegawaiEditFOTO: TBlobField;
    qPegawaiEditMARITAL: TStringField;
    qPegawaiEditJABATAN: TStringField;
    qPegawaiEditDEPARTMENT: TStringField;
    lsSales: TZQuery;
    lsSalesTRDATE: TDateField;
    lsSalesTRNO: TStringField;
    lsSalesLGNCODE: TStringField;
    lsSalesNAMALGN: TStringField;
    lsSalesTRTOTAL: TFloatField;
    lsSalesSTATUS: TStringField;
    lsSalesJUMRETUR: TFloatField;
    qSales: TZQuery;
    qSalesTRNO: TStringField;
    qSalesTRDATE: TDateField;
    qSalesTRTIME: TTimeField;
    qSalesSTATUS: TStringField;
    qSalesLGNCODE: TStringField;
    qSalesPEGNIP: TStringField;
    qSalesTRTOTAL: TFloatField;
    qSalesTRDISC: TFloatField;
    qSalesTRDUE: TFloatField;
    qSalesPRINTED: TSmallintField;
    qSalesUSERNAME: TStringField;
    qSalesPCNODE: TStringField;
    qSalesPCNAME: TStringField;
    qSalesPERIOD: TIntegerField;
    qSalesPOSTED: TSmallintField;
    qSalesGRANDTOTAL: TFloatField;
    qSalesline: TZQuery;
    qSaleslineTRNO: TStringField;
    qSaleslineLINENO: TIntegerField;
    qSaleslineITEMCODE: TStringField;
    qSaleslineITEMNAME: TStringField;
    qSaleslineQTY: TFloatField;
    qSaleslineUNITID: TIntegerField;
    qSaleslineSAT: TStringField;
    qSaleslinePRICE: TFloatField;
    qSaleslineDISC_1: TFloatField;
    qSaleslineSUBTOTAL: TFloatField;
    qSaleslineNETPRICE: TFloatField;
    qSaleslineCOST: TFloatField;
    qSaleslineCONVHINT: TStringField;
    qSaleslineRETQTY: TFloatField;
    qSaleslinePOSTED: TSmallintField;
    qSaleslineCSUBTOTAL: TFloatField;
    dsSales: TDataSource;
    ItemBySales: TZReadOnlyQuery;
    ItemBySalesITEMCODE: TStringField;
    ItemBySalesITEMNAME: TStringField;
    ItemBySalesSELLPRICE: TFloatField;
    ItemBySalesSAT: TStringField;
    ItemBySalesUNITID: TIntegerField;
    ItemBySalesONHAND: TFloatField;
    ItemBySalesHITSALDO: TFloatField;
    lgnBySales: TZQuery;
    lgnBySalesLGNCODE: TStringField;
    lgnBySalesJENIS: TStringField;
    lgnBySalesNAMALGN: TStringField;
    lgnBySalesCREDLIMIT: TFloatField;
    lgnBySalesCURBAL: TFloatField;
    lgnBySalesADDRESS: TMemoField;
    lgnBySalesCITY: TStringField;
    qFindItem: TZReadOnlyQuery;
    qFindItemITEMCODE: TStringField;
    qFindItemITEMNAME: TStringField;
    qFindItemONHAND: TFloatField;
    qFindItemUNITID: TIntegerField;
    qFindItemSAT: TStringField;
    qFindLgn: TZReadOnlyQuery;
    qPurc: TZQuery;
    qPurcSPLCODE: TStringField;
    qPurcPERIOD: TIntegerField;
    qPurcPOSTED: TSmallintField;
    qPurcGRANDTOTAL: TFloatField;
    qPurcDUEDATE: TDateField;
    qPurcUSERNAME: TStringField;
    qPurcTRNO: TStringField;
    qPurcTRDATE: TDateField;
    qPurcTRTIME: TTimeField;
    qPurcFTAXNO: TStringField;
    qPurcSJNO: TStringField;
    qPurcSJDATE: TDateField;
    qPurcSTATUS: TStringField;
    qPurcTERMDAYS: TIntegerField;
    qPurcTRTOTAL: TFloatField;
    qPurcTRDISC: TFloatField;
    qPurcTRPPN: TFloatField;
    qPurcTRDUE: TFloatField;
    qPurcPPN: TStringField;
    qPurcPCNODE: TStringField;
    qPurcPCNAME: TStringField;
    qPurcBIAYA: TFloatField;
    qPurcCURR: TStringField;
    qPurcEXCHANGE_R: TFloatField;
    qPurcNAMASPL: TStringField;
    qPurcTAXREPNO: TIntegerField;
    qPurcFTAXDATE: TDateField;
    qPurcLine: TZQuery;
    qPurcLineLINENO: TIntegerField;
    qPurcLineITEMCODE: TStringField;
    qPurcLineITEMNAME: TStringField;
    qPurcLineQTY: TFloatField;
    qPurcLinePRICE: TFloatField;
    qPurcLineSUBTOTAL: TFloatField;
    qPurcLinePOSTED: TSmallintField;
    qPurcLineCPRICE: TFloatField;
    qPurcLineCSUBTOTAL: TFloatField;
    qPurcLineTRNO: TStringField;
    qPurcLineUNITID: TIntegerField;
    qPurcLineSAT: TStringField;
    qPurcLineDISC_1: TFloatField;
    qPurcLineDISC_2: TFloatField;
    qPurcLineRETQTY: TFloatField;
    qPurcLineNETPRICE: TFloatField;
    qPurcLineBONUS: TSmallintField;
    dsPurc: TDataSource;
    dsPurcline: TDataSource;
    ItemByPurc: TZReadOnlyQuery;
    ItemByPurcITEMCODE: TStringField;
    ItemByPurcITEMNAME: TStringField;
    ItemByPurcUNITID: TIntegerField;
    ItemByPurcSAT: TStringField;
    SplByPurc: TZReadOnlyQuery;
    StringField8: TStringField;
    StringField9: TStringField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    MemoField2: TMemoField;
    StringField10: TStringField;
    SplByPurcSPLCODE: TStringField;
    SplByPurcNAMASPL: TStringField;
    qFindSpl: TZReadOnlyQuery;
    StringField11: TStringField;
    FloatField6: TFloatField;
    FloatField7: TFloatField;
    MemoField3: TMemoField;
    StringField12: TStringField;
    qFindSplSPLCODE: TStringField;
    qFindSplNAMASPL: TStringField;
    qSatItem: TZReadOnlyQuery;
    qSatItemUNITID: TIntegerField;
    qSatItemUNITNAME: TStringField;
    qSatItemSELLPRICE: TFloatField;
    qSPL: TZQuery;
    qSPLSPLCODE: TStringField;
    qSPLJENIS: TStringField;
    qSPLNAMASPL: TStringField;
    qSPLCREDLIMIT: TFloatField;
    qSPLNPWP: TStringField;
    qSPLOPBAL: TFloatField;
    qSPLCURBAL: TFloatField;
    qSPLADDRESS2: TMemoField;
    qSPLCITY: TStringField;
    qEdSpl: TZQuery;
    qEdSplSPLCODE: TStringField;
    qEdSplNAMASPL: TStringField;
    qEdSplJENIS: TStringField;
    qEdSplNPWP: TStringField;
    qEdSplCREDLIMIT: TFloatField;
    qEdSplOPBAL: TFloatField;
    qEdSplCURBAL: TFloatField;
    dsSpl: TDataSource;
    qSplPhone: TZQuery;
    qSplPhoneSPLCODE: TStringField;
    qSplPhoneLINENO: TIntegerField;
    qSplPhoneTLP: TStringField;
    qSplPhoneGRUP: TStringField;
    qSplPhoneJENIS: TStringField;
    qSplPerson: TZQuery;
    qSplPersonSPLCODE: TStringField;
    qSplPersonLINENO: TIntegerField;
    qSplPersonCTCPERSON: TStringField;
    qSplPersonMOBILEPHN: TStringField;
    qSplAddress: TZQuery;
    qSplAddressSPLCODE: TStringField;
    qSplAddressLINENO: TIntegerField;
    qSplAddressADDRESS: TMemoField;
    qSplAddressCITY: TStringField;
    qSplAddressPOSCODE: TStringField;
    qSplAddressGRUP: TStringField;
    qSplAddressCOUNTRY: TStringField;
    ZUpdateSpl: TZUpdateSQL;
    qFindGudang: TZReadOnlyQuery;
    ItemByPurcLASTCOST: TFloatField;
    frxPurc: TfrxDBDataset;
    frxPurcline: TfrxDBDataset;
    frxSupplier: TfrxDBDataset;
    frxSysReg: TfrxDBDataset;
    qPurcLineGDGCODE: TStringField;
    qItemPriceEditITEMCODE: TStringField;
    qItemPriceEditUNITID: TIntegerField;
    qItemPriceEditMIN: TIntegerField;
    qItemPriceEditMAX: TIntegerField;
    qItemPriceEditCURR: TStringField;
    qItemPriceEditDEFAU: TSmallintField;
    qItemPriceEditSELLPRICE: TFloatField;
    qRegSP: TZQuery;
    qRegSPSPNO: TStringField;
    tbJtempo: TZTable;
    dsJtempo: TDataSource;
    qSalesJTEMPO: TStringField;
    qSalesJRETUR: TFloatField;
    qSalesANGSURAN: TIntegerField;
    qSalesTRDP: TFloatField;
    qSalesTRSISA: TFloatField;
    dsSalesline: TDataSource;
    qSalesJ_ANGSURAN: TFloatField;
    qSalesCSISA: TFloatField;
    qSalesCJANG: TFloatField;
    lsSalesTRDP: TFloatField;
    lsSalesTRSISA: TFloatField;
    qFindRetSales: TZQuery;
    lsSalesPEGNAME: TStringField;
    qPiutangCard: TZQuery;
    qPiutangCardSPNO: TStringField;
    qPiutangCardPAYNO: TIntegerField;
    qPiutangCardDUEDATE: TDateField;
    qPiutangCardLGNCODE: TStringField;
    qPiutangCardAMOUNT: TFloatField;
    qPiutangCardPAYED: TSmallintField;
    qPiutangCardPAYEDDATE: TDateField;
    qPiutangCardCOLLECTOR: TStringField;
    qPiutangCardPEGNAME: TStringField;
    SalesByPiutang: TZQuery;
    dsPiutangCard: TDataSource;
    SalesByPiutangTRNO: TStringField;
    SalesByPiutangTRDATE: TDateField;
    SalesByPiutangTRTIME: TTimeField;
    SalesByPiutangJTEMPO: TStringField;
    SalesByPiutangJRETUR: TFloatField;
    SalesByPiutangSTATUS: TStringField;
    SalesByPiutangANGSURAN: TIntegerField;
    SalesByPiutangJ_ANGSURAN: TFloatField;
    SalesByPiutangLGNCODE: TStringField;
    SalesByPiutangPEGNIP: TStringField;
    SalesByPiutangTRTOTAL: TFloatField;
    SalesByPiutangTRDISC: TFloatField;
    SalesByPiutangTRDP: TFloatField;
    SalesByPiutangTRDUE: TFloatField;
    SalesByPiutangTRSISA: TFloatField;
    SalesByPiutangPRINTED: TSmallintField;
    SalesByPiutangUSERNAME: TStringField;
    SalesByPiutangPCNODE: TStringField;
    SalesByPiutangPCNAME: TStringField;
    SalesByPiutangPERIOD: TIntegerField;
    SalesByPiutangPOSTED: TSmallintField;
    lgnByPiutang: TZReadOnlyQuery;
    SalesByPiutangDEALERNAME: TStringField;
    qPiutangCardKWINO: TStringField;