basefactorydate.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseFactoryDate: TfrmBaseFactoryDate
  Left = 55
  Top = 107
  Width = 756
  Height = 448
  Caption = #24037#21378#26085#21382
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 481
    Top = 38
    Width = 4
    Height = 383
    Cursor = crHSplit
  end
  inherited ToolBar: TToolBar
    Width = 748
  end
  object DBGrid1: TDBGrid [2]
    Left = 0
    Top = 38
    Width = 481
    Height = 383
    Align = alLeft
    DataSource = dsBaseInfo
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fDay'
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sWeek'
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fYear'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMonth'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMaxTime'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fWorkTime'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fUnit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fActYear'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fActMonth'
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 485
    Top = 38
    Width = 263
    Height = 383
    Align = alClient
    TabOrder = 2
    object Panel2: TPanel
      Left = 8
      Top = 35
      Width = 247
      Height = 326
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 40
        Top = 31
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #26085#12288#12288#26399#65306
      end
      object Label2: TLabel
        Left = 40
        Top = 63
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #24180#12288#12288#20221#65306
      end
      object Label3: TLabel
        Left = 40
        Top = 96
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #26376#12288#12288#20221#65306
      end
      object Label4: TLabel
        Left = 40
        Top = 127
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #24080#30446#24180#20221#65306
      end
      object Label5: TLabel
        Left = 40
        Top = 160
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #24080#30446#26376#20221#65306
      end
      object Label6: TLabel
        Left = 14
        Top = 192
        Width = 91
        Height = 13
        Alignment = taRightJustify
        Caption = #26368#22823#24037#20316#26102#38388#65306
      end
      object Label7: TLabel
        Left = 14
        Top = 224
        Width = 91
        Height = 13
        Alignment = taRightJustify
        Caption = #26631#20934#24037#20316#26102#38388#65306
      end
      object Label8: TLabel
        Left = 40
        Top = 256
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #21333#12288#12288#20301#65306
      end
      object DBEdit1: TDBEdit
        Left = 107
        Top = 59
        Width = 121
        Height = 21
        DataField = 'fYear'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 107
        Top = 91
        Width = 121
        Height = 21
        DataField = 'fMonth'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 107
        Top = 123
        Width = 121
        Height = 21
        DataField = 'fActYear'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 107
        Top = 155
        Width = 121
        Height = 21
        DataField = 'fActMonth'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 107
        Top = 187
        Width = 121
        Height = 21
        DataField = 'fMaxTime'
        DataSource = dsBaseInfo
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 107
        Top = 219
        Width = 121
        Height = 21
        DataField = 'fWorkTime'
        DataSource = dsBaseInfo
        TabOrder = 5
      end
      object wwDBDateTimePicker1: TwwDBDateTimePicker
        Left = 107
        Top = 27
        Width = 121
        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 = 'fDay'
        DataSource = dsBaseInfo
        Date = 37277
        Epoch = 1950
        Time = 37277
        ShowButton = True
        TabOrder = 6
        OnChange = wwDBDateTimePicker1Change
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 107
        Top = 248
        Width = 121
        Height = 21
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fName'#9'10'#9#21333#20301#9'T')
        DataField = 'fUnit'
        DataSource = dsBaseInfo
        LookupTable = QUnits
        LookupField = 'fName'
        Options = [loColLines, loRowLines, loTitles]
        TabOrder = 7
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
    end
    object BitBtn1: TBitBtn
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Action = acBatchAdd
      Caption = #25209#37327#32534#36753
      TabOrder = 1
    end
  end
  inherited ALToolbar: TActionList
    Left = 392
    Top = 40
    object acBatchAdd: TAction
      Caption = #25209#22686
      OnExecute = acBatchAddExecute
    end
  end
  inherited QBaseInfo: TADOQuery
    OnCalcFields = QBaseInfoCalcFields
    SQL.Strings = (
      'Select * from tCalendar')
    Left = 352
    Top = 88
    object QBaseInfofDay: TDateTimeField
      DisplayLabel = #24037#21378#26085#21382
      DisplayWidth = 18
      FieldName = 'fDay'
      OnValidate = QBaseInfofDayValidate
    end
    object QBaseInfofYear: TStringField
      DisplayLabel = #24180#20221
      FieldName = 'fYear'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object QBaseInfofMonth: TStringField
      DisplayLabel = #26376#20221
      FieldName = 'fMonth'
      Visible = False
      FixedChar = True
      Size = 2
    end
    object QBaseInfofMaxTime: TBCDField
      DisplayLabel = #26368#22823#24037#26102
      FieldName = 'fMaxTime'
      Visible = False
      Precision = 8
      Size = 2
    end
    object QBaseInfofWorkTime: TBCDField
      DisplayLabel = #26631#20934#24037#26102
      FieldName = 'fWorkTime'
      Visible = False
      Precision = 8
      Size = 2
    end
    object QBaseInfofUnit: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'fUnit'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object QBaseInfofActYear: TStringField
      DisplayLabel = #24080#30446#24180#20221
      FieldName = 'fActYear'
      Visible = False
      FixedChar = True
      Size = 4
    end
    object QBaseInfofActMonth: TStringField
      DisplayLabel = #24080#30446#26376#20221
      FieldName = 'fActMonth'
      Visible = False
      FixedChar = True
      Size = 2
    end
    object QBaseInfosWeek: TStringField
      DisplayLabel = #26143#26399
      FieldKind = fkCalculated
      FieldName = 'sWeek'
      Size = 2
      Calculated = True
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 336
    Top = 104
  end
  inherited QIsUnique: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select * from tCalendar where fday=:code')
    Left = 248
    Top = 128
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fDay'#9'18'#9#24037#21378#26085#21382#9'F')
  end
  object QUnits: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tUnits')
    Left = 272
    Top = 176
  end
  object dsUnits: TDataSource
    DataSet = QUnits
    Left = 288
    Top = 192
  end
end