unitroomcheck.dfm

自己做过的工程

      object ed_debtkalaok: TEdit
        Left = 112
        Top = 51
        Width = 102
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 15
      end
      object StaticText29: TStaticText
        Left = 32
        Top = 55
        Width = 60
        Height = 18
        Caption = #21345#25289'OK'#36153
        TabOrder = 16
      end
      object StaticText30: TStaticText
        Left = 235
        Top = 132
        Width = 60
        Height = 18
        Caption = #25910#38134#21592#24037
        TabOrder = 17
      end
      object ed_customername: TEdit
        Left = 111
        Top = 10
        Width = 194
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 18
      end
      object Button4: TButton
        Left = 482
        Top = 380
        Width = 86
        Height = 25
        Caption = #36864' '#20986
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 19
        OnClick = ed_closeClick
      end
      object StaticText32: TStaticText
        Left = 229
        Top = 52
        Width = 60
        Height = 18
        Caption = #27468#33310#21381#36153
        TabOrder = 20
      end
      object StaticText33: TStaticText
        Left = 34
        Top = 11
        Width = 60
        Height = 18
        Caption = #39038#23458#22995#21517
        TabOrder = 21
      end
      object TStaticText
        Left = 332
        Top = 11
        Width = 60
        Height = 18
        Caption = #20837#24080#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 22
      end
      object ed_indebttime: TEdit
        Left = 407
        Top = 6
        Width = 192
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 23
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 188
        Width = 609
        Height = 141
        DataSource = DMHotel.DataSource_customerdebt
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 24
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'customername'
            Title.Caption = #39038#23458#22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'totalfee'
            Title.Caption = #24080#30446#24635#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'indebttime'
            Title.Caption = #20837#24080#26102#38388
            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 = 'suproom'
            Title.Caption = #21253#38388#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'supsecond'
            Title.Caption = #25955#24231#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hairdressing'
            Title.Caption = #32654#23481#20013#24515
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'discount'
            Title.Caption = #25240#25187
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #20837#24080#21592#24037
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880#20449#24687
            Width = 224
            Visible = True
          end>
      end
      object StaticText34: TStaticText
        Left = 12
        Top = 164
        Width = 74
        Height = 18
        Caption = #24211#23384#24080#21333#65306
        TabOrder = 25
      end
      object Button2: TButton
        Left = 117
        Top = 341
        Width = 89
        Height = 25
        Caption = #36153#29992#24635#35760
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 26
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 117
        Top = 382
        Width = 89
        Height = 25
        Caption = #24080#21333#20837#24405
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 27
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 363
        Top = 380
        Width = 87
        Height = 25
        Caption = #21462#28040
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 28
        OnClick = Button3Click
      end
      object StaticText36: TStaticText
        Left = 420
        Top = 344
        Width = 18
        Height = 18
        Caption = #20803
        TabOrder = 29
      end
      object Button7: TButton
        Left = 240
        Top = 381
        Width = 84
        Height = 26
        Caption = #26174#31034#20840#37096
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 30
        OnClick = but_allcustomerdebtClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = #38750#25151#23458#36824#24080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      OnShow = TabSheet4Show
      object StaticText13: TStaticText
        Left = 19
        Top = 26
        Width = 60
        Height = 18
        Caption = #39038#23458#22995#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object ed_oldcustomername: TEdit
        Left = 93
        Top = 22
        Width = 121
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object Button5: TButton
        Left = 272
        Top = 24
        Width = 89
        Height = 21
        Caption = #24080#21333#26597#35810
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button5Click
      end
      object DBGrid3: TDBGrid
        Left = 16
        Top = 88
        Width = 593
        Height = 201
        DataSource = DMHotel.DataSource_customerdebt
        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 = 'customername'
            Title.Caption = #39038#23458#22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'totalfee'
            Title.Caption = #24080#30446#24635#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'indebttime'
            Title.Caption = #20837#24080#26102#38388
            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 = 'suproom'
            Title.Caption = #21253#38388#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'supsecond'
            Title.Caption = #25955#24231#36153#29992
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hairdressing'
            Title.Caption = #32654#23481#20013#24515
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'discount'
            Title.Caption = #25240#25187
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #20837#24080#21592#24037
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880#20449#24687
            Visible = True
          end>
      end
      object StaticText26: TStaticText
        Left = 16
        Top = 64
        Width = 74
        Height = 18
        Caption = #26597#35810#20449#24687#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object StaticText31: TStaticText
        Left = 202
        Top = 318
        Width = 74
        Height = 18
        Caption = #24080#21333#24635#37329#39069
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object ed_olddebttotalfee: TEdit
        Left = 298
        Top = 314
        Width = 129
        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 Button6: TButton
        Left = 87
        Top = 365
        Width = 85
        Height = 23
        Caption = ' '#32467' '#24080
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = Button6Click
      end
      object Button8: TButton
        Left = 459
        Top = 367
        Width = 85
        Height = 23
        Caption = ' '#36864' '#20986
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = Button8Click
      end
      object cb_customerjudge: TCheckBox
        Left = 200
        Top = 370
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 9
        OnClick = cb_customerjudgeClick
      end
      object but_customerprint: TButton
        Left = 216
        Top = 366
        Width = 82
        Height = 23
        Caption = ' '#25171' '#21360
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = but_customerprintClick
      end
      object StaticText37: TStaticText
        Left = 433
        Top = 318
        Width = 18
        Height = 18
        Caption = #20803
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 11
      end
      object Button12: TButton
        Left = 336
        Top = 366
        Width = 82
        Height = 23
        Caption = ' '#21462' '#28040
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 12
        OnClick = Button12Click
      end
      object but_allcustomerdebt: TButton
        Left = 410
        Top = 24
        Width = 88
        Height = 20
        Caption = #26174#31034#20840#37096
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 13
        OnClick = but_allcustomerdebtClick
      end
    end
  end
end