hcckd.~dfm

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

object frm_HCCKD: Tfrm_HCCKD
  Left = 121
  Top = 119
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #32791#26448#39046#29992#21333
  ClientHeight = 333
  ClientWidth = 804
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 24
    Width = 804
    Height = 92
    Align = alTop
    Color = 13031127
    ParentColor = False
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 23
      Width = 60
      Height = 13
      Caption = #21333'  '#25454'  '#21495#65306
    end
    object Label2: TLabel
      Left = 286
      Top = 23
      Width = 60
      Height = 13
      Caption = #21046#21333#26085#26399#65306
    end
    object Label3: TLabel
      Left = 473
      Top = 23
      Width = 60
      Height = 13
      Caption = #25805'  '#20316'  '#21592#65306
    end
    object Label4: TLabel
      Left = 286
      Top = 59
      Width = 60
      Height = 13
      Caption = #23457#26680#26631#24535#65306
    end
    object Label6: TLabel
      Left = 7
      Top = 58
      Width = 60
      Height = 13
      Caption = #20379'  '#24212'  '#21830#65306
    end
    object Label5: TLabel
      Left = 473
      Top = 61
      Width = 60
      Height = 13
      Caption = #25209'        '#27425#65306
      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 Label7: TLabel
      Left = 664
      Top = 21
      Width = 36
      Height = 13
      Caption = #37096#38376#65306
    end
    object Label8: TLabel
      Left = 663
      Top = 58
      Width = 36
      Height = 13
      Caption = #21592#24037#65306
    end
    object txtjhdh: TEdit
      Left = 67
      Top = 19
      Width = 116
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 0
    end
    object txtzdrq: TEdit
      Left = 351
      Top = 19
      Width = 100
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 1
    end
    object txtczybh: TEdit
      Left = 535
      Top = 19
      Width = 43
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 2
      Text = 'txtczybh'
      OnChange = txtczybhChange
    end
    object txtczymc: TEdit
      Left = 578
      Top = 19
      Width = 76
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 3
      Text = 'txtczymc'
    end
    object txtshflag: TEdit
      Left = 351
      Top = 56
      Width = 100
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 4
    end
    object txtcsbh: TComboBox
      Left = 67
      Top = 55
      Width = 206
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 5
    end
    object txtpc: TEdit
      Left = 535
      Top = 57
      Width = 47
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 100
      TabOrder = 6
      Text = '0'
    end
    object txtbm: TComboBox
      Left = 696
      Top = 17
      Width = 80
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 7
      OnChange = txtbmChange
    end
    object txtyg: TComboBox
      Left = 697
      Top = 54
      Width = 77
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 8
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 24
    HelpType = htKeyword
    AutoSize = True
    ButtonWidth = 75
    Caption = 'ToolBar2'
    Color = 13031127
    EdgeBorders = [ebTop, ebBottom]
    EdgeInner = esNone
    Flat = True
    Images = ImageList1
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    object tadd: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = '  '#26032#22686'  '
      ImageIndex = 8
      OnClick = taddClick
    end
    object tdel: TToolButton
      Left = 67
      Top = 0
      AutoSize = True
      Caption = '  '#21024#38500' '
      ImageIndex = 0
      OnClick = tdelClick
    end
    object tedit: TToolButton
      Left = 131
      Top = 0
      AutoSize = True
      Caption = '  '#32534#36753' '
      ImageIndex = 1
      OnClick = teditClick
    end
    object tup: TToolButton
      Left = 195
      Top = 0
      AutoSize = True
      Caption = '  '#21069#39029
      ImageIndex = 6
      OnClick = tupClick
    end
    object tdown: TToolButton
      Left = 256
      Top = 0
      AutoSize = True
      Caption = '  '#21518#39029' '
      ImageIndex = 7
      OnClick = tdownClick
    end
    object tfind: TToolButton
      Left = 320
      Top = 0
      AutoSize = True
      Caption = '  '#26597#35810' '
      ImageIndex = 9
      OnClick = tfindClick
    end
    object tprint: TToolButton
      Left = 384
      Top = 0
      AutoSize = True
      Caption = '    '#25171#21360'    '
      ImageIndex = 4
    end
    object tcheck: TToolButton
      Left = 463
      Top = 0
      AutoSize = True
      Caption = '  '#23457#26680'  '
      ImageIndex = 5
      OnClick = tcheckClick
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 116
    Width = 804
    Height = 217
    Align = alClient
    ColCount = 8
    RowCount = 2