📄 zjxfunit.dfm

📁 东华休闲山庄洗浴、餐饮、客房管理系统
💻 DFM
字号:
object ZJXFForm: TZJXFForm
  Left = 37
  Top = 143
  Width = 967
  Height = 573
  BorderIcons = []
  Caption = #22686#21152#28040#36153
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object suiPanel1: TsuiPanel
    Left = 0
    Top = 0
    Width = 377
    Height = 546
    UIStyle = MacOS
    BorderColor = 8355711
    Caption = #39033#30446#28165#21333
    ShowButton = True
    CaptionFontColor = clBlack
    Align = alLeft
    TabOrder = 0
    Color = clWhite
    object Label16: TLabel
      Left = 16
      Top = 32
      Width = 82
      Height = 15
      Caption = #32534#30721'/'#31616#25340':'
    end
    object Label1: TLabel
      Left = 240
      Top = 32
      Width = 118
      Height = 15
      Caption = #28040#36153#25151#38388':BD201'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 73
      Height = 15
      Caption = #28040#36153#25968#37327':'
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 96
      Width = 369
      Height = 446
      Align = alBottom
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'xfxm_mc'
          Title.Alignment = taCenter
          Title.Caption = #39033#30446#21517#31216
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 97
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'xfxm_ysdj'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 74
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'xfxm_dzbl'
          Title.Alignment = taCenter
          Title.Caption = #25171#25240
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 45
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'xfxm_qmye'
          Title.Alignment = taCenter
          Title.Caption = #24403#21069#24211#23384
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 106
          Visible = True
        end>
    end
    object btn1: TsuiButton
      Left = 240
      Top = 64
      Width = 121
      Height = 22
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #28155#21152#28040#36153#39033#30446
      AutoSize = False
      ParentFont = False
      UIStyle = WinXP
      TabOrder = 1
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn1Click
      ResHandle = 0
    end
    object suiEdit1: TsuiEdit
      Left = 104
      Top = 32
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 2
      Text = 'suiEdit1'
      OnKeyPress = suiEdit1KeyPress
    end
    object suiEdit2: TsuiEdit
      Left = 104
      Top = 64
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 3
      Text = 'suiEdit1'
      OnKeyPress = suiEdit2KeyPress
    end
  end
  object suiPanel2: TsuiPanel
    Left = 377
    Top = 0
    Width = 582
    Height = 546
    UIStyle = MacOS
    BorderColor = 8355711
    Caption = #12304#26631#20934#21333#20154#38388'BD201'#12305#28040#36153#28165#21333
    ShowButton = True
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 1
    Color = clWhite
    object dbgrd1: TDBGrid
      Left = 4
      Top = 25
      Width = 574
      Height = 468
      Align = alTop
      DataSource = ds1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = dbgrd1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Lbxf_xfxm'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#39033#30446
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Lbxf_xmdj'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #39033#30446#21333#20215
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 85
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'lbxf_dzbl'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #25171#25240#27604#20363
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Lbxf_xfsl'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#25968#37327
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Lbxf_xfje'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#24635#39069
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Lbxf_xfBegin'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#26102#38388
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end>
    end
    object btn2: TsuiButton
      Left = 264
      Top = 496
      Width = 97
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #28040#36153#36716#21333
      AutoSize = False
      ParentFont = False
      UIStyle = WinXP
      TabOrder = 1
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn2Click
      ResHandle = 0
    end
    object btn3: TsuiButton
      Left = 368
      Top = 496
      Width = 97
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #28040#36153#36864#21333
      AutoSize = False
      ParentFont = False
      UIStyle = WinXP
      TabOrder = 2
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn3Click
      ResHandle = 0
    end
    object btn5: TsuiButton
      Left = 472
      Top = 496
      Width = 97
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #36820#22238#20027#30028#38754
      AutoSize = False
      ParentFont = False
      UIStyle = WinXP
      TabOrder = 3
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn5Click
      ResHandle = 0
    end
    object stsbr1: TsuiStatusBar
      Left = 4
      Top = 523
      Width = 574
      Height = 19
      UIStyle = DeepBlue
      PanelColor = 15263976
      Color = 15263976
      Panels = <
        item
          Text = #28040#36153#25151#38388#12304'BD201 '#12305#28040#36153#24635#39069#12304#65509'100.00 '#12305
          Width = 50
        end>
    end
  end
  object ds2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomConsume'
    RemoteServer = LoginForm.SocketConnection1
    Left = 385
    Top = 68
  end
  object ds1: TDataSource
    DataSet = ds2
    Left = 417
    Top = 68
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomXFXMSelect'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ClientDataSet1AfterScroll
    Left = 9
    Top = 140
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 41
    Top = 140
  end
end
⌨️ 快捷键说明

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