hbspda1.dfm

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

object hbspda: Thbspda
  Left = 226
  Top = 119
  BorderStyle = bsSingle
  Caption = '合并商品档案'
  ClientHeight = 347
  ClientWidth = 560
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 560
    Height = 347
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '合并'
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 552
        Height = 320
        Align = alClient
      end
      object Label1: TLabel
        Left = 48
        Top = 32
        Width = 448
        Height = 16
        Caption = '此功能将商品资料档案中重复的商品合并成一个，只保留后者。'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 88
        Top = 120
        Width = 36
        Height = 12
        Caption = '将商品'
      end
      object Label3: TLabel
        Left = 88
        Top = 176
        Width = 36
        Height = 12
        Caption = '合并到'
      end
      object Label4: TLabel
        Left = 216
        Top = 120
        Width = 6
        Height = 12
      end
      object Label5: TLabel
        Left = 216
        Top = 176
        Width = 6
        Height = 12
      end
      object Edit1: TEdit
        Left = 128
        Top = 112
        Width = 81
        Height = 20
        TabOrder = 0
        OnChange = Edit1Change
        OnKeyDown = Edit1KeyDown
      end
      object Edit2: TEdit
        Left = 128
        Top = 168
        Width = 81
        Height = 20
        TabOrder = 1
        OnChange = Edit2Change
        OnKeyDown = Edit2KeyDown
      end
      object BitBtn1: TBitBtn
        Left = 368
        Top = 248
        Width = 75
        Height = 25
        Caption = '确定'
        ModalResult = 1
        TabOrder = 2
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Edit3: TEdit
        Left = 211
        Top = 112
        Width = 230
        Height = 20
        Color = clSilver
        ReadOnly = True
        TabOrder = 3
      end
      object Edit4: TEdit
        Left = 211
        Top = 168
        Width = 230
        Height = 20
        Color = clSilver
        ReadOnly = True
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = '查询'
      ImageIndex = 1
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 552
        Height = 320
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'code1'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = 7479077
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource1
        Filter.Active = True
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        RegistryPath = '\Software\server\ghskccx'
        object dxDBGrid1code1: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code1'
        end
        object dxDBGrid1code2: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code2'
        end
        object dxDBGrid1czy: TdxDBGridMaskColumn
          Width = 98
          BandIndex = 0
          RowIndex = 0
          FieldName = 'czy'
        end
        object dxDBGrid1rq: TdxDBGridDateColumn
          Width = 112
          BandIndex = 0
          RowIndex = 0
          FieldName = 'rq'
        end
        object dxDBGrid1id: TdxDBGridMaskColumn
          Visible = False
          Width = 73
          BandIndex = 0
          RowIndex = 0
          FieldName = 'id'
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 100
    Top = 239
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = MainForm.ADOConnection1
    ProcedureName = 'hbspda;1'
    Parameters = <
      item
        Name = '@code1'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@code2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@czy'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = Null
      end>
    Left = 140
    Top = 239
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'sphb'
    Left = 140
    Top = 87
    object ADOTable1code1: TStringField
      DisplayLabel = '原商品编码'
      FieldName = 'code1'
    end
    object ADOTable1code2: TStringField
      DisplayLabel = '合并后商品编码'
      FieldName = 'code2'
    end
    object ADOTable1czy: TStringField
      DisplayLabel = '操作员'
      FieldName = 'czy'
      Size = 6
    end
    object ADOTable1rq: TDateTimeField
      DisplayLabel = '日期'
      FieldName = 'rq'
    end
    object ADOTable1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 180
    Top = 87
  end
end