factorydateadd.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 374 行

inherited frmFactoryDateAdd: TfrmFactoryDateAdd
  Left = 197
  Top = 136
  Width = 482
  Height = 328
  Caption = #24037#21378#26085#24535#25209#22686
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 32
    Top = 64
    Width = 417
    Height = 185
    TabOrder = 2
    Visible = False
    object Label5: TLabel
      Left = 98
      Top = 53
      Width = 66
      Height = 13
      Alignment = taRightJustify
      Caption = #28304' '#24180' '#20221#65306
    end
    object Label6: TLabel
      Left = 99
      Top = 85
      Width = 65
      Height = 13
      Alignment = taRightJustify
      Caption = #30446#30340#24180#20221#65306
    end
    object dxSpinEdit1: TdxSpinEdit
      Left = 168
      Top = 80
      Width = 105
      TabOrder = 0
      MaxValue = 2100
      MinValue = 1990
      Value = 1990
      StoredValues = 48
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 168
      Top = 48
      Width = 105
      Height = 21
      DropDownAlignment = taLeftJustify
      LookupTable = QYear
      LookupField = 'fYear'
      Style = csDropDownList
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object Panel3: TPanel
    Left = 32
    Top = 64
    Width = 417
    Height = 185
    TabOrder = 3
    Visible = False
    object Label7: TLabel
      Left = 48
      Top = 77
      Width = 26
      Height = 13
      Caption = #26085#26399
    end
    object Label8: TLabel
      Left = 216
      Top = 76
      Width = 13
      Height = 13
      Caption = #33267
    end
    object DelDateBegin: TDateTimePicker
      Left = 88
      Top = 72
      Width = 113
      Height = 21
      CalAlignment = dtaLeft
      Date = 37445
      Time = 37445
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
      OnChange = DateBeginChange
    end
    object DelDateEnd: TDateTimePicker
      Left = 243
      Top = 72
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 37445
      Time = 37445
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 457
    Height = 49
    TabOrder = 0
    object rbCopy: TRadioButton
      Left = 184
      Top = 21
      Width = 113
      Height = 17
      Caption = #24180#24230#22797#21046
      TabOrder = 0
      OnClick = rbCopyClick
    end
    object rbAppend: TRadioButton
      Left = 40
      Top = 21
      Width = 113
      Height = 17
      Caption = #25209#37327#22686#21152
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = rbAppendClick
    end
    object rbDelete: TRadioButton
      Left = 312
      Top = 21
      Width = 113
      Height = 17
      Caption = #25209#37327#21024#38500
      TabOrder = 2
      OnClick = rbDeleteClick
    end
  end
  object Panel1: TPanel
    Left = 32
    Top = 64
    Width = 417
    Height = 185
    TabOrder = 1
    object Label1: TLabel
      Left = 56
      Top = 29
      Width = 26
      Height = 13
      Caption = #26085#26399
    end
    object Label2: TLabel
      Left = 124
      Top = 69
      Width = 78
      Height = 13
      Caption = #26631#20934#24037#20316#26102#38388
    end
    object Label3: TLabel
      Left = 125
      Top = 98
      Width = 78
      Height = 13
      Caption = #26368#22823#24037#20316#26102#38388
    end
    object Label4: TLabel
      Left = 224
      Top = 28
      Width = 13
      Height = 13
      Caption = #33267
    end
    object DateBegin: TDateTimePicker
      Left = 96
      Top = 24
      Width = 113
      Height = 21
      CalAlignment = dtaLeft
      Date = 37445
      Time = 37445
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
      OnChange = DateBeginChange
    end
    object DateEnd: TDateTimePicker
      Left = 251
      Top = 24
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 37445
      Time = 37445
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object seWorkTime: TSpinEdit
      Left = 210
      Top = 63
      Width = 55
      Height = 22
      MaxValue = 24
      MinValue = 0
      TabOrder = 2
      Value = 8
    end
    object seMaxTime: TSpinEdit
      Left = 210
      Top = 94
      Width = 55
      Height = 22
      MaxValue = 24
      MinValue = 0
      TabOrder = 3
      Value = 24
    end
    object CheckSat: TCheckBox
      Left = 31
      Top = 128
      Width = 161
      Height = 17
      Caption = #35774#32622#26143#26399#20845#26631#20934#26102#38388#20026#38646
      TabOrder = 4
    end
    object CheckSun: TCheckBox
      Left = 224
      Top = 128
      Width = 161
      Height = 17
      Caption = #35774#32622#26143#26399#26085#26631#20934#26102#38388#20026#38646
      TabOrder = 5
    end
  end
  object BitBtn1: TBitBtn
    Left = 240
    Top = 264
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 4
    Kind = bkCancel
  end
  object BitBtn2: TBitBtn
    Left = 152
    Top = 264
    Width = 75
    Height = 25
    Caption = #30830#23450
    Default = True
    TabOrder = 5
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object QIsUnique: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tCalendar ')
    Left = 400
    Top = 104
  end
  object spCalendarEdit: TADOStoredProc
    Connection = dmClient.adocnClothing
    ProcedureName = 'pCalendarEdit;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@intType'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@datBeginDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@datEndDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@isSaturDay'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@isSunDay'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@numMaxTime'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 8
        Value = Null
      end
      item
        Name = '@numWorkTime'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 8
        Value = Null
      end>
    Left = 24
    Top = 192
  end
  object QYear: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select Distinct fYear from tCalendar order by fYear')
    Left = 400
    Top = 144
    object QYearfYear: TStringField
      FieldName = 'fYear'
      FixedChar = True
      Size = 4
    end
  end
  object dsYear: TDataSource
    DataSet = QYear
    Left = 408
    Top = 152
  end
end