mainunit.~dfm

用友二次开发程序 颜色尺码二维定义工具

        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object strColor: TdxDBGrid
        Left = 16
        Top = 16
        Width = 145
        Height = 281
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        OnDblClick = strColorDblClick
        DataSource = DS_Color
        Filter.Criteria = {00000000}
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object strColorColumn1: TdxDBGridColumn
          Alignment = taCenter
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = #39068#33394
        end
      end
      object ProdColor: TdxDBGrid
        Left = 168
        Top = 16
        Width = 145
        Height = 281
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        OnDblClick = ProdColorDblClick
        DataSource = DS_InvColor
        Filter.Criteria = {00000000}
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGridColumn1: TdxDBGridColumn
          Alignment = taCenter
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = #39068#33394
        end
      end
    end
    object cxTabSheet1: TcxTabSheet
      Caption = '    '#23610#30721'    '
      ImageIndex = 0
      object ProdSize: TdxDBGrid
        Left = 168
        Top = 16
        Width = 145
        Height = 297
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        OnDblClick = ProdSizeDblClick
        DataSource = DS_InvSize
        Filter.Criteria = {00000000}
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object ProdSizeColumn1: TdxDBGridColumn
          Alignment = taCenter
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = #23610#30721
        end
      end
      object strSize: TdxDBGrid
        Left = 16
        Top = 16
        Width = 145
        Height = 297
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        OnDblClick = strSizeDblClick
        DataSource = DS_Size
        Filter.Criteria = {00000000}
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object strSizeColumn1: TdxDBGridColumn
          Alignment = taCenter
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = #23610#30721
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 248
    Top = 22
    Width = 91
    Height = 25
    Caption = #26465#24418#30721#26356#26032' '
    TabOrder = 2
    OnClick = FormCreate
    Kind = bkAll
  end
  object UF_CONN: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=pmsystem;Persist Security Info=True' +
      ';User ID=pmsystem;Initial Catalog=UFDATA_168_2008;Data Source=ER' +
      'PSERVER;Use Procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=LIGSHAN;Use Encryption for Data=False;Ta' +
      'g with column collation when possible=False'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 280
  end
  object Color: TADOQuery
    Active = True
    Connection = UF_CONN
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT cValue AS '#39068#33394
      'FROM UserDefine'
      'WHERE (cID = N'#39'20'#39') '
      'ORDER BY cValue Desc')
    Left = 160
    Top = 280
  end
  object Size: TADOQuery
    Active = True
    Connection = UF_CONN
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT cValue AS '#23610#30721
      'FROM UserDefine'
      'WHERE (cID = N'#39'21'#39') '
      'order by cValue')
    Left = 96
    Top = 280
  end
  object DS_Size: TDataSource
    DataSet = Size
    Left = 192
    Top = 280
  end
  object DS_Color: TDataSource
    DataSet = Color
    Left = 128
    Top = 280
  end
  object CMD: TADOCommand
    Connection = UF_CONN
    Parameters = <>
    Left = 64
    Top = 280
  end
  object DS_InvSize: TDataSource
    DataSet = InvSize
    Left = 336
    Top = 280
  end
  object InvColor: TADOQuery
    Connection = UF_CONN
    CursorType = ctStatic
    Parameters = <>
    Left = 240
    Top = 280
  end
  object InvSize: TADOQuery
    Connection = UF_CONN
    CursorType = ctStatic
    Parameters = <>
    Left = 304
    Top = 280
  end
  object DS_InvColor: TDataSource
    DataSet = InvColor
    Left = 272
    Top = 280
  end
  object Temp: TADOQuery
    Connection = UF_CONN
    CursorType = ctStatic
    Parameters = <>
    Left = 8
    Top = 240
  end
end