slip_print.dfm

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

inherited frmSlip_Print: TfrmSlip_Print
  Left = 186
  Top = 145
  Width = 1009
  Height = 582
  Caption = #20107#25925#25187#27454#26597#35810#25171#21360
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1001
    Height = 73
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 28
      Width = 65
      Height = 13
      Caption = #20107#25925#26085#26399#65306
    end
    object Label2: TLabel
      Left = 204
      Top = 27
      Width = 13
      Height = 13
      Caption = #33267
    end
    object Label25: TLabel
      Left = 348
      Top = 28
      Width = 52
      Height = 13
      Caption = #20135#21697#32447#65306
    end
    object DateTimePicker1: TDateTimePicker
      Left = 75
      Top = 23
      Width = 117
      Height = 21
      Date = 39342.647037754630000000
      Time = 39342.647037754630000000
      ImeName = 'itABC v5.30'
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 227
      Top = 23
      Width = 117
      Height = 21
      Date = 39342.647045532410000000
      Time = 39342.647045532410000000
      ImeName = 'itABC v5.30'
      TabOrder = 1
    end
    object Button1: TButton
      Left = 533
      Top = 23
      Width = 75
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 2
      OnClick = Button1Click
    end
    object GroupBox1: TGroupBox
      Left = 613
      Top = 8
      Width = 213
      Height = 54
      Caption = #20998#31867#21035#25171#21360
      TabOrder = 3
      object RadioButton1: TRadioButton
        Left = 5
        Top = 23
        Width = 72
        Height = 17
        Caption = #25353#26126#32454
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 67
        Top = 22
        Width = 70
        Height = 17
        Caption = #25353#20998#32452
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 133
        Top = 22
        Width = 76
        Height = 17
        Caption = #25353#36131#20219#20154
        TabOrder = 2
      end
    end
    object Button2: TButton
      Left = 835
      Top = 26
      Width = 75
      Height = 22
      Caption = #25171'  '#21360
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 921
      Top = 25
      Width = 75
      Height = 25
      Caption = #20851'  '#38381
      TabOrder = 5
      OnClick = Button3Click
    end
    object ComboBox1: TComboBox
      Left = 398
      Top = 24
      Width = 127
      Height = 21
      ItemHeight = 13
      TabOrder = 6
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 73
    Width = 1001
    Height = 482
    Align = alClient
    TabOrder = 1
    object cxGrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = DataDetail
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '0.00'#65509
          Kind = skSum
          FieldName = 'Direct_losing'
          Column = cxGrid1DBTableView1Direct_losing
        end
        item
          Format = '0.00'#65509
          Kind = skSum
          FieldName = 'Sum_losing'
          Column = cxGrid1DBTableView1Sum_losing
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          OnGetText = cxGrid1DBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText
          FieldName = 'dates'
          Column = cxGrid1DBTableView1dates
        end
        item
          Format = '0'#31890
          Kind = skSum
          FieldName = 'Amount'
          Column = cxGrid1DBTableView1Amount
        end
        item
          Format = '0Kg'
          Kind = skSum
          FieldName = 'Weight'
          Column = cxGrid1DBTableView1Weight
        end
        item
          Format = '0.00'#65509
          Kind = skSum
          FieldName = 'Direct_losing'
          Column = cxGrid1DBTableView1Direct_losing
        end
        item
          Format = '0.00'#65509
          Kind = skSum
          FieldName = 'Sum_losing'
          Column = cxGrid1DBTableView1Sum_losing
        end>
      DataController.Summary.SummaryGroups = <>
      Filtering.Position = fpTop
      Filtering.Visible = fvAlways
      OptionsView.Footer = True
      object cxGrid1DBTableView1ID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Visible = False
      end
      object cxGrid1DBTableView1dates: TcxGridDBColumn
        Caption = #20107#25925#26085#26399
        DataBinding.FieldName = 'dates'
      end
      object cxGrid1DBTableView1hth: TcxGridDBColumn
        Caption = #21512#21516#21495
        DataBinding.FieldName = 'hth'
        Width = 71
      end
      object cxGrid1DBTableView1buyer: TcxGridDBColumn
        Caption = #21512#21516#21333#20301
        DataBinding.FieldName = 'buyer'
        Width = 105
      end
      object cxGrid1DBTableView1xh: TcxGridDBColumn
        Caption = #22411#21495
        DataBinding.FieldName = 'xh'
        Width = 80
      end
      object cxGrid1DBTableView1sizes: TcxGridDBColumn
        Caption = #35268#26684
        DataBinding.FieldName = 'sizes'
        Width = 67
      end
      object cxGrid1DBTableView1Plate: TcxGridDBColumn
        Caption = #30005#38208#39068#33394
        DataBinding.FieldName = 'Plate'
        Width = 82
      end
      object cxGrid1DBTableView1Liabler: TcxGridDBColumn
        Caption = #36131#20219#20154
        DataBinding.FieldName = 'Liabler'
        Width = 78
      end
      object cxGrid1DBTableView1Slip_text: TcxGridDBColumn
        Caption = #20107#25925#20869#23481
        DataBinding.FieldName = 'Slip_text'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        Width = 198
      end
      object cxGrid1DBTableView1images: TcxGridDBColumn
        Caption = #20107#25925#22270#29255
        DataBinding.FieldName = 'images'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekPict
        Properties.PictureGraphicClassName = 'TJPEGImage'
      end
      object cxGrid1DBTableView1Weight: TcxGridDBColumn
        Caption = #37325#37327
        DataBinding.FieldName = 'Weight'
        Width = 74
      end
      object cxGrid1DBTableView1Grain: TcxGridDBColumn
        Caption = #27599#20844#26020#31890#25968
        DataBinding.FieldName = 'Grain'
        Width = 76
      end
      object cxGrid1DBTableView1Amount: TcxGridDBColumn
        Caption = #25968#37327
        DataBinding.FieldName = 'Amount'
        Width = 67
      end
      object cxGrid1DBTableView1product_line: TcxGridDBColumn
        Caption = #20135#21697#32447
        DataBinding.FieldName = 'product_line'
        Width = 72
      end
      object cxGrid1DBTableView1Liable_dept: TcxGridDBColumn
        Caption = #36131#20219#37096#38376
        DataBinding.FieldName = 'Liable_dept'
        Width = 80
      end
      object cxGrid1DBTableView1technics: TcxGridDBColumn
        Caption = #24037#24207
        DataBinding.FieldName = 'technics'
        Width = 83
      end
      object cxGrid1DBTableView1working_procedure: TcxGridDBColumn
        Caption = #32452#21035
        DataBinding.FieldName = 'working_procedure'
        Width = 79
      end
      object cxGrid1DBTableView1machine_No: TcxGridDBColumn
        Caption = #26426#21495
        DataBinding.FieldName = 'machine_No'
        Width = 67
      end
      object cxGrid1DBTableView1Direct_losing: TcxGridDBColumn
        Caption = #30452#25439#37329#39069
        DataBinding.FieldName = 'Direct_losing'
        Width = 83
      end
      object cxGrid1DBTableView1Sum_losing: TcxGridDBColumn
        Caption = #24635#25439#37329#39069
        DataBinding.FieldName = 'Sum_losing'
        Width = 87
      end
      object cxGrid1DBTableView1Up_date: TcxGridDBColumn
        Caption = #19978#20132#26085#26399
        DataBinding.FieldName = 'Up_date'
        Width = 131
      end
      object cxGrid1DBTableView1Manage: TcxGridDBColumn
        Caption = #22788#29702#26041#27861
        DataBinding.FieldName = 'Manage'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        Width = 144
      end
      object cxGrid1DBTableView1Checker: TcxGridDBColumn
        Caption = #26816#39564#21592
        DataBinding.FieldName = 'Checker'
        Width = 66
      end
      object cxGrid1DBTableView1remark: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'remark'
        Width = 157
      end
      object cxGrid1DBTableView1inputer: TcxGridDBColumn
        Caption = #24405#20837#32773
        DataBinding.FieldName = 'inputer'
        Width = 100
      end
      object cxGrid1DBTableView1savedate: TcxGridDBColumn
        Caption = #20445#23384#26085#26399
        DataBinding.FieldName = 'savedate'
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object ADODetail: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'a'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'b'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'c'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'select * from CcSlipFile where dates>=:a and dates<=:b  and prod' +
        'uct_line=:c and remark not like '#39'%'#36864#22238'%'#39)
    Left = 478
    Top = 240
    object ADODetailID: TBCDField
      FieldName = 'ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADODetaildates: TDateTimeField
      FieldName = 'dates'
    end
    object ADODetailhth: TStringField
      FieldName = 'hth'
      Size = 30
    end
    object ADODetailbuyer: TStringField
      FieldName = 'buyer'
      Size = 30
    end
    object ADODetailxh: TStringField
      FieldName = 'xh'
      Size = 30
    end
    object ADODetailsizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object ADODetailPlate: TStringField
      FieldName = 'Plate'
      Size = 30
    end
    object ADODetailWeight: TBCDField
      FieldName = 'Weight'
      Precision = 18
      Size = 0
    end
    object ADODetailGrain: TBCDField
      FieldName = 'Grain'
      Precision = 18
      Size = 0