fccell.dfm

制衣MRP管理系统源码

inherited frmFCCell: TfrmFCCell
  Left = 135
  Top = 66
  Width = 572
  Height = 457
  Caption = #29983#20135#27969#27700#32500#25252
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 225
    Top = 38
    Width = 4
    Height = 392
    Cursor = crHSplit
  end
  inherited ToolBar: TToolBar
    Width = 564
  end
  object Panel1: TPanel [2]
    Left = 229
    Top = 38
    Width = 335
    Height = 392
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Panel3: TPanel
      Left = 8
      Top = 8
      Width = 313
      Height = 185
      TabOrder = 0
      object Label10: TLabel
        Left = 24
        Top = 123
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object Label5: TLabel
        Left = 24
        Top = 98
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #27969#27700#25104#26412#65306
      end
      object Label4: TLabel
        Left = 24
        Top = 71
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31649#29702#37096#38376#65306
      end
      object Label2: TLabel
        Left = 24
        Top = 41
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #27969#27700#21517#31216#65306
      end
      object Label1: TLabel
        Left = 24
        Top = 15
        Width = 71
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #38582#23646#24037#24207#65306
      end
      object wwDBEditCost: TwwDBEdit
        Left = 96
        Top = 93
        Width = 169
        Height = 21
        DataField = 'fCost'
        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 = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEditName: TwwDBEdit
        Left = 96
        Top = 36
        Width = 169
        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 wwDBLPro: TwwDBLookupCombo
        Left = 96
        Top = 10
        Width = 169
        Height = 21
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fName'#9'20'#9#24037#24207#21517#31216#9'F')
        DataField = 'fProID'
        DataSource = dsBaseInfo
        LookupTable = qProcess
        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 DBMemo1: TDBMemo
        Left = 96
        Top = 121
        Width = 185
        Height = 49
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
      object dxDBLookupTreeView1: TdxDBLookupTreeView
        Left = 96
        Top = 64
        Width = 169
        Height = 21
        CanSelectParents = True
        DropDownRows = 15
        DropDownWidth = 250
        ParentColor = False
        TabOrder = 4
        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
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 200
      Width = 313
      Height = 185
      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 = 94
          Visible = True
        end>
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 38
    Width = 225
    Height = 392
    Align = alLeft
    TabOrder = 2
    object tvMaster: TfcTreeView
      Left = 1
      Top = 1
      Width = 223
      Height = 390
      Align = alClient
      Indent = 19
      Options = [tvoExpandOnDblClk, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
      Items.StreamVersion = 1
      Items.Data = {00000000}
      TabOrder = 0
      OnChange = tvMasterChange
    end
    object dxDBTreeList1: TdxDBTreeList
      Left = 1
      Top = 1
      Width = 223
      Height = 390
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'sID'
      ParentField = 'sParentID'
      Align = alClient
      TabOrder = 1
      DataSource = dsMaster
      TreeLineColor = clGrayText
      object dxDBTreeList1fID: TdxDBTreeListMaskColumn
        Visible = False
        Width = 65
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fID'
      end
      object dxDBTreeList1fParentID: TdxDBTreeListMaskColumn
        Visible = False
        Width = 65
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fParentID'
      end
      object dxDBTreeList1fName: TdxDBTreeListColumn
        Width = 309
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fName'
      end
    end
  end
  inherited ALToolbar: TActionList
    inherited acFind: TAction
      Visible = False
    end
  end
  inherited QBaseInfo: TADOQuery
    AfterInsert = QBaseInfoAfterInsert
    Parameters = <
      item
        Name = 'ProcessID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tDefCell where fProID=:ProcessID'
      '')
    Left = 168
    Top = 168
    object QBaseInfofID: TAutoIncField
      DisplayLabel = 'ID'
      DisplayWidth = 5
      FieldName = 'fID'
      Visible = False
    end
    object QBaseInfofName: TWideStringField
      DisplayLabel = #27969#27700#21517#31216
      DisplayWidth = 15
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfosProName: TStringField
      DisplayLabel = #24037#24207#21517#31216
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'sProName'
      LookupDataSet = qProcess
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fProID'
      Size = 50
      Lookup = True
    end
    object QBaseInfofCost: TBCDField
      DisplayLabel = #27969#27700#25104#26412
      DisplayWidth = 5
      FieldName = 'fCost'
      Visible = False
      Precision = 10
      Size = 2
    end
    object QBaseInfofProID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fProID'
      Visible = False
    end
    object QBaseInfofRoleID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fRoleID'
      Visible = False
    end
    object QBaseInfofNotes: TWideStringField
      DisplayWidth = 5
      FieldName = 'fNotes'
      Visible = False
      Size = 200
    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
  end
  inherited dsBaseInfo: TDataSource
    Left = 184
    Top = 184
  end
  inherited QIsUnique: TADOQuery
    Left = 472
    Top = 80
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fID'#9'5'#9'ID'#9'F'
      'fName'#9'15'#9#27969#27700#21517#31216#9'F'
      'sProName'#9'15'#9#24037#24207#21517#31216#9'F'
      'sRoleName'#9'15'#9#35282#33394#21517#31216#9'F'
      'sWCName'#9'15'#9#32452#21517#31216#9'F'
      'fCost'#9'5'#9#27969#27700#25104#26412#9'F')
  end
  object qProcess: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fName from tDefProcess')
    Left = 368
    Top = 80
    object qProcessfID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
    end
    object qProcessfName: TWideStringField
      FieldName = 'fName'
      Size = 50
    end
  end
  object dsProcess: TDataSource
    DataSet = qProcess
    Left = 392
    Top = 80
  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,'
      '       c.fID CID,c.fName CName'
      'from tDefSection a'
      #9'left join tDefProcess b on b.fSecID=a.fID'
      #9'left join tDefCell c on c.fProID=b.fID')
    Left = 16
    Top = 72
    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
    object QMasterCID: TAutoIncField
      FieldName = 'CID'
      ReadOnly = True
    end
    object QMasterCName: TWideStringField
      FieldName = 'CName'
      Size = 50
    end
  end
  object dsMaster: TDataSource
    DataSet = ADOQuery1
    Left = 32
    Top = 88
  end
  object qDep: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fParentID,fCode+'#39'_'#39'+fName fName from tDepartment'
      'order by fName')
    Left = 368
    Top = 176
  end
  object dsDep: TDataSource
    DataSet = qDep
    Left = 384
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from vdxTreeDefCell')
    Left = 40
    Top = 224
    object ADOQuery1sID: TStringField
      FieldName = 'sID'
      Size = 11
    end
    object ADOQuery1sParentID: TStringField
      FieldName = 'sParentID'
      Size = 11
    end
    object ADOQuery1fID: TIntegerField
      FieldName = 'fID'
    end
    object ADOQuery1fParentID: TIntegerField
      FieldName = 'fParentID'
    end
    object ADOQuery1fName: TWideStringField
      DisplayLabel = #24037#27573'-'#24037#24207'-'#27969#27700
      FieldName = 'fName'
      Size = 50
    end
  end
end