unitroomcheck.dfm

自己做过的工程

      object ed_suproom: TEdit
        Left = 111
        Top = 216
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 37
      end
      object StaticText20: TStaticText
        Left = 36
        Top = 219
        Width = 60
        Height = 18
        Caption = #21253#38388#39184#36153
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 38
      end
      object ed_roomthings: TEdit
        Left = 303
        Top = 127
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 39
      end
      object StaticText1: TStaticText
        Left = 33
        Top = 131
        Width = 60
        Height = 18
        Caption = #25910#38134#21592#24037
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 40
      end
      object but_print: TButton
        Left = 48
        Top = 376
        Width = 81
        Height = 25
        Caption = #24080#21333#25171#21360
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 41
        OnClick = but_printClick
      end
      object StaticText38: TStaticText
        Left = 370
        Top = 8
        Width = 186
        Height = 18
        Caption = #27880#65306#21482#33021#25171#21360#24403#21069#30340#25910#38134#24080#21333
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 42
      end
      object but_changeroom: TButton
        Left = 336
        Top = 328
        Width = 87
        Height = 25
        Caption = #25442#25151
        TabOrder = 43
        OnClick = but_changeroomClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25151#23458#36824#24080
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      OnShow = TabSheet2Show
      object ed_oldusername: TEdit
        Left = 91
        Top = 15
        Width = 116
        Height = 22
        TabOrder = 0
      end
      object StaticText11: TStaticText
        Left = 17
        Top = 18
        Width = 60
        Height = 18
        Caption = #25151#23458#22995#21517
        TabOrder = 1
      end
      object but_roomselect: TButton
        Left = 280
        Top = 13
        Width = 81
        Height = 22
        Caption = #24080#21333#26597#35810
        TabOrder = 2
        OnClick = but_roomselectClick
      end
      object DBGrid2: TDBGrid
        Left = 16
        Top = 73
        Width = 593
        Height = 216
        DataSource = DMHotel.DataSource_roomdebt
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'username'
            Title.Caption = #25151#23458#22995#21517
            Width = 79
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'totalfee'
            Title.Caption = #24635#24080#21333#36153
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'checkornot'
            Title.Caption = #26159#21542#32467#24080
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomid'
            Title.Caption = #25151#38388#26631#21495
            Width = 74
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'discount'
            Title.Caption = #25240#25187
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #35760#24080#21592#24037
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomtype'
            Title.Caption = #25151#38388#31867#22411
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomfee'
            Title.Caption = #20303#23487#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomthings'
            Title.Caption = #25151#20869#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'supsecond'
            Title.Caption = #25955#24231#39184#36153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'suproom'
            Title.Caption = #21253#38388#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kalaok'
            Title.Caption = #21345#25289'OK'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ballroom'
            Title.Caption = #27468#33310#21381#36153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'commercecenter'
            Title.Caption = #21830#21153#20013#24515
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hairdressing'
            Title.Caption = #32654#23481#20013#24515
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'intime'
            Title.Caption = #20837#20303#26102#38388
            Width = 142
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'checktime'
            Title.Caption = #35760#24080#26102#38388
            Width = 149
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880#20449#24687
            Width = 91
            Visible = True
          end>
      end
      object StaticText12: TStaticText
        Left = 183
        Top = 318
        Width = 74
        Height = 18
        Caption = #24080#21333#24635#37329#39069
        TabOrder = 4
      end
      object ed_oldtotalfee: TEdit
        Left = 293
        Top = 314
        Width = 121
        Height = 22
        ReadOnly = True
        TabOrder = 5
      end
      object Button9: TButton
        Left = 80
        Top = 367
        Width = 87
        Height = 22
        Caption = ' '#32467' '#24080
        Enabled = False
        TabOrder = 6
        OnClick = Button9Click
      end
      object Button11: TButton
        Left = 456
        Top = 367
        Width = 87
        Height = 22
        Caption = #36864' '#20986
        TabOrder = 7
        OnClick = Button11Click
      end
      object StaticText22: TStaticText
        Left = 116
        Top = 70
        Width = 4
        Height = 4
        TabOrder = 8
      end
      object StaticText23: TStaticText
        Left = 15
        Top = 49
        Width = 74
        Height = 18
        Caption = #26597#35810#32467#26524#65306
        TabOrder = 9
      end
      object but_printdebt: TButton
        Left = 216
        Top = 368
        Width = 87
        Height = 22
        Caption = ' '#25171' '#21360
        Enabled = False
        TabOrder = 10
        OnClick = but_printdebtClick
      end
      object StaticText35: TStaticText
        Left = 423
        Top = 318
        Width = 18
        Height = 18
        Caption = #20803
        TabOrder = 11
      end
      object cb_judge: TCheckBox
        Left = 195
        Top = 371
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 12
        OnClick = cb_judgeClick
      end
      object Button10: TButton
        Left = 336
        Top = 368
        Width = 87
        Height = 22
        Caption = #21462' '#28040
        TabOrder = 13
        OnClick = Button10Click
      end
      object but_allroomdebt: TButton
        Left = 408
        Top = 13
        Width = 81
        Height = 22
        Caption = #26174#31034#20840#37096
        TabOrder = 14
        OnClick = but_allroomdebtClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #38750#25151#23458#24080#21333#24405#20837
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      OnShow = TabSheet3Show
      object ed_debtremark: TEdit
        Left = 496
        Top = 128
        Width = 103
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object ed_debthairdressing: TEdit
        Left = 496
        Top = 89
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object ed_debtcommerce: TEdit
        Left = 496
        Top = 49
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object StaticText21: TStaticText
        Left = 421
        Top = 52
        Width = 60
        Height = 18
        Caption = #21830#21153#20013#24515
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object StaticText24: TStaticText
        Left = 421
        Top = 92
        Width = 60
        Height = 18
        Caption = #32654#23481#20013#24515
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object StaticText25: TStaticText
        Left = 419
        Top = 131
        Width = 67
        Height = 18
        Caption = #22791#27880#20449#24687' '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object ed_debttotalfee: TEdit
        Left = 242
        Top = 340
        Width = 162
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 6
      end
      object ed_debtdiscount: TEdit
        Left = 111
        Top = 127
        Width = 104
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        Text = '10'
      end
      object TStaticText
        Left = 37
        Top = 130
        Width = 60
        Height = 18
        Caption = #37329#21345#25171#25240
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
      object StaticText27: TStaticText
        Left = 37
        Top = 97
        Width = 60
        Height = 18
        Caption = #21253#38388#39184#36153
        TabOrder = 9
      end
      object ed_debtsuproom: TEdit
        Left = 112
        Top = 92
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 10
      end
      object StaticText28: TStaticText
        Left = 229
        Top = 94
        Width = 60
        Height = 18
        Caption = #25955#24231#39184#36153
        TabOrder = 11
      end
      object ed_debtsupsecond: TEdit
        Left = 304
        Top = 91
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 12
      end
      object ed_debtballroom: TEdit
        Left = 304
        Top = 48
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 13
      end
      object ed_debtemployeeid: TEdit
        Left = 304
        Top = 127
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 14
      end