search.dfm

绝对精品 预算管理系统 本人花钱购买来的源代 人民大学出版社会出版的教程

object frmsearch: Tfrmsearch
  Left = 41
  Top = 20
  Width = 933
  Height = 628
  Caption = #39044#31639#20250#35745#19994#21153#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 897
    Height = 185
    Caption = #35831#35774#32622#19968#20010#25110#22810#20010#26597#35810#26465#20214
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Labname: TLabel
      Left = 208
      Top = 72
      Width = 105
      Height = 16
      AutoSize = False
      Caption = #31649#29702#37096#38376#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Labpass: TLabel
      Left = 416
      Top = 72
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #24402#23646#37096#38376#20195#30721
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label1: TLabel
      Left = 24
      Top = 32
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #20973#35777#32534#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 208
      Top = 32
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #20973#35777#31867#21035#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 608
      Top = 72
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #24402#23646#37096#38376#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 144
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21457#29983#26085#26399
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 72
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #31649#29702#37096#38376#20195#30721
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label7: TLabel
      Left = 208
      Top = 112
      Width = 105
      Height = 16
      AutoSize = False
      Caption = #31185#30446#31867#21035#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 416
      Top = 112
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #39044#31639#31185#30446#20195#30721
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label11: TLabel
      Left = 608
      Top = 112
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #39044#31639#31185#30446#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 16
      Top = 112
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #31185#30446#31867#21035#20195#30721
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label13: TLabel
      Left = 96
      Top = 152
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #36215#22987#26085#26399
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label14: TLabel
      Left = 328
      Top = 152
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #25130#27490#26085#26399
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object dtfsrqqs: TDateTimePicker
      Left = 176
      Top = 152
      Width = 97
      Height = 25
      Date = 29221.626661620370000000
      Time = 29221.626661620370000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
    object comboxglbmmc: TComboBox
      Left = 305
      Top = 72
      Width = 88
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 1
    end
    object comboxyslbmc: TComboBox
      Left = 305
      Top = 112
      Width = 88
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 2
    end
    object comboxgsbmmc: TComboBox
      Left = 713
      Top = 72
      Width = 88
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 3
    end
    object comboxyskmmc: TComboBox
      Left = 713
      Top = 112
      Width = 88
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 4
    end
    object dtfsrqjz: TDateTimePicker
      Left = 416
      Top = 152
      Width = 97
      Height = 25
      Date = 38349.626661620370000000
      Time = 38349.626661620370000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 5
    end
  end
  object DBGrid1: TDBGrid
    Left = 11
    Top = 248
    Width = 894
    Height = 321
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        Title.Caption = #24207#21495
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pzhm'
        Title.Caption = #20973#35777#21495#30721
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pzlbmc'
        Title.Caption = #20973#35777#31867#21035#21517#31216
        Width = 79
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fsrq'
        Title.Caption = #21457#29983#26085#26399
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'glbmdm'
        Title.Caption = #31649#29702#37096#38376#20195#30721
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'glbmmc'
        Title.Caption = #31649#29702#37096#38376#21517#31216
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsbmdm'
        Title.Caption = #24402#23646#37096#38376#20195#30721
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsbmmc'
        Title.Caption = #36153#29992#24402#23646#37096#38376#21517#31216
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yslbdm'
        Title.Caption = #31185#30446#31867#21035#20195#30721
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yslbmc'
        Title.Caption = #39044#31639#31185#30446#31867#21035#21517#31216
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yskmdm'
        Title.Caption = #39044#31639#31185#30446#20195#30721
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yskmmc'
        Title.Caption = #39044#31639#31185#30446#21517#31216
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ywje'
        Title.Caption = #19994#21153#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object comboxglbmdm: TComboBox
    Left = 113
    Top = 72
    Width = 72
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 2
  end
  object comboxyslbdm: TComboBox
    Left = 113
    Top = 112
    Width = 72
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 3
  end
  object comboxgsbmdm: TComboBox
    Left = 513
    Top = 72
    Width = 72
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 4
  end
  object comboxyskmdm: TComboBox
    Left = 513
    Top = 112
    Width = 72
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 5
  end
  object comboxpzhm: TComboBox
    Left = 97
    Top = 32
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 6
  end
  object comboxpzlbmc: TComboBox
    Left = 305
    Top = 32
    Width = 88
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 7
  end
  object cmdsearch: TButton
    Left = 184
    Top = 208
    Width = 81
    Height = 25
    Caption = #26597#35810
    TabOrder = 8
    OnClick = cmdsearchClick
  end
  object cmdclear: TButton
    Left = 344
    Top = 208
    Width = 81
    Height = 25
    Caption = #28165#31354#26465#20214
    TabOrder = 9
  end
  object cmdexcel: TButton
    Left = 504
    Top = 208
    Width = 81
    Height = 25
    Caption = #23548#20986#33267'excel'
    TabOrder = 10
  end
  object cmdquit: TButton
    Left = 656
    Top = 208
    Width = 81
    Height = 25
    Caption = #36864#20986
    TabOrder = 11
    OnClick = cmdquitClick
  end
  object DataSource1: TDataSource
    DataSet = Querykjyw
    Left = 24
    Top = 576
  end
  object Database1: TDatabase
    AliasName = 'ysgl2004delphi'
    Connected = True
    DatabaseName = 'ysgl2004delphi'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      ''
      'PASSWORD=sa'
      '')
    SessionName = 'Default'
    Left = 136
    Top = 576
  end
  object Tablepzlb: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.pzlb'
    Left = 232
    Top = 576
  end
  object Tablegkglbm: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.gkglbm'
    Left = 296
    Top = 584
  end
  object Tablefygsbm: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.fygsbm'
    Left = 328
    Top = 576
  end
  object Tableyskmlb: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.yskmlb'
    Left = 368
    Top = 576
  end
  object Tableyskm: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.yskm'
    Left = 408
    Top = 576
  end
  object Tablekjyw2: TTable
    Active = True
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    TableName = 'dbo.kjyw'
    Left = 176
    Top = 584
  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 = 64
    Top = 576
  end
end