ustorageredressal.dfm

天涯進銷存系統

        0505050505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D605EDF00B133105D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D60534
        F0E50207123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6E6EEE2E8EA0407120505D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EDE3
        E1E4E7EA0407123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6E3DADDE0E4E7EA0407123105D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6DCD7
        D9DDE0E4E7EA0407123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDE0E4E7EA0407123105D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EB
        D8D7D9DDE0E4E7EA0407123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDE0E4E7EA0407123105D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6EBD8D7D9DDE0E4E7EA0407123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDE0E4E7EA0407123105
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6EBD8D7D9DDE0E4E7EA0407123105D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDE0E4E7EA040712
        31D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6EBD8D7D9DDE0E4E7EA040713D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDE0E4E7EA03
        34D6D6D6D6D6D605050505050505050505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6EBD8D7D9DDE0E4E9E3F005D6D6D605051916151A222A2B2913
        050505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBD8D7D9DDDEE634
        EDF13332051B3C4A57769CB2A88A52423728050505D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6EBD8D7DBDFE6EFED332E364351788393A7BABDBEC0C0C0
        A94820240505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6EBEC06063535
        342D1E49687180A1B7C0C2C2C3C2C5C5C4C38C3E1D0505D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6352D3B506272AABFBABDBDC0C3C4C6C6C4
        C5CCCD91411A0505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D630
        27505577B7B297B0BDBFC2C4C7C8CACAD1010101A53E1C0505D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6274F5375BFA08497BCBEC0C4C6C9CBCDCD
        0101010101AB3D2605D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D61145
        5466C0A07A8DA6BDBFC3C5C8CBCDCFD10101010101C461170505D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D62A5658B4B0727992A7BDC0C3C6C9CCCFD2D3
        D5010101CFC5C23C2505D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D60A4267
        7BBB836D7992A7BDC0C3C6CACCCFD3D5D5D4D3CFC4C5C261160505D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D62C5167B4A76E6C7992A7BDC0C3C6C9CCCFD2D3
        D3D1CECBC8C3C2AD162F05D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D62C5F75
        BF965A69798DA6BDBFC3C6C8CBCDCFD0D0CFCCCAC8C2C2BE3D2305D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D63F2C738BB57D5969788497BCBEC1C4C7C9CBCDCD
        CDCCCBC8C6C2C2BD441F05D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F2C7890
        B1785567727D93B1BDC0C3C5C8C8CACACAC9C8C6C4C0C2BC4E1F05D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D63F2C79AAB07254636C798D9CBCBEC0C3C4C6C8C8
        C8C7C6C4C2BFC2AC4D1F05D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F2C7AA2
        B17953596D839293A7BDBEC0C2C3C4C4C4C4C3C1BFBDB397471F05D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D63F2C8395B58D557B957F8496A7ACBCBEBFC0C0C1
        C1C0C0BEBDBB9D8E441F05D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D62C7689
        BF939E705A686A7984ACA0B5BDBDBEBEBEBEBDBCB0BF8F7D390C05D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D62C4C85C3B4A46B6B665D6A7983A093A0ACB2B5
        B2B2A79BA7B67A601608D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F408E
        A2CA988291816F656A73977E8D92929393928E93BB897146150DD6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D62A608FAF9F0101017C6F5C69977379797D7D
        7D7D7AB0B36C64380CD6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F3F
        8699010101019A775D6394696C6E71717178A7BF746243140DD6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6274BA3010101019F7B5C8B665962636369
        7EACBF7558491809D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F
        3757D3010101A487989055585A68799CBAB66B53503A0ED6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F2148AED5D5D0CDB9A09B9BA6B0BABF
        905C534F360FD6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D63F1E478A9581A2B8C2C2C2C2B3956F635B45360DD6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F103A4A768D7D7988806E6D695E
        4B37200DD6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D63F10183A474A4D4B4C4C4227370DD6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D63F22151A222A0A0A0A
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6D6
        D6D6D6D6D6D6D6D6D6D6D6D6FFFFFFFFFFFF0000F07FFFFFFFFF0000E03FFFFF
        FFFF0000C01FFFFFFFFF0000C00FFFFFFFFF0000C007FFFFFFFF0000C003FFFF
        FFFF0000C001FFFFFFFF0000C000FFFFFFFF0000E0007FFFFFFF0000F0003FFF
        FFFF0000F8001FFFFFFF0000FC000FFFFFFF0000FE0007FFFFFF0000FF0007FF
        FFFF0000FF8007FFFFFF0000FFC007E007FF0000FFE0038001FF0000FFF00000
        007F0000FFF80000003F0000FFFC0000001F0000FFFFE000000F0000FFFFE000
        00070000FFFFE00000070000FFFFC00000030000FFFFC00000030000FFFF8000
        00010000FFFF800000010000FFFF800000010000FFFF000000010000FFFF0000
        00010000FFFF000000010000FFFF000000010000FFFF000000010000FFFF8000
        00010000FFFF800000030000FFFF800000030000FFFFC00000070000FFFFC000
        00070000FFFFE000000F0000FFFFE000001F0000FFFFF000003F0000FFFFF800
        007F0000FFFFFC0000FF0000FFFFFF0003FF0000FFFFFFE00FFF0000FFFFFFFF
        FFFF0000FFFFFFFFFFFF0000}
    end
  end
  object PrintInfo: TPanel
    Left = 0
    Top = 528
    Width = 800
    Height = 21
    Align = alBottom
    BevelOuter = bvNone
    Color = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    Visible = False
    object Label16: TLabel
      Left = 7
      Top = 5
      Width = 60
      Height = 12
      Caption = #21442#32771#36827#20215#65306
    end
    object Label17: TLabel
      Left = 151
      Top = 5
      Width = 60
      Height = 12
      Caption = #24179#22343#36827#20215#65306
    end
    object Label18: TLabel
      Left = 295
      Top = 5
      Width = 60
      Height = 12
      Caption = #26368#36817#36827#20215#65306
    end
    object Label22: TLabel
      Left = 447
      Top = 5
      Width = 60
      Height = 12
      Caption = #26368#36817#21806#20215#65306
    end
    object DBText1: TDBText
      Left = 64
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'INPUTPRICE'
      DataSource = dsStoragePartDataHand
    end
    object DBText2: TDBText
      Left = 208
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'COSTPRICE'
      DataSource = dsStoragePartDataHand
    end
    object DBText3: TDBText
      Left = 352
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'STOCKPRICE'
      DataSource = dsStoragePartDataHand
    end
    object DBText4: TDBText
      Left = 504
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SALEPRICE'
      DataSource = dsStoragePartDataHand
    end
    object Label27: TLabel
      Left = 589
      Top = 5
      Width = 60
      Height = 12
      Caption = #24211#23384#37329#39069#65306
    end
    object DBText5: TDBText
      Left = 646
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'TotalSum'
      DataSource = dsStoragePartDataHand
    end
  end
  object ActionList1: TActionList
    Images = frmMain.ToolbarImageList
    Left = 432
    Top = 384
    object Action1: TAction
      Caption = #21047#26032
      ImageIndex = 4
      ShortCut = 16466
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #25171#21360
      ImageIndex = 5
      ShortCut = 16464
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = #35843#20215
      ImageIndex = 9
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = #31227#20179
      ImageIndex = 10
      OnExecute = Action4Execute
    end
  end
  object StoragePartDataHand: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 
      'select Code, name, Producing, Carmodel, Units, InPutPrice, '#13#10'Dep' +
      'otPlace, BillQuantity, StockQuantity, StockPrice, SalePrice, '#13#10'C' +
      'ostPrice, MAXSTOCK, MINStock, OUTPOUTPRICE  '#13#10'From PartInfo wher' +
      'e not Code is Null'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 100
    Params = <>
    AfterClose = StoragePartDataHandAfterClose
    AfterScroll = StoragePartDataHandAfterScroll
    OnCalcFields = StoragePartDataHandCalcFields
    Left = 464
    Top = 384
    object StoragePartDataHandCODE: TStringField
      FieldName = 'CODE'
      Required = True
      Size = 30
    end
    object StoragePartDataHandNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
    object StoragePartDataHandPRODUCING: TStringField
      FieldName = 'PRODUCING'
    end
    object StoragePartDataHandCARMODEL: TStringField
      FieldName = 'CARMODEL'
    end
    object StoragePartDataHandUNITS: TStringField
      FieldName = 'UNITS'
    end
    object StoragePartDataHandINPUTPRICE: TBCDField
      FieldName = 'INPUTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandDEPOTPLACE: TStringField
      FieldName = 'DEPOTPLACE'
    end
    object StoragePartDataHandBILLQUANTITY: TBCDField
      FieldName = 'BILLQUANTITY'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandSTOCKQUANTITY: TBCDField
      FieldName = 'STOCKQUANTITY'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandSTOCKPRICE: TBCDField
      FieldName = 'STOCKPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandSALEPRICE: TBCDField
      FieldName = 'SALEPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandCOSTPRICE: TBCDField
      FieldName = 'COSTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandMAXSTOCK: TBCDField
      FieldName = 'MAXSTOCK'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandMINSTOCK: TBCDField
      FieldName = 'MINSTOCK'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandOUTPOUTPRICE: TBCDField
      FieldName = 'OUTPOUTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object StoragePartDataHandTotalSum: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'TotalSum'
      Calculated = True
    end
  end
  object dsStoragePartDataHand: TDataSource
    DataSet = StoragePartDataHand
    Left = 504
    Top = 384
  end
  object StoragePartDataBody: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'select * from  StockPart'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 100
    Params = <>
    Left = 536
    Top = 384
  end
  object dsStoragePartDataBody: TDataSource
    DataSet = StoragePartDataBody
    Left = 568
    Top = 384
  end
  object Report: TfrReport
    Dataset = ReportDataSet
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 612
    Top = 384
    ReportForm = {18000000}
  end
  object ReportDataSet: TfrDBDataSet
    DataSet = StoragePartDataHand
    Left = 645
    Top = 383
  end
end