jjcc.dfm

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

object jjccfrm: Tjjccfrm
  Left = 274
  Top = 185
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #30331#24405#32039#24613#20986#36710
  ClientHeight = 200
  ClientWidth = 385
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 21
    Top = 28
    Width = 61
    Height = 16
    AutoSize = False
    Caption = #36710'    '#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 21
    Top = 69
    Width = 61
    Height = 16
    AutoSize = False
    Caption = #21496'    '#26426#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 21
    Top = 111
    Width = 61
    Height = 17
    AutoSize = False
    Caption = #20986#36710#26102#38388#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 284
    Top = 24
    Width = 78
    Height = 20
    Caption = #20445#23384#24182#32487#32493
    Default = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 284
    Top = 65
    Width = 78
    Height = 20
    Caption = #20445#23384#24182#36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 284
    Top = 107
    Width = 78
    Height = 21
    Cancel = True
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object DBComboBox1: TDBComboBox
    Left = 90
    Top = 24
    Width = 146
    Height = 23
    DataField = #36710#21495
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    TabOrder = 3
    OnClick = DBComboBox1Click
  end
  object DBComboBox2: TDBComboBox
    Left = 90
    Top = 65
    Width = 146
    Height = 23
    DataField = #21496#26426
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    TabOrder = 4
  end
  object DBEdit1: TDBEdit
    Left = 90
    Top = 108
    Width = 146
    Height = 25
    DataField = #21457#36710#26102#38388
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnDblClick = DBEdit1DblClick
  end
  object Table1: TTable
    CachedUpdates = True
    DatabaseName = 'cczb'
    TableName = 'dbo.'#36710#36742#31649#29702#32508#21512#20449#24687
    Left = 216
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 280
    Top = 200
  end
end