xs_selectbr.dfm

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

inherited fxs_selectbr: Tfxs_selectbr
  Left = 518
  Top = 105
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #36873#25321#30149#20154
  ClientHeight = 374
  ClientWidth = 407
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 407
    Height = 337
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'Fcode'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alTop
    TabOrder = 0
    DataSource = DataSource
    Filter.Criteria = {00000000}
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    object dxDBGrid1Fcode: TdxDBGridColumn
      Caption = #32534#21495
      Width = 59
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fcode'
    end
    object dxDBGrid1Dr_name: TdxDBGridColumn
      Caption = #22995#21517
      Width = 65
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_name'
    end
    object dxDBGrid1Dr_age: TdxDBGridMaskColumn
      Caption = #24180#40836
      Width = 39
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_age'
    end
    object dxDBGrid1Dr_sex: TdxDBGridColumn
      Caption = #24615#21035
      Width = 37
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_sex'
    end
    object dxDBGrid1Dr_born: TdxDBGridDateColumn
      Caption = #20986#29983#24180#26376
      Width = 56
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_born'
    end
    object dxDBGrid1Dr_tel: TdxDBGridColumn
      Caption = #30005#35805
      Width = 83
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_tel'
    end
    object dxDBGrid1Dr_adds: TdxDBGridColumn
      Caption = #22320#22336
      Width = 147
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dr_adds'
    end
  end
  object Button1: TButton
    Left = 232
    Top = 344
    Width = 75
    Height = 25
    Caption = #30830' '#23450
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 320
    Top = 344
    Width = 75
    Height = 25
    Caption = #36873' '#25321
    TabOrder = 2
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 16
    Top = 344
    Width = 201
    Height = 21
    TabOrder = 3
  end
  object ADOselect: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from hi_draw')
    Left = 40
    Top = 88
    object ADOselectid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOselectFcode: TWideStringField
      FieldName = 'Fcode'
    end
    object ADOselectDr_name: TWideStringField
      FieldName = 'Dr_name'
    end
    object ADOselectDr_age: TIntegerField
      FieldName = 'Dr_age'
    end
    object ADOselectDr_sex: TWideStringField
      FieldName = 'Dr_sex'
    end
    object ADOselectDr_born: TDateTimeField
      FieldName = 'Dr_born'
    end
    object ADOselectDr_adds: TWideStringField
      FieldName = 'Dr_adds'
      Size = 100
    end
    object ADOselectDr_tel: TWideStringField
      FieldName = 'Dr_tel'
    end
    object ADOselectDr_self: TWideStringField
      FieldName = 'Dr_self'
      Size = 255
    end
    object ADOselectDr_gm: TWideStringField
      FieldName = 'Dr_gm'
      Size = 255
    end
    object ADOselectDr_jz: TWideStringField
      FieldName = 'Dr_jz'
      Size = 255
    end
    object ADOselectDr_gr: TWideStringField
      FieldName = 'Dr_gr'
      Size = 255
    end
    object ADOselectDr_jw: TWideStringField
      FieldName = 'Dr_jw'
      Size = 255
    end
    object ADOselectDr_xb: TWideStringField
      FieldName = 'Dr_xb'
      Size = 255
    end
    object ADOselectDr_result: TWideStringField
      FieldName = 'Dr_result'
      Size = 255
    end
    object ADOselectDr_transact: TWideStringField
      FieldName = 'Dr_transact'
      Size = 255
    end
    object ADOselectDr_worker: TWideStringField
      FieldName = 'Dr_worker'
    end
    object ADOselectFdate: TDateTimeField
      FieldName = 'Fdate'
    end
    object ADOselectfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object ADOselectfSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object DataSource: TDataSource
    DataSet = ADOselect
    Left = 96
    Top = 88
  end
end