vendor.~dfm

销售分析,JUSCO,日月周查询,待完善.

    RoundCorner = 0
    RoundCornerBottom = 0
    Version = '5.8'
    object suiDBGrid1: TsuiDBGrid
      Left = 0
      Top = 168
      Width = 500
      Height = 243
      Align = alBottom
      BorderStyle = bsNone
      Color = 15198183
      DataSource = dm.tmpconn
      FixedColor = 12874553
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWhite
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UIStyle = MacOS
      BorderColor = 8355711
      FocusedColor = clGreen
      SelectedColor = clYellow
      FontColor = clBlack
      TitleFontColor = clWhite
      FixedBGColor = 12874553
      BGColor = 15198183
    end
    object suiPanel1: TsuiPanel
      Left = 0
      Top = 20
      Width = 500
      Height = 141
      UIStyle = MacOS
      BorderColor = 8355711
      ShowButton = True
      CaptionFontColor = clBlack
      Align = alTop
      TabOrder = 2
      Color = clWhite
      OnDblClick = suiPanel1DblClick
      object Label1: TLabel
        Left = 112
        Top = 88
        Width = 78
        Height = 13
        Caption = #20379#24212#21830'CODE    '
      end
      object Label2: TLabel
        Left = 240
        Top = 32
        Width = 42
        Height = 13
        Caption = #23567#32452#21035'  '
      end
      object Label3: TLabel
        Left = 128
        Top = 32
        Width = 33
        Height = 13
        Caption = #32452#21035'   '
      end
      object Label4: TLabel
        Left = 8
        Top = 32
        Width = 36
        Height = 13
        Caption = #37096#38376'    '
      end
      object suiDBLookupComboBox1: TsuiDBLookupComboBox
        Left = 208
        Top = 96
        Width = 169
        Height = 21
        DataField = 'Dept_code'
        DataSource = dm.tmpconn
        KeyField = 'Dept_code'
        ListField = 'Dept_name'
        ListFieldIndex = 1
        ListSource = dm.deptconn
        TabOrder = 0
        Visible = False
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
      end
      object suiDBLookupComboBox2: TsuiDBLookupComboBox
        Left = 216
        Top = 72
        Width = 145
        Height = 21
        DataField = 'Section_code'
        DataSource = dm.tmpconn
        KeyField = 'Section_code'
        ListField = 'Section_desc'
        ListSource = dm.sectconn
        TabOrder = 1
        Visible = False
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
      end
      object suiDBLookupComboBox3: TsuiDBLookupComboBox
        Left = 208
        Top = 120
        Width = 145
        Height = 21
        DataField = 'Article_code'
        DataSource = dm.tmpconn
        KeyField = 'Article_code'
        ListField = 'Article_desc'
        ListSource = dm.artconn
        TabOrder = 2
        Visible = False
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
      end
      object suiEdit1: TsuiEdit
        Left = 96
        Top = 108
        Width = 113
        Height = 25
        UIStyle = MacOS
        BorderColor = 8355711
        TabOrder = 3
        OnKeyPress = suiEdit1KeyPress
      end
      object suiGroupBox1: TsuiGroupBox
        Left = 381
        Top = 25
        Width = 115
        Height = 112
        UIStyle = MacOS
        Align = alRight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = True
        ParentFont = False
        TabOrder = 4
        BorderColor = 8355711
        object suiButton1: TsuiButton
          Left = 24
          Top = 40
          Width = 73
          Height = 33
          Caption = #29983#25104'EXCEL'
          AutoSize = False
          UIStyle = MacOS
          TabOrder = 0
          Transparent = True
          ModalResult = 0
          FocusedRectMargin = 2
          Layout = blGlyphLeft
          Spacing = 4
          MouseContinuouslyDownInterval = 100
          OnClick = suiButton1Click
          ResHandle = 0
        end
      end
      object suiComboBox1: TsuiComboBox
        Left = 8
        Top = 56
        Width = 41
        Height = 21
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
        ItemHeight = 13
        TabOrder = 5
        OnChange = suiComboBox1Change
        OnEnter = suiComboBox1Change
      end
      object suiComboBox2: TsuiComboBox
        Left = 120
        Top = 56
        Width = 49
        Height = 21
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
        ItemHeight = 13
        TabOrder = 6
        OnChange = suiComboBox2Change
        OnEnter = suiComboBox2Change
      end
      object suiComboBox3: TsuiComboBox
        Left = 240
        Top = 56
        Width = 65
        Height = 21
        UIStyle = MacOS
        BorderColor = 8355711
        ArrowColor = clBlack
        ButtonColor = 15198183
        ItemHeight = 13
        TabOrder = 7
        OnChange = suiComboBox3Change
      end
      object suiDBEdit1: TsuiDBEdit
        Left = 40
        Top = 24
        Width = 73
        Height = 25
        BorderStyle = bsNone
        DataField = 'Dept_name'
        DataSource = dm.deptconn
        ReadOnly = True
        TabOrder = 8
        OnChange = suiDBEdit1Change
        UIStyle = MacOS
        BorderColor = 8355711
      end
      object suiDBEdit2: TsuiDBEdit
        Left = 160
        Top = 24
        Width = 73
        Height = 25
        BorderStyle = bsNone
        DataField = 'Section_desc'
        DataSource = dm.sectconn
        ReadOnly = True
        TabOrder = 9
        OnChange = suiDBEdit2Change
        UIStyle = MacOS
        BorderColor = 8355711
      end
      object suiDBEdit3: TsuiDBEdit
        Left = 288
        Top = 24
        Width = 65
        Height = 25
        BorderStyle = bsNone
        DataField = 'Article_desc'
        DataSource = dm.artconn
        ReadOnly = True
        TabOrder = 10
        OnChange = suiDBEdit3Change
        UIStyle = MacOS
        BorderColor = 8355711
      end
    end
  end
end