unitsupcheckcquery.dfm

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

object formsupcheckCquery: TformsupcheckCquery
  Left = 145
  Top = 74
  Width = 548
  Height = 465
  Caption = #29616#37329#32467#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 = 540
    Height = 289
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 4
      Top = 3
      Width = 524
      Height = 275
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #29616#37329#32467#36134#24080#21153
        object DBGrid1: TDBGrid
          Left = 5
          Top = 2
          Width = 504
          Height = 239
          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 = 74
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'username'
              Title.Caption = #23458#20154#22995#21517
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomno'
              Title.Caption = #21253#38388#32534#21495
              Width = 63
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'tableno'
              Title.Caption = #25955#24231#26700#21495
              Width = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'checktime'
              Title.Caption = #32467#36134#26102#38388
              Width = 113
              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 = 48
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'employeeid'
              Title.Caption = #25805#20316#21592#32534#21495
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'remark'
              Title.Caption = #22791#27880
              Width = 179
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 289
    Width = 540
    Height = 149
    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 = 6
      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 = 104
        Top = 63
        Width = 182
        Height = 14
        Caption = #27880#65306#21482#33021#36873#25321#32467#36134#25110#26410#32467#36134#65281
      end
      object ckbox_sroomno: TCheckBox
        Left = 35
        Top = 30
        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 = 62
        Width = 62
        Height = 17
        Caption = #24050#32467#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 = 94
        Width = 97
        Height = 17
        Caption = #32467#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 = 26
        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 = 90
        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