u_editbase.dfm

蛮不错的排课系统 这个系统由吴劲叶独立开发,蛮不错的

object editbase: Teditbase
  Left = 195
  Top = 127
  Width = 560
  Height = 509
  Caption = #20462#25913#21592#24037#36164#26009#24211
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 552
    Height = 49
    Caption = #20462#25913#21592#24037#22522#26412#36164#26009
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 88
    Width = 441
    Height = 393
    DataSource = ds_editgz
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Bm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376
      end
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'Ygid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#21495
      end
      item
        EditButtons = <>
        FieldName = 'Id'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36134#21495'/'#36523#20221#35777#21495
        Width = 196
      end>
  end
  object Panel2: TPanel
    Left = 440
    Top = 49
    Width = 112
    Height = 432
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 16
      Top = 208
      Width = 81
      Height = 32
      Caption = #20462#25913#25805#20316
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn3: TBitBtn
      Left = 16
      Top = 378
      Width = 82
      Height = 33
      Caption = #36820#22238#30028#38754
      TabOrder = 1
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 16
      Top = 264
      Width = 81
      Height = 33
      Caption = #22686#21152#21592#24037
      TabOrder = 2
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 16
      Top = 152
      Width = 81
      Height = 33
      Caption = #21047#26032#25152#26377
      TabOrder = 3
      OnClick = BitBtn5Click
    end
    object BitBtn6: TBitBtn
      Left = 16
      Top = 322
      Width = 81
      Height = 33
      Caption = #21024#38500#21592#24037
      TabOrder = 4
      OnClick = BitBtn6Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 49
    Width = 440
    Height = 39
    TabOrder = 3
    object Label1: TLabel
      Left = 48
      Top = 13
      Width = 69
      Height = 13
      Caption = #36873#25321#37096#38376#65306'   '
    end
    object e_bm: TDBLookupComboBox
      Left = 112
      Top = 8
      Width = 113
      Height = 21
      KeyField = 'Bm'
      ListField = 'Bm'
      ListSource = ds_base3
      TabOrder = 0
      OnCloseUp = e_bmCloseUp
    end
    object BitBtn2: TBitBtn
      Left = 312
      Top = 3
      Width = 95
      Height = 33
      Caption = #25171'     '#21360
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object base3: TTable
    DatabaseName = 'gzgl'
    TableName = 'bm.DB'
    Left = 32
    Top = 32
  end
  object editgz: TTable
    DatabaseName = 'gzgl'
    TableName = 'gz.DB'
    Left = 32
    Top = 72
  end
  object ds_base3: TDataSource
    DataSet = base3
    Left = 64
    Top = 32
  end
  object ds_editgz: TDataSource
    DataSet = editgz
    Left = 64
    Top = 72
  end
  object printbase: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 104
    Top = 32
  end
end