bs_physic.dfm

这是一个实用的软件

        Top = 204
        Width = 57
        Height = 17
        Caption = #27880#38144
        DataField = 'Phy_out'
        DataSource = DataSource
        TabOrder = 29
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dbmmo6: TDBMemo
        Left = 80
        Top = 398
        Width = 425
        Height = 41
        DataField = 'fmem'
        DataSource = DataSource
        TabOrder = 27
      end
      object DBEdit3: TDBEdit
        Left = 80
        Top = 200
        Width = 329
        Height = 21
        DataField = 'phy_factory'
        DataSource = DataSource
        TabOrder = 22
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 80
        Top = 56
        Width = 97
        Height = 21
        DataField = 'Phy_unit'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 5
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 80
        Top = 80
        Width = 97
        Height = 21
        DataField = 'Phy_unit1'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 8
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 80
        Top = 104
        Width = 97
        Height = 21
        DataField = 'Phy_unit2'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 11
      end
      object DBLookupComboBox4: TDBLookupComboBox
        Left = 80
        Top = 128
        Width = 97
        Height = 21
        DataField = 'Phy_unit3'
        DataSource = DataSource
        Enabled = False
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 14
      end
      object dbcbbtype: TDBComboBox
        Left = 246
        Top = 32
        Width = 97
        Height = 21
        Style = csDropDownList
        DataField = 'ftype'
        DataSource = DataSource
        ItemHeight = 13
        Items.Strings = (
          #25104#33647
          #35199#33647)
        TabOrder = 3
      end
      object DBEdit4: TDBEdit
        Left = 408
        Top = 32
        Width = 97
        Height = 21
        DataField = 'Phy_savedate'
        DataSource = DataSource
        TabOrder = 4
      end
      object dbedtused: TDBEdit
        Left = 246
        Top = 176
        Width = 163
        Height = 21
        DataField = 'phy_used'
        DataSource = DataSource
        TabOrder = 21
        OnMouseDown = dbedtusedMouseDown
      end
    end
    object ts2: TTabSheet
      Caption = #25968#25454#27983#35272
      ImageIndex = 1
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 521
        Height = 453
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'Phy_code'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = DataSource
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid1Phy_code: TdxDBGridColumn
          Caption = #33647#21697#32534#21495
          Width = 77
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_code'
          SummaryFooterType = cstCount
        end
        object dxDBGrid1Phy_name: TdxDBGridColumn
          Caption = #33647#21697#21517#31216
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_name'
        end
        object dxDBGrid1Phy_abc: TdxDBGridColumn
          Caption = #25340#38899#20195#30721
          Width = 54
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_abc'
        end
        object dxDBGrid1Phy_type: TdxDBGridColumn
          Caption = #33647#21697#20998#31867
          Width = 62
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_type'
        end
        object dxDBGrid1Column27: TdxDBGridColumn
          Caption = #33647#21697#31867#21035
          Width = 66
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ftype'
        end
        object dxDBGrid1Phy_marking: TdxDBGridColumn
          Caption = #33647#21697#26465#30721
          Width = 108
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_marking'
        end
        object dxDBGrid1Phy_unit: TdxDBGridColumn
          Caption = #22522#26412#21333#20301
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'unit'
        end
        object dxDBGrid1Phy_aveprice: TdxDBGridMaskColumn
          Caption = #24179#22343#25104#26412
          Width = 54
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_aveprice'
        end
        object dxDBGrid1Phy_retail1: TdxDBGridMaskColumn
          Caption = #38646#21806#20215'1'
          Width = 49
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_retail1'
        end
        object dxDBGrid1Phy_unit1: TdxDBGridColumn
          Caption = #23567#21253#35013
          Sorted = csUp
          Width = 57
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_unit1'
        end
        object dxDBGrid1Phy_unit1rate: TdxDBGridMaskColumn
          Caption = #23567#21253#35013#25442#31639#29575
          Width = 78
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_unit1rate'
        end
        object dxDBGrid1Phy_retail2: TdxDBGridMaskColumn
          Caption = #38646#21806#20215'2'
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_retail2'
        end
        object dxDBGrid1Phy_unit2: TdxDBGridColumn
          Caption = #22823#21253#35013
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_unit2'
        end
        object dxDBGrid1Phy_unit2rate: TdxDBGridMaskColumn
          Caption = #22823#21253#35013#25442#31639#29575
          Width = 78
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_unit2rate'
        end
        object dxDBGrid1Phy_retail3: TdxDBGridMaskColumn
          Caption = #38646#21806#20215'3'
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_retail3'
        end
        object dxDBGrid1Phy_up: TdxDBGridMaskColumn
          Caption = #24211#23384#19978#38480
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_up'
        end
        object dxDBGrid1Phy_down: TdxDBGridMaskColumn
          Caption = #24211#23384#19979#38480
          Width = 53
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_down'
        end
        object dxDBGrid1Phy_spec: TdxDBGridColumn
          Caption = #35268#26684
          Width = 104
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_spec'
        end
        object dxDBGrid1Phy_xz: TdxDBGridColumn
          Caption = #24615#29366
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_xz'
        end
        object dxDBGrid1Phy_fit: TdxDBGridColumn
          Caption = #36866#24212#30151
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_fit'
        end
        object dxDBGrid1Phy_reaction: TdxDBGridColumn
          Caption = #19981#33391#21453#24212
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_reaction'
        end
        object dxDBGrid1Phy_enjoin: TdxDBGridColumn
          Caption = #31105#24524
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_enjoin'
        end
        object dxDBGrid1Phy_attention: TdxDBGridColumn
          Caption = #27880#24847#20107#39033
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_attention'
        end
        object dxDBGrid1Phy_savedate: TdxDBGridMaskColumn
          Caption = #20445#36136#26399
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_savedate'
        end
        object dxDBGrid1Phy_otc: TdxDBGridMaskColumn
          Caption = #38750#22788#26041#26631#35782
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_otc'
        end
        object dxDBGrid1Phy_out: TdxDBGridMaskColumn
          Caption = #27880#38144
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Phy_out'
        end
        object dxDBGrid1fmem: TdxDBGridColumn
          Caption = #22791#27880
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_physic where 1=0')
    Left = 24
    Top = 128
    object QbaseinfoPhy_code: TWideStringField
      FieldName = 'Phy_code'
    end
    object QbaseinfoPhy_name: TWideStringField
      FieldName = 'Phy_name'
    end
    object QbaseinfoPhy_type: TWideStringField
      FieldName = 'Phy_type'
    end
    object QbaseinfoPhy_marking: TWideStringField
      FieldName = 'Phy_marking'
    end
    object QbaseinfoPhy_abc: TWideStringField
      FieldName = 'Phy_abc'
    end
    object QbaseinfoPhy_unit: TWideStringField
      FieldName = 'Phy_unit'
    end
    object QbaseinfoPhy_aveprice: TFloatField
      FieldName = 'Phy_aveprice'
    end
    object QbaseinfoPhy_retail1: TFloatField
      FieldName = 'Phy_retail1'
    end
    object QbaseinfoPhy_unit1: TWideStringField
      FieldName = 'Phy_unit1'
    end
    object QbaseinfoPhy_unit1rate: TFloatField
      FieldName = 'Phy_unit1rate'
    end
    object QbaseinfoPhy_retail2: TFloatField
      FieldName = 'Phy_retail2'
    end
    object QbaseinfoPhy_unit2: TWideStringField
      FieldName = 'Phy_unit2'
    end
    object QbaseinfoPhy_unit2rate: TFloatField
      FieldName = 'Phy_unit2rate'
    end
    object QbaseinfoPhy_retail3: TFloatField
      FieldName = 'Phy_retail3'
    end
    object QbaseinfoPhy_unit3: TWideStringField
      FieldName = 'Phy_unit3'
    end
    object QbaseinfoPhy_unit3rate: TFloatField
      FieldName = 'Phy_unit3rate'
    end
    object QbaseinfoPhy_retail4: TFloatField
      FieldName = 'Phy_retail4'
    end
    object QbaseinfoPhy_up: TFloatField
      FieldName = 'Phy_up'
    end
    object QbaseinfoPhy_down: TFloatField
      FieldName = 'Phy_down'
    end
    object QbaseinfoPhy_spec: TWideStringField
      FieldName = 'Phy_spec'
    end
    object QbaseinfoPhy_xz: TWideStringField
      FieldName = 'Phy_xz'
    end
    object QbaseinfoPhy_fit: TWideStringField
      FieldName = 'Phy_fit'
      Size = 100
    end
    object QbaseinfoPhy_reaction: TWideStringField
      FieldName = 'Phy_reaction'
      Size = 100
    end
    object QbaseinfoPhy_enjoin: TWideStringField
      FieldName = 'Phy_enjoin'
      Size = 100
    end
    object QbaseinfoPhy_attention: TWideStringField
      FieldName = 'Phy_attention'
      Size = 100
    end
    object QbaseinfoPhy_savedate: TFloatField
      FieldName = 'Phy_savedate'
    end
    object QbaseinfoPhy_otc: TIntegerField
      FieldName = 'Phy_otc'
    end
    object QbaseinfoPhy_out: TIntegerField
      FieldName = 'Phy_out'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object Qbaseinfophy_used: TWideStringField
      FieldName = 'phy_used'
    end
    object Qbaseinfophy_factory: TWideStringField
      FieldName = 'phy_factory'
      Size = 50
    end
    object Qbaseinfoftype: TWideStringField
      FieldName = 'ftype'
      Size = 50
    end
    object Qbaseinfounit: TStringField
      FieldKind = fkLookup
      FieldName = 'unit'
      LookupDataSet = fpubdata.qrydisp_unit
      LookupKeyFields = 'Unit_code'
      LookupResultField = 'Unit_name'
      KeyFields = 'Phy_unit'
      Size = 10
      Lookup = True
    end
  end
  inherited DataSource: TDataSource
    Left = 56
    Top = 128
  end
  inherited ImageList1: TImageList
    Left = 120
    Top = 128
  end
  inherited ActionList: TActionList
    Left = 88
    Top = 128
    inherited actfind: TAction
      OnExecute = actfindExecute
    end
  end
  object sqltmp: TADOQuery
    Connection = fData.ADOConnection
    Parameters = <>
    Left = 448
    Top = 32
  end
end