uhzqd2.~dfm

相关的销售服务管理行业的一个软件

        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBF7F00007F00007F00
        007F00007F00007F0000BFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F00000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F00000000FFFFFFFFFFFFFFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000
        0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      Layout = blGlyphTop
      OnClick = SpeedButton5Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 536
    Height = 41
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 48
      Height = 12
      Caption = '定位查找'
    end
    object Label2: TLabel
      Left = 296
      Top = 16
      Width = 36
      Height = 12
      Caption = 'Label2'
    end
    object Edit1: TEdit
      Left = 92
      Top = 11
      Width = 121
      Height = 20
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 86
    Width = 536
    Height = 262
    Align = alClient
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnTitleClick = DBGridEh1TitleClick
    FooterRowCount = 1
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clBackground
    Columns = <
      item
        FieldName = 'nGoodName'
        Footers = <>
      end
      item
        FieldName = 'ncolor'
        Footers = <>
      end
      item
        FieldName = 'ncus1'
        Footers = <>
      end
      item
        FieldName = 'ncus2'
        Footers = <>
      end
      item
        FieldName = 'ncus3'
        Footers = <>
      end
      item
        FieldName = 'ncus4'
        Footers = <>
      end
      item
        FieldName = 'ncus5'
        Footers = <>
      end
      item
        FieldName = 'ncus6'
        Footers = <>
      end
      item
        FieldName = 'ncus7'
        Footers = <>
      end
      item
        FieldName = 'ncus8'
        Footers = <>
      end
      item
        FieldName = 'ncus9'
        Footers = <>
      end
      item
        FieldName = 'ncus10'
        Footers = <>
      end
      item
        FieldName = 'ncus11'
        Footers = <>
      end
      item
        FieldName = 'ncus12'
        Footers = <>
      end
      item
        FieldName = 'ncus13'
        Footers = <>
      end
      item
        FieldName = 'ncus14'
        Footers = <>
      end
      item
        FieldName = 'ncus15'
        Footers = <>
      end
      item
        FieldName = 'nFsJine'
        Footers = <>
      end
      item
        FieldName = 'nFsCount'
        Footers = <>
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOStoredProc1
    Left = 280
    Top = 10
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = GB2312_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = '宋体'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = GB2312_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -12
    PageHeader.Font.Name = '宋体'
    PageHeader.Font.Style = []
    Units = MM
    Left = 320
    Top = 10
  end
  object ADOStoredProc1: TADOStoredProc
    Active = True
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltReadOnly
    OnCalcFields = ADOStoredProc1CalcFields
    ProcedureName = 'goodscxck;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@nDate1'
        Attributes = [paSigned, paNullable, paLong]
        DataType = ftString
        Size = 15
        Value = '2002-04-17'
      end
      item
        Name = '@nDate2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 15
        Value = '2002-04-17'
      end>
    Prepared = True
    Left = 352
    Top = 5
  end
end