cg_profind4.dfm

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

inherited fcg_profind4: Tfcg_profind4
  Left = 234
  Top = 115
  Width = 591
  Height = 370
  Caption = #33647#21697#36873#25321
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object dxDBTreeList1: TdxDBTreeList
    Left = 0
    Top = 0
    Width = 201
    Height = 343
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'fcode'
    ParentField = 'fathercode'
    Align = alLeft
    TabOrder = 0
    OnDblClick = dxDBTreeList1DblClick
    DataSource = dstype
    OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDblClick, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
    TreeLineColor = clGrayText
    object dxDBTreeList1Column1: TdxDBTreeListColumn
      Width = 89
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fcode'
    end
    object dxDBTreeList1Column2: TdxDBTreeListColumn
      Width = 103
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Ty_name'
    end
  end
  object dxDBGrid1: TdxDBGrid
    Left = 201
    Top = 0
    Width = 376
    Height = 273
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'Phy_code'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alCustom
    TabOrder = 1
    DataSource = dsitem
    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 = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Phy_code'
    end
    object dxDBGrid1Phy_name: TdxDBGridColumn
      Caption = #33647#21697#21517#31216
      Width = 106
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Phy_name'
    end
    object dxDBGrid1Phy_unit: TdxDBGridColumn
      Caption = #21333#20301
      Width = 44
      BandIndex = 0
      RowIndex = 0
      FieldName = 'unit'
    end
    object dxDBGrid1Column5: TdxDBGridColumn
      Caption = #38646#21806#20215'1'
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Phy_retail1'
    end
    object dxDBGrid1Phy_marking: TdxDBGridColumn
      Caption = #26465#30721
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Phy_marking'
    end
  end
  object GroupBox1: TGroupBox
    Left = 208
    Top = 280
    Width = 369
    Height = 57
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 282
      Top = 21
      Width = 75
      Height = 25
      Caption = #26597' '#35810
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 192
      Top = 21
      Width = 75
      Height = 25
      Caption = #30830' '#23450
      TabOrder = 1
      OnClick = BitBtn2Click
      OnExit = BitBtn1Click
    end
    object prosearch: TEdit
      Left = 16
      Top = 21
      Width = 161
      Height = 21
      TabOrder = 0
    end
  end
  object selecttype: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_type')
    Left = 24
    Top = 56
    object selecttypeid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object selecttypefcode: TWideStringField
      DisplayLabel = #20998#31867#32534#21495
      FieldName = 'fcode'
    end
    object selecttypeTy_name: TWideStringField
      DisplayLabel = #20998#31867#21517#31216
      FieldName = 'Ty_name'
    end
    object selecttypefathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object selecttypefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object selecttypefSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dstype: TDataSource
    DataSet = selecttype
    Left = 64
    Top = 56
  end
  object dsitem: TDataSource
    DataSet = selectpro
    Left = 328
    Top = 56
  end
  object selectpro: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_physic'
      'where 1=0')
    Left = 296
    Top = 56
    object selectproid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object selectproPhy_code: TWideStringField
      FieldName = 'Phy_code'
    end
    object selectproPhy_name: TWideStringField
      FieldName = 'Phy_name'
    end
    object selectproPhy_type: TWideStringField
      FieldName = 'Phy_type'
    end
    object selectproPhy_marking: TWideStringField
      FieldName = 'Phy_marking'
    end
    object selectproPhy_abc: TWideStringField
      FieldName = 'Phy_abc'
    end
    object selectproPhy_unit: TWideStringField
      FieldName = 'Phy_unit'
    end
    object selectproPhy_aveprice: TFloatField
      FieldName = 'Phy_aveprice'
    end
    object selectproPhy_retail1: TFloatField
      FieldName = 'Phy_retail1'
    end
    object selectproPhy_unit1: TWideStringField
      FieldName = 'Phy_unit1'
    end
    object selectproPhy_unit1rate: TFloatField
      FieldName = 'Phy_unit1rate'
    end
    object selectproPhy_retail2: TFloatField
      FieldName = 'Phy_retail2'
    end
    object selectproPhy_unit2: TWideStringField
      FieldName = 'Phy_unit2'
    end
    object selectproPhy_unit2rate: TFloatField
      FieldName = 'Phy_unit2rate'
    end
    object selectproPhy_retail3: TFloatField
      FieldName = 'Phy_retail3'
    end
    object selectproPhy_unit3: TWideStringField
      FieldName = 'Phy_unit3'
    end
    object selectproPhy_unit3rate: TFloatField
      FieldName = 'Phy_unit3rate'
    end
    object selectproPhy_retail4: TFloatField
      FieldName = 'Phy_retail4'
    end
    object selectproPhy_up: TFloatField
      FieldName = 'Phy_up'
    end
    object selectproPhy_down: TFloatField
      FieldName = 'Phy_down'
    end
    object selectproPhy_spec: TWideStringField
      FieldName = 'Phy_spec'
    end
    object selectproPhy_xz: TWideStringField
      FieldName = 'Phy_xz'
    end
    object selectproPhy_fit: TWideStringField
      FieldName = 'Phy_fit'
      Size = 100
    end
    object selectproPhy_reaction: TWideStringField
      FieldName = 'Phy_reaction'
      Size = 100
    end
    object selectproPhy_enjoin: TWideStringField
      FieldName = 'Phy_enjoin'
      Size = 100
    end
    object selectproPhy_attention: TWideStringField
      FieldName = 'Phy_attention'
      Size = 100
    end
    object selectproPhy_savedate: TFloatField
      FieldName = 'Phy_savedate'
    end
    object selectproPhy_otc: TIntegerField
      FieldName = 'Phy_otc'
    end
    object selectproPhy_out: TIntegerField
      FieldName = 'Phy_out'
    end
    object selectprofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object selectprofSort: TWideStringField
      FieldName = 'fSort'
    end
    object selectprophy_used: TWideStringField
      FieldName = 'phy_used'
    end
    object selectprophy_factory: TWideStringField
      FieldName = 'phy_factory'
      Size = 50
    end
    object selectprounit: TStringField
      FieldKind = fkLookup
      FieldName = 'unit'
      LookupDataSet = fpubdata.qrydisp_unit
      LookupKeyFields = 'Unit_code'
      LookupResultField = 'Unit_name'
      KeyFields = 'Phy_unit'
      Size = 10
      Lookup = True
    end
  end
end