materialfm.dfm

库房管理系统

object Material: TMaterial
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = #25104#21697#26009#20214#25439#32791#24773#20917'(BOM)'#30028#38754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grp1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    Caption = #25104#21697#26009#20214#25439#32791#36164#26009#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    DesignSize = (
      688
      453)
    object grp2: TGroupBox
      Left = 9
      Top = 216
      Width = 632
      Height = 209
      Align = alCustom
      TabOrder = 0
      object dbgrd1: TDBGrid
        Left = 2
        Top = 14
        Width = 628
        Height = 193
        Align = alClient
        DataSource = DS_Material
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'fParentID'
            Title.Caption = #25104#21697#20195#30721
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fParentName'
            Title.Caption = #25104#21697#21517#31216
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fMtrCode'
            Title.Caption = #26009#20214#20195#30721
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fMtrName'
            Title.Caption = #26009#20214#21517#31216
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fPieces'
            Title.Caption = #25439#32791
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fUnit'
            Title.Caption = #21333#20301
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fWeight'
            Title.Caption = #37325#37327
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fPrePrice'
            Title.Caption = #21333#20215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fDepletion'
            Title.Caption = #25439#32791
            Visible = True
          end>
      end
    end
    object grp3: TGroupBox
      Left = 9
      Top = 17
      Width = 629
      Height = 45
      Anchors = [akLeft, akTop, akRight]
      Caption = #25805#20316#23548#33322
      TabOrder = 1
      object DBNavigator1: TDBNavigator
        Left = 32
        Top = 14
        Width = 560
        Height = 25
        DataSource = DS_Material
        TabOrder = 0
      end
    end
    object grp4: TGroupBox
      Left = 9
      Top = 81
      Width = 629
      Height = 144
      Anchors = [akLeft, akTop, akRight]
      Caption = #26009#20214'BOM'#20449#24687#24405#20837
      TabOrder = 2
      object Label5: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 12
        Caption = #25104#21697#20195#30721
      end
      object Label6: TLabel
        Left = 392
        Top = 56
        Width = 78
        Height = 12
        Caption = #26009#20214#37325#37327#21333#20301':'
      end
      object Label7: TLabel
        Left = 392
        Top = 24
        Width = 78
        Height = 12
        Caption = #25104#21697#37325#37327#21333#20301':'
      end
      object Label8: TLabel
        Left = 231
        Top = 120
        Width = 48
        Height = 12
        Caption = #26009#20214#25439#32791
      end
      object Label9: TLabel
        Left = 231
        Top = 88
        Width = 48
        Height = 12
        Caption = #26009#20214#25439#32791
      end
      object Label10: TLabel
        Left = 207
        Top = 56
        Width = 72
        Height = 12
        Caption = #26009#20214#24230#37327#21333#20301
      end
      object Label11: TLabel
        Left = 207
        Top = 24
        Width = 72
        Height = 12
        Caption = #25104#21697#24230#37327#21333#20301
      end
      object Label12: TLabel
        Left = 416
        Top = 120
        Width = 24
        Height = 12
        Caption = #25968#25454
      end
      object Label13: TLabel
        Left = 416
        Top = 88
        Width = 24
        Height = 12
        Caption = #21333#20301
      end
      object Label14: TLabel
        Left = 16
        Top = 80
        Width = 48
        Height = 12
        Caption = #26009#20214#20195#30721
      end
      object Label15: TLabel
        Left = 16
        Top = 48
        Width = 48
        Height = 12
        Caption = #25104#21697#21517#31216
      end
      object Label16: TLabel
        Left = 16
        Top = 112
        Width = 48
        Height = 12
        Caption = #26009#20214#21517#31216
      end
      object DBEdit2: TDBEdit
        Left = 86
        Top = 48
        Width = 107
        Height = 20
        Color = clScrollBar
        DataField = 'fParentName'
        DataSource = DS_Material
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = -2147483622
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object mtrMeasure: TDBEdit
        Left = 292
        Top = 51
        Width = 86
        Height = 20
        DataField = 'fMtrMeasure'
        DataSource = DS_Material
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit6: TDBEdit
        Left = 292
        Top = 84
        Width = 86
        Height = 20
        Color = clGradientActiveCaption
        DataField = 'fPieces'
        DataSource = DS_Material
        Font.Charset = ANSI_CHARSET
        Font.Color = -2147483622
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit7: TDBEdit
        Left = 86
        Top = 113
        Width = 107
        Height = 20
        Color = clScrollBar
        DataField = 'fMtrName'
        DataSource = DS_Material
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = -2147483622
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBEdit8: TDBEdit
        Left = 292
        Top = 114
        Width = 86
        Height = 20
        Color = clGradientActiveCaption
        DataField = 'fDepletion'
        DataSource = DS_Material
        Font.Charset = ANSI_CHARSET
        Font.Color = -2147483622
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object MtrWeight: TDBEdit
        Left = 480
        Top = 52
        Width = 97
        Height = 20
        DataField = 'fMtrWeight'
        DataSource = DS_Material
        Enabled = False
        TabOrder = 5
      end
      object DBEdit10: TDBEdit
        Left = 480
        Top = 86
        Width = 97
        Height = 20
        TabOrder = 6
      end
      object DBEdit11: TDBEdit
        Left = 480
        Top = 114
        Width = 97
        Height = 20
        TabOrder = 7
      end
      object Comb_product: TDBComboBox
        Left = 85
        Top = 22
        Width = 109
        Height = 20
        DataField = 'fParentID'
        DataSource = DS_Material
        ItemHeight = 12
        TabOrder = 8
        OnChange = Comb_productChange
        OnClick = Comb_productClick
        OnDragDrop = Comb_productDragDrop
      end
      object comb_mtr: TDBComboBox
        Left = 88
        Top = 80
        Width = 105
        Height = 20
        DataField = 'fMtrCode'
        DataSource = DS_Material
        ItemHeight = 12
        TabOrder = 9
        OnChange = comb_mtrChange
        OnClick = comb_mtrClick
        OnDragDrop = comb_mtrDragDrop
      end
      object Comb_productss: TComboBox
        Left = 584
        Top = 112
        Width = 33
        Height = 20
        ItemHeight = 12
        TabOrder = 10
        Visible = False
        OnClick = Comb_productssClick
      end
      object dbunit: TDBComboBox
        Left = 571
        Top = 70
        Width = 55
        Height = 20
        Color = clGradientActiveCaption
        Enabled = False
        ItemHeight = 12
        TabOrder = 11
        Visible = False
      end
      object refUnit: TDBComboBox
        Left = 569
        Top = 46
        Width = 64
        Height = 20
        Color = clGradientActiveCaption
        DataSource = DS_Material
        Enabled = False
        ItemHeight = 12
        TabOrder = 12
        Visible = False
      end
      object dbunits: TDBEdit
        Left = 292
        Top = 19
        Width = 86
        Height = 20
        DataField = 'fMeasureUnit'
        DataSource = DS_Material
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 13
      end
      object refUnits: TDBEdit
        Left = 480
        Top = 20
        Width = 97
        Height = 20
        DataField = 'fWeightUnit'
        DataSource = DS_Material
        Enabled = False
        TabOrder = 14
      end
    end
    object Edit1: TEdit
      Left = 264
      Top = 64
      Width = 337
      Height = 20
      TabOrder = 3
      Text = 'Edit1'
    end
  end
  object Ado_Material: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tMaterial')
    Left = 177
    Top = 235
  end
  object DS_Material: TDataSource
    DataSet = Ado_Material
    Left = 209
    Top = 235
  end
  object ADO_Product: TADOTable
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    TableName = 'tProductCode'
    Left = 209
    Top = 65
    object ADO_ProductfParentID: TWideStringField
      FieldName = 'fParentID'
    end
  end
  object ADO_Mtr: TADOTable
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    TableName = 'tMtrCode'
    Left = 209
    Top = 153
    object ADO_MtrMtrCode: TWideStringField
      FieldName = 'MtrCode'
    end
  end
  object ADO_temp: TADOQuery
    ConnectionString = 'file name=stockdb.udl'
    Parameters = <>
    Left = 233
    Top = 65
  end
  object ado_unit: TADOTable
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    TableName = 'tUnits'
    Left = 392
    Top = 80
    object ado_unitfUnitCode: TWideStringField
      FieldName = 'fUnitCode'
      Size = 10
    end
    object ado_unitfbaseUnits: TWideStringField
      FieldName = 'fbaseUnits'
      Size = 10
    end
  end
end