bs_factory.dfm

这是一个实用的软件

inherited fBs_factory: TfBs_factory
  Left = 215
  Top = 94
  Width = 593
  Height = 502
  Caption = #20379#24212#21830#20449#24687
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label1: TLabel
    Left = 208
    Top = 69
  end
  inherited lbl1: TLabel
    Left = 392
    Top = 68
  end
  inherited lbl2: TLabel
    Left = 208
    Top = 188
  end
  object lbl3: TLabel [3]
    Left = 208
    Top = 95
    Width = 42
    Height = 13
    Caption = #20998'  '#31867#65306
  end
  object lbl4: TLabel [4]
    Left = 392
    Top = 96
    Width = 42
    Height = 13
    Caption = #22320'  '#21306#65306
  end
  object lbl5: TLabel [5]
    Left = 208
    Top = 119
    Width = 48
    Height = 13
    Caption = #32852#31995#20154#65306
  end
  object lbl6: TLabel [6]
    Left = 392
    Top = 120
    Width = 42
    Height = 13
    Caption = #30005'  '#35805#65306
  end
  object lbl7: TLabel [7]
    Left = 208
    Top = 143
    Width = 39
    Height = 13
    Caption = #20256' '#30495#65306
  end
  object lbl8: TLabel [8]
    Left = 208
    Top = 167
    Width = 36
    Height = 13
    Caption = #22320#22336#65306
  end
  inherited ToolBar1: TToolBar
    Width = 585
    inherited SpeedButton1: TSpeedButton
      Visible = False
    end
  end
  inherited dxDBTreeList1: TdxDBTreeList
    Height = 426
    KeyField = 'fcode'
    ParentField = 'fathercode'
    OnDblClick = dxDBTreeList1DblClick
    DataSource = fpubdata.dsdisp_ftype
    OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDblClick, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
    inherited dxDBTreeList1Column1: TdxDBTreeListColumn
      Caption = #20998#31867#32534#21495
      Width = 73
      FieldName = 'fcode'
    end
    inherited dxDBTreeList1Column2: TdxDBTreeListColumn
      Caption = #20998#31867#21517#31216
      Width = 115
      FieldName = 'Ftype_name'
    end
  end
  inherited DBEdit1: TDBEdit
    Left = 256
    Width = 122
    DataField = 'fcode'
    DataSource = DataSource
  end
  inherited DBEdit2: TDBEdit
    Left = 441
    Top = 64
    Width = 128
    DataField = 'Fty_name'
    DataSource = DataSource
  end
  inherited DBMemo1: TDBMemo
    Left = 256
    Top = 184
    Width = 313
    Height = 97
    DataField = 'fmem'
    DataSource = DataSource
    TabOrder = 11
  end
  object dblkcbbtype: TDBLookupComboBox [14]
    Left = 256
    Top = 88
    Width = 122
    Height = 21
    DataField = 'Fty_type'
    DataSource = DataSource
    Enabled = False
    KeyField = 'fcode'
    ListField = 'Ftype_name'
    ListSource = fpubdata.dsdisp_ftype
    TabOrder = 4
  end
  object dblkcbb1: TDBLookupComboBox [15]
    Left = 441
    Top = 88
    Width = 128
    Height = 21
    DataField = 'Fty_area'
    DataSource = DataSource
    Enabled = False
    KeyField = 'fcode'
    ListField = 'area_name'
    ListSource = fpubdata.dsdisp_area
    TabOrder = 5
  end
  object dbchk1: TDBCheckBox [16]
    Left = 496
    Top = 138
    Width = 49
    Height = 17
    Caption = #27880#38144
    DataField = 'Fty_out'
    DataSource = DataSource
    Enabled = False
    TabOrder = 9
    ValueChecked = '1'
    ValueUnchecked = '0'
  end
  object dbedt1: TDBEdit [17]
    Left = 256
    Top = 112
    Width = 122
    Height = 21
    DataField = 'Fty_bond'
    DataSource = DataSource
    Enabled = False
    TabOrder = 6
  end
  object dbedt2: TDBEdit [18]
    Left = 441
    Top = 112
    Width = 129
    Height = 21
    DataField = 'Fty_tel'
    DataSource = DataSource
    Enabled = False
    TabOrder = 7
  end
  object dbedt3: TDBEdit [19]
    Left = 256
    Top = 136
    Width = 122
    Height = 21
    DataField = 'Fty_fax'
    DataSource = DataSource
    Enabled = False
    TabOrder = 8
  end
  object dbedt4: TDBEdit [20]
    Left = 256
    Top = 160
    Width = 313
    Height = 21
    DataField = 'Fty_adds'
    DataSource = DataSource
    Enabled = False
    TabOrder = 10
  end
  object dxDBGrid1: TdxDBGrid [21]
    Left = 200
    Top = 288
    Width = 377
    Height = 177
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'fcode'
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 12
    DataSource = DataSource
    Filter.Criteria = {00000000}
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    object dxDBGrid1Fty_code: TdxDBGridColumn
      Caption = #32534#21495
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fcode'
    end
    object dxDBGrid1Fty_name: TdxDBGridColumn
      Caption = #21517#31216
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_name'
    end
    object dxDBGrid1Fty_type: TdxDBGridColumn
      Caption = #20998#31867
      Width = 63
      BandIndex = 0
      RowIndex = 0
      FieldName = 'type'
    end
    object dxDBGrid1Fty_area: TdxDBGridColumn
      Caption = #24402#23646#22320#21306
      Width = 55
      BandIndex = 0
      RowIndex = 0
      FieldName = 'area'
    end
    object dxDBGrid1Fty_bond: TdxDBGridColumn
      Caption = #32852#31995#20154
      Width = 53
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_bond'
    end
    object dxDBGrid1Fty_tel: TdxDBGridColumn
      Caption = #32852#31995#30005#35805
      Width = 87
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_tel'
    end
    object dxDBGrid1Fty_fax: TdxDBGridColumn
      Caption = #20256#30495
      Width = 124
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_fax'
    end
    object dxDBGrid1Fty_adds: TdxDBGridColumn
      Caption = #22320#22336
      Width = 113
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_adds'
    end
    object dxDBGrid1fmem: TdxDBGridColumn
      Caption = #22791#27880
      Width = 120
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fmem'
    end
    object dxDBGrid1Fty_out: TdxDBGridCheckColumn
      Caption = #27880#38144
      MinWidth = 20
      Width = 50
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fty_out'
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_factory'
      'where 1=0')
    Left = 336
    Top = 16
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QbaseinfoFty_name: TWideStringField
      FieldName = 'Fty_name'
    end
    object QbaseinfoFty_type: TWideStringField
      FieldName = 'Fty_type'
    end
    object QbaseinfoFty_area: TWideStringField
      FieldName = 'Fty_area'
    end
    object QbaseinfoFty_bond: TWideStringField
      FieldName = 'Fty_bond'
    end
    object QbaseinfoFty_tel: TWideStringField
      FieldName = 'Fty_tel'
    end
    object QbaseinfoFty_fax: TWideStringField
      FieldName = 'Fty_fax'
    end
    object QbaseinfoFty_adds: TWideStringField
      FieldName = 'Fty_adds'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfoFty_out: TIntegerField
      FieldName = 'Fty_out'
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object Qbaseinfoarea: TStringField
      FieldKind = fkLookup
      FieldName = 'area'
      LookupDataSet = fpubdata.qrydisp_area
      LookupKeyFields = 'fcode'
      LookupResultField = 'area_name'
      KeyFields = 'Fty_area'
      Size = 10
      Lookup = True
    end
    object Qbaseinfotype: TStringField
      FieldKind = fkLookup
      FieldName = 'type'
      LookupDataSet = fpubdata.qrydisp_ftype
      LookupKeyFields = 'fcode'
      LookupResultField = 'Ftype_name'
      KeyFields = 'Fty_type'
      Lookup = True
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 16
  end
  inherited ImageList1: TImageList
    Left = 448
    Top = 16
  end
  inherited ActionList: TActionList
    Left = 400
    Top = 16
  end
end