qxwhm.~dfm

本文重点研究的是医院西药药房管理系统

object QxWh: TQxWh
  Left = 257
  Top = 245
  Width = 414
  Height = 300
  BorderIcons = [biSystemMenu]
  Caption = ' '#29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clHighlight
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 377
    Height = 249
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22686#21152#29992#25143
      object Label1: TLabel
        Left = 28
        Top = 36
        Width = 86
        Height = 16
        AutoSize = False
        Caption = #26032#22686#29992#25143#21517
      end
      object Label2: TLabel
        Left = 28
        Top = 70
        Width = 76
        Height = 16
        AutoSize = False
        Caption = #29992' '#25143' '#21475' '#20196
      end
      object Label3: TLabel
        Left = 28
        Top = 104
        Width = 76
        Height = 16
        AutoSize = False
        Caption = #22797' '#26680' '#21475#20196
      end
      object BitBtn1: TBitBtn
        Left = 144
        Top = 160
        Width = 81
        Height = 25
        Caption = #30830#23450#22686#21152
        Enabled = False
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Edit1: TEdit
        Left = 120
        Top = 31
        Width = 169
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 20
        TabOrder = 1
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 120
        Top = 64
        Width = 169
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        PasswordChar = '*'
        TabOrder = 2
      end
      object Edit3: TEdit
        Left = 120
        Top = 97
        Width = 169
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        PasswordChar = '*'
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21024#38500#29992#25143
      ImageIndex = 1
      object BitBtn2: TBitBtn
        Left = 144
        Top = 184
        Width = 81
        Height = 25
        Caption = #30830#23450#21024#38500
        TabOrder = 0
        OnClick = BitBtn2Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object ListBox1: TDBLookupListBox
        Left = 80
        Top = 24
        Width = 217
        Height = 148
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        KeyField = 'uid'
        ListField = 'name'
        ListSource = DataMzf2.UserSource
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26435#38480#26356#25913
      ImageIndex = 2
      object GroupBox2: TGroupBox
        Left = 1
        Top = 39
        Width = 170
        Height = 153
        Caption = #35199#33647#29992#25143
        TabOrder = 0
        object UserList1: TDBLookupListBox
          Left = 11
          Top = 24
          Width = 148
          Height = 116
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'uid'
          ListField = 'name'
          ListSource = DataMzf2.UserSource
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 198
        Top = 39
        Width = 170
        Height = 153
        Caption = #24037#20316#32452#20449#24687
        TabOrder = 1
        object Label7: TLabel
          Left = 3
          Top = 29
          Width = 12
          Height = 16
          Caption = #32452
        end
        object Label8: TLabel
          Left = 3
          Top = 72
          Width = 12
          Height = 48
          Caption = #29992'   '#25143
          WordWrap = True
        end
        object GrBox2: TDBLookupComboBox
          Left = 15
          Top = 24
          Width = 151
          Height = 24
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'uid'
          ListField = 'name'
          ListSource = DataMzf2.GrSource2
          TabOrder = 0
          OnClick = GrBox2Click
        end
        object UserList2: TDBLookupListBox
          Left = 15
          Top = 56
          Width = 151
          Height = 84
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'uid'
          ListField = 'name'
          ListSource = DataMzf2.UserSource2
          TabOrder = 1
        end
      end
      object GroupBox4: TGroupBox
        Left = 172
        Top = 96
        Width = 25
        Height = 73
        TabOrder = 2
        object Button1: TButton
          Left = 3
          Top = 12
          Width = 19
          Height = 27
          Caption = '>'
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 3
          Top = 42
          Width = 19
          Height = 27
          Caption = '<'
          TabOrder = 1
          OnClick = Button2Click
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #24403#21069#29992#25143#21475#20196#26356#25913#21475#20196
      ImageIndex = 3
      object Label9: TLabel
        Left = 78
        Top = 38
        Width = 36
        Height = 16
        Caption = #21407#21475#20196
      end
      object Label10: TLabel
        Left = 79
        Top = 77
        Width = 33
        Height = 16
        Caption = #21475'   '#20196
      end
      object Label11: TLabel
        Left = 78
        Top = 118
        Width = 33
        Height = 16
        Caption = #22797'   '#26680
      end
      object BitBtn4: TBitBtn
        Left = 144
        Top = 160
        Width = 81
        Height = 25
        Caption = #30830#23450#26356#25913
        TabOrder = 0
        OnClick = BitBtn4Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Edit4: TEdit
        Left = 120
        Top = 72
        Width = 161
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        PasswordChar = '*'
        TabOrder = 1
        OnKeyPress = Edit4KeyPress
      end
      object Edit5: TEdit
        Left = 120
        Top = 112
        Width = 161
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        PasswordChar = '*'
        TabOrder = 2
        OnKeyPress = Edit5KeyPress
      end
      object Edit6: TEdit
        Left = 119
        Top = 32
        Width = 161
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        PasswordChar = '*'
        TabOrder = 3
        OnKeyPress = Edit4KeyPress
      end
    end
  end
end