baseinfmain.~dfm

彩票销售系统

object baseinf_form: Tbaseinf_form
  Left = 1
  Top = 151
  Width = 798
  Height = 375
  Caption = #22522#26412#20449#24687#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 = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 790
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 790
    Height = 33
    ButtonHeight = 29
    Caption = 'ToolBar1'
    TabOrder = 1
    object BitBtn3: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 29
      Caption = #36864#20986
      TabOrder = 0
      Kind = bkClose
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 790
    Height = 296
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 553
      Top = 1
      Height = 294
    end
    object BaseInf_DBGrid: TDBGrid
      Left = 1
      Top = 1
      Width = 552
      Height = 294
      Align = alLeft
      DataSource = baseinf_d
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnMouseDown = BaseInf_DBGridMouseDown
      OnMouseUp = BaseInf_DBGridMouseDown
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FTranName'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20107#21153#21517#31216
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FQuitCorpus'
          Title.Alignment = taCenter
          Title.Caption = #36864#26412#37329#26631#24535
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FLossRatio'
          Title.Alignment = taCenter
          Title.Caption = #20013#21518#22521#29575
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FWriteBillWin'
          Title.Alignment = taCenter
          Title.Caption = #20889#21333#36153#36194'(%)'
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FWriteBillLoss'
          Title.Alignment = taCenter
          Title.Caption = #20889#21333#36153#36755'(%)'
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FDivisor'
          Title.Alignment = taCenter
          Title.Caption = #38500#25968
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FVisibleBz'
          Title.Alignment = taCenter
          Title.Caption = #36215#29992#26631#24535
          Visible = False
        end>
    end
    object DBGrid1: TDBGrid
      Left = 556
      Top = 1
      Width = 233
      Height = 294
      Align = alClient
      DataSource = DataSource1
      PopupMenu = PopupMenu2
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FTranContent'
          Title.Alignment = taCenter
          Title.Caption = #20869#23481
          Visible = True
        end>
    end
  end
  object baseinf_q: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT FId, FTranType, FTranName, '
      
        '      case when FQuitCorpus=0 then '#39#19981#36864#26412#37329#39'  else '#39#36864#26412#37329#39'  end as FQ' +
        'uitCorpus , '
      '      FLossRatio, FWriteBillWin, FWriteBillLoss, FDivisor, '
      
        '      CASE WHEN FVisibleBz = 0 THEN '#39#26410#21551#29992#39' ELSE '#39#24050#21551#29992#39' END AS FVis' +
        'ibleBz'
      'FROM T_Base')
    Left = 288
    Top = 8
    object baseinf_qFId: TAutoIncField
      FieldName = 'FId'
      ReadOnly = True
    end
    object baseinf_qFTranType: TIntegerField
      FieldName = 'FTranType'
    end
    object baseinf_qFTranName: TStringField
      FieldName = 'FTranName'
      Size = 50
    end
    object baseinf_qFQuitCorpus: TStringField
      FieldName = 'FQuitCorpus'
      ReadOnly = True
      Size = 8
    end
    object baseinf_qFLossRatio: TBCDField
      FieldName = 'FLossRatio'
      Precision = 18
      Size = 2
    end
    object baseinf_qFWriteBillWin: TBCDField
      FieldName = 'FWriteBillWin'
      Precision = 18
      Size = 2
    end
    object baseinf_qFWriteBillLoss: TBCDField
      FieldName = 'FWriteBillLoss'
      Precision = 18
      Size = 2
    end
    object baseinf_qFDivisor: TBCDField
      FieldName = 'FDivisor'
      Precision = 18
    end
    object baseinf_qFVisibleBz: TStringField
      FieldName = 'FVisibleBz'
      ReadOnly = True
      Size = 6
    end
  end
  object baseinf_d: TDataSource
    DataSet = baseinf_q
    Left = 248
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 145
    object N1: TMenuItem
      Caption = #20107#21153#36864#26412#37329
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20107#21153#19981#36864#26412#37329
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #20107#21153#21551#29992
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #20107#21153#31105#29992
      OnClick = N5Click
    end
  end
  object editbase: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 328
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 560
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_BaseEntry')
    Left = 592
    Top = 8
    object ADOQuery1FTBaseId: TAutoIncField
      FieldName = 'FTBaseId'
      ReadOnly = True
    end
    object ADOQuery1FTranType: TIntegerField
      FieldName = 'FTranType'
    end
    object ADOQuery1FTranContent: TIntegerField
      FieldName = 'FTranContent'
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 632
    Top = 97
    object N6: TMenuItem
      Caption = #21024#38500
      OnClick = N6Click
    end
  end
end