orderitem.dfm

某大型医院护士站

          Top = 16
          Width = 631
          Height = 49
          Align = alTop
          Color = clWhite
          TabOrder = 1
          object Label21: TLabel
            Left = 167
            Top = 18
            Width = 60
            Height = 12
            Caption = '处方类型：'
          end
          object Label22: TLabel
            Left = 317
            Top = 18
            Width = 60
            Height = 12
            Caption = '开出医生：'
          end
          object Label23: TLabel
            Left = 9
            Top = 20
            Width = 60
            Height = 12
            Caption = '处方日期：'
          end
          object Label24: TLabel
            Left = 463
            Top = 17
            Width = 60
            Height = 12
            Caption = '执行地点：'
          end
          object Shape1: TShape
            Left = 69
            Top = 32
            Width = 88
            Height = 3
          end
          object Shape2: TShape
            Left = 373
            Top = 31
            Width = 77
            Height = 3
          end
          object Shape3: TShape
            Left = 221
            Top = 31
            Width = 86
            Height = 3
          end
          object Shape4: TShape
            Left = 521
            Top = 30
            Width = 91
            Height = 3
          end
          object wwDBDateTimePicker1: TwwDBDateTimePicker
            Left = 70
            Top = 16
            Width = 88
            Height = 18
            BorderStyle = bsNone
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            Epoch = 1950
            ShowButton = True
            TabOrder = 0
          end
          object lcbDoctor: TwwDBLookupCombo
            Left = 374
            Top = 15
            Width = 77
            Height = 18
            BorderStyle = bsNone
            DropDownAlignment = taLeftJustify
            Selected.Strings = (
              'DOCTORNM'#9'10'#9'DOCTORNM'#9'F'
              'DOCTORNO'#9'4'#9'DOCTORNO'#9'F')
            LookupTable = DM.Doctor
            LookupField = 'DOCTORNO'
            TabOrder = 1
            AutoDropDown = False
            ShowButton = True
            AllowClearKey = False
            OnNotInList = lcbRecipeTypeNotInList
          end
          object lcbRecipeType: TwwDBLookupCombo
            Left = 224
            Top = 15
            Width = 84
            Height = 18
            BorderStyle = bsNone
            DropDownAlignment = taLeftJustify
            TabOrder = 2
            AutoDropDown = False
            ShowButton = True
            AllowClearKey = False
            OnNotInList = lcbRecipeTypeNotInList
          end
          object lcbExcuplace: TwwDBLookupCombo
            Left = 520
            Top = 14
            Width = 93
            Height = 18
            BorderStyle = bsNone
            DropDownAlignment = taLeftJustify
            Selected.Strings = (
              'NAME'#9'12'#9'NAME'#9'F'
              'EXCUPLACE'#9'3'#9'EXCUPLACE'#9'F')
            LookupTable = DM.ExcutePos
            LookupField = 'EXCUPLACE'
            TabOrder = 3
            AutoDropDown = True
            ShowButton = True
            AllowClearKey = False
            OnNotInList = lcbRecipeTypeNotInList
          end
        end
        object wwDBGrid2: TwwDBGrid
          Left = 0
          Top = 65
          Width = 631
          Height = 240
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          Color = 15532031
          TabOrder = 2
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
        object Panel6: TPanel
          Left = 0
          Top = 305
          Width = 631
          Height = 26
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 3
          object BitBtn1: TBitBtn
            Left = 255
            Top = 1
            Width = 75
            Height = 25
            Caption = '新增'
            TabOrder = 0
          end
          object btnSave: TBitBtn
            Left = 330
            Top = 1
            Width = 75
            Height = 25
            Caption = '确认'
            TabOrder = 1
          end
          object BitBtn3: TBitBtn
            Left = 480
            Top = 1
            Width = 75
            Height = 25
            Caption = '删除'
            TabOrder = 2
          end
          object BitBtn4: TBitBtn
            Left = 555
            Top = 1
            Width = 75
            Height = 25
            Caption = '作废'
            TabOrder = 3
          end
          object BitBtn2: TBitBtn
            Left = 405
            Top = 1
            Width = 75
            Height = 25
            Caption = '发送'
            TabOrder = 4
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 418
    Width = 795
    Height = 118
    Align = alBottom
    TabOrder = 3
    object gridExOrderItem: TwwDBGrid
      Left = 1
      Top = 1
      Width = 448
      Height = 116
      Selected.Strings = (
        'EXITEM'#9'8'#9'项目代号'
        'ITEMNAME'#9'26'#9'项目名称'#9'F'
        'QTY'#9'5'#9'数量'
        'DOSUINT'#9'5'#9'单位'#9'F'
        'PRICE'#9'9'#9'单价'
        'TOTAL'#9'10'#9'金额')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alLeft
      DataSource = DM.srcExOrderitem
      KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taCenter
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      IndicatorColor = icBlack
      object gridExOrderItemIButton: TwwIButton
        Left = 0
        Top = 0
        Width = 16
        Height = 20
        Hint = '查看记录'
        AllowAllUp = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555555555555555555555555555555555555555555
          555555555555555555555555555555555555555FFFFFFFFFF555550000000000
          55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
          B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
          000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
          555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
          55555575FFF75555555555700007555555555557777555555555555555555555
          5555555555555555555555555555555555555555555555555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
      end
    end
    object ScrollBox2: TScrollBox
      Left = 449
      Top = 1
      Width = 345
      Height = 116
      Align = alClient
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
      object Label5: TLabel
        Left = 6
        Top = 6
        Width = 30
        Height = 12
        Caption = '名称:'
      end
      object Label6: TLabel
        Left = 6
        Top = 23
        Width = 30
        Height = 12
        Caption = '英文:'
      end
      object Label7: TLabel
        Left = 6
        Top = 79
        Width = 54
        Height = 12
        Caption = '用量单位:'
      end
      object Label8: TLabel
        Left = 6
        Top = 98
        Width = 54
        Height = 12
        Caption = '发药单位:'
      end
      object Label9: TLabel
        Left = 6
        Top = 60
        Width = 30
        Height = 12
        Caption = '单价:'
      end
      object Label15: TLabel
        Left = 6
        Top = 41
        Width = 30
        Height = 12
        Caption = '规格:'
      end
      object DBText1: TDBText
        Left = 38
        Top = 6
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ITEMNAME'
        DataSource = DM.srcOrderItem
      end
      object DBText3: TDBText
        Left = 38
        Top = 41
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'Spec'
        DataSource = DM.srcOrderItem
      end
      object DBText5: TDBText
        Left = 38
        Top = 60
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'Price'
        DataSource = DM.srcOrderItem
      end
      object DBText6: TDBText
        Left = 64
        Top = 79
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'DOSUNIT1'
        DataSource = DM.srcOrderItem
      end
      object DBText7: TDBText
        Left = 64
        Top = 98
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'USEUNIT'
        DataSource = DM.srcOrderItem
      end
      object DBText2: TDBText
        Left = 39
        Top = 23
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'Ename'
        DataSource = DM.srcOrderItem
      end
      object Label12: TLabel
        Left = 198
        Top = 6
        Width = 30
        Height = 12
        Caption = '产地:'
      end
      object Label16: TLabel
        Left = 198
        Top = 23
        Width = 30
        Height = 12
        Caption = '剂型:'
      end
      object DBText4: TDBText
        Left = 230
        Top = 6
        Width = 65
        Height = 17
        DataField = 'MadeIn'
        DataSource = DM.srcOrderItem
      end
      object Label17: TLabel