hi_draw.dfm

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

  end
  object PageControl1: TPageControl
    Left = 0
    Top = 49
    Width = 749
    Height = 576
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = ' '#30149#20154#30149#21382' '
      object Label1: TLabel
        Left = 8
        Top = 245
        Width = 60
        Height = 13
        Caption = #23601#35786#35760#24405#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 408
        Width = 60
        Height = 13
        Caption = #29992#33647#24773#20917#65306
      end
      object dxDBGrid2: TdxDBGrid
        Left = 72
        Top = 242
        Width = 641
        Height = 143
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'fcode'
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 0
        DataSource = DataSource1
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid2fcode: TdxDBGridColumn
          Caption = #21333#21495
          Width = 85
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fcode'
        end
        object dxDBGrid2Op_date: TdxDBGridDateColumn
          Caption = #26085#26399
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Op_date'
        end
        object dxDBGrid2Op_name: TdxDBGridColumn
          Caption = #22995#21517
          Width = 67
          BandIndex = 0
          RowIndex = 0
          FieldName = 'asd'
        end
        object dxDBGrid2Op_sex: TdxDBGridColumn
          Caption = #24615#21035
          Width = 41
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Op_sex'
        end
        object dxDBGrid2Op_age: TdxDBGridMaskColumn
          Caption = #24180#40836
          Width = 49
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Op_age'
        end
        object dxDBGrid2Op_inport: TdxDBGridColumn
          Caption = #20027#35201#30151#29366
          Width = 212
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Op_inport'
        end
        object dxDBGrid2Op_diagnose: TdxDBGridColumn
          Caption = #35786#26029
          Width = 253
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Op_diagnose'
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 741
        Height = 240
        Align = alTop
        BevelOuter = bvNone
        Enabled = False
        TabOrder = 1
        object lbl1: TLabel
          Left = 32
          Top = 24
          Width = 36
          Height = 13
          Caption = #32534#21495#65306
        end
        object lbl2: TLabel
          Left = 384
          Top = 24
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
        end
        object lbl3: TLabel
          Left = 32
          Top = 48
          Width = 36
          Height = 13
          Caption = #24180#40836#65306
        end
        object lbl4: TLabel
          Left = 552
          Top = 24
          Width = 36
          Height = 13
          Caption = #24615#21035#65306
        end
        object lbl5: TLabel
          Left = 200
          Top = 48
          Width = 60
          Height = 13
          Caption = #20986#29983#24180#26376#65306
        end
        object lbl6: TLabel
          Left = 32
          Top = 76
          Width = 36
          Height = 13
          Caption = #20303#22336#65306
        end
        object lbl7: TLabel
          Left = 552
          Top = 48
          Width = 36
          Height = 13
          Caption = #30005#35805#65306
        end
        object lbl8: TLabel
          Left = 10
          Top = 96
          Width = 60
          Height = 13
          Caption = #20027#35785#30149#21490#65306
        end
        object lbl9: TLabel
          Left = 247
          Top = 145
          Width = 48
          Height = 13
          Caption = #36807#25935#21490#65306
        end
        object lbl10: TLabel
          Left = 484
          Top = 146
          Width = 48
          Height = 13
          Caption = #23478#26063#21490#65306
        end
        object lbl11: TLabel
          Left = 20
          Top = 150
          Width = 48
          Height = 13
          Caption = #20010#20154#21490#65306
        end
        object lbl12: TLabel
          Left = 20
          Top = 197
          Width = 48
          Height = 13
          Caption = #26082#24448#21490#65306
        end
        object lbl13: TLabel
          Left = 244
          Top = 191
          Width = 48
          Height = 13
          Caption = #29616#30149#21490#65306
        end
        object lbl14: TLabel
          Left = 384
          Top = 48
          Width = 36
          Height = 13
          Caption = #21307#24072#65306
        end
        object lbl15: TLabel
          Left = 208
          Top = 24
          Width = 36
          Height = 13
          Caption = #26085#26399#65306
        end
        object lbl16: TLabel
          Left = 488
          Top = 200
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
        end
        object dbedtcode: TDBEdit
          Left = 72
          Top = 16
          Width = 121
          Height = 21
          DataField = 'Fcode'
          DataSource = baseSource
          TabOrder = 0
        end
        object DBEdit1: TDBEdit
          Left = 424
          Top = 16
          Width = 121
          Height = 21
          DataField = 'Dr_name'
          DataSource = baseSource
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 72
          Top = 42
          Width = 121
          Height = 21
          DataField = 'Dr_age'
          DataSource = baseSource
          TabOrder = 4
        end
        object DBEdit4: TDBEdit
          Left = 592
          Top = 42
          Width = 121
          Height = 21
          DataField = 'Dr_tel'
          DataSource = baseSource
          TabOrder = 7
        end
        object DBComboBox1: TDBComboBox
          Left = 592
          Top = 16
          Width = 121
          Height = 21
          DataField = 'Dr_sex'
          DataSource = baseSource
          ItemHeight = 13
          TabOrder = 3
        end
        object dxDBDateEdit1: TdxDBDateEdit
          Left = 256
          Top = 16
          Width = 121
          TabOrder = 1
          DataField = 'Fdate'
          DataSource = baseSource
          ReadOnly = True
          StoredValues = 64
        end
        object dxDBDateEdit2: TdxDBDateEdit
          Left = 256
          Top = 42
          Width = 121
          TabOrder = 5
          DataField = 'Dr_born'
          DataSource = baseSource
        end
        object DBMemo1: TDBMemo
          Left = 72
          Top = 68
          Width = 641
          Height = 25
          DataField = 'Dr_adds'
          DataSource = baseSource
          TabOrder = 8
        end
        object DBMemo2: TDBMemo
          Left = 72
          Top = 144
          Width = 169
          Height = 46
          DataField = 'Dr_gr'
          DataSource = baseSource
          TabOrder = 9
        end
        object DBMemo3: TDBMemo
          Left = 297
          Top = 144
          Width = 177
          Height = 45
          DataField = 'Dr_gm'
          DataSource = baseSource
          TabOrder = 10
        end
        object DBMemo4: TDBMemo
          Left = 536
          Top = 143
          Width = 177
          Height = 46
          DataField = 'Dr_jz'
          DataSource = baseSource
          TabOrder = 11
        end
        object DBMemo5: TDBMemo
          Left = 72
          Top = 96