csht.~dfm

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

object frm_htgl: Tfrm_htgl
  Left = 24
  Top = 115
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #21512#21516#31649#29702
  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 = 122
    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 = 579
      Top = 23
      Width = 48
      Height = 13
      Caption = #25805#20316#21592#65306
    end
    object Label4: TLabel
      Left = 286
      Top = 56
      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 = 6
      Top = 90
      Width = 60
      Height = 13
      Caption = #29983#25928#26085#26399#65306
    end
    object Label7: TLabel
      Left = 288
      Top = 90
      Width = 60
      Height = 13
      Caption = #32456#27490#26085#26399#65306
    end
    object txthtdh: 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 = 630
      Top = 19
      Width = 43
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 2
      OnChange = txtczybhChange
    end
    object txtczymc: TEdit
      Left = 673
      Top = 19
      Width = 76
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 3
    end
    object txtshflag: TEdit
      Left = 351
      Top = 53
      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
      OnChange = txtcsbhChange
    end
    object txtpc: TEdit
      Left = 678
      Top = 57
      Width = 47
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 100
      TabOrder = 6
      Text = '0'
      Visible = False
    end
    object TXTsxrq: TDateTimePicker
      Left = 66
      Top = 88
      Width = 126
      Height = 21
      Date = 38392.621835567130000000
      Time = 38392.621835567130000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 7
    end
    object txtzzrq: TDateTimePicker
      Left = 351
      Top = 83
      Width = 107
      Height = 21
      Date = 38392.621859988420000000
      Time = 38392.621859988420000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 8
      OnChange = txtzzrqChange
    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 = 146
    Width = 804
    Height = 187
    Align = alClient
    ColCount = 8
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    TabOrder = 2
    Visible = False
    OnSelectCell = StringGrid1SelectCell
    ColWidths = (
      64
      64
      64
      64
      64
      64
      64
      64)
  end
  object Memo1: TMemo