u_setoptions.dfm

一个简单的学籍管理软件

          item
            Expanded = False
            FieldName = 'Gdlm'
            KiloFlag = False
            Title.Caption = '固定栏目'
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'Zflm'
            KiloFlag = False
            Title.Caption = '字符栏目'
            Width = 167
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'Szlm'
            KiloFlag = True
            Title.Caption = '数字栏目'
            Width = 143
            Visible = True
            MoneyLine = True
            LeftMoneyDouble = True
          end>
      end
    end
    object TS_GShi02: TTabSheet
      Caption = '表格格式(2)'
      ImageIndex = 5
      object Lbl_YBXYse: TLabel
        Left = 46
        Top = 50
        Width = 98
        Height = 14
        Caption = '一般分隔线颜色'
        FocusControl = BitBtn_YBXYSe
      end
      object Page_YBXYSe: TPrevPage
        Left = 149
        Top = 48
        Width = 50
        Height = 16
        Color = clBlack
        FocusControl = BitBtn_YBXYSe
        ShadowDeepness = sddNone
        PrevWidth = 48
        PrevHeight = 14
      end
      object Lbl_XSWXYse: TLabel
        Left = 258
        Top = 49
        Width = 112
        Height = 14
        Caption = '小数位分隔线颜色'
        FocusControl = BitBtn_XSWYSe
      end
      object Page_XSWYSe: TPrevPage
        Left = 378
        Top = 48
        Width = 50
        Height = 16
        Color = clBlack
        FocusControl = BitBtn_XSWYSe
        ShadowDeepness = sddNone
        PrevWidth = 48
        PrevHeight = 14
      end
      object Lbl_QFWYSe: TLabel
        Left = 46
        Top = 77
        Width = 98
        Height = 14
        Caption = '千位分隔线颜色'
        FocusControl = BitBtn_QFWYSe
      end
      object Page_QFWYSe: TPrevPage
        Left = 149
        Top = 74
        Width = 50
        Height = 16
        Color = clBlack
        FocusControl = BitBtn_QFWYSe
        ShadowDeepness = sddNone
        PrevWidth = 48
        PrevHeight = 14
      end
      object Lbl_ZBXYSe: TLabel
        Left = 300
        Top = 75
        Width = 70
        Height = 14
        Caption = '左边线颜色'
        FocusControl = BitBtn_ZBXYSe
      end
      object Page_ZBXYSe: TPrevPage
        Left = 378
        Top = 74
        Width = 50
        Height = 16
        Color = clBlack
        FocusControl = BitBtn_ZBXYSe
        ShadowDeepness = sddNone
        PrevWidth = 48
        PrevHeight = 14
      end
      object ChkBox_JEXian: TCheckBox
        Left = 23
        Top = 23
        Width = 104
        Height = 17
        Alignment = taLeftJustify
        Caption = '显示金额线'
        TabOrder = 0
        OnClick = ChkBox_JEXianClick
      end
      object BitBtn_YBXYSe: TBitBtn
        Tag = 1
        Left = 207
        Top = 46
        Width = 20
        Height = 20
        TabOrder = 1
        OnClick = BitBtn_YBXYSeClick
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000E0000000E0000000100
          0400000000007000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          8800888888888888880088008800880088008800880088008800888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          88008888888888888800}
      end
      object BitBtn_XSWYSe: TBitBtn
        Tag = 1
        Left = 436
        Top = 46
        Width = 20
        Height = 20
        TabOrder = 2
        OnClick = BitBtn_XSWYSeClick
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000E0000000E0000000100
          0400000000007000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          8800888888888888880088008800880088008800880088008800888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          88008888888888888800}
      end
      object ChkBox_SXDDi: TCheckBox
        Left = 23
        Top = 103
        Width = 114
        Height = 17
        Alignment = taLeftJustify
        Caption = '竖线显示到底'
        TabOrder = 5
        OnClick = ChkBox_SXDDiClick
      end
      object Grid_GShi02: THDBGrid
        Left = 23
        Top = 158
        Width = 450
        Height = 115
        TabStop = False
        CaptionBckColor = clBtnFace
        CaptionHeight = 0
        CaptionPanelFont.Charset = DEFAULT_CHARSET
        CaptionPanelFont.Color = clWindowText
        CaptionPanelFont.Height = -14
        CaptionPanelFont.Name = '宋体'
        CaptionPanelFont.Style = []
        CaptionTextColor = clBlack
        CaptionUnderLine = usDouble
        CurRowColor = clActiveBorder
        DataSource = DS_Sample
        LimitedCol = 1
        LimitedColor = clInfoBk
        IndicatorType = itAlive
        Options = [tgTitles, tgIndicator, tgColSizing, tgColMoving, tgLimitedColMoving, tgColLines, tgRowLines, tgTabs, tgConfirmDelete, tgCancelOnExit]
        HeightPerRow = 0
        ReturnDirection = rdNone
        RowAlternate = False
        RowAlternateColor = clWindow
        TabOrder = 8
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        VertAlignment = vgCenter
        Columns = <
          item
            Expanded = False
            FieldName = 'Gdlm'
            KiloFlag = False
            Title.Caption = '固定栏目'
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'Zflm'
            KiloFlag = False
            Title.Caption = '字符栏目'
            Width = 167
            Visible = True
            MoneyLine = False
            LeftMoneyDouble = True
          end
          item
            Expanded = False
            FieldName = 'Szlm'
            KiloFlag = True
            Title.Caption = '数字栏目'
            Width = 143
            Visible = True
            MoneyLine = True
            LeftMoneyDouble = True
          end>
      end
      object BitBtn_QFWYSe: TBitBtn
        Tag = 1
        Left = 207
        Top = 72
        Width = 20
        Height = 20
        TabOrder = 3
        OnClick = BitBtn_QFWYSeClick
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000E0000000E0000000100
          0400000000007000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          8800888888888888880088008800880088008800880088008800888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          88008888888888888800}
      end
      object BitBtn_ZBXYSe: TBitBtn
        Tag = 1
        Left = 436
        Top = 72
        Width = 20
        Height = 20
        TabOrder = 4
        OnClick = BitBtn_ZBXYSeClick
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000E0000000E0000000100
          0400000000007000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          8800888888888888880088008800880088008800880088008800888888888888
          8800888888888888880088888888888888008888888888888800888888888888
          88008888888888888800}
      end
      object ChkBox_HXDBian: TCheckBox
        Left = 222
        Top = 101
        Width = 115
        Height = 17
        Alignment = taLeftJustify
        Caption = '横线显示到边'
        TabOrder = 6
        OnClick = ChkBox_HXDBianClick
      end
      object ChkBox_GDLSXian: TCheckBox
        Left = 23
        Top = 130
        Width = 156
        Height = 16
        Alignment = taLeftJustify
        Caption = '固定列右线显示双线'
        TabOrder = 7
        OnClick = ChkBox_GDLSXianClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 307
    Width = 497
    Height = 52
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Btn_Ok: TButton
      Left = 96
      Top = 15
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '确定'
      ModalResult = 1
      TabOrder = 0
    end
    object Btn_Cancel: TButton
      Left = 211
      Top = 15
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '取消'
      ModalResult = 2
      TabOrder = 1
    end
    object Btn_Help: TButton
      Left = 326
      Top = 15
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '帮助'
      TabOrder = 2
    end
  end
  object ColorDlg: TColorDialog
    Ctl3D = True
    Left = 410
    Top = 313
  end
  object Qry_Sample: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUDATA'
    SQL.Strings = (
      
        'SELECT '#39'          '#39' as Gdlm, '#39'      '#39' as Zflm, N_CJI as Szlm FRO' +
        'M kscj'
      '  WHERE 0=1')
    UpdateObject = UpSQL_Sample
    Left = 214
    Top = 322
  end
  object DS_Sample: TDataSource
    DataSet = Qry_Sample
    Left = 311
    Top = 318
  end
  object UpSQL_Sample: TUpdateSQL
    ModifySQL.Strings = (
      'update zt'
      'set'
      '  Gdlm = :Gdlm,'
      '  Zflm = :Zflm,'
      '  Szlm = :Szlm'
      'where'
      '  Gdlm = :OLD_Gdlm')
    InsertSQL.Strings = (
      'insert into zt'
      '  (Gdlm, Zflm, Szlm)'
      'values'
      '  (:Gdlm, :Zflm, :Szlm)')
    DeleteSQL.Strings = (
      'delete from zt'
      'where'
      '  Gdlm = :OLD_Gdlm')
    Left = 261
    Top = 321
  end
end