dangerdatalist.~dfm

彩票销售系统

object DangerDataListForm: TDangerDataListForm
  Left = 166
  Top = 176
  Width = 734
  Height = 376
  Caption = #39118#38505#25968#25454#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 265
    Top = 29
    Height = 301
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 330
    Width = 726
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 726
    Height = 29
    ButtonHeight = 25
    Caption = 'ToolBar1'
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      Kind = bkClose
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 265
    Height = 301
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 2
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 263
      Height = 64
      Align = alTop
      Caption = 'Panel3'
      TabOrder = 0
      object GroupBox3: TGroupBox
        Left = 1
        Top = 1
        Width = 261
        Height = 62
        Align = alClient
        Caption = #39118#38505#20540#24405#20837#65306
        TabOrder = 0
        object Label1: TLabel
          Left = 9
          Top = 30
          Width = 48
          Height = 13
          Caption = #24179#22343#20540#65306
        end
        object Edit1: TEdit
          Left = 59
          Top = 25
          Width = 177
          Height = 24
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnKeyPress = Edit1KeyPress
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 65
      Width = 263
      Height = 235
      Align = alClient
      Caption = 'Panel4'
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 261
        Height = 233
        Align = alClient
        Caption = #20027#39118#38505#65306
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 257
          Height = 216
          Align = alClient
          Color = clWhite
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrid1DrawColumnCell
          OnMouseUp = DBGrid1MouseUp
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'NumberNO'
              Title.Alignment = taCenter
              Title.Caption = #21495#30721
              Width = 50
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'NumberMoney'
              Title.Alignment = taCenter
              Title.Caption = #21495#30721#37329#39069
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DangerMoney'
              Title.Alignment = taCenter
              Title.Caption = #36194#20111#37329#39069
              Width = 120
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 268
    Top = 29
    Width = 458
    Height = 301
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 3
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 456
      Height = 299
      Align = alClient
      Caption = #39118#38505#26126#32454#65306
      TabOrder = 0
      object DBGrid2: TDBGrid
        Left = 2
        Top = 15
        Width = 452
        Height = 282
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid2DrawColumnCell
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'NumberNOEntry'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #26126#32454#21495
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'NumberMoney'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #26126#32454#21495#37329#39069
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'NumberRatio'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #20013#21518#37329#39069
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'InMoney'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #21097#20313#37329#39069
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'DangerMoney'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #36194#20111#37329#39069
            Width = 80
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = dangerdatelistsp
    Left = 248
  end
  object DataSource2: TDataSource
    DataSet = DangerEntry
    Left = 352
  end
  object DangerEntry: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Danger_NumberEntry')
    Left = 384
    object DangerEntryNumberNO: TIntegerField
      FieldName = 'NumberNO'
    end
    object DangerEntryNumberNOEntry: TIntegerField
      FieldName = 'NumberNOEntry'
    end
    object DangerEntryNumberMoney: TBCDField
      FieldName = 'NumberMoney'
      Precision = 19
    end
    object DangerEntryNumberRatio: TBCDField
      FieldName = 'NumberRatio'
      Precision = 19
    end
    object DangerEntryOutMoney: TBCDField
      FieldName = 'OutMoney'
      Precision = 19
    end
    object DangerEntryInMoney: TBCDField
      FieldName = 'InMoney'
      Precision = 19
    end
    object DangerEntryDangerMoney: TBCDField
      FieldName = 'DangerMoney'
      Precision = 19
    end
  end
  object dangerdatelistsp: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 296
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'Danger_Number_Assay_Dial;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
      end
      item
        Name = '@FSalePeriod'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
      end
      item
        Name = '@InAvgMOney'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
      end>
    Left = 416
  end
end