cgfkd1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

        DBGridLayout = dxDBGridLayoutList1Item1
        StoredValues = 64
      end
      object Ed4: TdxDBExtLookupEdit
        Left = 64
        Top = 40
        Width = 97
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 11
        OnKeyDown = Ed1KeyDown
        DataField = 'ywyname'
        DataSource = DataSource1
        ReadOnly = True
        DBGridLayout = dxDBGridLayoutList1Item2
        StoredValues = 64
      end
      object Ed6: TdxDBExtLookupEdit
        Left = 224
        Top = 40
        Width = 114
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 12
        OnKeyDown = Ed1KeyDown
        DataField = 'fkfs'
        DataSource = DataSource1
        ReadOnly = True
        DBGridLayout = dxDBGridLayoutList1Item4
        StoredValues = 64
      end
      object ED5: TdxDBCurrencyEdit
        Left = 386
        Top = 40
        Width = 94
        Style.BorderColor = clNavy
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 13
        OnKeyDown = ED5KeyDown
        Alignment = taRightJustify
        DataField = 'fkje'
        DataSource = DataSource1
        MaxLength = 0
        StoredValues = 51
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 334
    Width = 558
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    OnResize = Panel2Resize
    object Label7: TLabel
      Left = 8
      Top = 13
      Width = 36
      Height = 12
      Caption = '备注：'
      Transparent = True
      Layout = tlCenter
    end
    object Ed7: TdxDBEdit
      Left = 42
      Top = 6
      Width = 511
      Style.BorderColor = clNavy
      Style.BorderStyle = xbsSingle
      Style.Shadow = True
      TabOrder = 0
      OnKeyDown = Ed6KeyDown
      Alignment = taLeftJustify
      DataField = 'bz'
      DataSource = DataSource1
      ReadOnly = True
      StoredValues = 65
    end
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 184
    Top = 256
    Width = 200
    Height = 25
    DataSource = DataSource1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Visible = False
    object b1: TwwNavButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b1'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
      OnUpdateState = b1UpdateState
    end
    object b2: TwwNavButton
      Left = 25
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b2'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPrior
      OnUpdateState = b1UpdateState
    end
    object b3: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b3'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsNext
      OnUpdateState = b1UpdateState
    end
    object b4: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b4'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsLast
      OnUpdateState = b1UpdateState
    end
    object b5: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Insert new record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b5'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsInsert
      OnUpdateState = b1UpdateState
    end
    object b6: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Post changes of current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b6'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsPost
      OnUpdateState = b1UpdateState
    end
    object b7: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Cancel changes made to current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b7'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsCancel
      OnUpdateState = b1UpdateState
    end
    object b8: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Delete current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'b8'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsDelete
      OnUpdateState = b1UpdateState
    end
  end
  object DBGridEh1: TdxDBGrid
    Left = 0
    Top = 108
    Width = 558
    Height = 226
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'cgdh'
    ShowSummaryFooter = True
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    TabOrder = 3
    OnExit = DBGridEh1Exit
    DataSource = DataSource2
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    object DBGridEh1code: TdxDBGridMaskColumn
      ReadOnly = True
      Visible = False
      Width = 62
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object DBGridEh1cgdh: TdxDBGridMaskColumn
      ReadOnly = True
      Sorted = csDown
      Width = 81
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cgdh'
    end
    object DBGridEh1djje: TdxDBGridCurrencyColumn
      ReadOnly = True
      Width = 78
      BandIndex = 0
      RowIndex = 0
      FieldName = 'djje'
      SummaryFooterType = cstSum
    end
    object DBGridEh1yfje: TdxDBGridCurrencyColumn
      ReadOnly = True
      Width = 83
      BandIndex = 0
      RowIndex = 0
      FieldName = 'yfje'
      SummaryFooterType = cstSum
    end
    object DBGridEh1fkje: TdxDBGridCurrencyColumn
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fkje'
      SummaryFooterType = cstSum
    end
    object DBGridEh1bz: TdxDBGridMaskColumn
      Width = 214
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bz'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 400
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 152
    Top = 192
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'GHSDA'
    Left = 384
    Top = 184
    object ADOTable3code: TStringField
      DisplayLabel = '编码'
      FieldName = 'code'
      Size = 5
    end
    object ADOTable3name: TStringField
      DisplayLabel = '名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable3dq: TStringField
      DisplayLabel = '所属地区'
      FieldName = 'dq'
      Size = 50
    end
    object ADOTable3lxr: TStringField
      DisplayLabel = '联系人'
      FieldName = 'lxr'
      Size = 50
    end
    object ADOTable3lxdh: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'lxdh'
      Size = 50
    end
    object ADOTable3cz: TStringField
      DisplayLabel = '传真'
      FieldName = 'cz'
      Size = 50
    end
    object ADOTable3lxdz: TStringField
      DisplayLabel = '联系地址'
      FieldName = 'lxdz'
      Size = 200
    end
  end
  object ADOTable4: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filter = 'ywybz=1'
    Filtered = True
    TableName = 'RYDA'
    Left = 416
    Top = 184
    object StringField1: TStringField
      DisplayLabel = '编码'
      FieldName = 'code'
      Size = 5
    end
    object StringField2: TStringField
      DisplayLabel = '名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable4bm: TStringField
      DisplayLabel = '部门'
      FieldName = 'bm'
      Size = 50
    end
    object ADOTable4xb: TStringField
      DisplayLabel = '性别'
      FieldName = 'xb'
      Size = 4
    end
    object ADOTable4csrq: TDateTimeField
      DisplayLabel = '出生日期'
      FieldName = 'csrq'
    end
    object ADOTable4dh: TStringField
      DisplayLabel = '电话'
      FieldName = 'dh'
      Size = 50
    end
    object ADOTable4zz: TStringField
      DisplayLabel = '住址'
      FieldName = 'zz'
      Size = 200
    end
  end
  object dxDBGridLayoutList1: TdxDBGridLayoutList
    Left = 336
    Top = 184
    object dxDBGridLayoutList1Item1: TdxDBGridLayout
      Data = {
        7C050000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402