ye.dfm

应对服装行业的生产成本控制系统

      end
      object qks: TEdit
        Left = 590
        Top = 20
        Width = 112
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
      end
      object cfb: TCheckBox
        Left = 241
        Top = 20
        Width = 63
        Height = 17
        Caption = #20998#37096
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 2
      end
      object qfb: TEdit
        Left = 288
        Top = 20
        Width = 112
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 3
      end
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 564
      Width = 1008
      Height = 63
      Color = clWhite
      DataSource = DataSource1
      FixedColor = clWhite
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      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
          Expanded = False
          Title.Alignment = taCenter
          Title.Caption = #20998#37096
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #31185#23460
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'zhrmb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'kcrmb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'zhrmb1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #31246#21069#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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'ssrmb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #20986#21475#36864#31246
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'je1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #25163#32493#36153
          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 = 105
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'kcrmb1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          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 = 105
          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
    object ClientDataSet1fb: TWideStringField
      FieldName = 'fb'
      Size = 50
    end
    object ClientDataSet1ks: TWideStringField
      FieldName = 'ks'
      Size = 50
    end
    object ClientDataSet1khmc: TWideStringField
      FieldName = 'khmc'
      Size = 50
    end
    object ClientDataSet1je: TWideStringField
      FieldName = 'je'
      Size = 50
    end
    object ClientDataSet1zhrmb: TWideStringField
      FieldName = 'zhrmb'
      Size = 50
    end
    object ClientDataSet1kcrmb: TWideStringField
      FieldName = 'kcrmb'
      Size = 50
    end
    object ClientDataSet1ssrmb: TWideStringField
      FieldName = 'ssrmb'
      Size = 50
    end
    object ClientDataSet1je1: TWideStringField
      FieldName = 'je1'
      Size = 50
    end
    object ClientDataSet1zhrmb1: TWideStringField
      FieldName = 'zhrmb1'
      Size = 50
    end
    object ClientDataSet1kcrmb1: TWideStringField
      FieldName = 'kcrmb1'
      Size = 50
    end
    object ClientDataSet1ssrmb1: TWideStringField
      FieldName = 'ssrmb1'
      Size = 50
    end
    object ClientDataSet1je2: TWideStringField
      FieldName = 'je2'
      Size = 50
    end
    object ClientDataSet1je3: TWideStringField
      FieldName = 'je3'
      Size = 50
    end
    object ClientDataSet1je4: TWideStringField
      FieldName = 'je4'
      Size = 50
    end
    object ClientDataSet1wsje: TWideStringField
      FieldName = 'wsje'
      Size = 50
    end
    object ClientDataSet1dksj: TWideStringField
      FieldName = 'dksj'
      Size = 50
    end
    object ClientDataSet1wsje1: TWideStringField
      FieldName = 'wsje1'
      Size = 50
    end
    object ClientDataSet1dksj1: TWideStringField
      FieldName = 'dksj1'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 336
    Top = 592
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider23'
    RemoteServer = DataModule1.DCOMConnection1
    Left = 153
    Top = 317
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 217
    Top = 309
  end
end