dataparam.dfm

DELPHI计算机科学系教务管理系统,带论文设计,不错的参考

object DataParamForm: TDataParamForm
  Left = 182
  Top = 119
  Width = 804
  Height = 571
  Caption = #25968#25454#23383#20856#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 391
    Width = 796
    Height = 89
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 19
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #31867#22411#32534#21495#65306
    end
    object Label2: TLabel
      Left = 14
      Top = 56
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #31867#22411#21517#31216#65306
    end
    object Label3: TLabel
      Left = 240
      Top = 22
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #32534' '#21495#65306
    end
    object Label4: TLabel
      Left = 455
      Top = 20
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #31867#22411#32534#21495#65306
    end
    object Label5: TLabel
      Left = 240
      Top = 57
      Width = 38
      Height = 13
      AutoSize = False
      Caption = #21517' '#31216#65306
    end
    object Label6: TLabel
      Left = 454
      Top = 56
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #22791#27880#65306
    end
    object Edit1: TEdit
      Left = 83
      Top = 16
      Width = 136
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 82
      Top = 51
      Width = 136
      Height = 21
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 284
      Top = 16
      Width = 147
      Height = 21
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 525
      Top = 14
      Width = 143
      Height = 21
      TabOrder = 3
    end
    object Edit5: TEdit
      Left = 283
      Top = 51
      Width = 148
      Height = 21
      TabOrder = 4
      OnKeyDown = Edit5KeyDown
    end
    object Edit6: TEdit
      Left = 493
      Top = 50
      Width = 177
      Height = 21
      TabOrder = 5
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 480
    Width = 796
    Height = 45
    Align = alBottom
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 1
    object BitBtn2: TBitBtn
      Left = 141
      Top = 7
      Width = 65
      Height = 25
      Caption = #22686#21152
      TabOrder = 0
      OnClick = BitBtn2Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
    end
    object BitBtn3: TBitBtn
      Left = 205
      Top = 7
      Width = 65
      Height = 25
      Caption = #21024#38500
      TabOrder = 1
      OnClick = BitBtn3Click
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        0400000000006800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
        F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF
        F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
        F000}
    end
    object BitBtn4: TBitBtn
      Left = 269
      Top = 7
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 333
      Top = 7
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = BitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object BitBtn6: TBitBtn
      Left = 397
      Top = 7
      Width = 65
      Height = 25
      Caption = #20445#23384
      TabOrder = 4
      OnClick = BitBtn6Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888880000000000000880330000008803088033000000880308803300000088
        0308803300000000030880333333333333088033000000003308803088888888
        0308803088888888030880308888888803088030888888880308803088888888
        0008803088888888080880000000000000088888888888888888}
    end
    object BitBtn7: TBitBtn
      Left = 461
      Top = 7
      Width = 65
      Height = 25
      Caption = #36864#20986
      TabOrder = 5
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 525
    Width = 796
    Height = 19
    Panels = <
      item
        Width = 250
      end
      item
        Width = 100
      end>
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 796
    Height = 25
    Align = alTop
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 3
  end
  object Panel4: TPanel
    Left = 0
    Top = 25
    Width = 233
    Height = 366
    Align = alLeft
    BorderStyle = bsSingle
    TabOrder = 4
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 227
      Height = 360
      Align = alClient
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'DTypeId'
          Title.Caption = #31867#22411#32534#21495
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DTypeName'
          Title.Caption = #31867#22411#21517#31216
          Width = 48
          Visible = True
        end>
    end
  end
  object Panel5: TPanel
    Left = 233
    Top = 25
    Width = 563
    Height = 366
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 5
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 557
      Height = 360
      Align = alClient
      DataSource = DataSource2
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid2DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'Did'
          Title.Caption = #32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dtypeid'
          Title.Caption = #31867#22411#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dname'
          Title.Caption = #21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dmemo'
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 80
    Top = 81
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 425
    Top = 129
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from tdatatype')
    Left = 128
    Top = 137
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery2AfterScroll
    Parameters = <>
    Left = 361
    Top = 153
  end
end