⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 date.~dfm

📁 会展条码票务管理、门禁、印刷、现场制证(摄像、登记、印刷)、总控中心、接待管理、展位管理
💻 ~DFM
字号:
object dataForm: TdataForm
  Left = 236
  Top = 94
  Width = 696
  Height = 480
  Caption = #25968#25454#20132#25442#27169#22359
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    ActivePage = TabSheet2
    Align = alClient
    Color = 16119543
    UseColoredTabs = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = []
    FlatColor = 10263441
    HotTrackColor = 3983359
    HotTrackColorType = htctActual
    ParentColor = False
    ParentFont = False
    TabColors.HighlightBar = 3983359
    TabHeight = 40
    TabIndex = 1
    TabOrder = 0
    TabOrientation = toLeft
    TabSequence = tsReverse
    TabStyle = tsRoundCorners
    TabWidth = 100
    TextColors.DisabledHighlight = clSkyBlue
    TextColors.DisabledShadow = clActiveCaption
    FixedDimension = 100
    object TabSheet1: TRzTabSheet
      Color = clMoneyGreen
      Caption = #25968#25454#24211#36830#25509
      object RzGroupBox1: TRzGroupBox
        Left = 152
        Top = 56
        Width = 241
        Height = 217
        Caption = #36830#25509#27979#35797
        TabOrder = 0
        object RzLabel1: TRzLabel
          Left = 8
          Top = 40
          Width = 72
          Height = 121
          Caption = #26381#21153#22120#22320#22336#65306#13#13'    '#29992#25143#21517#65306#13#13'       '#23494#30721#65306#13#13' '#25968#25454#24211#21517#65306#13' '
        end
        object RzMaskEdit1: TRzMaskEdit
          Left = 88
          Top = 32
          Width = 125
          Height = 26
          EditMask = '###.###.#.###;1;_'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 13
          ParentFont = False
          TabOrder = 0
          Text = '   .   . .   '
        end
        object RzEdit1: TRzEdit
          Left = 88
          Top = 64
          Width = 97
          Height = 21
          TabOrder = 1
        end
        object RzEdit3: TRzEdit
          Left = 88
          Top = 120
          Width = 129
          Height = 21
          TabOrder = 2
        end
        object xpButton1: TxpButton
          Left = 88
          Top = 152
          Width = 75
          Height = 25
          Caption = #36830#25509
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Gradient = True
          TabOrder = 3
          OnClick = xpButton1Click
        end
        object RzMaskEdit2: TRzMaskEdit
          Left = 88
          Top = 88
          Width = 128
          Height = 26
          CharCase = ecUpperCase
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PasswordChar = #1
          TabOrder = 4
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Color = 16119543
      Caption = #23548#20837#27169#26495#23450#20041
      object RzLabel2: TRzLabel
        Left = 72
        Top = 8
        Width = 84
        Height = 13
        Caption = #28304#22836#24211#25152#26377#34920#65306
      end
      object RzLabel3: TRzLabel
        Left = 224
        Top = 8
        Width = 96
        Height = 14
        Caption = #35813#34920#30340#25152#26377#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel4: TRzLabel
        Left = 24
        Top = 280
        Width = 60
        Height = 14
        Caption = #22995#21517#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel5: TRzLabel
        Left = 24
        Top = 256
        Width = 60
        Height = 14
        Caption = #32534#21495#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel6: TRzLabel
        Left = 24
        Top = 304
        Width = 60
        Height = 14
        Caption = #22269#31821#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel7: TRzLabel
        Left = 24
        Top = 328
        Width = 60
        Height = 14
        Caption = #24615#21035#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel8: TRzLabel
        Left = 24
        Top = 352
        Width = 60
        Height = 14
        Caption = #31867#22411#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel9: TRzLabel
        Left = 24
        Top = 376
        Width = 60
        Height = 14
        Caption = #30456#29255#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel10: TRzLabel
        Left = 24
        Top = 224
        Width = 60
        Height = 14
        Caption = #20154#21592#34920#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel11: TRzLabel
        Left = 200
        Top = 224
        Width = 60
        Height = 14
        Caption = #31867#22411#34920#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel12: TRzLabel
        Left = 200
        Top = 256
        Width = 72
        Height = 14
        Caption = #31867#22411#21495#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel13: TRzLabel
        Left = 200
        Top = 280
        Width = 72
        Height = 14
        Caption = #31867#22411#21517#23383#27573#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel14: TRzLabel
        Left = 368
        Top = 224
        Width = 60
        Height = 14
        Caption = #22242#38431#34920#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel15: TRzLabel
        Left = 368
        Top = 256
        Width = 60
        Height = 14
        Caption = #22242#38431#32534#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object RzLabel16: TRzLabel
        Left = 368
        Top = 280
        Width = 60
        Height = 14
        Caption = #22242#38431#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        HighlightColor = clActiveBorder
      end
      object DBGrid1: TDBGrid
        Left = 72
        Top = 32
        Width = 145
        Height = 169
        DataSource = objsc
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Verdana'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = #34920#21517
            Width = 150
            Visible = True
          end>
      end
      object DBGrid2: TDBGrid
        Left = 232
        Top = 32
        Width = 313
        Height = 169
        DataSource = colsc
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Verdana'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            ReadOnly = True
            Title.Caption = #32534#21495
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            ReadOnly = True
            Title.Caption = #23383#27573#21517
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xtype'
            ReadOnly = True
            Title.Caption = #31867#22411
            Width = 80
            Visible = True
          end>
      end
      object RzEdit2: TRzEdit
        Left = 96
        Top = 256
        Width = 89
        Height = 21
        TabOrder = 2
      end
      object RzEdit4: TRzEdit
        Left = 96
        Top = 280
        Width = 89
        Height = 21
        TabOrder = 3
      end
      object RzEdit5: TRzEdit
        Left = 96
        Top = 304
        Width = 89
        Height = 21
        TabOrder = 4
      end
      object RzEdit6: TRzEdit
        Left = 96
        Top = 328
        Width = 89
        Height = 21
        TabOrder = 5
      end
      object RzEdit7: TRzEdit
        Left = 96
        Top = 352
        Width = 89
        Height = 21
        TabOrder = 6
      end
      object RzEdit8: TRzEdit
        Left = 96
        Top = 376
        Width = 89
        Height = 21
        TabOrder = 7
      end
      object xpButton2: TxpButton
        Left = 336
        Top = 336
        Width = 75
        Height = 41
        Caption = #20445#23384
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Gradient = True
        TabOrder = 8
        OnClick = xpButton2Click
      end
      object RzEdit9: TRzEdit
        Left = 96
        Top = 224
        Width = 89
        Height = 21
        TabOrder = 9
      end
      object RzEdit10: TRzEdit
        Left = 448
        Top = 224
        Width = 89
        Height = 21
        TabOrder = 10
      end
      object RzEdit11: TRzEdit
        Left = 272
        Top = 280
        Width = 89
        Height = 21
        TabOrder = 11
      end
      object RzEdit12: TRzEdit
        Left = 272
        Top = 256
        Width = 89
        Height = 21
        TabOrder = 12
      end
      object RzEdit13: TRzEdit
        Left = 272
        Top = 224
        Width = 89
        Height = 21
        TabOrder = 13
      end
      object RzEdit16: TRzEdit
        Left = 448
        Top = 280
        Width = 89
        Height = 21
        TabOrder = 14
      end
      object RzEdit17: TRzEdit
        Left = 448
        Top = 256
        Width = 89
        Height = 21
        TabOrder = 15
      end
    end
    object TabSheet3: TRzTabSheet
      Color = 16119543
      Caption = #25968#25454#23548#20837
    end
    object TabSheet4: TRzTabSheet
      Color = 16119543
      Caption = 'EXECL'#34920#26684#23548#20837
    end
  end
  object ORGConnection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=gsqy;Data Source=192.168.1.199'
    ConnectionTimeout = 6
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 185
  end
  object obj: TADOQuery
    Active = True
    Connection = ORGConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select id,name from sysobjects where xtype='#39'u'#39)
    Left = 24
    Top = 216
    object objid: TIntegerField
      FieldName = 'id'
    end
    object objname: TWideStringField
      FieldName = 'name'
      Size = 128
    end
  end
  object objsc: TDataSource
    DataSet = obj
    Left = 24
    Top = 256
  end
  object colsc: TDataSource
    DataSet = col
    Left = 24
    Top = 328
  end
  object col: TADOQuery
    Active = True
    Connection = ORGConnection
    CursorType = ctStatic
    DataSource = objsc
    Parameters = <
      item
        Name = 'tid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select id,name,xtype from syscolumns where id=:tid')
    Left = 24
    Top = 296
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -