ywgl_shfw_tjform.~dfm

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

object YWGL_SHFW_TJ: TYWGL_SHFW_TJ
  Left = 337
  Top = 300
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #21806#21518#26381#21153#30331#35760
  ClientHeight = 183
  ClientWidth = 427
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 48
    Height = 12
    Caption = #32500#20462#21333#21495
  end
  object Label2: TLabel
    Left = 16
    Top = 75
    Width = 48
    Height = 12
    Caption = #32500#25252#26085#26399
  end
  object Label3: TLabel
    Left = 16
    Top = 133
    Width = 48
    Height = 12
    Caption = #32500#25252#21407#22240
  end
  object Label4: TLabel
    Left = 16
    Top = 160
    Width = 48
    Height = 12
    Caption = #32500#25252#20869#23481
  end
  object Label5: TLabel
    Left = 16
    Top = 48
    Width = 36
    Height = 12
    Caption = #32500#25252#20154
  end
  object Label6: TLabel
    Left = 16
    Top = 104
    Width = 48
    Height = 12
    Caption = #23458#25143#21517#31216
  end
  object Bevel1: TBevel
    Left = 320
    Top = -9
    Width = 3
    Height = 193
  end
  object BitBtn1: TBitBtn
    Left = 336
    Top = 8
    Width = 75
    Height = 25
    Caption = #30331#35760'[&A]'
    TabOrder = 0
    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 = 336
    Top = 48
    Width = 75
    Height = 25
    Caption = #21462#28040'[&E]'
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333FFFFF333333000033333388888833333333333F888888FFF333
      000033338811111188333333338833FFF388FF33000033381119999111833333
      38F338888F338FF30000339119933331111833338F388333383338F300003391
      13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
      33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
      33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
      000039183811193333918338F8F833F83333838F000039118111933339118338
      F3833F83333833830000339111193333391833338F33F8333FF838F300003391
      11833338111833338F338FFFF883F83300003339111888811183333338FF3888
      83FF83330000333399111111993333333388FFFFFF8833330000333333999999
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object Edit1: TEdit
    Left = 72
    Top = 11
    Width = 233
    Height = 20
    TabOrder = 2
    OnKeyDown = Edit1KeyDown
  end
  object Edit2: TEdit
    Left = 72
    Top = 99
    Width = 233
    Height = 20
    TabOrder = 3
    OnKeyDown = Edit2KeyDown
  end
  object Edit3: TEdit
    Left = 72
    Top = 128
    Width = 233
    Height = 20
    TabOrder = 4
    OnKeyDown = Edit3KeyDown
  end
  object Edit4: TEdit
    Left = 72
    Top = 155
    Width = 233
    Height = 20
    TabOrder = 5
    OnKeyDown = Edit4KeyDown
  end
  object DateTimePicker1: TDateTimePicker
    Left = 72
    Top = 70
    Width = 233
    Height = 20
    CalAlignment = dtaLeft
    Date = 37573.7740855903
    Time = 37573.7740855903
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 6
    OnKeyDown = DateTimePicker1KeyDown
  end
  object BitBtn3: TBitBtn
    Left = 336
    Top = 88
    Width = 73
    Height = 25
    Caption = #36864#20986
    TabOrder = 7
    OnClick = BitBtn3Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0050FF00055555
      555558070F00555555550800FFF8055555550880000F800555555007FFF08800
      055555500FF800BBB0055555500BBBBBBBB05555500000000BB855500BBBBBBB
      B000550BB000000B000F50B00BBBBB0B0B50500BBBBBBB0B0B55550BBBBBB0B0
      B0555550BBBB0B0B055555550000B00055555555550000555555}
  end
  object DBComboBox1: TDBComboBox
    Left = 72
    Top = 40
    Width = 233
    Height = 22
    DataField = #32844#21592#21517#31216
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 8
    OnKeyDown = DBComboBox1KeyDown
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#32844#21592#21517#31216' from '#32844#21592#34920)
    Left = 328
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 368
    Top = 128
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM '#21806#21518#26381#21153#30331#35760)
    Left = 336
    Top = 160
  end
end