xtsz_shszform.dfm

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

object XTSZ_SHSZ: TXTSZ_SHSZ
  Left = 249
  Top = 74
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #21806#21518#26381#21153#20449#24687
  ClientHeight = 180
  ClientWidth = 383
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 25
    Top = 9
    Width = 72
    Height = 16
    Caption = #32500#25252#26041#27861':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 25
    Top = 33
    Width = 72
    Height = 16
    Caption = #32500#25252#26399#38480':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 153
    Top = 33
    Width = 16
    Height = 16
    Caption = #24180
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 213
    Top = 33
    Width = 32
    Height = 16
    Caption = #20010#26376
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 283
    Top = -8
    Width = 3
    Height = 372
  end
  object Label5: TLabel
    Left = 299
    Top = 115
    Width = 22
    Height = 21
    Caption = #21806
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 296
    Top = 113
    Width = 22
    Height = 21
    Caption = #21806
    Font.Charset = GB2312_CHARSET
    Font.Color = clAqua
    Font.Height = -21
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 298
    Top = 114
    Width = 87
    Height = 71
    Caption = #21806
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 266
    Height = 121
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #32500#25252#26041#27861
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 112
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #32500#25252#26399#38480
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 114
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 115
    Top = 8
    Width = 121
    Height = 20
    ReadOnly = True
    TabOrder = 1
    OnKeyPress = Edit1KeyPress
  end
  object DBEdit1: TDBEdit
    Left = 115
    Top = 30
    Width = 33
    Height = 20
    DataField = 'Year'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object DBEdit2: TDBEdit
    Left = 175
    Top = 31
    Width = 33
    Height = 20
    DataField = 'Month'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 3
    OnKeyPress = Edit1KeyPress
  end
  object BitBtn1: TBitBtn
    Left = 296
    Top = 7
    Width = 75
    Height = 25
    Caption = #28155#21152'[&A]'
    TabOrder = 4
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 296
    Top = 43
    Width = 75
    Height = 25
    Caption = #21024#38500'[&D]'
    TabOrder = 5
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 296
    Top = 79
    Width = 75
    Height = 25
    Caption = #31163#24320'[&E]'
    TabOrder = 6
    OnClick = BitBtn3Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object DataSource1: TDataSource
    DataSet = MR_WX.ADOTable3
    OnDataChange = DataSource1DataChange
    Left = 120
    Top = 144
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx;Mode=Read'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#32500#25252#26041#27861' from '#32500#25252#26041#27861)
    Left = 72
    Top = 112
  end
end