zhcycxunit.dfm

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

object zhcycxfrm: Tzhcycxfrm
  Left = 79
  Top = 97
  BorderStyle = bsSingle
  Caption = #20013#33609#33647#26597#35810
  ClientHeight = 576
  ClientWidth = 881
  Color = clCream
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 245
    Top = 43
    Width = 4
    Height = 518
    Shape = bsFrame
  end
  object Panel1: TPanel
    Left = -8
    Top = 44
    Width = 249
    Height = 520
    Color = clCream
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 83
      Width = 60
      Height = 13
      Caption = #25152#23646#31867#21035#65306
    end
    object Bevel1: TBevel
      Left = 5
      Top = 110
      Width = 244
      Height = 2
      Shape = bsBottomLine
    end
    object ComboBox1: TComboBox
      Left = 73
      Top = 78
      Width = 157
      Height = 21
      BevelInner = bvLowered
      BevelOuter = bvRaised
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      Text = #20840#33609#31867
      OnChange = ComboBox1Change
      Items.Strings = (
        #20840#33609#31867
        #26641#33026#31867
        #26524#23454#31867
        #26681#31867
        #30719#29289#31867
        #26681#33550#31867
        #33457#31867
        #30382#31867
        #31181#23376#31867
        #33550#31867
        #26118#34411#31867
        #21160#29289#31867
        #20854#23427#31867
        #33740#34299#31867
        '')
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 113
      Width = 241
      Height = 408
      DataSource = DataSource1
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnMouseUp = DBGrid1MouseUp
      Columns = <
        item
          Expanded = False
          FieldName = #20013#33647#21517
          Visible = True
        end>
    end
    object TPanel
      Left = 8
      Top = 5
      Width = 241
      Height = 64
      Color = clCream
      TabOrder = 2
      object Label16: TLabel
        Left = 26
        Top = 14
        Width = 36
        Height = 13
        Caption = #20013#33647#21517
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 81
        Top = 11
        Width = 121
        Height = 21
        BevelInner = bvLowered
        BevelOuter = bvRaised
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        TabOrder = 0
      end
      object BitBtn1: TBitBtn
        Left = 135
        Top = 37
        Width = 66
        Height = 21
        Caption = #26597#35810
        Default = True
        ModalResult = 1
        TabOrder = 1
        OnClick = BitBtn1Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888808888888888888800088888888888800088888888888800
          0888888800000000888888800BBB000888888800BBBBB0088888880BBBBBBB08
          8888880BBB0BBB088888880BB080BB0888888800BB0BB008888888800BBB0088
          8888888800000888888888888888888888888888888888888888}
      end
    end
  end
  object PageControl1: TPageControl
    Left = 251
    Top = 46
    Width = 622
    Height = 518
    ActivePage = TabSheet1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #22522#26412#24615#36136
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Label2: TLabel
        Left = 10
        Top = 13
        Width = 48
        Height = 13
        Caption = #20013#33647#21517#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label3: TLabel
        Left = 299
        Top = 13
        Width = 60
        Height = 13
        Caption = #33647#21517#25340#38899#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label4: TLabel
        Left = 10
        Top = 56
        Width = 48
        Height = 13
        Caption = #33521#25991#21517#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label5: TLabel
        Left = 299
        Top = 48
        Width = 36
        Height = 13
        Caption = #27880#24847#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label6: TLabel
        Left = 10
        Top = 96
        Width = 36
        Height = 13
        Caption = #36142#34255#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label7: TLabel
        Left = 299
        Top = 95
        Width = 36
        Height = 13
        Caption = #28846#21046#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label8: TLabel
        Left = 12
        Top = 130
        Width = 36
        Height = 13
        Caption = #31616#36848#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label9: TLabel
        Left = 300
        Top = 126
        Width = 36
        Height = 13
        Caption = #24615#29366#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label10: TLabel
        Left = 11
        Top = 298
        Width = 72
        Height = 13
        Caption = #24615#21619#19982#24402#32463#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label11: TLabel
        Left = 305
        Top = 292
        Width = 72
        Height = 13
        Caption = #21151#33021#19982#20027#27835#65306
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 67
        Top = 8
        Width = 205
        Height = 21
        DataField = #20013#33647#21517
        DataSource = DataSource1
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 357
        Top = 8
        Width = 244
        Height = 21
        DataField = #33647#21517#25340#38899
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 67
        Top = 50
        Width = 206
        Height = 21
        DataField = #33521#25991#21517
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 360
        Top = 42
        Width = 241
        Height = 21
        DataField = #27880#24847
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 66
        Top = 90
        Width = 207
        Height = 21
        DataField = #36142#34255
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 360
        Top = 87
        Width = 241
        Height = 21
        DataField = #28846#21046
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 5
      end
      object DBMemo1: TDBMemo
        Left = 8
        Top = 148
        Width = 268
        Height = 133
        DataField = #31616#36848
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 6
      end
      object DBMemo2: TDBMemo
        Left = 304
        Top = 149
        Width = 299
        Height = 130
        DataField = #24615#29366
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 7
      end