bs_machine.dfm

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

        ListSource = fpubdata.dschine_type
        TabOrder = 14
      end
      object DBMemo2: TDBMemo
        Left = 80
        Top = 176
        Width = 425
        Height = 49
        DataField = 'Chine_mean'
        DataSource = DataSource
        TabOrder = 15
      end
      object dbedt3: TDBEdit
        Left = 344
        Top = 32
        Width = 161
        Height = 21
        DataField = 'chine_modal'
        DataSource = DataSource
        TabOrder = 16
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 80
        Top = 56
        Width = 97
        Height = 21
        DataField = 'Chine_unit'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 17
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 80
        Top = 80
        Width = 97
        Height = 21
        DataField = 'Chine_unit1'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 18
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 80
        Top = 104
        Width = 97
        Height = 21
        DataField = 'Chine_unit2'
        DataSource = DataSource
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 19
      end
    end
    object ts2: TTabSheet
      Caption = #25968#25454#27983#35272
      ImageIndex = 1
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 521
        Height = 435
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'Chine_code'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = DataSource
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGrid1Chine_code: TdxDBGridColumn
          Width = 57
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_code'
          SummaryFooterType = cstCount
        end
        object dxDBGrid1Chine_name: TdxDBGridColumn
          Width = 103
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_name'
        end
        object dxDBGrid1Chine_type: TdxDBGridColumn
          Width = 60
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_type'
        end
        object dxDBGrid1Chine_date: TdxDBGridDateColumn
          Width = 76
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_date'
        end
        object dxDBGrid1Chine_mean: TdxDBGridColumn
          Width = 173
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_mean'
        end
        object dxDBGrid1Chine_ph: TdxDBGridColumn
          Width = 72
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_ph'
        end
        object dxDBGrid1Chine_marking: TdxDBGridColumn
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_marking'
        end
        object dxDBGrid1Chine_unit: TdxDBGridColumn
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_unit'
        end
        object dxDBGrid1Chine_aveprice: TdxDBGridMaskColumn
          Width = 58
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_aveprice'
        end
        object dxDBGrid1Chine_retail1: TdxDBGridMaskColumn
          Width = 54
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_retail1'
        end
        object dxDBGrid1Chine_unit1: TdxDBGridMaskColumn
          Width = 43
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_unit1'
        end
        object dxDBGrid1Chine_unit1rate: TdxDBGridMaskColumn
          Width = 78
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_unit1rate'
        end
        object dxDBGrid1Chine_retail2: TdxDBGridMaskColumn
          Width = 53
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_retail2'
        end
        object dxDBGrid1Chine_unit2: TdxDBGridMaskColumn
          Width = 45
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_unit2'
        end
        object dxDBGrid1Chine_unit2rate: TdxDBGridMaskColumn
          Width = 78
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_unit2rate'
        end
        object dxDBGrid1Chine_retail3: TdxDBGridMaskColumn
          Width = 57
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_retail3'
        end
        object dxDBGrid1Chine_up: TdxDBGridMaskColumn
          Width = 57
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_up'
        end
        object dxDBGrid1Chine_down: TdxDBGridMaskColumn
          Width = 57
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_down'
        end
        object dxDBGrid1Chine_spec: TdxDBGridColumn
          Width = 52
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_spec'
        end
        object dxDBGrid1chine_modal: TdxDBGridColumn
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'chine_modal'
        end
        object dxDBGrid1Chine_factory: TdxDBGridColumn
          Width = 134
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_factory'
        end
        object dxDBGrid1Chine_out: TdxDBGridCheckColumn
          MinWidth = 20
          Width = 45
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Chine_out'
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_machine where 1=0')
    Left = 24
    Top = 128
    object QbaseinfoFcode: TWideStringField
      FieldName = 'Fcode'
    end
    object QbaseinfoChine_code: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'Chine_code'
    end
    object QbaseinfoChine_name: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'Chine_name'
    end
    object QbaseinfoChine_date: TDateTimeField
      DisplayLabel = #29983#20135#26085#26399
      FieldName = 'Chine_date'
    end
    object QbaseinfoChine_mean: TWideStringField
      DisplayLabel = #20135#21697#25551#36848
      FieldName = 'Chine_mean'
      Size = 255
    end
    object QbaseinfoChine_ph: TWideStringField
      DisplayLabel = #25209#21495
      FieldName = 'Chine_ph'
    end
    object QbaseinfoChine_marking: TWideStringField
      DisplayLabel = #26465#30721
      FieldName = 'Chine_marking'
      Size = 50
    end
    object QbaseinfoChine_unit: TWideStringField
      DisplayLabel = #22522#26412#21333#20301
      FieldName = 'Chine_unit'
    end
    object QbaseinfoChine_aveprice: TFloatField
      DisplayLabel = #24179#22343#25104#26412
      FieldName = 'Chine_aveprice'
    end
    object QbaseinfoChine_retail1: TFloatField
      DisplayLabel = #38646#21806#20215'1'
      FieldName = 'Chine_retail1'
    end
    object QbaseinfoChine_unit1: TFloatField
      DisplayLabel = #23567#21253#35013
      FieldName = 'Chine_unit1'
    end
    object QbaseinfoChine_unit1rate: TFloatField
      DisplayLabel = #23567#21253#35013#25442#31639#29575
      FieldName = 'Chine_unit1rate'
    end
    object QbaseinfoChine_retail2: TFloatField
      DisplayLabel = #38646#21806#20215'2'
      FieldName = 'Chine_retail2'
    end
    object QbaseinfoChine_unit2: TFloatField
      DisplayLabel = #22823#21253#35013
      FieldName = 'Chine_unit2'
    end
    object QbaseinfoChine_unit2rate: TFloatField
      DisplayLabel = #22823#21253#35013#25442#31639#29575
      FieldName = 'Chine_unit2rate'
    end
    object QbaseinfoChine_retail3: TFloatField
      DisplayLabel = #38646#21806#20215'3'
      FieldName = 'Chine_retail3'
    end
    object QbaseinfoChine_up: TIntegerField
      DisplayLabel = #24211#23384#19978#38480
      FieldName = 'Chine_up'
    end
    object QbaseinfoChine_down: TIntegerField
      DisplayLabel = #24211#23384#19979#38480
      FieldName = 'Chine_down'
    end
    object QbaseinfoChine_spec: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'Chine_spec'
      Size = 100
    end
    object QbaseinfoChine_factory: TWideStringField
      DisplayLabel = #29983#20135#21830
      FieldName = 'Chine_factory'
      Size = 100
    end
    object QbaseinfoChine_out: TIntegerField
      DisplayLabel = #27880#38144
      FieldName = 'Chine_out'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object Qbaseinfosort: TWideStringField
      FieldName = 'sort'
    end
    object QbaseinfoChine_type: TWideStringField
      DisplayLabel = #20998#31867
      FieldName = 'Chine_type'
    end
    object Qbaseinfochine_modal: TWideStringField
      DisplayLabel = #22411#21495
      FieldName = 'chine_modal'
    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
  end
end