unit5.dfm

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

object users: Tusers
  Left = 173
  Top = 126
  BorderStyle = bsSingle
  Caption = #29992#25143#25805#20316
  ClientHeight = 513
  ClientWidth = 760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 488
    Top = 40
    Width = 103
    Height = 26
    Caption = #26597#35810#26465#20214':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #21326#25991#32454#40657
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 248
    Width = 135
    Height = 29
    Caption = #29992#25143#32534#21495':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 248
    Top = 248
    Width = 105
    Height = 29
    Caption = #29992#25143#21517':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 528
    Top = 248
    Width = 75
    Height = 29
    Caption = #24615#21035':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 292
    Top = 296
    Width = 75
    Height = 29
    Caption = #26435#38480':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 16
    Top = 296
    Width = 135
    Height = 29
    Caption = #20986#29983#26085#26399':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 16
    Top = 344
    Width = 135
    Height = 29
    Caption = #23478#24237#20303#22336':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 16
    Top = 392
    Width = 135
    Height = 29
    Caption = #32852#31995#26041#24335':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 440
    Width = 135
    Height = 29
    Caption = #30005#23376#37038#31665':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 504
    Top = 296
    Width = 75
    Height = 29
    Caption = #23494#30721':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 8
    Width = 449
    Height = 209
    Ctl3D = True
    DataSource = DataSource1
    ImeName = #26497#21697#20116#31508
    ParentCtl3D = False
    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 = #29992#25143#32534#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29992#25143#21517
        PickList.Strings = (
          #30007
          #22899)
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        PickList.Strings = (
          #30007
          #22899)
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26435#38480
        PickList.Strings = (
          #26222#36890#29992#25143
          #31995#32479#31649#29702#21592)
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20986#29983#26085#26399
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23478#24237#20303#22336
        Width = 136
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32852#31995#26041#24335
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30005#23376#37038#31665
        Width = 123
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 496
    Top = 120
    Width = 121
    Height = 29
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #21326#25991#20223#23435
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ParentFont = False
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 600
    Top = 40
    Width = 113
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #21326#25991#20223#23435
    Font.Style = [fsBold]
    ImeName = #26497#21697#20116#31508
    ItemHeight = 22
    ParentFont = False
    TabOrder = 2
    Text = #29992#25143#32534#21495
    Items.Strings = (
      #29992#25143#32534#21495
      #29992#25143#21517)
  end
  object Button1: TButton
    Left = 640
    Top = 120
    Width = 81
    Height = 33
    Caption = #26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 576
    Top = 336
    Width = 89
    Height = 40
    Caption = #20462' '#25913
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 576
    Top = 392
    Width = 89
    Height = 40
    Caption = #21024' '#38500
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 576
    Top = 448
    Width = 89
    Height = 40
    Caption = #36820' '#22238
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button4Click
  end
  object DBEdit1: TDBEdit
    Left = 152
    Top = 248
    Width = 73
    Height = 28
    DataField = #29992#25143#32534#21495
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
  end
  object DBEdit2: TDBEdit
    Left = 360
    Top = 248
    Width = 137
    Height = 28
    Ctl3D = True
    DataField = #29992#25143#21517
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 8
  end
  object DBEdit3: TDBEdit
    Left = 152
    Top = 296
    Width = 137
    Height = 28
    DataField = #20986#29983#26085#26399
    DataSource = DataSource1
    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 = 9
  end
  object DBEdit4: TDBEdit
    Left = 152
    Top = 344
    Width = 300
    Height = 28
    DataField = #23478#24237#20303#22336
    DataSource = DataSource1
    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 = 10
  end
  object DBEdit5: TDBEdit
    Left = 152
    Top = 392
    Width = 300
    Height = 28
    DataField = #32852#31995#26041#24335
    DataSource = DataSource1
    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 = 11
  end
  object DBEdit6: TDBEdit
    Left = 152
    Top = 440
    Width = 300
    Height = 28
    DataField = #30005#23376#37038#31665
    DataSource = DataSource1
    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 = 12
  end
  object DBComboBox1: TDBComboBox
    Left = 368
    Top = 296
    Width = 113
    Height = 28
    DataField = #26435#38480
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ItemHeight = 20
    Items.Strings = (
      #26222#36890#29992#25143
      #31995#32479#31649#29702#21592)
    ParentFont = False
    TabOrder = 13
  end
  object DBComboBox2: TDBComboBox
    Left = 616
    Top = 248
    Width = 57
    Height = 28
    DataField = #24615#21035
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ItemHeight = 20
    Items.Strings = (
      #30007
      #22899)
    ParentFont = False
    TabOrder = 14
  end
  object DBEdit7: TDBEdit
    Left = 576
    Top = 296
    Width = 89
    Height = 28
    DataField = #23494#30721
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 15
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 65528
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = login.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from '#29992#25143#20449#24687)
    Left = 65528
    Top = 168
  end
end