xs_re.dfm

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

inherited fXs_re: TfXs_re
  Left = 289
  Top = 69
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22788#26041#21333
  ClientHeight = 561
  ClientWidth = 407
  Color = clBtnHighlight
  FormStyle = fsMDIChild
  OldCreateOrder = True
  PopupMenu = PopupMenu1
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 159
    Top = 3
    Width = 72
    Height = 24
    Alignment = taCenter
    Caption = #22788#26041#31546
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object lbl123: TLabel
    Left = 155
    Top = 31
    Width = 24
    Height = 13
    Caption = #21307#29983
  end
  object lbl444: TLabel
    Left = 270
    Top = 32
    Width = 24
    Height = 13
    Caption = #26085#26399
  end
  object Label1: TLabel
    Left = 15
    Top = 32
    Width = 24
    Height = 13
    Caption = #32534#21495
  end
  object lbl12: TLabel
    Left = 17
    Top = 536
    Width = 60
    Height = 13
    Caption = #36873#25321#33647#21697#65306
  end
  object SpeedButton1: TSpeedButton
    Left = 368
    Top = 1
    Width = 23
    Height = 23
    Flat = True
    Glyph.Data = {
      92030000424D9203000000000000920200002800000010000000100000000100
      08000000000000010000120B0000120B0000970000009700000000000000FFFF
      FF00F8F7FA00FF00FF00EEEAEE00F8F0F700DED8DD00F8FEF800F7FCF700FCFE
      FC00009904000098030000410200009A0500009A0600009A0700009905000054
      0300029D0900009C0900029E0E00029D0C00039F0C00039E0C00036F0A00036D
      090006A00F0006A0100006980F0006970E00079A110006690C000A7512000C82
      140011A91C000F96180011A71C0011A41C0014AA1F0016AB210016AA21001EAD
      2800599D5E007DD88400A3E3A700BAE2BD00DCEDDD00E9F8EA00E5F4E600019D
      0E0004790E000FA61B0019A9270031B73D0031B73E003DBD480053C45D004BB1
      550059D06400419849004DB2560060CA690065CB6D006CCF750078D981005FA7
      660080DC880076CB7E0068B16E0064A96A00B7E1BB00C5EDC900029E1200049F
      1600139923006DCE7700A1E3A90083B08800D1E2D30005A11A005DC96D00C6EE
      CB000DA7270043C0570068CE780074D182007BD98A0006A321000AA625000AA6
      27001DAD370068D47B00C2F6CC0021B23E006FD084007BE18F00A7EFB600F2FC
      F4000CA930004AC4670067D7810079E39100D5FCDE00E0FBE6000FAB360011AC
      390016AF3D006DD9890070D1880087DD9D00FBFFFC0013AD3C0027B6500058D3
      7A005FD8800079E0950075D38F007FE09A00CBEFD500F8FFFA0048CA70006AD4
      8900A4E7B800D9F6E20019B24B001AB24B001FB5510021B5510023B7540035C1
      620039BF66003BC467003DC167004BCA75004ECB77008BDEA500A4E7BA00BAF0
      CC007AD79A008ADDA700CEF0DA00EDFBF200E9F7EE0091E0AF0096E6B400D0F2
      DD0076D89C009CE5B800E7F8EE00F6F6F700FEFEFE0003030303030C0C0C0C0C
      0C03030303030303031111233944453B200C0C0303030303111C2B952E2D464E
      062A190C0303031F1C4C013D261A16223E054D180C03031F42963610130D2429
      0B3702410C034A34075448495501330E170B3F04210C4A5B8E5D59585E010135
      0A0F27303C0C4A6D766A6F687401010838121B47430C4A878C7F7E7D8A010101
      50151A512B0C4A928D8683818B0101634F14282F3A0C4A846E7A727188018262
      52314B77250C034A8901606575857C69575309401103034A6467015C73788070
      6C012C1D110303034A5F6601617B919401561E1103030303034A4A6B90938F79
      5A111103030303030303034A4A4A4A4A320303030303}
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 344
    Top = 2
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      86030000424D8603000000000000860200002800000010000000100000000100
      08000000000000010000120B0000120B0000940000009400000000000000FFFF
      FF00F8F7FA00FF00FF00EEEAEE00F8F0F700DED8DD00F8FEF800FCFEFC000098
      030000410200009A0500009A07000099050000540300029D0900009C0900019D
      0C00029E0E00029D0C00039F0C00036F0A00036D090006A00F0006A010000698
      0F0006970E00079A110006690C000A7512000C82140011A91C000F96180011A7
      1C0011A41C0014AA1F0016AB210016AA21001EAD2800599D5E007DD88400A3E3
      A700BAE2BD00DCEDDD00E9F8EA00E5F4E600019F0F00019D0E0004790E0019A9
      270031B73E003DBD48004BB1550059D06400419849004DB2560060CA690065CB
      6D0067CC70006CCF75006FCF780078D981005FA7660080DC880076CB7E0068B1
      6E0064A96A00B7E1BB00C5EDC900029E120004A0140008A319001399230022B0
      31006DCE7700A1E3A90083B08800D1E2D30006A31C006BCE7900C6EECB0005A3
      200009A5230043C0570068CE78007BD98A0008A523000AA627001DAD37004DC4
      640068D47B00C2F6CC0021B23E007AE591006ECF81007BE18F00A7EFB600F2FC
      F40067D7810070D18700D5FCDE00E0FBE60016AF3D006DD9890070D188007DD5
      930087DD9D00FBFFFC0013AD3C0027B6500040C064005BD57E005FD880005ED5
      7F0079E0950076D49100CBEFD500F8FFFA0031C05D0035C260003EC7680048CA
      70006AD48900A4E7B800D9F6E2001FB5510021B5510023B754003BC467003DC1
      67004ECB77008BDEA500BAF0CC0041C26D0056CC7E007AD89A00CEF0DA00EDFB
      F200E9F7EE0091E0AF008FDDAC0096E6B400D0F2DD0076D89C009CE5B800E7F8
      EE00F6F6F700FEFEFE0003030303030A0A0A0A0A0A03030303030303030E0E20
      344142361D0A0A03030303030E1928922B2A434D0627160A0303031C194B0138
      2317141F39054C150A03031C3F93320D100B21260933023E0A03483107544547
      2E49013C0C093B041E0A485A8A5C57565901013A0C0C242D370A486A74666C73
      0101014F110F1844400A4883887E7D8C0101015E46131750280A488F89828076
      870101634E12252C350A48816B7B707178860169522F4A75220A03488401605D
      6F77856E5153083D0E0303486265015B72797F6D6801291A0E030303485F6401
      617C8E9101551B0E03030303034848678D908B7A580E0E030303030303030348
      48484848300303030303}
    OnClick = SpeedButton2Click
  end
  object GroupBox1: TGroupBox
    Left = 14
    Top = 45
    Width = 379
    Height = 479
    Enabled = False
    TabOrder = 0
    object lbl2: TLabel
      Left = 11
      Top = 15
      Width = 33
      Height = 13
      Caption = #22995'   '#21517
    end
    object lbl3: TLabel
      Left = 152
      Top = 15
      Width = 24
      Height = 13
      Caption = #24615#21035
    end
    object lbl4: TLabel
      Left = 264
      Top = 15
      Width = 24
      Height = 13
      Caption = #24180#40836
    end
    object lbl: TLabel
      Left = 8
      Top = 42
      Width = 36
      Height = 13
      Caption = #36807#25935#21490
    end
    object lbl5: TLabel
      Left = 4
      Top = 70
      Width = 48
      Height = 26
      Caption = #20027#35201#30151#29366#13#10#21450#35786#26029
    end
    object lbl6: TLabel
      Left = 12
      Top = 432
      Width = 36
      Height = 13
      Caption = #35199#33647#36153
    end
    object lbl7: TLabel
      Left = 76
      Top = 432
      Width = 36
      Height = 13
      Caption = #25104#33647#36153
    end
    object lbl8: TLabel
      Left = 137
      Top = 432
      Width = 36
      Height = 13
      Caption = #27880#23556#36153
    end
    object lbl9: TLabel
      Left = 199
      Top = 432
      Width = 36
      Height = 13
      Caption = #27835#30103#36153
    end
    object lbl10: TLabel
      Left = 270
      Top = 432
      Width = 27
      Height = 13
      Caption = #21512' '#35745
    end
    object lbl11: TLabel
      Left = 323
      Top = 432
      Width = 48
      Height = 13
      Caption = #39044#25910#37329#39069
    end
    object Panel1: TPanel
      Left = 0
      Top = 58
      Width = 377
      Height = 2
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 55
      Top = 5
      Width = 2
      Height = 100
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 1
      Top = 31
      Width = 376
      Height = 2
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 143
      Top = 5
      Width = 2
      Height = 27
      TabOrder = 3
    end
    object Panel5: TPanel
      Left = 183
      Top = 6
      Width = 2
      Height = 27
      TabOrder = 4
    end
    object Panel6: TPanel
      Left = 255
      Top = 5
      Width = 2
      Height = 27
      TabOrder = 5
    end
    object Panel7: TPanel
      Left = 294
      Top = 5
      Width = 2
      Height = 27
      TabOrder = 6
    end
    object Panel8: TPanel
      Left = 1
      Top = 105
      Width = 377
      Height = 2
      TabOrder = 7
    end
    object dxDBGrid1: TdxDBGrid
      Left = 6
      Top = 116
      Width = 366
      Height = 298
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'De_pcode'
      SummaryGroups = <>
      SummarySeparator = ', '
      BorderStyle = bsNone
      TabOrder = 8
      DataSource = Sourcedetail
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1Op_pname: TdxDBGridColumn
        Caption = #33647#21697#21517#31216
        Width = 127
        BandIndex = 0
        RowIndex = 0
        FieldName = 'De_pname'
      end
      object dxDBGrid1op_unit: TdxDBGridColumn
        Caption = #21333#20301
        Width = 45
        BandIndex = 0
        RowIndex = 0
        FieldName = 'unit'
      end
      object dxDBGrid1Op_qty: TdxDBGridMaskColumn
        Caption = #25968#37327
        Width = 56
        BandIndex = 0
        RowIndex = 0
        FieldName = 'De_qty'
      end
      object dxDBGrid1Op_utype: TdxDBGridColumn
        Caption = #29992#27861
        Width = 134
        BandIndex = 0
        RowIndex = 0
        FieldName = 'De_utype'
      end
    end
    object Panel9: TPanel
      Left = 1
      Top = 425
      Width = 377
      Height = 2
      TabOrder = 9
    end
    object Panel10: TPanel
      Left = 1
      Top = 451
      Width = 377
      Height = 2
      TabOrder = 10
    end
    object Panel11: TPanel
      Left = 63
      Top = 426
      Width = 2
      Height = 51
      TabOrder = 11
    end
    object Panel12: TPanel
      Left = 125
      Top = 427
      Width = 2
      Height = 50
      TabOrder = 12
    end
    object Panel13: TPanel
      Left = 186
      Top = 427
      Width = 2
      Height = 50
      TabOrder = 13
    end
    object Panel14: TPanel
      Left = 250
      Top = 427
      Width = 2
      Height = 50
      TabOrder = 14
    end
    object Panel15: TPanel
      Left = 314
      Top = 427
      Width = 2
      Height = 50
      TabOrder = 15
    end
    object dbedtage: TDBEdit
      Left = 300
      Top = 11
      Width = 73
      Height = 18
      BorderStyle = bsNone
      DataField = 'Op_age'
      DataSource = Sourcemaster
      TabOrder = 17
      OnEnter = dbedtageEnter
      OnExit = dbedtageExit
    end
    object dbcbbsex: TDBComboBox
      Left = 189
      Top = 9
      Width = 62
      Height = 21
      Style = csDropDownList
      Ctl3D = True
      DataField = 'Op_sex'
      DataSource = Sourcemaster
      ItemHeight = 13
      Items.Strings = (
        #30007
        #22899)
      ParentCtl3D = False
      TabOrder = 16
    end
    object DBMemo1: TDBMemo
      Left = 62
      Top = 37
      Width = 311
      Height = 20
      BorderStyle = bsNone
      DataField = 'Op_allergy'
      DataSource = Sourcemaster
      TabOrder = 18
      OnEnter = DBMemo1Enter
      OnExit = DBMemo1Exit
    end
    object dbmmo1: TDBMemo
      Left = 62
      Top = 65
      Width = 311
      Height = 38
      BorderStyle = bsNone
      DataField = 'Op_inport'
      DataSource = Sourcemaster
      TabOrder = 19
      OnEnter = dbmmo1Enter
      OnExit = dbmmo1Exit
    end
    object DBEdit1: TDBEdit
      Left = 4
      Top = 455
      Width = 57
      Height = 19
      BorderStyle = bsNone
      DataField = 'Op_xyf'
      DataSource = Sourcemaster
      ReadOnly = True
      TabOrder = 20