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

📄 holidayset.~dfm

📁 用户名:SYSTEM 密码:空 第一次运行请先恢复数据库 DATABASE 到SQL服务器
💻 ~DFM
字号:
inherited fHolidaySet: TfHolidaySet
  Left = 97
  Top = 194
  Caption = #25918#20551#36039#26009
  ClientHeight = 370
  ClientWidth = 679
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Width = 679
  end
  inherited Label1: TLabel
    Caption = #25918#20551#36039#26009
  end
  inherited Image1: TImage
    Picture.Data = {
      055449636F6E0000010001002020000000000000A80800001600000028000000
      2000000040000000010008000000000080040000000000000000000000010000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000C0DCC000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF00
      25AAFF0000AAFF000092DC00007AB90000629600004A730000325000D4E3FF00
      B1C7FF008EABFF006B8FFF004873FF002557FF000055FF000049DC00003DB900
      003196000025730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF00
      2525FF000000FE000000DC000000B900000096000000730000005000E3D4FF00
      C7B1FF00AB8EFF008F6BFF007348FF005725FF005500FF004900DC003D00B900
      310096002500730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00
      AA25FF00AA00FF009200DC007A00B900620096004A00730032005000FFD4FF00
      FFB1FF00FF8EFF00FF6BFF00FF48FF00FF25FF00FE00FE00DC00DC00B900B900
      960096007300730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800
      FF25AA00FF00AA00DC009200B9007A009600620073004A0050003200FFD4E300
      FFB1C700FF8EAB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00
      960031007300250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800
      FF252500FE000000DC000000B9000000960000007300000050000000FFE3D400
      FFC7B100FFAB8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000
      963100007325000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800
      FFAA2500FFAA0000DC920000B97A000096620000734A000050320000FFFFD400
      FFFFB100FFFF8E00FFFF6B00FFFF4800FFFF2500FEFE0000DCDC0000B9B90000
      969600007373000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800
      AAFF2500AAFF000092DC00007AB90000629600004A73000032500000E3FFD400
      C7FFB100ABFF8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000
      319600002573000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF4800
      25FF250000FE000000DC000000B90000009600000073000000500000D4FFE300
      B1FFC7008EFFAB006BFF8F0048FF730025FF570000FF550000DC490000B93D00
      009631000073250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB800
      25FFAA0000FFAA0000DC920000B97A000096620000734A0000503200D4FFFF00
      B1FFFF008EFFFF006BFFFF0048FFFF0025FFFF0000FEFE0000DCDC0000B9B900
      009696000073730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200
      B6B6B600AAAAAA009E9E9E0092929200868686007A7A7A006E6E6E0062626200
      565656004A4A4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00
      A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000000000000000000000
      0000000000000000000018181800000000000000000000000000000000000000
      0000000000000000001819191918180000000000000000000000000000000000
      000000000000000018191A1A1A19191818000000000000000000000000000000
      0000000000000018191A1A1A1A1A1A1919181800000000000000000000000000
      00000000000018191A1A1A1A1A1A1A1A1A191919190000000000000000000000
      000000000018191A1A1A1A1A1A1A1A1A1A1A1818181800000000000000000000
      0000000000191A1A1A1A1A1A1A1A1A1A1A181A19191918000000000000000000
      00000000001A1A1A1A1A1A1A1A1A1A1A181A1A1A1A1919180000000000000000
      00000000001A1A1A1A1A1A1A1A1A1A181A1A1A19191A19191800000000000000
      00000000001A1A1A1A1A1A1A1A1A181A1A1A19FFFF191A1A1918000000000000
      00000000001A1A1A1A1A1A1A1A181A1A1A19FFFFFFFF191A1A19180000000000
      00000000001A1A1A1A1A1A1A181A1A1A19FFFFFFFFFFFF191A1A191800000000
      00000000001A1A1A1A1A1A181A1A1A19E6FFFFFFFFFFFF00191A1A1918000000
      00000000001A1A1A1A1A181A1A1A19FF00E6FFFFFFFF00FFFF191A1A19180000
      00000000001A1A1A1A181A1A1A19FFFFFF00E6FFFF00FFFFFF00191A1A191800
      00000000001A1A1A181A1A1A19FFFFFFFFFF00E60000FFFF00FF00191A1A1918
      00000000001A1A181A1A1A19FFFFFFFFFFFFFF008A880000FFFF001E191A1A19
      00000000001A181A1A1A1900E6FFFFFFFFFFFFFF008A8800FFFF001E1E191A1A
      0000000000181A1A1A19171700E6FFFFFFFFFFFFFF008A8800FF001E191A1A00
      0000000000001A1A1A1919171700E6FFFFFFFFFF00FF008A880000191A1A0000
      00000000000000001A1A1A19191700E6FFFFFF00FFFFFF008A88001A1A000000
      000000000000000000001A1A1A191900E6FF0000E6E6FFFF008A880000000000
      0000000000000000000000001A1A1A19000017170000E6E6FF008A8800000000
      00000000000000000000000000001A1A1A191917171E0000E600008A88000000
      000000000000000000000000000000001A1A1A19191E191A000000008A880000
      0000000000000000000000000000000000001A1A1A191A1A00000000008A8800
      00000000000000000000000000000000000000001A1A1A000000000000008A88
      000000000000000000000000000000000000000000000000000000000000008A
      8800000000000000000000000000000000000000000000000000000000000000
      8A88000000000000000000000000000000000000000000000000000000000000
      008A880000000000000000000000000000000000000000000000000000000000
      00000000FC7FFFFFF81FFFFFF007FFFFE001FFFFC0007FFF80003FFF00001FFF
      00000FFF000007FF000003FF000001FF000000FF0000007F0000003F0000001F
      0000000F0000000700000007000000070000000F8000001FC000003FF000007F
      FC00007FFF00003FFFC0021FFFF0070FFFFC0F87FFFF1FC3FFFFFFE1FFFFFFF0
      FFFFFFF8}
  end
  inherited btnExit: TBitBtn
    Left = 578
  end
  inherited PageControl: TPageControl
    Width = 679
    Height = 328
    inherited tbsEdit: TTabSheet
      inherited Panel2: TPanel
        Top = 253
        Width = 671
        inherited btnNew: TBitBtn
          Left = 173
        end
        inherited btnModify: TBitBtn
          Left = 272
        end
        inherited btnDelete: TBitBtn
          Left = 371
        end
        inherited btnSave: TBitBtn
          Left = 470
        end
        inherited btnCancel: TBitBtn
          Left = 569
        end
      end
      inherited Panel1: TPanel
        Width = 671
        Height = 253
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        ParentFont = False
        object Label7: TLabel [0]
          Left = 408
          Top = 2
          Width = 52
          Height = 13
          Caption = #25918#20551#23565#35937
          OnClick = Label7Click
          OnMouseEnter = Label7MouseEnter
          OnMouseLeave = Label7MouseLeave
        end
        inherited pnlFieldsPanel: TPanel
          Width = 401
          Height = 253
          Align = alLeft
          object Label2: TLabel
            Left = 24
            Top = 80
            Width = 52
            Height = 13
            Caption = #20551#26085#21517#31281
            FocusControl = DBEdit1
          end
          object Label3: TLabel
            Left = 24
            Top = 130
            Width = 26
            Height = 13
            Caption = #20633#27880
            FocusControl = DBMemo1
          end
          object Label4: TLabel
            Left = 24
            Top = 27
            Width = 52
            Height = 13
            Caption = #38283#22987#26085#26399
          end
          object Label5: TLabel
            Left = 209
            Top = 27
            Width = 52
            Height = 13
            Caption = #32080#26463#26085#26399
          end
          object DBEdit1: TDBEdit
            Left = 80
            Top = 76
            Width = 305
            Height = 21
            DataField = 'cHolidayName'
            DataSource = DataSource
            TabOrder = 2
          end
          object DBMemo1: TDBMemo
            Left = 80
            Top = 130
            Width = 305
            Height = 67
            DataField = 'mMemo'
            DataSource = DataSource
            TabOrder = 3
          end
          object wwDBDateTimePicker1: TwwDBDateTimePicker
            Left = 80
            Top = 23
            Width = 124
            Height = 21
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            DataField = 'dStartDate'
            DataSource = DataSource
            Date = 37550
            Epoch = 1950
            Time = 37550
            ShowButton = True
            TabOrder = 0
            DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
            OnExit = wwDBDateTimePicker1Exit
          end
          object wwDBDateTimePicker2: TwwDBDateTimePicker
            Left = 263
            Top = 23
            Width = 124
            Height = 21
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            DataField = 'dEndDate'
            DataSource = DataSource
            Date = 37551
            Epoch = 1950
            Time = 37551
            ShowButton = True
            TabOrder = 1
            DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
            OnExit = wwDBDateTimePicker2Exit
          end
        end
        object wwDBGrid1: TwwDBGrid
          Left = 408
          Top = 16
          Width = 257
          Height = 233
          Selected.Strings = (
            'cWorkerNo'#9'9'#9#24037#34399
            'cWorkerName'#9'9'#9#22995#21517
            'cDepartmentName'#9'20'#9#37096#38272#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 1
          TitleAlignment = taCenter
          TitleFont.Charset = CHINESEBIG5_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #26032#32048#26126#39636
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          UseTFields = False
        end
      end
    end
    inherited tbsBrowser: TTabSheet
      inherited wwDBGrid: TwwDBGrid
        Width = 671
        Height = 291
        ControlType.Strings = (
          'bPay;CheckBox;true;false')
        Selected.Strings = (
          'dStartDate'#9'19'#9#38283#22987#26085#26399#9'F'
          'dEndDate'#9'17'#9#32080#26463#26085#26399#9'F'
          'cHolidayName'#9'40'#9#20551#26085#21517#31281#9#9
          'mMemo'#9'26'#9#20633#27880#9'F'
          'cUser'#9'9'#9#29992#25142#9#9
          'tUpdatetime'#9'22'#9#26356#26032#26178#38291#9#9
          'cAction'#9'4'#9#21205#20316#9'F'#9)
        UseTFields = False
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = ADOQuery1
  end
  inherited ImageList1: TImageList
    Left = 416
  end
  object ADOQuery1: TADOQuery
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    BeforeDelete = ADOQuery1BeforeDelete
    Parameters = <>
    SQL.Strings = (
      'Select * From Holidays Order by dStartDate')
    Left = 440
    Top = 200
    object ADOQuery1dStartDate: TDateTimeField
      FieldName = 'dStartDate'
      DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
    end
    object ADOQuery1dEndDate: TDateTimeField
      FieldName = 'dEndDate'
      DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
    end
    object ADOQuery1cHolidayName: TStringField
      FieldName = 'cHolidayName'
      Size = 50
    end
    object ADOQuery1mMemo: TMemoField
      FieldName = 'mMemo'
      BlobType = ftMemo
    end
    object ADOQuery1cUser: TStringField
      Alignment = taCenter
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdatetime: TDateTimeField
      FieldName = 'tUpdatetime'
    end
    object ADOQuery1cAction: TStringField
      Alignment = taCenter
      FieldName = 'cAction'
      Size = 4
    end
    object ADOQuery1cHolidayClsID: TStringField
      FieldName = 'cHolidayClsID'
      Size = 38
    end
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    DataSource = DataSource
    Parameters = <
      item
        Name = 'cHolidayClsID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 38
        Value = '{213B602D-0A4F-4845-AAC4-AA25C95BD0D3}'
      end>
    SQL.Strings = (
      'Select * From V_HolidayDetail '
      'Where cHolidayClsID=:cHolidayClsID'
      'Order by cWorkerNo')
    Left = 480
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 480
    Top = 240
  end
end

⌨️ 快捷键说明

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