hcrk.dfm

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

      Color = clSilver
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 149
      Top = 81
      Width = 43
      Height = 22
      Caption = #26597#35810
      OnClick = SpeedButton1Click
    end
    object Label7: TLabel
      Left = 10
      Top = 355
      Width = 60
      Height = 13
      Caption = #39564#25910#25968#37327#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 8
      Top = 387
      Width = 60
      Height = 13
      Caption = #39564#25910#37329#39069#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtjhdh1: TLabel
      Left = 8
      Top = 19
      Width = 60
      Height = 13
      Caption = #39564#25910#37329#39069#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 8
      Top = 413
      Width = 51
      Height = 13
      Caption = #21046#21333#26085#26399':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 166
      Top = 416
      Width = 39
      Height = 13
      Caption = #25805#20316#21592':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txthcbh: TEdit
      Left = 70
      Top = 82
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 4
      TabOrder = 1
      OnExit = txthcbhExit
    end
    object txthcmc: TEdit
      Left = 70
      Top = 114
      Width = 208
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 150
      TabOrder = 2
    end
    object txtdw: TEdit
      Left = 70
      Top = 148
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 150
      TabOrder = 3
    end
    object txtdqkc: TEdit
      Left = 69
      Top = 220
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 50
      TabOrder = 5
      Text = '0'
    end
    object txtjhdj: TEdit
      Left = 69
      Top = 285
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 100
      TabOrder = 8
      OnExit = txtjhdjExit
      OnKeyPress = txtjhdjKeyPress
    end
    object txtcsbh: TComboBox
      Left = 70
      Top = 49
      Width = 206
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 0
      OnChange = txtcsbhChange
      OnExit = txtcsbhExit
    end
    object txtpc: TEdit
      Left = 70
      Top = 320
      Width = 80
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 100
      TabOrder = 7
      Text = '0'
    end
    object txtaqkc: TEdit
      Left = 69
      Top = 254
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 6
    end
    object txtgg: TEdit
      Left = 69
      Top = 185
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
    end
    object txtjhsl: TEdit
      Left = 68
      Top = 353
      Width = 80
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 9
      OnKeyPress = txtjhslKeyPress
      OnKeyUp = txtjhslKeyUp
    end
    object txtjhje: TEdit
      Left = 68
      Top = 385
      Width = 80
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 10
    end
    object txtjhdh: TEdit
      Left = 71
      Top = 17
      Width = 132
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 11
    end
    object txtczy: TEdit
      Left = 211
      Top = 413
      Width = 61
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 12
    end
    object txtjhrq: TEdit
      Left = 67
      Top = 413
      Width = 86
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 13
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 420
    Width = 800
    Height = 22
    Color = 14935011
    Panels = <
      item
        Text = #24403#21069#35760#24405#25968#65306
        Width = 100
      end
      item
        Text = '0'
        Width = 50
      end>
  end
  object StringGrid1: TStringGrid
    Left = 88
    Top = 532
    Width = 800
    Height = 503
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
    TabOrder = 3
    OnSelectCell = StringGrid1SelectCell
  end
  object DBGrid1: TDBGrid
    Left = 192
    Top = 112
    Width = 265
    Height = 105
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnDblClick = DBGrid1DblClick
  end
  object ImageList2: TImageList
    Left = 286
    Top = 21
    Bitmap = {
      494C01010A000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000