stocklimit.dfm

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

inherited Frm_StockLimit: TFrm_StockLimit
  Left = 13
  Top = 52
  BorderStyle = bsDialog
  Caption = '药品限量设置'
  ClientHeight = 426
  ClientWidth = 772
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object pnlMain: TPanel
    Left = 0
    Top = 37
    Width = 772
    Height = 389
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label4: TLabel
      Left = 230
      Top = 18
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label2: TLabel
      Left = 13
      Top = 17
      Width = 96
      Height = 12
      Caption = '药品拼音或编号：'
    end
    object Label1: TLabel
      Left = 535
      Top = 19
      Width = 228
      Height = 12
      Caption = '（请在以下表格中设置药品的库存上下限）'
    end
    object edtDrugId: TEdit
      Left = 108
      Top = 13
      Width = 94
      Height = 20
      TabOrder = 0
      OnChange = edtDrugIdChange
      OnClick = edtDrugIdClick
    end
    object dbgList: TDBGrid
      Left = 10
      Top = 40
      Width = 752
      Height = 339
      DataSource = ds_List
      Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnKeyDown = dbgListKeyDown
      Columns = <
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'drug_id'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '药品编码'
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'drug_name'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '药品名称'
          Width = 125
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'drug_regu'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '规格'
          Width = 87
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'drug_unit'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 42
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'quantily'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '库存数量'
          Width = 67
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'store_name'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 65
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'maxqty'
          Title.Alignment = taCenter
          Title.Caption = '上限'
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'minqty'
          Title.Alignment = taCenter
          Title.Caption = '下限'
          Width = 75
          Visible = True
        end>
    end
    object cbStoreName: TComboBox
      Left = 264
      Top = 14
      Width = 110
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = edtDrugIdChange
      Items.Strings = (
        '所有仓库')
    end
  end
  object tlbBill: TToolBar
    Left = 0
    Top = 0
    Width = 772
    Height = 37
    ButtonHeight = 35
    ButtonWidth = 49
    Caption = 'tlbBill'
    Color = clBtnFace
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ilBill
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    Transparent = True
    object tblSave: TToolButton
      Left = 0
      Top = 0
      Caption = '保存'
      ImageIndex = 0
      OnClick = tblSaveClick
    end
    object tblCancel: TToolButton
      Left = 49
      Top = 0
      Caption = '取消'
      ImageIndex = 1
      OnClick = tblCancelClick
    end
    object ToolButton5: TToolButton
      Left = 98
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object tblPreview: TToolButton
      Left = 106
      Top = 0
      Caption = '预览'
      Enabled = False
      ImageIndex = 2
    end
    object tblPrint: TToolButton
      Left = 155
      Top = 0
      Caption = '打印'
      Enabled = False
      ImageIndex = 3
    end
    object ToolButton9: TToolButton
      Left = 204
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object tblHelp: TToolButton
      Left = 212
      Top = 0
      Caption = '帮助'
      ImageIndex = 4
    end
    object ToolButton16: TToolButton
      Left = 261
      Top = 0
      Width = 8
      Caption = 'ToolButton16'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object tblClose: TToolButton
      Left = 269
      Top = 0
      Caption = ' 关 闭 '
      ImageIndex = 5
      OnClick = tblCloseClick
    end
  end
  object ds_List: TDataSource
    DataSet = ADOQ_StockLimit
    Left = 440