unit2.dfm

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

object main: Tmain
  Left = 187
  Top = 105
  Width = 701
  Height = 506
  Caption = #25805#20316#30028#38754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 520
    Top = 344
    Width = 152
    Height = 37
    Caption = #25105#35201#27880#20876
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -37
    Font.Name = #26032#23435#20307
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 528
    Top = 168
    Width = 165
    Height = 32
    Caption = #25253#21002#30446#24405#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 616
    Top = 64
    Width = 3
    Height = 13
  end
  object Label5: TLabel
    Left = 520
    Top = 0
    Width = 163
    Height = 24
    Caption = #29992#25143#24403#21069#36523#20221':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 560
    Top = 40
    Width = 66
    Height = 33
    Caption = #28216#23458
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #21326#25991#26032#39759
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 240
    Top = 32
    Width = 149
    Height = 32
    Caption = #26597#35810#26465#20214':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 256
    Top = 104
    Width = 99
    Height = 32
    Caption = #20851#38190#23383
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 168
    Width = 489
    Height = 249
    DataSource = DataSource1
    ImeName = #26497#21697#20116#31508
    ReadOnly = True
    TabOrder = 0
    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 = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25253#21002#21517#31216
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21002#26399
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25972#35746#26399
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25972#35746#20215
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20840#24180#20215
        Width = 63
        Visible = True
      end>
  end
  object ComboBox1: TComboBox
    Left = 536
    Top = 232
    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 = 1
    Text = #35835#20070#25991#25688
    OnChange = ComboBox1Change
    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 RadioGroup1: TRadioGroup
    Left = 32
    Top = 16
    Width = 193
    Height = 129
    Caption = #26597#35810#26041#24335#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #21326#25991#32454#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object RadioButton1: TRadioButton
    Left = 64
    Top = 56
    Width = 113
    Height = 25
    Caption = #30446#24405#26597#35810' '
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #21326#25991#32454#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    TabStop = True
  end
  object RadioButton2: TRadioButton
    Left = 64
    Top = 96
    Width = 113
    Height = 33
    Caption = #20840#37096#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #21326#25991#32454#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Edit1: TEdit
    Left = 360
    Top = 104
    Width = 153
    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 ComboBox2: TComboBox
    Left = 392
    Top = 32
    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 = 6
    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 = 544
    Top = 104
    Width = 89
    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 = 7
    OnClick = Button4Click
  end
  object MainMenu1: TMainMenu
    Top = 65520
    object cz: TMenuItem
      Caption = #25805#20316
      object N5: TMenuItem
        Caption = #23494#30721#20462#25913
        OnClick = N5Click
      end
      object N7: TMenuItem
        Caption = '    '#27880#38144
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '    '#36864#20986
        OnClick = N8Click
      end
    end
    object dy: TMenuItem
      Caption = #35746#38405
      OnClick = dyClick
    end
    object tj: TMenuItem
      Caption = #32479#35745
      object N9: TMenuItem
        Caption = #20154#21592#32479#35745
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #25253#21002#32479#35745
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #37329#39069#32479#35745
        OnClick = N11Click
      end
    end
    object gly: TMenuItem
      Caption = #31649#29702#21592
      object N1: TMenuItem
        Caption = #24405#20837#25968#25454
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = #20462#25913#25968#25454
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #21024#38500#25968#25454
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #29992#25143#25805#20316
        OnClick = N4Click
      end
      object N14: TMenuItem
        Caption = #20154#21592#26597#35810
        OnClick = N14Click
      end
    end
    object bz: TMenuItem
      Caption = #24110#21161
      object N12: TMenuItem
        Caption = #24320#21457#32773
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #20351#29992#35828#26126
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 424
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = login.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#25253#21002#20449#24687)
    Top = 16
  end
end