reportbase.dfm

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

object frmReportBase: TfrmReportBase
  Left = 431
  Top = 241
  Width = 322
  Height = 214
  Caption = '/'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 314
    Height = 187
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 313
      Height = 185
      TabOrder = 0
      object Label1: TLabel
        Left = 40
        Top = 40
        Width = 59
        Height = 13
        Caption = #36755#20837#26376#20221':'
      end
      object Button1: TButton
        Left = 32
        Top = 121
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 0
      end
      object Button2: TButton
        Left = 224
        Top = 121
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 1
        OnClick = Button2Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 120
        Top = 40
        Width = 137
        Height = 21
        Date = 38348.629329236110000000
        Time = 38348.629329236110000000
        TabOrder = 2
      end
      object Button3: TButton
        Left = 128
        Top = 121
        Width = 75
        Height = 25
        Caption = #23548#20986'Excel'
        TabOrder = 3
        OnClick = Button3Click
      end
    end
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOStoredProc1
    Left = 272
    Top = 8
  end
  object ADOStoredProc1: TADOStoredProc
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    ProcedureName = 'pSemiInOut;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@enddate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end>
    Left = 232
    Top = 8
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    StoreInDFM = True
    RebuildPrinter = False
    Left = 192
    Top = 8
    ReportForm = {
      1900000050000000190000000016005C5C6378685C4850204C617365724A6574
      203130323000FEFEFF000000000000000000000000FC00000000000000000000
      00000000000058001BF3752352BCE240CA8A3027D5ECE240}
  end
end