calmquery.dfm

彩票销售系统

                Title.Alignment = taCenter
                Title.Caption = #37329#39069
                Width = 50
                Visible = True
              end>
          end
        end
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 198
      Width = 787
      Height = 276
      Align = alClient
      Caption = 'Panel6'
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 785
        Height = 274
        Align = alClient
        Caption = #20108#20013#20108'/'#19977#20013#19977#25968#25454#65306
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 781
          Height = 257
          Align = alClient
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FWorkType'
              Title.Alignment = taCenter
              Title.Caption = #25805#20316#26041#24335
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FTranName'
              Title.Alignment = taCenter
              Title.Caption = #20107#21153#21517#31216
              Width = 60
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FAminalNo'
              Title.Alignment = taCenter
              Title.Caption = #25805#20316#20869#23481
              Width = 240
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FPrice'
              Title.Alignment = taCenter
              Title.Caption = #21333#20215
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FMoney'
              Title.Alignment = taCenter
              Title.Caption = #37329#39069
              Width = 120
              Visible = True
            end>
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 504
    Width = 789
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 789
    Height = 29
    ButtonHeight = 25
    Caption = 'ToolBar1'
    TabOrder = 2
    object BitBtn4: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 25
      Caption = '1-6'#25171#21360
      TabOrder = 3
      OnClick = BitBtn4Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F000000604D604D604D604D604D604D524A524A524A524A524A524A524A
        FF7FFF7FFF7F604D527F0D7F0D7F0D7F4A5E604D604D604D604D524A524A524A
        524AFF7FFF7F604D527F527F527F0D7F0D7F4A5E4A5E4A5E4A5E604D604D604D
        524A524AFF7FFF7F604D527F527F527F0D7F0D7F4A5E4A5E4A5E4A5E4A5E604D
        524A524AFF7FFF7F604D977F00000000000000000D7F000000004A5E4A5E604D
        604D524A524AFF7F604D977F977F527F527F527F0D7F0D7F0D7F4A5E4A5E4A5E
        604D524A524AFF7F604D977F977F00000000527F00000000000000000D7F4A5E
        604D524A524AFF7FFF7F604D977F977F977F527F527F527F0D7F0D7F0D7F0D7F
        604D524A524AFF7FFF7F604D977F0000000000000000527F0000000000000D7F
        604D524A524AFF7FFF7F604D977F977F977F977F977F527F527F527F527F0D7F
        0D7F604D524AFF7FFF7F604DFF7F00000000977F0000977F000000000000527F
        0D7F604D524AFF7FFF7F604DFF7F977F977F977F977F977F977F977F527F527F
        527F604DFF7FFF7FFF7F604DFF7FFF7F977F977F0000B15AB15AB15AB15A977F
        527F604DFF7FFF7FFF7F604DFF7FFF7FFF7FFF7F977F0000977FB15AB15A977F
        977F604DFF7FFF7FFF7F604D604D604D604D604D604D604D00000000604D604D
        604D604DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7F
        FF7FFF7FFF7F}
    end
    object BitBtn1: TBitBtn
      Left = 75
      Top = 2
      Width = 81
      Height = 25
      Caption = #29305#20018#25171#21360
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F000000FF7FFF7FFF7F630C630C630CFF7FFF7FFF7FFF7FC618C618630C
        FF7FFF7FFF7FFF7F630C630C104210424A29630C630CFF7FC618524A18631863
        630C630CFF7F630C10421042EF3D10424A29524A524A630C524AD65AD65AD65A
        18631863630C630CEF3DEF3DEF3D10424A29524A524AC618EF3DD65AD65AD65A
        D65A524AC618630CEF3D104210428C31D65A734E734EE71CE71CEF3DEF3DD65A
        524AC618FF7F630CEF3DAD35AD35524A524A1863D65A734E734EE71CE71CEF3D
        C618630C630CFF7F630C1042524A524A630C630C10421863D65A734E734EE71C
        524A524A630CFF7FFF7F630C630C1042C618D65A630C630C10421863D65A734E
        734E524A630CFF7FFF7FFF7FFF7FC6187B6F7B6FD65AD65A630C630C524A1863
        D65A734E630CFF7FFF7FFF7FFF7FC618DE7BDE7B7B6F7B6FD65AC618524AE002
        524A630CFF7FFF7FFF7FFF7FC618DE7BDE7BDE7BDE7B7B6FC6181042297D630C
        630CFF7FFF7FFF7FFF7FFF7FC618DE7BDE7BDE7BDE7BDE7BC618630C630CFF7F
        FF7FFF7FFF7FFF7FFF7FC618DE7BDE7BDE7BDE7BDE7BC618FF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FC618DE7BDE7BDE7BDE7BDE7BC618FF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FC618C618DE7BDE7BC618FF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FC618C618C618FF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7F}
    end
    object BitBtn3: TBitBtn
      Left = 156
      Top = 2
      Width = 94
      Height = 25
      Caption = #20108#12289#19977#25171#21360
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F000000FF7FFF7F0000FF7F00000000CC3D83180000FF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FC41C8E6E8318767F8E6E8B39347BC94D0000FF7FFF7FFF7F
        FF7FFF7FFF7F0000E71C767F8E6E8B39767F8E6E8B39347B8318C618FF7FFF7F
        FF7FFF7FFF7FCC3D8E6E8B39767F8E6E8B39767F26318C3118638C31C6180000
        FF7FFF7FFF7F0000D45E8E6E8B39767F26318C3118637B6F7B6F8C3139670000
        FF7FFF7FFF7FFF7F0000D45E2631AD3518637B6FFF7FFF7F7B6F8C3118638318
        0000FF7FFF7FFF7FFF7F00005A6B7B6FFF7FFF7FFF7FFF7F7B6F8C3118636739
        C94D0000FF7FFF7FFF7F0000B556FF7FFF7FFF7FFF7FFF7F7B6F8C311863893D
        F17AC94D0000FF7FFF7F0000B556FF7FFF7FFF7FFF7FFF7F7B6F8C311863893D
        337FCF720000FF7F00000000B556FF7FFF7FFF7FFF7FF75ED65AC6181863893D
        997F83180000FF7F67396739B556FF7FFF7FF75EB556AD356B2DB556734EE71C
        0000FF7FFF7FFF7FC41CC41CB556F75E8A5E267F630CD65A3146C6180000FF7F
        FF7FFF7FFF7FFF7FFF7F00006A7B267F267F837F833D833D0000FF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7F0000837F837FE03D833D647FC13DFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7F0000E03DE01C647FC15EE01C0000FF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FE03DE03D0000FF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7F}
    end
    object BitBtn2: TBitBtn
      Left = 250
      Top = 2
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = BitBtn2Click
      Kind = bkClose
    end
  end
  object OneSixListSp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'SaleOneSix_Total;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 = '@ClientId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 600
  end
  object twothere_sp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    ProcedureName = 'TwoThere_List;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@FSalePeriod'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = '2005001'
      end
      item
        Name = '@ClientId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    Left = 536
    object twothere_spFSalePeriod: TStringField
      FieldName = 'FSalePeriod'
      Size = 9
    end
    object twothere_spFClientId: TIntegerField
      FieldName = 'FClientId'
    end
    object twothere_spFTranType: TIntegerField
      FieldName = 'FTranType'
    end
    object twothere_spFWorkType: TStringField
      FieldName = 'FWorkType'
      ReadOnly = True
      Size = 4
    end
    object twothere_spFAminalNo: TStringField
      FieldName = 'FAminalNo'
      Size = 125
    end
    object twothere_spFPrice: TBCDField
      FieldName = 'FPrice'
      Precision = 19
    end
    object twothere_spFMoney: TBCDField
      FieldName = 'FMoney'
      Precision = 19
    end
    object twothere_spFTranName: TStringField
      FieldName = 'FTranName'
      Size = 50
    end
  end
  object NumberTotal_sp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'SaleNumber_Total;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 = '@WorkType'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 704
  end
  object SpyBunch_Sp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    ProcedureName = 'SpyBunch_RandamBump_List;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@FSalePeriod'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = '2005006'
      end
      item
        Name = '@ClientId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end>
    Left = 456
    object SpyBunch_SpFSalePeriod: TStringField
      FieldName = 'FSalePeriod'
      Size = 9
    end
    object SpyBunch_SpFClientId: TIntegerField
      FieldName = 'FClientId'
    end
    object SpyBunch_SpFTranType: TIntegerField
      FieldName = 'FTranType'
    end
    object SpyBunch_SpFWorkType: TStringField
      FieldName = 'FWorkType'
      ReadOnly = True
      Size = 4
    end
    object SpyBunch_SpFAminalNo: TStringField
      FieldName = 'FAminalNo'
      Size = 255
    end
    object SpyBunch_SpFPrice: TBCDField
      FieldName = 'FPrice'
      Precision = 19
    end
    object SpyBunch_SpFMoney: TBCDField
      FieldName = 'FMoney'
      Precision = 19
    end
    object SpyBunch_SpFTranName: TStringField
      FieldName = 'FTranName'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = twothere_sp
    Left = 488
  end
  object DataSource2: TDataSource
    DataSet = SpyBunch_Sp
    Left = 632
  end
  object OneSix_Save: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 360
    Top = 2
  end
end