unitsupchecksquery.dfm

来自「自己做过的工程」· DFM 代码 · 共 272 行

object formsupcheckSquery: TformsupcheckSquery
  Left = 145
  Top = 73
  Width = 547
  Height = 467
  Caption = #25346#36134#24080#21153#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 539
    Height = 289
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 10
      Top = 4
      Width = 516
      Height = 277
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #25346#36134#24080#21153
        object DBGrid1: TDBGrid
          Left = 3
          Top = 5
          Width = 499
          Height = 233
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'sdid'
              Title.Caption = #23601#39184#35760#24405#21495
              Width = 75
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'username'
              Title.Caption = #23458#20154#22995#21517
              Width = 67
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomno'
              Title.Caption = #21253#38388#32534#21495
              Width = 62
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'tableno'
              Title.Caption = #25955#24231#26700#21495
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'checktime'
              Title.Caption = #32467#36134#26102#38388
              Width = 105
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'totalfee'
              Title.Caption = #28040#36153#37329#39069
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'discount'
              Title.Caption = #25240#25187
              Width = 47
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'employeeid'
              Title.Caption = #25805#20316#21592#32534#21495
              Width = 76
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'remark'
              Title.Caption = #22791#27880
              Width = 188
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 289
    Width = 539
    Height = 151
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 1
    object lab_totalfee: TLabel
      Left = 336
      Top = 39
      Width = 42
      Height = 14
      Caption = #24635#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 472
      Top = 40
      Width = 14
      Height = 14
      Caption = #20803
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 35
      Top = 8
      Width = 289
      Height = 129
      Caption = #26597#35810#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label2: TLabel
        Left = 107
        Top = 62
        Width = 182
        Height = 14
        Caption = #27880#65306#21482#33021#36873#25321#25346#24080#25110#26410#25346#24080#65281
      end
      object ckbox_sroomno: TCheckBox
        Left = 35
        Top = 28
        Width = 97
        Height = 17
        Caption = #21253#38388#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = ckbox_sroomnoClick
      end
      object ckbox_ischeck: TCheckBox
        Left = 35
        Top = 60
        Width = 62
        Height = 17
        Caption = #24050#25346#36134
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = ckbox_ischeckClick
      end
      object ckbox_checktime: TCheckBox
        Left = 35
        Top = 92
        Width = 97
        Height = 17
        Caption = #25346#36134#26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Visible = False
        OnClick = ckbox_checktimeClick
      end
      object ed_sroomno: TEdit
        Left = 129
        Top = 24
        Width = 129
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Visible = False
      end
      object dtp_checktime: TDateTimePicker
        Left = 129
        Top = 88
        Width = 129
        Height = 22
        CalAlignment = dtaLeft
        Date = 37482.362393206
        Time = 37482.362393206
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
        Visible = False
      end
    end
    object ed_totalfee: TEdit
      Left = 384
      Top = 34
      Width = 81
      Height = 22
      ReadOnly = True
      TabOrder = 1
    end
    object but_query: TButton
      Left = 384
      Top = 88
      Width = 81
      Height = 33
      Caption = #26597#35810
      Default = True
      TabOrder = 2
      OnClick = but_queryClick
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ds_sup_check_query
    Left = 360
    Top = 16
  end
end