unit4.dfm

这是本人网络数据库实习的程序,编程语言选择DELPHI7.0,完全个人编写.本程序一些界面还不够完善,功能不大,还有很多地方需要改进,望有兴趣的朋友一起探讨或通过电子邮箱与我联系!

        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -32
        Font.Name = #20223#23435'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 288
        Top = 472
        Width = 49
        Height = 20
        AutoSize = False
        Caption = #20221#25968':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 24
        Top = 424
        Width = 137
        Height = 25
        AutoSize = False
        Caption = #24320#22987#35746#38405#26085#26399':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 384
        Top = 424
        Width = 137
        Height = 20
        AutoSize = False
        Caption = #35746#38405#32467#26463#26085#26399':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 248
        Top = 432
        Width = 16
        Height = 20
        Caption = #24180
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 336
        Top = 432
        Width = 16
        Height = 20
        Caption = #26376
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 600
        Top = 424
        Width = 16
        Height = 20
        Caption = #24180
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 688
        Top = 424
        Width = 16
        Height = 20
        Caption = #26376
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit2: TEdit
        Left = 568
        Top = 120
        Width = 145
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ParentFont = False
        TabOrder = 0
      end
      object ComboBox6: TComboBox
        Left = 584
        Top = 40
        Width = 129
        Height = 28
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #40657#20307
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 1
        Text = #25253#21002#20195#21495
        Items.Strings = (
          #25253#21002#20195#21495
          #25253#21002#21517#31216
          #21002#26399
          #25972#35746#26399)
      end
      object Button4: TButton
        Left = 640
        Top = 200
        Width = 81
        Height = 33
        Caption = #26597#35810
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button4Click
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 56
        Width = 401
        Height = 217
        DataSource = main.DataSource1
        ImeName = #26497#21697#20116#31508
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #25253#21002#20195#21495
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25253#21002#21517#31216
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21002#26399
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25972#35746#26399
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25972#35746#20215
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20840#24180#20215
            Width = 44
            Visible = True
          end>
      end
      object ComboBox5: TComboBox
        Left = 200
        Top = 16
        Width = 137
        Height = 28
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #40657#20307
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 4
        Text = #35835#20070#25991#25688
        OnChange = ComboBox5Change
        Items.Strings = (
          #35835#20070#25991#25688
          #24037#20892#20449#24687
          #23478#24237#29983#27963
          #37329#34701#35777#21048
          #26053#28216#25668#24433
          #32654#39135#20043#33489
          #27773#36710#23478#30005
          #26102#23578#21160#24577
          #25968#30721#31185#25216
          #25991#21270#33402#26415
          #26032#38395#36164#35759
          #23398#20064#22253#22320
          #21307#25252#22825#22320
          #22253#19969#20043#31383
          #36816#21160#20241#38386
          #25152#26377#25253#21002)
      end
      object Edit1: TEdit
        Left = 352
        Top = 472
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ParentFont = False
        TabOrder = 5
      end
      object ComboBox1: TComboBox
        Left = 176
        Top = 424
        Width = 65
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 6
        Text = '2005'
        OnChange = ComboBox1Change
        Items.Strings = (
          '2005'
          '2006')
      end
      object ComboBox2: TComboBox
        Left = 280
        Top = 424
        Width = 49
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 7
        Text = '1'
        OnChange = ComboBox2Change
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
      end
      object ComboBox3: TComboBox
        Left = 528
        Top = 416
        Width = 65
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 8
        Text = '2006'
        OnChange = ComboBox3Change
        Items.Strings = (
          '2006'
          '2007'
          '2008')
      end
      object ComboBox4: TComboBox
        Left = 632
        Top = 416
        Width = 49
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508
        ItemHeight = 20
        ParentFont = False
        TabOrder = 9
        Text = '1'
        OnChange = ComboBox4Change
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
      end
      object Button1: TButton
        Left = 224
        Top = 524
        Width = 89
        Height = 33
        Caption = #30830#23450
        TabOrder = 10
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 432
        Top = 524
        Width = 89
        Height = 33
        Caption = #21462#28040
        TabOrder = 11
        OnClick = Button2Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 65532
    Top = 64
  end
  object ADOQuery1: TADOQuery
    Connection = login.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 65532
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 4
    Top = 304
  end
  object ADOQuery2: TADOQuery
    Connection = login.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 12
    Top = 280
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = login.ADOConnection1
    CursorType = ctStatic
    TableName = #35746#21333#20449#24687
    Left = 4
    Top = 400
  end
end