fcprocess.dfm

制衣MRP管理系统源码

inherited frmFCProcess: TfrmFCProcess
  Left = 129
  Top = 56
  Width = 546
  Height = 441
  Caption = #29983#20135#24037#24207#32500#25252
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 201
    Top = 38
    Width = 4
    Height = 376
    Cursor = crHSplit
  end
  inherited ToolBar: TToolBar
    Width = 538
  end
  object Panel1: TPanel [2]
    Left = 205
    Top = 38
    Width = 333
    Height = 376
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    DesignSize = (
      333
      376)
    object Panel3: TPanel
      Left = 8
      Top = 8
      Width = 318
      Height = 185
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      object Label10: TLabel
        Left = 30
        Top = 131
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791#12288#12288#27880#65306
      end
      object Label4: TLabel
        Left = 30
        Top = 67
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31649#29702#37096#38376#65306
      end
      object Label2: TLabel
        Left = 30
        Top = 41
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #24037#24207#21517#31216#65306
      end
      object Label1: TLabel
        Left = 30
        Top = 16
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #38582#23646#24037#27573#65306
      end
      object Label3: TLabel
        Left = 32
        Top = 99
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #24037#20316#20013#24515#65306
      end
      object wwDBEditName: TwwDBEdit
        Left = 104
        Top = 36
        Width = 161
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSingle
        Frame.NonFocusStyle = efsFrameSingle
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBLSec: TwwDBLookupCombo
        Left = 104
        Top = 10
        Width = 161
        Height = 21
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fName'#9'20'#9#24037#27573#21517#31216#9'F')
        DataField = 'fSecID'
        DataSource = dsBaseInfo
        LookupTable = qSection
        LookupField = 'fID'
        Options = [loColLines, loRowLines, loTitles]
        Style = csDropDownList
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSingle
        Frame.NonFocusStyle = efsFrameSingle
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 0
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
      object dxDBLookupTreeView1: TdxDBLookupTreeView
        Left = 104
        Top = 64
        Width = 161
        Height = 21
        CanSelectParents = True
        DropDownRows = 15
        DropDownWidth = 250
        ParentColor = False
        TabOrder = 2
        TabStop = True
        Text = 'dxDBLookupTreeView1'
        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
        OnDropDown = dxDBLookupTreeView1DropDown
        DisplayField = 'fName'
        DividedChar = '.'
        ListSource = dsDep
        KeyField = 'fID'
        ListField = 'fName'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'fParentID'
        TextStyle = tvtsShort
        DataField = 'fRoleID'
        DataSource = dsBaseInfo
      end
      object DBMemo1: TDBMemo
        Left = 104
        Top = 124
        Width = 185
        Height = 49
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
      object wwDBLWC: TwwDBLookupCombo
        Left = 104
        Top = 94
        Width = 161
        Height = 21
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fName'#9'20'#9#24037#24207#21517#31216#9'F')
        DataField = 'fWCID'
        DataSource = dsBaseInfo
        LookupTable = qWC
        LookupField = 'fID'
        Options = [loColLines, loRowLines, loTitles]
        Style = csDropDownList
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSingle
        Frame.NonFocusStyle = efsFrameSingle
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 4
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 200
      Width = 313
      Height = 169
      DataSource = dsBaseInfo
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'fName'
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sDepName'
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sWCName'
          Width = 121
          Visible = True
        end>
    end
  end
  object tvMaster: TfcTreeView [3]
    Left = 0
    Top = 38
    Width = 201
    Height = 376
    Align = alLeft
    Indent = 19
    Options = [tvoExpandOnDblClk, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
    Items.StreamVersion = 1
    Items.Data = {00000000}
    TabOrder = 2
    OnChange = tvMasterChange
  end
  inherited ALToolbar: TActionList
    inherited acFind: TAction
      Visible = False
    end
  end
  inherited QBaseInfo: TADOQuery
    AfterInsert = QBaseInfoAfterInsert
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tDefProcess'
      'Where fSecID=:fID')
    Left = 88
    Top = 96
    object QBaseInfofID: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 5
      FieldName = 'fID'
    end
    object QBaseInfofName: TWideStringField
      DisplayLabel = #24037#24207#21517#31216
      DisplayWidth = 15
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfosSectionName: TStringField
      DisplayLabel = #24037#27573#21517#31216
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'sSectionName'
      LookupDataSet = qSection
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fSecID'
      Size = 50
      Lookup = True
    end
    object QBaseInfofNotes: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'fNotes'
      Size = 200
    end
    object QBaseInfofRoleID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fRoleID'
      Visible = False
    end
    object QBaseInfofWCID: TIntegerField
      FieldName = 'fWCID'
    end
    object QBaseInfofSecID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fSecID'
      Visible = False
    end
    object QBaseInfosDepName: TStringField
      DisplayLabel = #31649#29702#37096#38376
      FieldKind = fkLookup
      FieldName = 'sDepName'
      LookupDataSet = qDep
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fRoleID'
      Size = 50
      Lookup = True
    end
    object QBaseInfosWCName: TStringField
      DisplayLabel = #24037#20316#20013#24515
      FieldKind = fkLookup
      FieldName = 'sWCName'
      LookupDataSet = qWC
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fWCID'
      Lookup = True
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 104
    Top = 112
  end
  inherited QIsUnique: TADOQuery
    Left = 504
    Top = 48
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fID'#9'5'#9'ID'#9'F'
      'fName'#9'15'#9#24037#24207#21517#31216#9'F'
      'sSectionName'#9'15'#9#24037#27573#21517#31216#9'F'
      'sRoleName'#9'15'#9#35282#33394#21517#31216#9'F'
      'fNotes'#9'20'#9#22791#27880#9'F')
  end
  object qSection: TADOQuery
    Active = True
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fName from tDefSection')
    Left = 184
    Top = 72
    object qSectionfID: TAutoIncField
      DisplayLabel = #24207#21495
      FieldName = 'fID'
      ReadOnly = True
    end
    object qSectionfName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'fName'
      Size = 50
    end
  end
  object dsSection: TDataSource
    DataSet = qSection
    Left = 200
    Top = 80
  end
  object qDep: TADOQuery
    Active = True
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fParentID,fCode+'#39'_'#39'+fName fName from tDepartment')
    Left = 184
    Top = 144
  end
  object dsDep: TDataSource
    DataSet = qDep
    Left = 200
    Top = 160
  end
  object QMaster: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.fId AID,a.fName AName,'
      '       b.fID BID,b.fName BName'
      'from tDefSection a'
      #9'left join tDefProcess b on b.fSecID=a.fID')
    Left = 16
    Top = 192
    object QMasterAID: TAutoIncField
      FieldName = 'AID'
      ReadOnly = True
    end
    object QMasterAName: TWideStringField
      FieldName = 'AName'
      Size = 50
    end
    object QMasterBID: TAutoIncField
      FieldName = 'BID'
      ReadOnly = True
    end
    object QMasterBName: TWideStringField
      FieldName = 'BName'
      Size = 50
    end
  end
  object dsMaster: TDataSource
    DataSet = QMaster
    Left = 32
    Top = 208
  end
  object qWC: TADOQuery
    Active = True
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fName from tWorkCenter')
    Left = 368
    Top = 120
  end
  object dsWC: TDataSource
    DataSet = qWC
    Left = 392
    Top = 120
  end
end