ddcb.~dfm

来自「应对服装行业的生产成本控制系统」· ~DFM 代码 · 共 592 行 · 第 1/2 页

        TabOrder = 1
      end
      object szrq: TDateTimePicker
        Left = 243
        Top = 20
        Width = 78
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 2
      end
      object sqrq: TDateTimePicker
        Left = 119
        Top = 20
        Width = 78
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 3
      end
      object cfc: TCheckBox
        Left = 822
        Top = 20
        Width = 63
        Height = 17
        Caption = #20998#21378
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 4
      end
      object qfc: TEdit
        Left = 869
        Top = 20
        Width = 76
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 5
      end
      object cfqrq: TCheckBox
        Left = 322
        Top = 20
        Width = 57
        Height = 17
        Caption = #20184#36215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object cfzrq: TCheckBox
        Left = 447
        Top = 20
        Width = 54
        Height = 17
        Caption = #20184#27490
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object fzrq: TDateTimePicker
        Left = 492
        Top = 20
        Width = 78
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 8
      end
      object fqrq: TDateTimePicker
        Left = 367
        Top = 20
        Width = 79
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 9
      end
      object cgqrq: TCheckBox
        Left = 572
        Top = 20
        Width = 57
        Height = 17
        Caption = #31649#36215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
      end
      object cgzrq: TCheckBox
        Left = 697
        Top = 20
        Width = 57
        Height = 17
        Caption = #31649#27490
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
      end
      object gzrq: TDateTimePicker
        Left = 743
        Top = 20
        Width = 78
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 12
      end
      object gqrq: TDateTimePicker
        Left = 618
        Top = 20
        Width = 78
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 13
      end
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 563
      Width = 1011
      Height = 59
      Color = clWhite
      DataSource = DataSource1
      FixedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnKeyPress = DBGrid1KeyPress
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Alignment = taRightJustify
          Expanded = False
          Title.Alignment = taCenter
          Title.Caption = #20998#21378
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je'
          Title.Alignment = taCenter
          Title.Caption = #25910#27454#37329#39069
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je1'
          Title.Alignment = taCenter
          Title.Caption = #20184#27454#37329#39069
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je2'
          Title.Alignment = taCenter
          Title.Caption = #31649#29702#36153#29992
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je3'
          Title.Alignment = taCenter
          Title.Caption = #20313#39069
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je4'
          Title.Alignment = taCenter
          Title.Caption = #20928#20313#39069
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 98
          Visible = True
        end>
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 280
    Top = 256
  end
  object ClientDataSet1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wmxt\client\wmxt' +
      '.mdb;Persist Security Info=False'
    Parameters = <
      item
        Name = 'xh'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from zhbb order by xh')
    Left = 304
    Top = 592
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 336
    Top = 592
  end
end