ustoragepart.~dfm

天涯進銷存系統

      object Label21: TLabel
        Left = 527
        Top = 5
        Width = 48
        Height = 12
        Caption = #21442#32771#21806#20215
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label1: TLabel
        Left = 413
        Top = 5
        Width = 48
        Height = 12
        Caption = #24320#31080#25968#37327
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 587
        Top = 5
        Width = 24
        Height = 12
        Caption = #20179#24211
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 673
        Top = 5
        Width = 48
        Height = 12
        Caption = #24320#31080#24211#23384
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 723
        Top = 5
        Width = 48
        Height = 12
        Caption = #23454#38469#24211#23384
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 385
        Top = 5
        Width = 24
        Height = 12
        Caption = #21333#20301
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
    end
    object LBDBGrid2: TLBDBGrid
      Left = 587
      Top = 22
      Width = 185
      Height = 424
      Align = alClient
      BorderStyle = bsNone
      Color = 16251903
      DataSource = dsStoragePartDataBody
      GridlineColor = 16774127
      Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ShowScrollBars = False
      SelectRowColor = 16251903
      SelectRowFontColor = clHighlight
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'DEPOTNAME'
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BILLQUANTITY'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STOCKQUANTITY'
          Width = 45
          Visible = True
        end>
    end
    object LBDBScrollBar1: TLBDBScrollBar
      Left = 772
      Top = 22
      Width = 18
      Height = 424
      Align = alRight
      Color = 16774127
      LineColor = clBackground
      DownFontColor = clBlack
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Marlett'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      DataSource = StoragePartDataHand
    end
    object Panel8: TPanel
      Left = 586
      Top = 22
      Width = 1
      Height = 424
      Align = alLeft
      BevelOuter = bvNone
      Color = 16774127
      TabOrder = 6
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 58
    Width = 4
    Height = 447
    Align = alLeft
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 3
  end
  object Panel10: TPanel
    Left = 794
    Top = 58
    Width = 6
    Height = 447
    Align = alRight
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 4
  end
  object PrintInfo: TPanel
    Left = 0
    Top = 525
    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 = 5
    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 Panel6: TPanel
    Left = 0
    Top = 505
    Width = 800
    Height = 20
    Align = alBottom
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 6
    object Label23: TLabel
      Left = 7
      Top = 4
      Width = 60
      Height = 12
      Caption = #21512#35745#25968#37327#65306
    end
    object Label24: TLabel
      Left = 151
      Top = 4
      Width = 72
      Height = 12
      Caption = #21512#35745#37329#39069#65306#65509
    end
    object Label25: TLabel
      Left = 63
      Top = 4
      Width = 6
      Height = 12
    end
    object Label26: TLabel
      Left = 223
      Top = 4
      Width = 6
      Height = 12
    end
  end
  object ActionList1: TActionList
    Images = frmMain.ToolbarImageList
    Left = 428
    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
  end
  object StoragePartDataHand: TSimpleDataSet
    Aggregates = <>
    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 = <>
    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