sendmsg.dfm

某大型医院护士站

object frmSendmsg: TfrmSendmsg
  Left = 202
  Top = 154
  BorderStyle = bsDialog
  Caption = '指示发送'
  ClientHeight = 276
  ClientWidth = 433
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 233
    Width = 433
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Bevel2: TBevel
      Left = 0
      Top = 0
      Width = 433
      Height = 5
      Align = alTop
      Shape = bsBottomLine
    end
    object Label2: TLabel
      Left = 7
      Top = 17
      Width = 48
      Height = 12
      Caption = '发药至：'
    end
    object btnSend: TBitBtn
      Left = 261
      Top = 12
      Width = 80
      Height = 22
      Caption = '发送'
      Default = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnSendClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F77777FFF333333009999900
        3333333777777777FF33330998FFF899033333777333F3777FF33099FFFCFFF9
        903337773337333777F3309FFFFFFFCF9033377333F3337377FF098FF0FFFFFF
        890377F3373F3333377F09FFFF0FFFFFF90377F3F373FFFFF77F09FCFFF90000
        F90377F733377777377F09FFFFFFFFFFF90377F333333333377F098FFFFFFFFF
        890377FF3F33333F3773309FCFFFFFCF9033377F7333F37377F33099FFFCFFF9
        90333777FF37F3377733330998FCF899033333777FF7FF777333333009999900
        3333333777777777333333333000003333333333377777333333}
      NumGlyphs = 2
    end
    object btnClose: TBitBtn
      Left = 348
      Top = 12
      Width = 80
      Height = 22
      Caption = '关闭'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Kind = bkClose
    end
    object SendmsgDate: TDateTimePicker
      Left = 58
      Top = 12
      Width = 92
      Height = 22
      CalAlignment = dtaLeft
      Date = 37033.0195091898
      Time = 37033.0195091898
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object feeStartTime: TDateTimePicker
      Left = 152
      Top = 12
      Width = 86
      Height = 22
      CalAlignment = dtaLeft
      Date = 37081.5
      Time = 37081.5
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkTime
      ParseInput = False
      TabOrder = 3
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 433
    Height = 233
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 60
      Height = 12
      Caption = '发送范围：'
    end
    object Bevel1: TBevel
      Left = 5
      Top = 23
      Width = 424
      Height = 8
      Shape = bsBottomLine
    end
    object rb_SelDept: TRadioButton
      Left = 86
      Top = 7
      Width = 75
      Height = 17
      Caption = '选定科室'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rb_SelDeptClick
    end
    object rb_SelPat: TRadioButton
      Left = 319
      Top = 8
      Width = 73
      Height = 17
      Caption = '选定病人'
      TabOrder = 1
      OnClick = rb_SelPatClick
    end
    object dbcb_DeptSub: TwwDBLookupCombo
      Left = 161
      Top = 5
      Width = 128
      Height = 20
      DropDownAlignment = taLeftJustify
      LookupTable = DM.qryDeptSub
      LookupField = 'DEPTNAME'
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object SendProgress: TProgressBar
      Left = 0
      Top = 217
      Width = 433
      Height = 16
      Align = alBottom
      Min = 0
      Max = 100
      TabOrder = 3
    end
    object gdSendPat: TwwDBGrid
      Left = 4
      Top = 35
      Width = 426
      Height = 178
      Selected.Strings = (
        'SELECTED'#9'4'#9'选中'#9'F'
        'BEDID'#9'7'#9'床号'#9'F'
        'PATNAME'#9'13'#9'姓名'#9'F'
        'STATENAME'#9'8'#9'状态'#9'F'
        'INID'#9'9'#9'住院号'#9'F'
        'SEXNAME'#9'4'#9'性别'#9'F'
        'DEPTNAME'#9'14'#9'科室'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
      Color = 15532031
      DataSource = DM.scrSendPat
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      KeyOptions = [dgAllowDelete]
      MultiSelectOptions = [msoAutoUnselect, msoShiftSelect]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgMultiSelect]
      ParentFont = False
      TabOrder = 4
      TitleAlignment = taCenter
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      OnCalcCellColors = gdSendPatCalcCellColors
      IndicatorColor = icBlack
    end
  end
end