tkmc_p.dfm

考试系统,是一个简单的但是很经典的

object f_tkmc: Tf_tkmc
  Left = 228
  Top = 209
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #39064#24211#21517#31216#32500#25252
  ClientHeight = 336
  ClientWidth = 498
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 498
    Height = 40
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object bt1: TSpeedButton
      Left = 5
      Top = 5
      Width = 68
      Height = 31
      Caption = #28155#21152
      Flat = True
      OnClick = bt1Click
    end
    object bt2: TSpeedButton
      Left = 75
      Top = 5
      Width = 68
      Height = 31
      Caption = #20462#25913
      Flat = True
      OnClick = bt2Click
    end
    object bt4: TSpeedButton
      Left = 215
      Top = 5
      Width = 68
      Height = 31
      Caption = #23384#30424
      Flat = True
      OnClick = bt4Click
    end
    object bt3: TSpeedButton
      Left = 145
      Top = 5
      Width = 68
      Height = 31
      Caption = #21024#38500
      Flat = True
      OnClick = bt3Click
    end
    object bt7: TSpeedButton
      Left = 425
      Top = 5
      Width = 68
      Height = 31
      Caption = #36864#20986
      Flat = True
      OnClick = bt7Click
    end
    object bt6: TSpeedButton
      Left = 355
      Top = 5
      Width = 68
      Height = 31
      Caption = #36873#25321
      Flat = True
      OnClick = bt6Click
    end
    object bt5: TSpeedButton
      Left = 285
      Top = 5
      Width = 68
      Height = 31
      Caption = #21462#28040
      Flat = True
      OnClick = bt5Click
    end
  end
  object dbg: TDBGridEh
    Left = 0
    Top = 83
    Width = 498
    Height = 253
    Align = alClient
    DataSource = ds
    FixedColor = clInfoBk
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'tkbh'
        Footers = <>
        Title.Caption = #39064#24211#32534#21495
        Width = 75
      end
      item
        EditButtons = <>
        FieldName = 'tkmc'
        Footers = <>
        Title.Caption = #39064#24211#21517#31216
        Width = 378
      end>
  end
  object pnl2: TPanel
    Left = 0
    Top = 40
    Width = 498
    Height = 43
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 56
      Height = 14
      Caption = #39064#24211#21517#31216
    end
    object Edit1: TEdit
      Left = 72
      Top = 12
      Width = 265
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object chk1: TCheckBox
      Left = 341
      Top = 14
      Width = 73
      Height = 17
      Caption = #20844#20849#39064#24211
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = chk1Click
    end
    object chk2: TCheckBox
      Left = 418
      Top = 13
      Width = 73
      Height = 17
      Caption = #31169#26377#39064#24211
      TabOrder = 2
      OnClick = chk2Click
    end
  end
  object ds: TDataSource
    DataSet = cds
    Left = 128
    Top = 192
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = dm.skc
    AfterScroll = cdsAfterScroll
    Left = 160
    Top = 192
  end
end