aduser.dfm

药店GSP源码

object Form9: TForm9
  Left = 207
  Top = 116
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #28155#21152#21024#38500#25805#20316#21592
  ClientHeight = 349
  ClientWidth = 413
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 8
    Width = 413
    Height = 153
    Caption = #28155#21152#25805#20316#21592
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 12
      Caption = #29992#25143#21517#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 12
      Caption = #23494'  '#30721#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 48
      Height = 12
      Caption = #22995'  '#21517#65306
    end
    object Edit1: TEdit
      Left = 64
      Top = 19
      Width = 105
      Height = 20
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 64
      Top = 51
      Width = 105
      Height = 20
      PasswordChar = '*'
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 64
      Top = 83
      Width = 105
      Height = 20
      TabOrder = 2
    end
    object BitBtn1: TBitBtn
      Left = 216
      Top = 20
      Width = 81
      Height = 20
      Caption = #22686#21152
      TabOrder = 3
      OnClick = BitBtn1Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330033333333333333003333300033333300333330F03333
        3300333330F033333300330000F000033300330FFFFFFF033300330000F00003
        3300333330F033333300333330F0333333003333300033333300333333333333
        33003333333333333300}
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 128
      Width = 210
      Height = 22
      DataSource = DataSource1
      TabOrder = 4
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 168
    Width = 413
    Height = 177
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UserCode'
        Title.Alignment = taCenter
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UserName'
        Title.Alignment = taCenter
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PassWork'
        Title.Alignment = taCenter
        Width = 111
        Visible = True
      end>
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'AD'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME='
      'ODBC DSN=kds'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 320
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'AD'
    TableName = 'Users'
    Left = 320
    Top = 56
    object Table1ID: TAutoIncField
      FieldName = 'ID'
    end
    object Table1UserCode: TStringField
      DisplayLabel = #29992#25143#21517
      FieldName = 'UserCode'
      Size = 50
    end
    object Table1UserName: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'UserName'
      Size = 50
    end
    object Table1PassWork: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'PassWork'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 360
    Top = 56
  end
end