unitroombook.dfm

自己做过的工程

object fromroomkook: Tfromroomkook
  Left = 65
  Top = 158
  BorderStyle = bsDialog
  Caption = #23458#25151#39044#23450
  ClientHeight = 475
  ClientWidth = 652
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 24
    Top = 16
    Width = 609
    Height = 392
    ActivePage = TabSheet1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23458#25151#39044#23450
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 7
        Top = 16
        Width = 70
        Height = 14
        Caption = #39044#23450#20449#24687#34920
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object ed_username: TEdit
        Left = 408
        Top = 213
        Width = 130
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
      end
      object StaticText1: TStaticText
        Left = 323
        Top = 214
        Width = 68
        Height = 24
        Caption = #25151#23458#22995#21517
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object StaticText2: TStaticText
        Left = 57
        Top = 255
        Width = 60
        Height = 18
        Caption = #39044#23450#26102#38388
        TabOrder = 2
      end
      object StaticText3: TStaticText
        Left = 59
        Top = 218
        Width = 60
        Height = 18
        Caption = #39044#23450#25151#38388
        TabOrder = 3
      end
      object roomid: TEdit
        Left = 160
        Top = 216
        Width = 129
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 4
      end
      object StaticText4: TStaticText
        Left = 326
        Top = 258
        Width = 60
        Height = 18
        Caption = #21592#24037#32534#21495
        TabOrder = 5
      end
      object employeeid: TEdit
        Left = 409
        Top = 250
        Width = 129
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 6
      end
      object StaticText5: TStaticText
        Left = 59
        Top = 295
        Width = 60
        Height = 18
        Caption = #25151#23458#30005#35805
        TabOrder = 7
      end
      object userphone: TEdit
        Left = 160
        Top = 292
        Width = 128
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 8
      end
      object StaticText6: TStaticText
        Left = 320
        Top = 283
        Width = 4
        Height = 4
        TabOrder = 9
      end
      object remark: TEdit
        Left = 409
        Top = 290
        Width = 129
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 10
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 41
        Width = 585
        Height = 158
        DataSource = DMHotel.DataSource_roombook
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 11
        TitleFont.Charset = GB2312_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 = 83
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'booktime'
            Title.Caption = #39044#23450#26102#38388
            Width = 98
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomid'
            Title.Caption = #39044#23450#25151#38388
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #21592#24037#32534#21495
            Width = 91
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'userphone'
            Title.Caption = #25151#23458#30005#35805
            Width = 89
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880#20449#24687
            Visible = True
          end>
      end
      object StaticText7: TStaticText
        Left = 326
        Top = 295
        Width = 60
        Height = 18
        Caption = #22791#27880#20449#24687
        TabOrder = 12
      end
      object booktime: TDateTimePicker
        Left = 160
        Top = 256
        Width = 129
        Height = 22
        CalAlignment = dtaLeft
        Date = 37479
        Time = 37479
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Kind = dtkDate
        ParseInput = False
        TabOrder = 13
      end
    end
  end
  object Button1: TButton
    Left = 75
    Top = 428
    Width = 80
    Height = 29
    Caption = #28155#21152
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 221
    Top = 428
    Width = 80
    Height = 29
    Caption = #21024#38500
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 362
    Top = 428
    Width = 80
    Height = 29
    Caption = #21462#28040
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 499
    Top = 428
    Width = 80
    Height = 29
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = Button4Click
  end
end