⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 empinfset.~dfm

📁 彩票销售系统
💻 ~DFM
字号:
object emp_set_form: Temp_set_form
  Left = 6
  Top = 132
  Width = 783
  Height = 405
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#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
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 359
    Width = 775
    Height = 19
    Panels = <
      item
        Text = #24403#21069#29366#24577#65306
        Width = 60
      end
      item
        Text = #29992#25143#35774#32622
        Width = 50
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 775
    Height = 33
    ButtonHeight = 29
    Caption = 'ToolBar1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object BitBtn2: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 29
      Caption = #21592#24037#21551#29992
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkOK
    end
    object BitBtn3: TBitBtn
      Left = 75
      Top = 2
      Width = 75
      Height = 29
      Caption = #21592#24037#31105#29992
      TabOrder = 2
      OnClick = BitBtn3Click
      Kind = bkNo
    end
    object BitBtn4: TBitBtn
      Left = 150
      Top = 2
      Width = 75
      Height = 29
      Caption = #21551#29992#36864#26412
      TabOrder = 3
      OnClick = BitBtn4Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7F10420000000000001042FF7FFF7FFF7FFF7FFF7FFF7F1042
        00001042FF7F10420000E07FE07FE07F0000FF7FFF7FFF7FFF7FFF7FFF7F0000
        E07F0000FF7F0000FF7FE07F0000E07F00000000000000000000000000000000
        E07F000010420000FF7FE07F0000E07FE07FFF7FE07FFF7FE07FFF7FFF7FE07F
        FF7FE07F00000000FF7FE07F0000E07F00000000000000000000000000000000
        00000000104210420000FF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7F10420000000000001042FF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7F}
    end
    object BitBtn5: TBitBtn
      Left = 225
      Top = 2
      Width = 75
      Height = 29
      Caption = #31105#29992#36864#26412
      TabOrder = 4
      OnClick = BitBtn5Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7F8410841084108410841084108410841084108410
        FF7FFF7FFF7FFF7FFF7F84104162C572C46EA36A6266415E205AE055C04D6041
        8410FF7FFF7FFF7FFF7F8410A366277F077BE676C56E836A6266415E205AA049
        8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
        8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
        8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
        8410FF7FFF7FFF7FFF7F84100056836AA46AA46AA46EC56EC572C572A36A415E
        8410FF7FFF7FFF7FFF7FFF7F84106B2D6B2D6B2D841084106B2D6B2D6B2D8410
        FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75E8410FF7FFF7F8410CE398410FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75EE71CFF7FFF7FE71CEF3D8410FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7F84101863E71CFF7FFF7FE71C31468410FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7F84105A6B6B2DE71CE71C6B2D524A8410FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75E5A6B1863F75ED65A94528410FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F841084108410841084108410FF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7F}
    end
    object BitBtn6: TBitBtn
      Left = 300
      Top = 2
      Width = 75
      Height = 29
      Caption = #22238#27700#25171#21360
      TabOrder = 5
      OnClick = BitBtn6Click
      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 = 375
      Top = 2
      Width = 75
      Height = 29
      Caption = #36864#20986
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkClose
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 775
    Height = 326
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 210
      Top = 1
      Height = 324
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 209
      Height = 324
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 207
        Height = 322
        Align = alClient
        Caption = #21592#24037#20449#24687#65306
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 2
          Top = 14
          Width = 203
          Height = 306
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnMouseUp = DBGrid1MouseUp
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FClientNo'
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = #21592#24037#32534#21495
              Width = 50
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FclientName'
              Title.Alignment = taCenter
              Title.Caption = #21592#24037#22995#21517
              Width = 54
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FVisible'
              Title.Alignment = taCenter
              Title.Caption = #26159#21542#21551#29992
              Width = 50
              Visible = True
            end>
        end
      end
    end
    object Panel3: TPanel
      Left = 213
      Top = 1
      Width = 561
      Height = 324
      Align = alClient
      Caption = 'Panel3'
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 559
        Height = 322
        Align = alClient
        Caption = #21592#24037#22238#27700#20449#24687#65306
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 2
          Top = 14
          Width = 555
          Height = 306
          Align = alClient
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnMouseUp = DBGrid2MouseUp
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FTranName'
              Title.Alignment = taCenter
              Title.Caption = #20107#21153#21517#31216
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FQuitCorpus'
              Title.Alignment = taCenter
              Title.Caption = #36864#26412#26631#24535
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FLossRatio'
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = #20013#21518#22521#29575
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FWriteBillWin'
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = #20889#21333#36153#36194
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'FWriteBillLoss'
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = #20889#21333#36153#36755
              Width = 80
              Visible = True
            end>
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = empinf_q
    Left = 520
    Top = 4
  end
  object empinf_qold: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT FClientid, FClientNo, FclientName, FRadioButton, '
      
        '      CASE WHEN FVisible = 0 THEN '#39#26410#21551#29992#39' ELSE '#39#24050#21551#29992#39' END AS FVisib' +
        'le'
      'FROM T_Client')
    Left = 717
    Top = 4
    object empinf_qoldFClientid: TIntegerField
      FieldName = 'FClientid'
    end
    object empinf_qoldFClientNo: TStringField
      FieldName = 'FClientNo'
      Size = 50
    end
    object empinf_qoldFclientName: TStringField
      FieldName = 'FclientName'
      Size = 50
    end
    object empinf_qoldFRadioButton: TStringField
      FieldName = 'FRadioButton'
      Size = 14
    end
    object empinf_qoldFVisible: TStringField
      FieldName = 'FVisible'
      ReadOnly = True
      Size = 6
    end
  end
  object editemp: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 554
    Top = 4
  end
  object empinf_q: TADOTable
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    TableName = 'EmpInf_V'
    Left = 718
    Top = 4
  end
  object empinfentry: TADOTable
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    IndexFieldNames = 'FClientid'
    MasterFields = 'FClientid'
    MasterSource = DataSource1
    TableName = 'EmpInfEntry_V'
    Left = 700
    Top = 3
    object empinfentryFTEntryId: TAutoIncField
      FieldName = 'FTEntryId'
      ReadOnly = True
    end
    object empinfentryFClientid: TIntegerField
      FieldName = 'FClientid'
    end
    object empinfentryFTranType: TIntegerField
      FieldName = 'FTranType'
    end
    object empinfentryFTranName: TStringField
      FieldName = 'FTranName'
      Size = 50
    end
    object empinfentryFQuitCorpus: TStringField
      FieldName = 'FQuitCorpus'
      ReadOnly = True
      Size = 6
    end
    object empinfentryFLossRatio: TBCDField
      FieldName = 'FLossRatio'
      Precision = 18
    end
    object empinfentryFWriteBillWin: TBCDField
      FieldName = 'FWriteBillWin'
      Precision = 18
    end
    object empinfentryFWriteBillLoss: TBCDField
      FieldName = 'FWriteBillLoss'
      Precision = 18
    end
  end
  object DataSource2: TDataSource
    DataSet = empinfentry
    Left = 584
    Top = 8
  end
  object editempentry: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    Parameters = <>
    Left = 672
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -