fmitemu.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMItem: TFMItem
  Left = 206
  Top = 136
  Width = 777
  Height = 481
  Caption = 'FMItem'
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 283
    Top = 38
    Width = 5
    Height = 416
    Cursor = crHSplit
  end
  inherited BtnPanel: TPanel
    Width = 769
  end
  object DBGrid1: TDBGrid [2]
    Tag = 1
    Left = 0
    Top = 38
    Width = 283
    Height = 416
    Align = alLeft
    DataSource = dsMain
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fProductNo'
        Title.Caption = #20135#21697#32534#21495
        Width = 111
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fProductName'
        Title.Caption = #20135#21697#21517#31216
        Width = 150
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 288
    Top = 38
    Width = 481
    Height = 416
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 22
      Top = 20
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20135#21697#32534#21495
    end
    object Label2: TLabel
      Left = 22
      Top = 60
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20135#21697#21517#31216
      FocusControl = dbfProductName
    end
    object Label3: TLabel
      Left = 46
      Top = 100
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #35268#26684
      FocusControl = dbfSpec
    end
    object Label4: TLabel
      Left = 288
      Top = 100
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #21333#20301
      FocusControl = dbfSaleUnit
    end
    object Label5: TLabel
      Left = 22
      Top = 180
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #24211#23384#19978#38480
      FocusControl = dbfStockUp
    end
    object Label6: TLabel
      Left = 264
      Top = 180
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #24211#23384#19979#38480
      FocusControl = dbfStockDown
    end
    object Label7: TLabel
      Left = 46
      Top = 220
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #21806#20215
      FocusControl = dbfSellPrice
    end
    object Label8: TLabel
      Left = 276
      Top = 220
      Width = 36
      Height = 12
      Alignment = taRightJustify
      Caption = #25209#21457#20215
      FocusControl = dbfWholePrice
    end
    object Label9: TLabel
      Left = 46
      Top = 260
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #36827#20215
      FocusControl = dbfBuyPrice
    end
    object Label10: TLabel
      Left = 22
      Top = 140
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20135#21697#20998#31867
    end
    object Label11: TLabel
      Left = 264
      Top = 260
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20135#21697#29366#24577
      FocusControl = dbfState
    end
    object dbfProductName: TDBEdit
      Left = 80
      Top = 56
      Width = 350
      Height = 20
      DataField = 'fProductName'
      DataSource = dsMain
      TabOrder = 1
    end
    object dbfSpec: TDBEdit
      Left = 80
      Top = 96
      Width = 100
      Height = 20
      DataField = 'fSpec'
      DataSource = dsMain
      TabOrder = 2
    end
    object dbfSaleUnit: TDBEdit
      Left = 320
      Top = 96
      Width = 52
      Height = 20
      DataField = 'fSaleUnit'
      DataSource = dsMain
      TabOrder = 3
    end
    object dbfStockUp: TDBEdit
      Left = 80
      Top = 176
      Width = 124
      Height = 20
      DataField = 'fStockUp'
      DataSource = dsMain
      TabOrder = 5
    end
    object dbfStockDown: TDBEdit
      Left = 320
      Top = 176
      Width = 124
      Height = 20
      DataField = 'fStockDown'
      DataSource = dsMain
      TabOrder = 6
    end
    object dbfSellPrice: TDBEdit
      Left = 80
      Top = 216
      Width = 124
      Height = 20
      DataField = 'fSellPrice'
      DataSource = dsMain
      TabOrder = 7
    end
    object dbfWholePrice: TDBEdit
      Left = 320
      Top = 216
      Width = 124
      Height = 20
      DataField = 'fWholePrice'
      DataSource = dsMain
      TabOrder = 8
    end
    object dbfBuyPrice: TDBEdit
      Left = 80
      Top = 256
      Width = 124
      Height = 20
      DataField = 'fBuyPrice'
      DataSource = dsMain
      TabOrder = 9
    end
    object dbfState: TDBLookupComboBox
      Left = 320
      Top = 256
      Width = 130
      Height = 20
      DataField = 'fState'
      DataSource = dsMain
      KeyField = 'fDictNo'
      ListField = 'fDictname'
      ListSource = dsState
      TabOrder = 10
    end
    object dbfProductNo: TDBEdit
      Left = 80
      Top = 16
      Width = 244
      Height = 20
      Hint = #20135#21697#32534#21495#26032#22686#21518#19981#33021#22312#20462#25913#12290
      DataField = 'fProductNo'
      DataSource = dsMain
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object dxfClass: TdxDBLookupTreeView
      Left = 80
      Top = 136
      Width = 124
      Height = 20
      CanSelectParents = True
      ParentColor = False
      TabOrder = 4
      TabStop = True
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = True
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      DividedChar = '.'
      ListSource = dsClass
      KeyField = 'fClassNo'
      ListField = 'fClassName'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'fParentId'
      TextStyle = tvtsShort
      DataField = 'fClass'
      DataSource = dsMain
    end
  end
  inherited QrySQL: TADOQuery
    Left = 136
    Top = 152
  end
  inherited cdsMain: TADODataSet
    OnNewRecord = cdsMainNewRecord
    CommandText = 'select * from ts_item where 1=1'
    Left = 64
    Top = 88
    object cdsMainfClassName: TStringField
      FieldKind = fkLookup
      FieldName = 'fClassName'
      LookupDataSet = cdsClass
      LookupKeyFields = 'fClassNo'
      LookupResultField = 'fClassName'
      KeyFields = 'fClass'
      Lookup = True
    end
    object cdsMainfStateName: TStringField
      FieldKind = fkLookup
      FieldName = 'fStateName'
      LookupDataSet = cdsState
      LookupKeyFields = 'fDictNo'
      LookupResultField = 'fDictname'
      KeyFields = 'fState'
      Lookup = True
    end
    object cdsMainfProductId: TSmallintField
      FieldName = 'fProductId'
    end
    object cdsMainfProductNo: TWideStringField
      DisplayWidth = 20
      FieldName = 'fProductNo'
    end
    object cdsMainfProductName: TWideStringField
      FieldName = 'fProductName'
      Size = 48
    end
    object cdsMainfSpec: TWideStringField
      FieldName = 'fSpec'
      Size = 15
    end
    object cdsMainfSaleUnit: TWideStringField
      FieldName = 'fSaleUnit'
      Size = 4
    end
    object cdsMainfClass: TWideStringField
      FieldName = 'fClass'
      Size = 12
    end
    object cdsMainfStockUp: TSmallintField
      FieldName = 'fStockUp'
    end
    object cdsMainfStockDown: TSmallintField
      FieldName = 'fStockDown'
    end
    object cdsMainfSellPrice: TFloatField
      FieldName = 'fSellPrice'
      DisplayFormat = '0.00'
    end
    object cdsMainfWholePrice: TFloatField
      FieldName = 'fWholePrice'
      DisplayFormat = '0.00'
    end
    object cdsMainfBuyPrice: TFloatField
      FieldName = 'fBuyPrice'
      DisplayFormat = '0.00'
    end
    object cdsMainfState: TSmallintField
      FieldName = 'fState'
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
  end
  inherited dsMain: TDataSource
    Left = 128
    Top = 96
  end
  inherited SingleMenu: TPopupMenu
    Left = 64
    Top = 152
  end
  object dsClass: TDataSource
    DataSet = cdsClass
    Left = 128
    Top = 248
  end
  object dsState: TDataSource
    DataSet = cdsState
    Left = 128
    Top = 312
  end
  object cdsClass: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'select fClassNo,fClassName,fParentId from ts_class  order by fPa' +
      'rentId,fClassNo'
    Parameters = <>
    Left = 40
    Top = 248
  end
  object cdsState: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'select fDictNo,fDictname from ts_dict where fdicttype=1007 order' +
      ' by fdictno'
    Parameters = <>
    Left = 40
    Top = 312
  end
end