checkstock.~dfm

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

        Font.Style = [fsBold]
        ParentColor = True
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        Text = '0'
      end
      object edtTotalAmount: TEdit
        Left = 662
        Top = 6
        Width = 71
        Height = 16
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = True
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        Text = '0'
      end
    end
    object dbgDetail: TDBGrid
      Left = 8
      Top = 90
      Width = 746
      Height = 257
      DataSource = DataModule1.ds_CheckStockSub
      FixedColor = clSilver
      Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 6
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnColExit = dbgDetailColExit
      OnDblClick = dbgDetailEditButtonClick
      OnEditButtonClick = dbgDetailEditButtonClick
      OnKeyDown = dbgDetailKeyDown
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'drug_id'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          Title.Alignment = taCenter
          Width = 69
          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
          Width = 80
          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
          Width = 71
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BatchNo'
          Font.Charset = GB2312_CHARSET
          Font.Color = clTeal
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 58
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ValidDate'
          Font.Charset = GB2312_CHARSET
          Font.Color = clTeal
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 68
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'Unit'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 40
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'AccQty'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 66
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TrueQty'
          Title.Alignment = taCenter
          Width = 63
          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
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 16250871
          Expanded = False
          FieldName = 'amount'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'memo'
          Title.Alignment = taCenter
          Width = 77
          Visible = True
        end>
    end
  end
  object tlbBill: TToolBar
    Left = 0
    Top = 0
    Width = 768
    Height = 39
    ButtonHeight = 35
    ButtonWidth = 55
    Caption = 'tlbBill'
    Color = clBtnFace
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ilBill
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    Transparent = True
    object tblNew: TToolButton
      Left = 0
      Top = 0
      Caption = '新建'
      ImageIndex = 0
      OnClick = tblNewClick
    end
    object tblOpen: TToolButton
      Left = 55
      Top = 0
      Caption = '打开'
      ImageIndex = 1
      OnClick = tblOpenClick
    end
    object ToolButton12: TToolButton
      Left = 110
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object tblSave: TToolButton
      Left = 118
      Top = 0
      Caption = '保存'
      ImageIndex = 2
      OnClick = tblSaveClick
    end
    object tblCancel: TToolButton
      Left = 173
      Top = 0
      Caption = '作废'
      ImageIndex = 3
      OnClick = tblCancelClick
    end
    object ToolButton5: TToolButton
      Left = 228
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object tblCheck: TToolButton
      Left = 236
      Top = 0
      Caption = '盘点'
      ImageIndex = 4
      OnClick = tblCheckClick
    end
    object ToolButton13: TToolButton
      Left = 291
      Top = 0
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object tblAddDetail: TToolButton
      Left = 299
      Top = 0
      Caption = '添加药品'
      ImageIndex = 5
      OnClick = tblAddDetailClick
    end
    object tblDelDetail: TToolButton
      Left = 354
      Top = 0
      Caption = '删除一行'
      ImageIndex = 6
      OnClick = tblDelDetailClick
    end
    object ToolButton10: TToolButton
      Left = 409
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object tblPreview: TToolButton
      Left = 417
      Top = 0
      Caption = '报表'
      ImageIndex = 7
      OnClick = tblPreviewClick
    end
    object tblPrint: TToolButton
      Left = 472
      Top = 0
      Caption = '打印'
      ImageIndex = 8
      OnClick = tblPrintClick
    end
    object ToolButton9: TToolButton
      Left = 527
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object tblHelp: TToolButton
      Left = 535
      Top = 0
      Caption = '帮助'
      ImageIndex = 9
      OnClick = tblHelpClick
    end
    object ToolButton16: TToolButton
      Left = 590
      Top = 0
      Width = 8
      Caption = 'ToolButton16'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object tblClose: TToolButton
      Left = 598
      Top = 0
      Caption = ' 关 闭 '
      ImageIndex = 10
      OnClick = tblCloseClick
    end
  end
  object ADOQ_store: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from store')
    Left = 206
    Top = 54
    object ADOQ_storeStoreId: TStringField
      DisplayLabel = '仓库编号'
      FieldName = 'StoreId'
      Size = 4
    end
    object ADOQ_storeStoreName: TStringField
      DisplayLabel = '仓库名称'
      DisplayWidth = 22
      FieldName = 'StoreName'