unitfsupcheckcquery.dfm

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

object formFsupcheckCquery: TformFsupcheckCquery
  Left = 112
  Top = 83
  Width = 585
  Height = 468
  Caption = #39184#21381#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 = 577
    Height = 266
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 6
      Top = 3
      Width = 559
      Height = 251
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #32467#36134#24080#21153
        object DBGrid1: TDBGrid
          Left = 5
          Top = 4
          Width = 541
          Height = 212
          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 = 73
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'username'
              Title.Caption = #23458#20154#22995#21517
              Width = 66
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomno'
              Title.Caption = #21253#38388#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'tableno'
              Title.Caption = #25955#24231#26700#21495
              Width = 61
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'checktime'
              Title.Caption = #32467#36134#26102#38388
              Width = 111
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'totalfee'
              Title.Caption = #28040#36153#37329#39069
              Width = 61
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'discount'
              Title.Caption = #25240#25187
              Width = 39
              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 = 187
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 266
    Width = 577
    Height = 175
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 1
    object lab_totalfee: TLabel
      Left = 349
      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 = 485
      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 = 25
      Top = 4
      Width = 310
      Height = 157
      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 = 123
        Top = 60
        Width = 182
        Height = 14
        Caption = #27880#65306#21482#33021#36873#25321#32467#24080#25110#26410#32467#24080#65281
      end
      object Label3: TLabel
        Left = 114
        Top = 93
        Width = 42
        Height = 14
        Caption = #22987#26085#26399
      end
      object Label4: TLabel
        Left = 114
        Top = 126
        Width = 42
        Height = 14
        Caption = #32456#26085#26399
      end
      object ckbox_sroomno: TCheckBox
        Left = 35
        Top = 25
        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 = 58
        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 = 90
        Width = 78
        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 = 159
        Top = 21
        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_Bchecktime: TDateTimePicker
        Left = 159
        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
      object dtp_Echecktime: TDateTimePicker
        Left = 158
        Top = 123
        Width = 129
        Height = 22
        CalAlignment = dtaLeft
        Date = 37482.5813019676
        Time = 37482.5813019676
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 5
        Visible = False
      end
    end
    object ed_totalfee: TEdit
      Left = 397
      Top = 34
      Width = 81
      Height = 22
      ReadOnly = True
      TabOrder = 1
    end
    object but_query: TButton
      Left = 397
      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