umaterieldecompose.dfm

进销存以及BOM管理,SQl Server数据库程序

          0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF000000
          0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00000000000000
          0000000000000000000000000000000000000000000000000000FF00FF000000
          0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF0000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
          0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF0000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      end
      object SpeedButton3: TSpeedButton
        Left = 53
        Top = 0
        Width = 51
        Height = 22
        Action = acFullCollapse
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
          00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      end
    end
  end
  object Panel3: TPanel
    Left = 270
    Top = 116
    Width = 436
    Height = 364
    Align = alClient
    TabOrder = 3
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 1
      Width = 434
      Height = 362
      ControlType.Strings = (
        'sCode;CustomEdit;wwDBLKProductCode;F'
        'ccode;CustomEdit;wwDBLKProductCode;F')
      Selected.Strings = (
        'ccode'#9'18'#9#20195#30721#9'F'#9
        'cname'#9'26'#9#21517#31216#9'F'#9
        'fQty'#9'11'#9#29992#37327#9'F'#9
        'cunit'#9'8'#9#21333#20301#9'F'#9)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = dsMateriel
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
    end
    object wwDBLKProductCode: TwwDBLookupCombo
      Left = 16
      Top = 24
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fcode'#9'16'#9#20195#30721#9'F'#9
        'fname'#9'20'#9#21517#31216#9'F'#9
        'fdesc'#9'24'#9#35268#26684#9'F'#9
        'fcolor'#9'12'#9#39068#33394#9'F'#9)
      DataField = 'fProductID'
      DataSource = dsMateriel
      LookupTable = QProduct
      LookupField = 'fID'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 1
      AutoDropDown = True
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object ALToolbar: TActionList
    Left = 496
    Top = 8
    object acOpen: TAction
      Caption = #25171#24320
      Hint = #25171#24320'BOM'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = acOpenExecute
    end
    object acSave: TAction
      Caption = #20445#23384
      Hint = #20445#23384
      ImageIndex = 4
      ShortCut = 16467
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      Hint = #21462#28040
      ImageIndex = 5
      ShortCut = 16392
      OnExecute = acCancelExecute
    end
    object acPrint: TAction
      Caption = #25171#21360
      Hint = #25171#21360
      ImageIndex = 3
      ShortCut = 16464
    end
    object acExit: TAction
      Caption = #20851#38381
      Hint = #20851#38381
      ImageIndex = 20
      ShortCut = 16465
      OnExecute = acExitExecute
    end
    object acAddLine: TAction
      Caption = #22686#21152
      Enabled = False
      Hint = #22686#21152#23376#20214
      ImageIndex = 12
      ShortCut = 16457
      OnExecute = acAddLineExecute
    end
    object acDelLine: TAction
      Caption = #21024#38500
      Enabled = False
      Hint = #21024#38500#23376#20214
      ImageIndex = 13
      ShortCut = 16452
      OnExecute = acDelLineExecute
    end
    object acIsExists: TAction
      Caption = 'acIsExists'
    end
    object acFullExpand: TAction
      Caption = #23637#24320
      Hint = #23637#24320
      ImageIndex = 18
      OnExecute = acFullExpandExecute
    end
    object acFullCollapse: TAction
      Caption = #25910#32553
      Hint = #25910#32553
      ImageIndex = 19
      OnExecute = acFullCollapseExecute
    end
    object acBatchInsert: TAction
      Caption = #30830#23450
      OnExecute = acBatchInsertExecute
    end
  end
  object QProduceOrder: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vproducebill'
      'order by fcode')
    Left = 16
    Top = 144
    object QProduceOrderfname: TWideStringField
      DisplayLabel = #29983#20135#21333#21495
      DisplayWidth = 16
      FieldName = 'fname'
      Size = 38
    end
    object QProduceOrderfdate_finish: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 12
      FieldName = 'fdate_finish'
    end
    object QProduceOrderfitemcode: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 16
      FieldName = 'fitemcode'
    end
    object QProduceOrderfitemname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 26
      FieldName = 'fitemname'
      Size = 36
    end
    object QProduceOrderfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object QProduceOrderfcode: TWideStringField
      DisplayWidth = 20
      FieldName = 'fcode'
      Visible = False
    end
    object QProduceOrderfdesc: TWideStringField
      DisplayWidth = 48
      FieldName = 'fdesc'
      Visible = False
      Size = 48
    end
    object QProduceOrderfitemid: TIntegerField
      DisplayWidth = 10
      FieldName = 'fitemid'
      Visible = False
    end
    object QProduceOrderfitemdesc: TWideStringField
      DisplayWidth = 48
      FieldName = 'fitemdesc'
      Visible = False
      Size = 48
    end
    object QProduceOrderfitemcolor: TWideStringField
      DisplayWidth = 28
      FieldName = 'fitemcolor'
      Visible = False
      Size = 28
    end
    object QProduceOrderfitemunit: TWideStringField
      DisplayWidth = 16
      FieldName = 'fitemunit'
      Visible = False
      Size = 16
    end
    object QProduceOrderfqty: TBCDField
      DisplayWidth = 19
      FieldName = 'fqty'
      Visible = False
      Precision = 18
      Size = 0
    end
    object QProduceOrderfisbproduce: TBooleanField
      DisplayWidth = 5
      FieldName = 'fisbproduce'
      Visible = False
    end
    object QProduceOrderfisbdate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fisbdate'
      Visible = False
    end
    object QProduceOrderfismcontrol: TWideStringField
      DisplayWidth = 16
      FieldName = 'fismcontrol'
      Visible = False
      Size = 16
    end
    object QProduceOrderfisfinish: TBooleanField
      DisplayWidth = 5
      FieldName = 'fisfinish'
      Visible = False
    end
    object QProduceOrderfisfdate: TDateTimeField