unit13.dfm

用Delphi做一个公寓管理系统

object Form_vist_out2: TForm_vist_out2
  Left = 405
  Top = 53
  Width = 438
  Height = 557
  Caption = #30830#35748#20986#27004#30331#35760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 59
    Top = 30
    Width = 75
    Height = 13
    Caption = #26469#35775#20154#22995#21517'     '
  end
  object Label3: TLabel
    Left = 59
    Top = 72
    Width = 57
    Height = 13
    Caption = #25152#23646#20851#31995'   '
  end
  object Label4: TLabel
    Left = 59
    Top = 115
    Width = 63
    Height = 13
    Caption = #26469#35775#26102#38388'     '
  end
  object Label5: TLabel
    Left = 59
    Top = 158
    Width = 63
    Height = 13
    Caption = #20986#27004#26102#38388'     '
  end
  object Label6: TLabel
    Left = 59
    Top = 201
    Width = 54
    Height = 13
    Caption = #20540#29677#20154'      '
  end
  object Label8: TLabel
    Left = 59
    Top = 287
    Width = 33
    Height = 13
    Caption = #22791#27880'   '
  end
  object Label9: TLabel
    Left = 59
    Top = 252
    Width = 36
    Height = 13
    Caption = #35777#20214'    '
  end
  object Edit4: TEdit
    Left = 175
    Top = 162
    Width = 121
    Height = 21
    Color = clBtnFace
    Enabled = False
    ReadOnly = True
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 176
    Top = 24
    Width = 121
    Height = 21
    Color = clBtnFace
    DataField = 'visitor_name'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 176
    Top = 72
    Width = 121
    Height = 21
    Color = clBtnFace
    DataField = 'relation'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 176
    Top = 112
    Width = 121
    Height = 21
    Color = clBtnFace
    DataField = 'time_in'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 176
    Top = 200
    Width = 121
    Height = 21
    Color = clBtnFace
    DataField = 'watch'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 176
    Top = 248
    Width = 121
    Height = 21
    Color = clBtnFace
    DataField = 'certificate'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 5
  end
  object Button1: TButton
    Left = 232
    Top = 472
    Width = 75
    Height = 25
    Caption = #30830'   '#23450
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 336
    Top = 472
    Width = 75
    Height = 25
    Caption = #21462'   '#28040
    TabOrder = 7
    OnClick = Button2Click
  end
  object DBMemo1: TDBMemo
    Left = 144
    Top = 304
    Width = 201
    Height = 105
    DataField = 'remark'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 8
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 424
    Width = 224
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Hints.Strings = (
      'First record'
      'Prior record'
      'Next record'
      'Last record'
      'Refresh data')
    TabOrder = 9
  end
  object DBEdit6: TDBEdit
    Left = 288
    Top = 424
    Width = 121
    Height = 21
    DataField = 'id'
    DataSource = DataSource1
    TabOrder = 10
    Visible = False
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 395
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'main'
    Left = 376
    Top = 80
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'main'
    Filter = 'is_out=0'
    Filtered = True
    TableName = 'dbo.vist_log'
    Left = 360
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 360
    Top = 200
  end
end