display.dfm

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

object frmdisplay: Tfrmdisplay
  Left = 303
  Top = 204
  Width = 443
  Height = 467
  Caption = #39044#31639#20250#35745#19994#21153#36164#26009#26174#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Labname: TLabel
    Left = 224
    Top = 112
    Width = 105
    Height = 16
    AutoSize = False
    Caption = #31649#29702#37096#38376#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Labpass: TLabel
    Left = 24
    Top = 152
    Width = 97
    Height = 16
    AutoSize = False
    Caption = #24402#23646#37096#38376#20195#30721
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label1: TLabel
    Left = 32
    Top = 32
    Width = 89
    Height = 16
    AutoSize = False
    Caption = #20973#35777#32534#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 216
    Top = 32
    Width = 97
    Height = 16
    AutoSize = False
    Caption = #20973#35777#31867#21035#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 224
    Top = 152
    Width = 105
    Height = 16
    AutoSize = False
    Caption = #24402#23646#37096#38376#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 32
    Top = 72
    Width = 73
    Height = 16
    AutoSize = False
    Caption = #21457#29983#26085#26399
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 24
    Top = 112
    Width = 97
    Height = 16
    AutoSize = False
    Caption = #31649#29702#37096#38376#20195#30721#21517#31216
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label4: TLabel
    Left = 216
    Top = 192
    Width = 105
    Height = 16
    AutoSize = False
    Caption = #31185#30446#31867#21035#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 16
    Top = 224
    Width = 97
    Height = 16
    AutoSize = False
    Caption = #39044#31639#31185#30446#20195#30721
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label8: TLabel
    Left = 216
    Top = 224
    Width = 105
    Height = 16
    AutoSize = False
    Caption = #39044#31639#31185#30446#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 192
    Width = 97
    Height = 16
    AutoSize = False
    Caption = #31185#30446#31867#21035#20195#30721
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 16
    Top = 296
    Width = 81
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = #22791#27880
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 24
    Top = 264
    Width = 73
    Height = 16
    AutoSize = False
    Caption = #19994#21153#37329#39069
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DTfsrq: TDateTimePicker
    Left = 120
    Top = 72
    Width = 105
    Height = 25
    Date = 2.626661620372033000
    Time = 2.626661620372033000
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
  end
  object comboxglbmmc: TComboBox
    Left = 329
    Top = 112
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 1
  end
  object comboxyslbmc: TComboBox
    Left = 329
    Top = 192
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 2
  end
  object comboxgsbmmc: TComboBox
    Left = 329
    Top = 152
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 3
  end
  object comboxyskmmc: TComboBox
    Left = 329
    Top = 224
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 4
  end
  object cmdquit: TButton
    Left = 144
    Top = 384
    Width = 81
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = cmdquitClick
  end
  object comboxglbmdm: TComboBox
    Left = 121
    Top = 112
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 6
  end
  object comboxyslbdm: TComboBox
    Left = 121
    Top = 192
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 7
  end
  object comboxgsbmdm: TComboBox
    Left = 121
    Top = 152
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 8
  end
  object comboxyskmdm: TComboBox
    Left = 121
    Top = 224
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 9
  end
  object comboxpzlbmc: TComboBox
    Left = 321
    Top = 32
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 10
  end
  object comboxpzhm: TComboBox
    Left = 97
    Top = 32
    Width = 112
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 11
  end
  object comboxywje: TComboBox
    Left = 121
    Top = 256
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 12
  end
  object editbz: TEdit
    Left = 120
    Top = 296
    Width = 297
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 13
  end
  object DataSource1: TDataSource
    Left = 16
    Top = 384
  end
  object DataSource2: TDataSource
    DataSet = Querykjyw
    Left = 16
    Top = 384
  end
  object Querykjyw: TQuery
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    SQL.Strings = (
      
        'SELECT a.pzhm, a.pzlbmc, a.fsrq, a.glbmdm, b.glbmmc, a.gsbmdm, c' +
        '.gsbmmc, a.yslbdm, '
      '      d.yslbmc, a.yskmdm, e.yskmmc, a.ywje, a.bz'
      'FROM kjyw a INNER JOIN'
      '      yskmlb d ON a.yslbdm = d.dm INNER JOIN'
      '      yskm e ON a.yskmdm = e.dm INNER JOIN'
      '      fygsbm c ON a.gsbmdm = c.dm INNER JOIN'
      '      gkglbm b ON a.glbmdm = b.dm'
      'ORDER BY a.pzhm')
    Left = 56
    Top = 392
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'ysgl2004delphi'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'password=sa')
    SessionName = 'Default'
    Left = 248
    Top = 384
  end
end