zhuce.dfm

实现门卫值班时的一些简单功能

object zhucefrm: Tzhucefrm
  Left = 217
  Top = 118
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20540#29677#21592#30331#24405
  ClientHeight = 204
  ClientWidth = 390
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 390
    Height = 204
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 88
      Top = 24
      Width = 210
      Height = 24
      Caption = #35831#36755#20837#24744#30340#22995#21517#21644#23494#30721
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 40
      Top = 72
      Width = 45
      Height = 15
      Caption = #22995#21517#65306
    end
    object Label3: TLabel
      Left = 40
      Top = 120
      Width = 45
      Height = 15
      Caption = #23494#30721#65306
    end
    object Edit1: TEdit
      Left = 106
      Top = 68
      Width = 100
      Height = 23
      ImeName = #26234#33021'ABC'#36755#20837#27861
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 106
      Top = 116
      Width = 100
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 1
      Text = 'Edit2'
    end
    object Button1: TButton
      Left = 258
      Top = 67
      Width = 85
      Height = 25
      Caption = #30830#35748
      Default = True
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 258
      Top = 115
      Width = 85
      Height = 25
      Cancel = True
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object Query1: TQuery
    AutoCalcFields = False
    DatabaseName = 'cczb'
    Left = 96
    Top = 168
  end
  object Query2: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'cczb'
    RequestLive = True
    Left = 160
    Top = 168
  end
end