printxh.dfm

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

inherited frmprintxh: Tfrmprintxh
  Left = 196
  Top = 157
  Width = 859
  Height = 558
  Caption = #25171#21360#26032#22411#21495
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 441
    Top = 49
    Height = 482
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 851
    Height = 49
    Align = alTop
    TabOrder = 0
    object lbl1: TLabel
      Left = 19
      Top = 14
      Width = 39
      Height = 13
      Caption = #23458#25143#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object lbl2: TLabel
      Left = 186
      Top = 15
      Width = 39
      Height = 13
      Caption = #26085#26399#65306
    end
    object lbl3: TLabel
      Left = 347
      Top = 16
      Width = 13
      Height = 13
      Caption = #33267
    end
    object cbb1: TComboBox
      Left = 58
      Top = 11
      Width = 111
      Height = 21
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      Text = #20116#37329
      Items.Strings = (
        #20116#37329
        #21512#37329)
    end
    object dtp1: TDateTimePicker
      Left = 230
      Top = 13
      Width = 106
      Height = 21
      Date = 39343.465356689810000000
      Time = 39343.465356689810000000
      TabOrder = 1
    end
    object dtp2: TDateTimePicker
      Left = 373
      Top = 12
      Width = 113
      Height = 21
      Date = 39343.465438252310000000
      Time = 39343.465438252310000000
      TabOrder = 2
    end
    object btnselect: TBitBtn
      Left = 517
      Top = 11
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = btnselectClick
    end
    object btnprint: TBitBtn
      Left = 619
      Top = 11
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 4
      OnClick = btnprintClick
    end
    object btnclose: TBitBtn
      Left = 716
      Top = 10
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 5
      OnClick = btncloseClick
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 49
    Width = 441
    Height = 482
    Align = alLeft
    ColumnDefValues.Title.TitleButton = True
    DataSource = ds1
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghEnterAsTab, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
    ReadOnly = True
    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 = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'xh'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'sizes'
        Footer.DisplayFormat = '0'#26465
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'sh_remark'
        Footers = <>
        Title.Caption = #30005#38208#32534#21495
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'sh'
        Footers = <>
        Title.Caption = #30005#38208#39068#33394
        Width = 100
      end>
  end
  object DBMemo1: TDBMemo
    Left = 444
    Top = 49
    Width = 407
    Height = 482
    Align = alClient
    DataField = 'remark'
    DataSource = ds2
    ReadOnly = True
    TabOrder = 2
  end
  object qry2: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'date1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'date2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select a.xh,replace(a.sizes,'#39'/'#39','#39#39') sizes,replace(a.sh_remark,'#39'/' +
        #39','#39#39') sh_remark,b.fcolor sh,c.remark from lh_alloy.dbo.orderdeta' +
        'il a ,lh_alloy.dbo.tcolor b,lh_alloy.dbo.orderform c where a.sh_' +
        'remark=b.fsh and a.Form_Jlh=c.jlh and a.xh like '#39'%'#26032'%'#39' and a.save' +
        'date>=:date1 and a.savedate<:date2')
    Left = 109
    Top = 241
    object qry2xh: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 30
      FieldName = 'xh'
      Size = 50
    end
    object qry2sizes: TStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 12
      FieldName = 'sizes'
      Size = 50
    end
    object qry2sh: TStringField
      FieldName = 'sh'
      Size = 50
    end
    object qry2remark: TMemoField
      FieldName = 'remark'
      BlobType = ftMemo
    end
  end
  object qry1: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'date1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'date2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select distinct a.xh,replace(a.sizes,'#39'/'#39','#39#39') sizes,replace(a.sh_' +
        'remark,'#39'/'#39','#39#39') sh_remark,b.fcolor sh,'#39#39' remark from lh_fivemetal' +
        's.dbo.orderdetail a ,lh_fivemetals.dbo.tcolor b '
      
        'where a.sh_remark=b.fsh  and ltrim(a.xh)+rtrim(ltrim(replace(a.s' +
        'izes,'#39'/'#39','#39#39')))+rtrim(ltrim(replace(a.sh_remark,'#39'/'#39','#39#39')))+rtrim(b' +
        '.fcolor) not in (select ltrim(xh)+rtrim(ltrim(sizes))+rtrim(ltri' +
        'm(plate_no))+rtrim(plate) from ccmodel_remark ) and a.savedate>=' +
        ':date1 and a.savedate<:date2'
      '')
    Left = 109
    Top = 172
    object qry1xh2: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 30
      FieldName = 'xh'
      Size = 50
    end
    object qry1sizes2: TStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 12
      FieldName = 'sizes'
      Size = 50
    end
    object qry1sh_remark: TStringField
      FieldName = 'sh_remark'
      ReadOnly = True
      Size = 8000
    end
    object qry1sh2: TStringField
      DisplayLabel = #33394#21495
      DisplayWidth = 20
      FieldName = 'sh'
      Size = 50
    end
    object qry1remark: TStringField
      FieldName = 'remark'
      ReadOnly = True
      Size = 0
    end
  end
  object ds1: TDataSource
    AutoEdit = False
    DataSet = qry1
    Left = 179
    Top = 170
  end
  object ds2: TDataSource
    AutoEdit = False
    DataSet = qry2
    Left = 180
    Top = 239
  end
  object frxReport1: TfrxReport
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    ReportOptions.CreateDate = 39345.445077395800000000
    ReportOptions.LastChange = 39345.445077395800000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 264
    Top = 168
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 215.900000000000000000
      PaperHeight = 279.400000000000000000
      PaperSize = 1
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Columns = 2
      ColumnWidth = 95.000000000000000000
      ColumnPositions.Strings = (
        '0'
        '95')