frm_schoolinfo.dfm

来自「是一个用delphi设计的考勤系统」· DFM 代码 · 共 250 行

inherited SchoolInfo: TSchoolInfo
  Width = 433
  Height = 321
  Caption = #21333#20301#22522#26412#20449#24687#32500#25252
  OldCreateOrder = True
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 66
    Width = 80
    Height = 16
    Caption = #21333#20301#32534#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 0
    Top = 95
    Width = 80
    Height = 16
    Caption = #21333#20301#21517#31216#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Edtxqbh: TEdit
    Left = 78
    Top = 63
    Width = 148
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 10
    ParentFont = False
    TabOrder = 0
    OnKeyDown = EdtxqbhKeyDown
  end
  object EdtXqmc: TEdit
    Left = 78
    Top = 91
    Width = 330
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 50
    ParentFont = False
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 121
    Width = 408
    Height = 126
    DataSource = DataSource1
    FixedColor = clSilver
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Xqbh'
        Title.Caption = #21333#20301#32534#21495
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Xqmc'
        Title.Caption = #21333#20301#21517#31216
        Width = 220
        Visible = True
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 263
    Width = 425
    Height = 24
    Panels = <
      item
        Text = #31995#32479#25552#31034#65306
        Width = 60
      end
      item
        Width = 260
      end
      item
        Width = 50
      end>
  end
  object GroupBox1: TGroupBox
    Left = 1
    Top = 47
    Width = 409
    Height = 7
    TabOrder = 4
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 16
    Width = 81
    Height = 25
    Caption = #28155#21152
    TabOrder = 5
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 96
    Top = 16
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 6
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 176
    Top = 16
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 7
    OnClick = BitBtn3Click
  end
  object BitBtn5: TBitBtn
    Left = 344
    Top = 16
    Width = 75
    Height = 25
    Caption = #26597#25214
    TabOrder = 8
    Visible = False
    OnClick = BitBtn5Click
  end
  object BitBtn4: TBitBtn
    Left = 256
    Top = 16
    Width = 75
    Height = 25
    Caption = #21047#26032
    TabOrder = 9
    OnClick = BitBtn4Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQry
    Left = 64
    Top = 8
  end
  object ADOQry: TADOQuery
    Connection = WindData.AdoConn
    Parameters = <>
    Left = 96
    Top = 8
  end
  object ADOStp: TADOStoredProc
    Connection = WindData.AdoConn
    ProcedureName = 'pZx_S_jgxx;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@czdx'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@czfs'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Xqbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Yxbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Zybh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Bjbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@mc'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@retmsg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 50
        Value = Null
      end>
    Left = 176
    Top = 56
  end
end