medicine_form4.~dfm

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

          DataSource = dsValidity
          MaxLength = 20
          TabOrder = 2
        end
        object DBEdit11: TDBEdit
          Left = 187
          Top = 48
          Width = 81
          Height = 21
          DataField = 'price'
          DataSource = dsValidity
          TabOrder = 3
        end
        object DBEdit12: TDBEdit
          Left = 187
          Top = 16
          Width = 81
          Height = 21
          DataField = 'unit'
          DataSource = dsValidity
          MaxLength = 20
          TabOrder = 4
        end
        object DBEdit13: TDBEdit
          Left = 75
          Top = 104
          Width = 121
          Height = 21
          DataField = 'LastDate'
          DataSource = dsValidity
          MaxLength = 10
          TabOrder = 5
        end
      end
      object btnSaveValidity: TButton
        Left = 360
        Top = 272
        Width = 75
        Height = 25
        Caption = '保 存'
        TabOrder = 2
        OnClick = btnSaveValidityClick
      end
      object chkbIsOver: TCheckBox
        Left = 272
        Top = 176
        Width = 97
        Height = 17
        Caption = '此药品已售完'
        TabOrder = 3
        OnClick = chkbIsOverClick
      end
      object Edit2: TEdit
        Left = 192
        Top = 0
        Width = 249
        Height = 21
        TabOrder = 4
        OnChange = Edit2Change
      end
    end
    object TabSheet3: TTabSheet
      Caption = '系统用户维护'
      ImageIndex = 2
      object GroupBox3: TGroupBox
        Left = 184
        Top = 0
        Width = 353
        Height = 113
        Caption = '用户信息'
        TabOrder = 0
        object Label15: TLabel
          Left = 24
          Top = 24
          Width = 56
          Height = 13
          AutoSize = False
          Caption = '用户名称'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label16: TLabel
          Left = 24
          Top = 72
          Width = 56
          Height = 13
          AutoSize = False
          Caption = '用户密码'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBEdit10: TDBEdit
          Left = 96
          Top = 19
          Width = 209
          Height = 21
          DataField = 'user'
          DataSource = dsRight
          TabOrder = 0
        end
        object DBEdit14: TDBEdit
          Left = 96
          Top = 64
          Width = 209
          Height = 21
          DataField = 'password'
          DataSource = dsRight
          PasswordChar = '*'
          TabOrder = 1
        end
      end
      object GroupBox4: TGroupBox
        Left = 184
        Top = 120
        Width = 353
        Height = 97
        Caption = '用户权限信息'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object rdbtnEdit: TRadioButton
          Left = 16
          Top = 24
          Width = 113
          Height = 17
          Caption = '可修改、编辑'
          TabOrder = 0
          OnClick = rdbtnEditClick
        end
        object rdbtnBrowser: TRadioButton
          Left = 16
          Top = 48
          Width = 113
          Height = 17
          Caption = '只可浏览'
          TabOrder = 1
          OnClick = rdbtnEditClick
        end
        object rdbtnForbid: TRadioButton
          Left = 16
          Top = 72
          Width = 113
          Height = 17
          Caption = '禁用'
          TabOrder = 2
          OnClick = rdbtnEditClick
        end
      end
      object btnSaveUser: TButton
        Left = 384
        Top = 272
        Width = 75
        Height = 25
        Caption = '保存'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = btnSaveUserClick
      end
      object btnCancelUser: TButton
        Left = 304
        Top = 272
        Width = 75
        Height = 25
        Caption = '取消'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = btnCancelUserClick
      end
      object btnDelUser: TButton
        Left = 224
        Top = 272
        Width = 75
        Height = 25
        Caption = '删除'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = btnDelUserClick
      end
      object btnAddUser: TButton
        Left = 144
        Top = 272
        Width = 75
        Height = 25
        Caption = '添加'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = btnAddUserClick
      end
      object dbgrdRight: TDBGrid
        Left = 0
        Top = 0
        Width = 169
        Height = 257
        DataSource = dsRight
        ReadOnly = True
        TabOrder = 6
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'user'
            Title.Caption = '用户名称'
            Visible = True
          end>
      end
    end
  end
  object btnExit: TButton
    Left = 472
    Top = 296
    Width = 75
    Height = 25
    Caption = '退 出'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnExitClick
  end
  object tblMedicine: TTable
    Active = True
    AfterEdit = tblMedicineAfterEdit
    DatabaseName = 'DBmed'
    TableName = 'medicine'
    Left = 20
    Top = 304
  end
  object dsMedicineInfo: TDataSource
    DataSet = tblMedicine
    Left = 52
    Top = 304
  end
  object qryLocate: TQuery
    DatabaseName = 'DBmed'
    Left = 84
    Top = 296
  end
  object qryValidity: TQuery
    AfterOpen = qryValidityAfterOpen
    AfterScroll = qryValidityAfterScroll
    DatabaseName = 'DBmed'
    SQL.Strings = (
      'select a.code as code,a.name as name'
      '   ,b.LastDate as lastDate, a.rule as rule'
      '   ,a.unit as unit,a.area as area '
      '   ,a.batch as batch,a.price as price'
      '   ,b.ID as id'
      'from medicine as a,inmedicine as b '
      'where a.code=b.code and b.isover='#39'0'#39
      '      and b.LastDate <=:This_Date')
    Left = 28
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'This_Date'
        ParamType = ptUnknown
      end>
  end
  object dsValidity: TDataSource
    DataSet = qryValidity
    Left = 68
    Top = 248
  end
  object tblRight: TTable
    Active = True
    AfterEdit = tblRightAfterEdit
    AfterScroll = tblRightAfterScroll
    DatabaseName = 'DBmed'
    TableName = 'usersystem'
    Left = 28
    Top = 176
  end
  object dsRight: TDataSource
    DataSet = tblRight
    Left = 88
    Top = 184
  end
end