slip_money.dfm

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

inherited frmSlip_money: TfrmSlip_money
  Left = 284
  Top = 415
  Width = 989
  Height = 545
  Caption = #20107#25925#25187#27454#26597#35810
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 983
    Height = 77
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 30
      Width = 65
      Height = 13
      Caption = #25187#27454#26085#26399#65306
    end
    object Label2: TLabel
      Left = 190
      Top = 30
      Width = 13
      Height = 13
      Caption = #33267
    end
    object Label25: TLabel
      Left = 318
      Top = 32
      Width = 52
      Height = 13
      Caption = #20135#21697#32447#65306
    end
    object DateTimePicker1: TDateTimePicker
      Left = 83
      Top = 24
      Width = 100
      Height = 21
      Date = 39330.576130092600000000
      Time = 39330.576130092600000000
      ImeName = 'itABC v5.30'
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 207
      Top = 25
      Width = 100
      Height = 21
      Date = 39330.576139861110000000
      Time = 39330.576139861110000000
      ImeName = 'itABC v5.30'
      TabOrder = 1
    end
    object Button1: TButton
      Left = 604
      Top = 23
      Width = 75
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 694
      Top = 23
      Width = 75
      Height = 25
      Caption = #23548'  '#20986
      TabOrder = 3
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 783
      Top = 23
      Width = 75
      Height = 25
      Caption = #25171'  '#21360
      TabOrder = 4
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 870
      Top = 22
      Width = 75
      Height = 25
      Caption = #36864'  '#20986
      TabOrder = 5
      OnClick = Button4Click
    end
    object ComboBox1: TComboBox
      Left = 368
      Top = 27
      Width = 98
      Height = 21
      ItemHeight = 13
      TabOrder = 6
    end
    object CheckBox1: TCheckBox
      Left = 482
      Top = 28
      Width = 97
      Height = 17
      Caption = #25353#36131#20219#37096#38376
      TabOrder = 7
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 96
    Width = 983
    Height = 549
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    ImeName = 'itABC v5.30'
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Cut_date'
        Footers = <>
        Title.Caption = #25187#27454#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'Cuteder'
        Footers = <>
        Title.Caption = #25187#27454#20154
        Width = 106
      end
      item
        EditButtons = <>
        FieldName = 'Cut_Money'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #25187#27454#37329#39069
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'hth'
        Footer.DisplayFormat = '0'#26465
        Footer.ValueType = fvtCount
        Footers = <>
        Title.Caption = #21512#21516#21495
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'buyer'
        Footers = <>
        Title.Caption = #21512#21516#21333#20301
        Width = 103
      end
      item
        EditButtons = <>
        FieldName = 'xh'
        Footers = <>
        Title.Caption = #22411#21495
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'sizes'
        Footers = <>
        Title.Caption = #35268#26684
        Width = 102
      end
      item
        EditButtons = <>
        FieldName = 'Plate'
        Footers = <>
        Title.Caption = #30005#38208#33394
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #22791#27880
        Width = 126
      end>
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 77
    Width = 983
    Height = 568
    Align = alClient
    TabOrder = 2
    object cxGrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DataSource1
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '0'#65509
          Kind = skSum
          FieldName = 'Cut_Money'
          Column = cxGrid1DBTableView1Cut_Money
        end
        item
          Kind = skSum
          FieldName = 'fid'
        end
        item
          Kind = skSum
          Position = spFooter
          FieldName = 'Cut_Money'
          Column = cxGrid1DBTableView1Cut_Money
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          OnGetText = cxGrid1DBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText
          FieldName = 'hth'
          Column = cxGrid1DBTableView1hth
        end
        item
          Format = '0'#65509
          Kind = skSum
          FieldName = 'Cut_Money'
          Column = cxGrid1DBTableView1Cut_Money
        end>
      DataController.Summary.SummaryGroups = <>
      Filtering.Position = fpTop
      Filtering.Visible = fvAlways
      OptionsBehavior.BestFitMaxRecordCount = 1
      OptionsCustomize.ColumnHiding = True
      OptionsView.Footer = True
      object cxGrid1DBTableView1id: TcxGridDBColumn
        DataBinding.FieldName = 'id'
        Visible = False
      end
      object cxGrid1DBTableView1fid: TcxGridDBColumn
        DataBinding.FieldName = 'fid'
        Visible = False
      end
      object cxGrid1DBTableView1hth: TcxGridDBColumn
        Caption = #21512#21516#21495
        DataBinding.FieldName = 'hth'
        Width = 100
      end
      object cxGrid1DBTableView1buyer: TcxGridDBColumn
        Caption = #21512#21516#21333#20301
        DataBinding.FieldName = 'buyer'
        Width = 100
      end
      object cxGrid1DBTableView1xh: TcxGridDBColumn
        Caption = #22411#21495
        DataBinding.FieldName = 'xh'
        Width = 100
      end
      object cxGrid1DBTableView1sizes: TcxGridDBColumn
        Caption = #35268#26684
        DataBinding.FieldName = 'sizes'
        Width = 100
      end
      object cxGrid1DBTableView1Plate: TcxGridDBColumn
        Caption = #38208#31181
        DataBinding.FieldName = 'Plate'
        Width = 100
      end
      object cxGrid1DBTableView1Cuteder: TcxGridDBColumn
        Caption = #25187#27454#20154
        DataBinding.FieldName = 'Cuteder'
        Width = 100
      end
      object cxGrid1DBTableView1Cut_Money: TcxGridDBColumn
        Caption = #25187#27454#37329#39069
        DataBinding.FieldName = 'Cut_Money'
        Width = 100
      end
      object cxGrid1DBTableView1Cut_date: TcxGridDBColumn
        Caption = #25187#27454#26102#38388
        DataBinding.FieldName = 'Cut_date'
        Width = 100
      end
      object cxGrid1DBTableView1Liable_dept: TcxGridDBColumn
        Caption = #36131#20219#37096#38376
        DataBinding.FieldName = 'Liable_dept'
        Width = 85
      end
      object cxGrid1DBTableView1remark: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'remark'
        Width = 200
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADODetail
    Left = 294
    Top = 346
  end
  object ADODetail: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CcSlipFile_Detail where 1=0')
    Left = 298
    Top = 285
    object ADODetailids: TBCDField
      FieldName = 'ids'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADODetailfid: TBCDField
      FieldName = 'fid'
      Precision = 18
      Size = 0
    end
    object ADODetailhth: TStringField
      FieldName = 'hth'
      Size = 30
    end
    object ADODetailbuyer: TStringField