u_gwlb.dfm

试卷管理系统

object frm_gwlb: Tfrm_gwlb
  Left = 286
  Top = 205
  BorderStyle = bsDialog
  Caption = #23703#20301#31867#21035
  ClientHeight = 330
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid1: TDBGrid
    Left = 17
    Top = 176
    Width = 537
    Height = 149
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GWLBXH'
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GWLBMC'
        Title.Alignment = taCenter
        Title.Caption = #23703#20301#31867#21035
        Width = 183
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 537
    Height = 105
    TabOrder = 1
    object Label2: TLabel
      Left = 15
      Top = 50
      Width = 42
      Height = 14
      Caption = #19987#19994#65306
    end
    object Label1: TLabel
      Left = 222
      Top = 50
      Width = 98
      Height = 14
      Caption = #23703#20301#31867#21035#21517#31216#65306
    end
    object ComboBox1: TComboBox
      Left = 71
      Top = 42
      Width = 129
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 319
      Top = 42
      Width = 193
      Height = 22
      MaxLength = 10
      TabOrder = 1
    end
  end
  object btn_insert: TButton
    Left = 28
    Top = 131
    Width = 89
    Height = 25
    Caption = #25554'   '#20837'&I'
    TabOrder = 2
    OnClick = btn_insertClick
  end
  object btn_delete: TButton
    Left = 135
    Top = 131
    Width = 89
    Height = 25
    Caption = #21024'   '#38500'&D'
    TabOrder = 3
    OnClick = btn_deleteClick
  end
  object btn_edit: TButton
    Left = 242
    Top = 131
    Width = 89
    Height = 25
    Caption = #32534'   '#36753'&E'
    TabOrder = 4
    OnClick = btn_editClick
  end
  object btn_save: TButton
    Left = 349
    Top = 131
    Width = 89
    Height = 25
    Caption = #30830'   '#35748'&S'
    Enabled = False
    TabOrder = 5
    OnClick = btn_saveClick
  end
  object btn_cancel: TButton
    Left = 457
    Top = 131
    Width = 89
    Height = 25
    Caption = #21462'   '#28040'&C'
    Enabled = False
    TabOrder = 6
    OnClick = btn_cancelClick
  end
  object tbl_gwlb: TTable
    Active = True
    AfterScroll = tbl_gwlbAfterScroll
    DatabaseName = 'bzxl_db'
    Filtered = True
    TableName = 'gwlb.DB'
    Left = 320
    Top = 256
    object tbl_gwlbGWLBMC: TStringField
      FieldName = 'GWLBMC'
      Size = 10
    end
    object tbl_gwlbzymc: TStringField
      FieldKind = fkLookup
      FieldName = 'zymc'
      LookupDataSet = tbl_zy
      LookupKeyFields = 'ZYXH'
      LookupResultField = 'ZYMC'
      KeyFields = 'ZYXH'
      Size = 8
      Lookup = True
    end
    object tbl_gwlbZYXH: TSmallintField
      FieldName = 'ZYXH'
    end
    object tbl_gwlbGWLBXH: TSmallintField
      FieldName = 'GWLBXH'
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = tbl_gwlb
    Left = 200
    Top = 264
  end
  object tbl_zy: TTable
    Active = True
    DatabaseName = 'bzxl_db'
    Filter = 'zyflag=true'
    Filtered = True
    TableName = 'zy.db'
    Left = 232
    Top = 248
  end
end