sprcd.~dfm

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

object frm_sprcd: Tfrm_sprcd
  Left = -131
  Top = 98
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #33647#21697#30331#35760#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 = 47
    Align = alTop
    Color = 13031127
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 12
      Width = 65
      Height = 13
      Caption = #30331#35760#21333#21495#65306
    end
    object Label2: TLabel
      Left = 194
      Top = 13
      Width = 65
      Height = 13
      Caption = #21046#21333#26085#26399#65306
    end
    object Label3: TLabel
      Left = 363
      Top = 12
      Width = 52
      Height = 13
      Caption = #25805#20316#21592#65306
    end
    object Label4: TLabel
      Left = 654
      Top = 13
      Width = 65
      Height = 13
      Caption = #23457#26680#26631#24535#65306
    end
    object Label5: TLabel
      Left = 531
      Top = 13
      Width = 60
      Height = 13
      Caption = #25209'   '#21495#65306
      Color = clSilver
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object txtjhdh: TEdit
      Left = 66
      Top = 10
      Width = 116
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 0
    end
    object txtzdrq: TEdit
      Left = 251
      Top = 9
      Width = 100
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 1
    end
    object txtczybh: TEdit
      Left = 407
      Top = 9
      Width = 43
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 2
      OnChange = txtczybhChange
    end
    object txtczymc: TEdit
      Left = 451
      Top = 9
      Width = 76
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 3
    end
    object txtshflag: TEdit
      Left = 719
      Top = 9
      Width = 100
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 4
    end
    object txtpc: TEdit
      Left = 598
      Top = 8
      Width = 47
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 100
      TabOrder = 5
      Text = '0'
    end
  end
  object StringGrid1: TStringGrid
    Left = 8
    Top = 236
    Width = 804
    Height = 217
    ColCount = 8
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    TabOrder = 1
    OnSelectCell = StringGrid1SelectCell
    ColWidths = (
      64
      64
      64
      64
      64
      64
      64
      64)
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 24
    HelpType = htKeyword
    AutoSize = True
    ButtonWidth = 78
    Caption = 'ToolBar2'
    Color = 13031127
    EdgeBorders = [ebTop, ebBottom]
    EdgeInner = esLowered
    EdgeOuter = esNone
    Flat = True
    Images = ImageList1
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 2
    object tadd: TToolButton
      Left = 0
      Top = 0
      Caption = #26032#22686'(INS)'
      ImageIndex = 8
      OnClick = taddClick
    end
    object tdel: TToolButton
      Left = 78
      Top = 0
      Caption = #21024#38500'(DEL)'
      ImageIndex = 0
      OnClick = tdelClick
    end
    object tedit: TToolButton
      Left = 156
      Top = 0
      Caption = #32534#36753'(F3)'
      ImageIndex = 1
      OnClick = teditClick
    end
    object tup: TToolButton
      Left = 234
      Top = 0
      Caption = #23384#30424'(F10)'
      ImageIndex = 10
      OnClick = tupClick
    end
    object tdown: TToolButton
      Left = 312
      Top = 0
      Caption = #21462#28040'(ESC)'
      ImageIndex = 3
      OnClick = tdownClick
    end
    object tcheck: TToolButton
      Left = 390
      Top = 0
      Caption = #23457#26680'(F8)'
      ImageIndex = 5
      OnClick = tcheckClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 76
    Width = 804
    Height = 117
    Color = 13031127
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Label9: TLabel
      Left = 502
      Top = 12
      Width = 65
      Height = 13
      Caption = #36827#36135#20215#26684#65306
    end
    object Label11: TLabel
      Left = 7
      Top = 98
      Width = 65
      Height = 13
      Caption = #20379#36135#21333#20301#65306
    end
    object Label12: TLabel
      Left = 501
      Top = 40
      Width = 67
      Height = 13
      Caption = #21152'    '#25104#65306
      Color = clSilver
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label10: TLabel
      Left = 278
      Top = 42
      Width = 65
      Height = 13
      Caption = #35745#37327#21333#20301#65306
    end
    object Label6: TLabel
      Left = 7
      Top = 18
      Width = 65
      Height = 13
      Caption = #25340#38899#31616#30721#65306
    end
    object Label7: TLabel
      Left = 6
      Top = 69
      Width = 65
      Height = 13
      Caption = #33647#21697#21517#31216#65306
    end
    object Label8: TLabel
      Left = 278
      Top = 15
      Width = 65
      Height = 13
      Caption = #33647#21697#35268#26684#65306
    end
    object Label13: TLabel
      Left = 6
      Top = 43
      Width = 65
      Height = 13
      Caption = #33647#21697#32534#21495#65306
    end
    object Label14: TLabel
      Left = 278
      Top = 68
      Width = 65
      Height = 13
      Caption = #33647#21697#21058#22411#65306
    end
    object Label15: TLabel
      Left = 279
      Top = 95
      Width = 65
      Height = 13
      Caption = #29983#20135#21378#21830#65306
    end
    object Label16: TLabel
      Left = 502
      Top = 68
      Width = 65
      Height = 13
      Caption = #25209#21457#20215#26684#65306
    end
    object Label17: TLabel
      Left = 502
      Top = 92
      Width = 65
      Height = 13
      Caption = #38646#21806#20215#26684#65306
    end
    object Label18: TLabel
      Left = 654
      Top = 44
      Width = 65
      Height = 13
      Caption = #22833#25928#26085#26399#65306
    end
    object TXTYPBH: TEdit
      Left = 65
      Top = 39
      Width = 100
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 0
    end
    object TXTYPJX: TEdit
      Left = 342
      Top = 64
      Width = 102
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 1
      OnChange = txtczybhChange
    end
    object TXTSCCS: TEdit
      Left = 344
      Top = 91
      Width = 153
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 2
    end
    object Edit5: TEdit
      Left = 343
      Top = 38
      Width = 100