unit4.dfm

CBUILDER+SQL的实现

object Form4: TForm4
  Left = 198
  Top = 142
  Width = 501
  Height = 376
  Caption = #29992#25143#31649#29702'       '#21487#22312#34920#20013#30452#25509#20462#25913#29992#25143#20449#24687' '#65281
  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 = 48
    Top = 224
    Width = 48
    Height = 16
    Caption = #29992#25143#21517'    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 280
    Width = 51
    Height = 16
    Caption = #23494'     '#30721'    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 208
    Top = 232
    Width = 69
    Height = 13
    Caption = #29992#25143#26435#38480'       '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 208
    Top = 288
    Width = 99
    Height = 13
    Caption = #29992#25143#26377#25928#21017#36873'1       '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 448
    Top = 248
    Width = 3
    Height = 13
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 493
    Height = 81
    Align = alTop
    Caption = #36755#20837#26597#35810#26465#20214
    TabOrder = 0
    object LabeledEdit3: TLabeledEdit
      Left = 24
      Top = 40
      Width = 121
      Height = 21
      EditLabel.Width = 78
      EditLabel.Height = 13
      EditLabel.Caption = #22995#21517'['#31934#30830#26597#35810']'
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 0
    end
    object Button4: TButton
      Left = 176
      Top = 40
      Width = 75
      Height = 25
      Caption = #26816#32034
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 288
      Top = 40
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = Button5Click
    end
  end
  object DBGrid1: TDBGrid
    Left = -8
    Top = 88
    Width = 489
    Height = 121
    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
        FieldName = 'user_name'
        Title.Caption = #29992#25143#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'password'
        Title.Caption = #23494#30721
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'type'
        Title.Caption = #31867#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'valid'
        Title.Caption = #26377#25928#29992#25143
        Visible = True
      end>
  end
  object DBComboBox1: TDBComboBox
    Left = 208
    Top = 248
    Width = 113
    Height = 21
    DataField = 'type'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    Items.Strings = (
      #31649#29702#21592
      #25910#36153#29992#25143
      #19968#33324#29992#25143)
    TabOrder = 2
  end
  object DBEdit1: TDBEdit
    Left = 40
    Top = 248
    Width = 121
    Height = 21
    DataField = 'user_name'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
  end
  object DBEdit2: TDBEdit
    Left = 40
    Top = 304
    Width = 121
    Height = 21
    DataField = 'password'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 4
  end
  object Button1: TButton
    Left = 360
    Top = 304
    Width = 75
    Height = 25
    Caption = #20445#23384
    Enabled = False
    TabOrder = 5
    OnClick = Button1Click
  end
  object DBComboBox2: TDBComboBox
    Left = 208
    Top = 304
    Width = 113
    Height = 21
    DataField = 'valid'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    Items.Strings = (
      '1'
      '-1')
    TabOrder = 6
  end
  object Button6: TButton
    Left = 360
    Top = 248
    Width = 75
    Height = 25
    Caption = #26032#22686
    TabOrder = 7
    OnClick = Button6Click
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'db'
    IndexFieldNames = 'user_name'
    TableName = 'dbo.Users'
    Left = 248
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 152
    Top = 160
  end
end