openprixrecord.~dfm

彩票销售系统

          TabOrder = 2
          OnKeyPress = Edit4KeyPress
        end
        object Edit5: TEdit
          Left = 216
          Top = 36
          Width = 65
          Height = 24
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnKeyPress = Edit5KeyPress
        end
        object Edit6: TEdit
          Left = 280
          Top = 36
          Width = 65
          Height = 24
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
          OnKeyPress = Edit6KeyPress
        end
        object Edit7: TEdit
          Left = 344
          Top = 36
          Width = 65
          Height = 24
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          OnKeyPress = Edit7KeyPress
        end
        object Edit8: TEdit
          Left = 425
          Top = 36
          Width = 62
          Height = 24
          Anchors = []
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
          OnKeyPress = Edit8KeyPress
        end
        object BitBtn1: TBitBtn
          Left = 48
          Top = 66
          Width = 75
          Height = 25
          Caption = #21495#30721#20445#23384
          ModalResult = 1
          TabOrder = 7
          OnClick = BitBtn1Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object BitBtn2: TBitBtn
          Left = 384
          Top = 66
          Width = 75
          Height = 25
          Caption = #20013#22870#35745#31639
          TabOrder = 8
          OnClick = BitBtn2Click
          Kind = bkRetry
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 164
    Width = 787
    Height = 165
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 785
      Height = 163
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FSalePeriod'
          Title.Alignment = taCenter
          Title.Caption = #26399#21495
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumber1'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#19968
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer2'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#20108
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer3'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#19977
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer4'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#22235
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer5'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#20116
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer6'
          Title.Alignment = taCenter
          Title.Caption = #24179#30721#20845
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumBer7'
          Title.Alignment = taCenter
          Title.Caption = #29305#30721
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FNumberSum'
          Title.Alignment = taCenter
          Title.Caption = #24635#21644
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FSumBigBz'
          Title.Alignment = taCenter
          Title.Caption = #24635#21644#22823#23567
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FSumSingle'
          Title.Alignment = taCenter
          Title.Caption = #24635#21644#21333#21452
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = OpenRecord
    Left = 304
  end
  object PopupMenu1: TPopupMenu
    Left = 384
    Top = 65535
    object N1: TMenuItem
      Caption = #25968#25454#21024#38500
      OnClick = N1Click
    end
  end
  object OpenRecord: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT FSalePeriod, FNumber1, FNumBer2, FNumBer3, FNumBer4, FNum' +
        'Ber5, '
      '      FNumBer6, FNumBer7,FNumberSum, '
      
        '      CASE WHEN FSumBigBz = 1 THEN '#39#24635#21644#22823#39' ELSE '#39#24635#21644#23567#39' END AS FSumB' +
        'igBz, '
      
        '      CASE WHEN FSumSingle = 1 THEN '#39#24635#21644#21333#39' ELSE '#39#24635#21644#21452#39' END AS FSum' +
        'Single'
      'FROM T_OpenAward_Record'
      'order by FSalePeriod desc')
    Left = 344
  end
  object opensave_sp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'OpenPrix_Save;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
      item
        Name = '@OPenNumber'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ReturnError'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 255
        Value = Null
      end>
    Left = 416
  end
  object deleteRecordp: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 448
  end
  object recordassay: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'OpenPrix_Assay;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
      item
        Name = '@ReturnError'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 255
        Value = Null
      end>
    Left = 488
  end
end