periodset.~dfm

彩票销售系统

object PreadSetForm: TPreadSetForm
  Left = 295
  Top = 219
  Width = 333
  Height = 132
  BorderIcons = []
  Caption = #26399#21495#35774#32622
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 96
    Height = 12
    Caption = #35831#24405#20837#24403#21069#26399#21495#65306
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 86
    Width = 325
    Height = 19
    Panels = <
      item
        Text = #26399#21495#26684#24335#20026'(YYYY+XXX)YYYY'#34920#31034#24180#20221'XXX'#34920#31034#26399#21495#22914'2005001'
        Width = 2000
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 325
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 22
      Caption = #20445#23384
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 75
      Top = 2
      Width = 75
      Height = 22
      Caption = #36864#20986
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkClose
    end
  end
  object Edit1: TEdit
    Left = 109
    Top = 44
    Width = 188
    Height = 20
    BevelEdges = [beTop, beRight, beBottom]
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'Set_SalePeriod;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@FSalePeriod'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end>
    Left = 168
  end
  object periodsetq: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 200
  end
end