userset_unit.dfm

来自「药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK」· DFM 代码 · 共 204 行

object frmUserSet: TfrmUserSet
  Left = 336
  Top = 200
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29992#25143#35774#23450
  ClientHeight = 313
  ClientWidth = 454
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 9
    Top = 9
    Width = 191
    Height = 295
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 187
      Height = 291
      Align = alClient
      DataSource = dsrUser
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LoginID'
          Title.Alignment = taCenter
          Title.Caption = #30331#24405#32534#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LogName'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#21517
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Password'
          Title.Alignment = taCenter
          Title.Caption = #23494#30721
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 206
    Top = 9
    Width = 235
    Height = 295
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 17
      Top = 17
      Width = 60
      Height = 12
      Caption = #30331#24405#32534#21495#65306
    end
    object Label2: TLabel
      Left = 17
      Top = 48
      Width = 60
      Height = 12
      Caption = #29992#25143#21517#31216#65306
    end
    object Label3: TLabel
      Left = 26
      Top = 82
      Width = 48
      Height = 12
      Caption = #23494'  '#30721#65306
    end
    object Label4: TLabel
      Left = 26
      Top = 145
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object txtLoginID: TDBText
      Left = 87
      Top = 17
      Width = 70
      Height = 19
      DataField = 'LoginID'
      DataSource = dsrUser
    end
    object edtLogName: TDBEdit
      Left = 87
      Top = 43
      Width = 131
      Height = 20
      DataField = 'LogName'
      DataSource = dsrUser
      TabOrder = 0
    end
    object edtRemark: TDBMemo
      Left = 87
      Top = 113
      Width = 131
      Height = 105
      DataField = 'Remark'
      DataSource = dsrUser
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object edtPassword: TDBEdit
      Left = 87
      Top = 78
      Width = 131
      Height = 20
      DataField = 'Password'
      DataSource = dsrUser
      TabOrder = 2
    end
    object btnSave: TBitBtn
      Left = 128
      Top = 260
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 3
      OnClick = btnSaveClick
    end
    object btnDelete: TBitBtn
      Left = 26
      Top = 260
      Width = 81
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 4
      OnClick = btnDeleteClick
    end
    object btnModify: TBitBtn
      Left = 128
      Top = 225
      Width = 81
      Height = 27
      Caption = #20462#25913'(&M)'
      TabOrder = 5
      OnClick = btnModifyClick
    end
    object btnAdd: TBitBtn
      Left = 26
      Top = 225
      Width = 81
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 6
      OnClick = btnAddClick
    end
  end
  object dsrUser: TDataSource
    DataSet = qryUser
    Left = 136
    Top = 224
  end
  object qryUser: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 104
    Top = 224
  end
end