bs_machine.dfm

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

inherited fBs_machine: TfBs_machine
  Left = 164
  Top = 87
  Width = 752
  Height = 587
  Caption = #21307#30103#22120#26800#20449#24687
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label1: TLabel
    Left = 208
    Width = 51
    Caption = #32534'     '#21495#65306
  end
  inherited lbl1: TLabel
    Left = 440
    Top = 68
    Width = 51
    Caption = #21517'     '#31216#65306
  end
  inherited lbl2: TLabel
    Left = 264
    Top = 388
    Width = 60
    Caption = #22791'        '#27880#65306
    Visible = False
  end
  inherited ToolBar1: TToolBar
    Width = 744
  end
  inherited dxDBTreeList1: TdxDBTreeList
    Height = 511
    KeyField = 'fcode'
    ParentField = 'fathercode'
    DataSource = fpubdata.dsdisp_type
    inherited dxDBTreeList1Column1: TdxDBTreeListColumn
      Caption = #20998#31867#32534#21495
      Width = 83
      FieldName = 'fcode'
    end
    inherited dxDBTreeList1Column2: TdxDBTreeListColumn
      Caption = #20998#31867#21517#31216
      Width = 96
      FieldName = 'Ty_name'
    end
  end
  inherited DBEdit1: TDBEdit
    Width = 161
    DataField = 'Chine_code'
    DataSource = DataSource
  end
  inherited DBEdit2: TDBEdit
    Left = 512
    Top = 64
    Width = 193
    DataField = 'Chine_name'
    DataSource = DataSource
  end
  inherited DBMemo1: TDBMemo
    Left = 336
    Top = 376
    Height = 33
    Visible = False
  end
  object pgc1: TPageControl [8]
    Left = 200
    Top = 96
    Width = 529
    Height = 463
    ActivePage = ts1
    TabOrder = 5
    object ts1: TTabSheet
      Caption = #35814#32454#36164#26009
      object lbl3: TLabel
        Left = 16
        Top = 15
        Width = 60
        Height = 13
        Caption = #22120#26448#20998#31867#65306
      end
      object lbl4: TLabel
        Left = 270
        Top = 15
        Width = 54
        Height = 13
        Caption = #26465'      '#30721#65306
      end
      object lbl6: TLabel
        Left = 16
        Top = 63
        Width = 60
        Height = 13
        Caption = #22522#26412#21333#20301#65306
      end
      object lbl7: TLabel
        Left = 184
        Top = 63
        Width = 60
        Height = 13
        Caption = #24179#22343#25104#26412#65306
      end
      object lbl8: TLabel
        Left = 352
        Top = 64
        Width = 54
        Height = 13
        Caption = #38646#21806#20215'1'#65306
      end
      object lbl9: TLabel
        Left = 22
        Top = 87
        Width = 54
        Height = 13
        Caption = #23567' '#21253' '#35013#65306
      end
      object lbl11: TLabel
        Left = 352
        Top = 88
        Width = 54
        Height = 13
        Caption = #38646#21806#20215'2'#65306
      end
      object lbl12: TLabel
        Left = 22
        Top = 111
        Width = 54
        Height = 13
        Caption = #22823' '#21253' '#35013#65306
      end
      object lbl13: TLabel
        Left = 184
        Top = 88
        Width = 60
        Height = 13
        Caption = #25442'  '#31639'  '#29575#65306
      end
      object lbl14: TLabel
        Left = 352
        Top = 112
        Width = 54
        Height = 13
        Caption = #38646#21806#20215'3'#65306
      end
      object lbl16: TLabel
        Left = 184
        Top = 112
        Width = 60
        Height = 13
        Caption = #25442'  '#31639'  '#29575#65306
      end
      object lbl18: TLabel
        Left = 16
        Top = 135
        Width = 60
        Height = 13
        Caption = #24211#23384#19978#38480#65306
      end
      object lbl19: TLabel
        Left = 184
        Top = 136
        Width = 60
        Height = 13
        Caption = #24211#23384#19979#38480#65306
      end
      object lbl20: TLabel
        Left = 352
        Top = 136
        Width = 54
        Height = 13
        Caption = #35268'      '#26684#65306
      end
      object lbl21: TLabel
        Left = 16
        Top = 158
        Width = 60
        Height = 13
        Caption = #29983'  '#20135'  '#21830#65306
      end
      object lbl26: TLabel
        Left = 15
        Top = 38
        Width = 54
        Height = 13
        Caption = #25209'      '#21495#65306
      end
      object lbl27: TLabel
        Left = 28
        Top = 232
        Width = 48
        Height = 13
        Caption = #22791'    '#27880#65306
      end
      object lbl10: TLabel
        Left = 16
        Top = 184
        Width = 60
        Height = 13
        Caption = #20135#21697#25551#36848#65306
      end
      object lbl15: TLabel
        Left = 276
        Top = 40
        Width = 48
        Height = 13
        Caption = #22411'    '#21495#65306
      end
      object dbedt1: TDBEdit
        Left = 344
        Top = 8
        Width = 161
        Height = 21
        DataField = 'Chine_marking'
        DataSource = DataSource
        TabOrder = 0
      end
      object dbedt2: TDBEdit
        Left = 246
        Top = 56
        Width = 96
        Height = 21
        DataField = 'Chine_aveprice'
        DataSource = DataSource
        TabOrder = 1
      end
      object dbedt4: TDBEdit
        Left = 80
        Top = 32
        Width = 169
        Height = 21
        DataField = 'Chine_ph'
        DataSource = DataSource
        TabOrder = 2
      end
      object dbedt7: TDBEdit
        Left = 409
        Top = 56
        Width = 96
        Height = 21
        DataField = 'Chine_retail1'
        DataSource = DataSource
        TabOrder = 3
      end
      object dbedt9: TDBEdit
        Left = 246
        Top = 80
        Width = 96
        Height = 21
        DataField = 'Chine_unit1rate'
        DataSource = DataSource
        TabOrder = 4
      end
      object dbedt10: TDBEdit
        Left = 409
        Top = 80
        Width = 96
        Height = 21
        DataField = 'Chine_retail2'
        DataSource = DataSource
        TabOrder = 5
      end
      object dbedt12: TDBEdit
        Left = 246
        Top = 104
        Width = 96
        Height = 21
        DataField = 'Chine_unit2rate'
        DataSource = DataSource
        TabOrder = 6
      end
      object dbedt13: TDBEdit
        Left = 409
        Top = 104
        Width = 96
        Height = 21
        DataField = 'Chine_retail3'
        DataSource = DataSource
        TabOrder = 7
      end
      object dbedt17: TDBEdit
        Left = 80
        Top = 128
        Width = 96
        Height = 21
        DataField = 'Chine_up'
        DataSource = DataSource
        TabOrder = 8
      end
      object dbedt18: TDBEdit
        Left = 246
        Top = 128
        Width = 96
        Height = 21
        DataField = 'Chine_down'
        DataSource = DataSource
        TabOrder = 9
      end
      object dbedt19: TDBEdit
        Left = 409
        Top = 128
        Width = 96
        Height = 21
        DataField = 'Chine_spec'
        DataSource = DataSource
        TabOrder = 10
      end
      object dbmmo1: TDBMemo
        Left = 80
        Top = 152
        Width = 265
        Height = 22
        DataField = 'Chine_factory'
        DataSource = DataSource
        TabOrder = 11
      end
      object dbchk2: TDBCheckBox
        Left = 440
        Top = 156
        Width = 57
        Height = 17
        Caption = #27880#38144
        DataField = 'Chine_out'
        DataSource = DataSource
        TabOrder = 12
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dbmmo6: TDBMemo
        Left = 80
        Top = 228
        Width = 425
        Height = 155
        DataField = 'fmem'
        DataSource = DataSource
        TabOrder = 13
      end
      object dblkcbb1: TDBLookupComboBox
        Left = 80
        Top = 8
        Width = 169
        Height = 21
        DataField = 'Chine_type'
        DataSource = DataSource
        KeyField = 'fcode'
        ListField = 'Mtype_name'