medicine_form4.~dfm

基于DELPHI+SQL的药品管理系统

object config_Form: Tconfig_Form
  Left = 214
  Top = 142
  BorderStyle = bsDialog
  Caption = '系统设置'
  ClientHeight = 341
  ClientWidth = 559
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 2
    Top = 0
    Width = 553
    Height = 337
    ActivePage = TabSheet3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '药品信息维护'
      object Label8: TLabel
        Left = 0
        Top = 0
        Width = 185
        Height = 21
        AutoSize = False
        Caption = '请输入要维护药品的名称或编码：'
      end
      object btnSaveMedicine: TButton
        Left = 360
        Top = 272
        Width = 75
        Height = 25
        Caption = '保 存'
        Enabled = False
        TabOrder = 0
        OnClick = btnSaveMedicineClick
      end
      object Edit1: TEdit
        Left = 192
        Top = 0
        Width = 249
        Height = 21
        TabOrder = 1
        OnChange = Edit1Change
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 24
        Width = 249
        Height = 257
        DataSource = dsMedicineInfo
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'code'
            Title.Caption = '编号'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = '名称'
            Width = 159
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 256
        Top = 24
        Width = 289
        Height = 137
        Caption = '药品信息'
        TabOrder = 3
        object Label3: TLabel
          Left = 16
          Top = 16
          Width = 25
          Height = 13
          AutoSize = False
          Caption = '规则'
        end
        object Label4: TLabel
          Left = 160
          Top = 16
          Width = 25
          Height = 13
          AutoSize = False
          Caption = '单位'
        end
        object Label5: TLabel
          Left = 16
          Top = 72
          Width = 25
          Height = 13
          AutoSize = False
          Caption = '产地'
        end
        object Label6: TLabel
          Left = 160
          Top = 48
          Width = 25
          Height = 13
          AutoSize = False
          Caption = '单价'
        end
        object Label7: TLabel
          Left = 16
          Top = 44
          Width = 25
          Height = 13
          AutoSize = False
          Caption = '批号'
        end
        object Label10: TLabel
          Left = 16
          Top = 108
          Width = 65
          Height = 13
          AutoSize = False
          Caption = '库存量底限'
        end
        object DBEdit1: TDBEdit
          Left = 48
          Top = 12
          Width = 97
          Height = 21
          DataField = 'rule'
          DataSource = dsMedicineInfo
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 48
          Top = 72
          Width = 225
          Height = 21
          DataField = 'area'
          DataSource = dsMedicineInfo
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 48
          Top = 40
          Width = 97
          Height = 21
          DataField = 'batch'
          DataSource = dsMedicineInfo
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 88
          Top = 104
          Width = 97
          Height = 21
          DataField = 'lownumber'
          DataSource = dsMedicineInfo
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 192
          Top = 40
          Width = 81
          Height = 21
          DataField = 'price'
          DataSource = dsMedicineInfo
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 192
          Top = 12
          Width = 81
          Height = 21
          DataField = 'unit'
          DataSource = dsMedicineInfo
          TabOrder = 5
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '有效期维护'
      ImageIndex = 1
      object Label13: TLabel
        Left = 0
        Top = 0
        Width = 185
        Height = 21
        AutoSize = False
        Caption = '请输入要维护药品的名称或编码：'
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 24
        Width = 265
        Height = 241
        DataSource = dsValidity
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'code'
            Title.Caption = '编码'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = '名称'
            Width = 115
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'lastDate'
            Title.Alignment = taCenter
            Title.Caption = '有效期'
            Width = 60
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 272
        Top = 24
        Width = 273
        Height = 145
        Caption = '药品信息'
        TabOrder = 1
        object Label1: TLabel
          Left = 10
          Top = 24
          Width = 31
          Height = 13
          AutoSize = False
          Caption = '规则'
        end
        object Label2: TLabel
          Left = 154
          Top = 24
          Width = 23
          Height = 13
          AutoSize = False
          Caption = '单位'
        end
        object Label9: TLabel
          Left = 10
          Top = 80
          Width = 23
          Height = 13
          AutoSize = False
          Caption = '产地'
        end
        object Label11: TLabel
          Left = 154
          Top = 56
          Width = 23
          Height = 13
          AutoSize = False
          Caption = '单价'
        end
        object Label12: TLabel
          Left = 10
          Top = 52
          Width = 23
          Height = 13
          AutoSize = False
          Caption = '批号'
        end
        object Label14: TLabel
          Left = 10
          Top = 112
          Width = 60
          Height = 13
          Caption = '药品有效期'
        end
        object DBEdit7: TDBEdit
          Left = 43
          Top = 16
          Width = 86
          Height = 21
          DataField = 'rule'
          DataSource = dsValidity
          MaxLength = 20
          TabOrder = 0
        end
        object DBEdit8: TDBEdit
          Left = 43
          Top = 80
          Width = 222
          Height = 21
          DataField = 'area'
          DataSource = dsValidity
          MaxLength = 200
          TabOrder = 1
        end
        object DBEdit9: TDBEdit
          Left = 43
          Top = 48
          Width = 86
          Height = 21
          DataField = 'batch'