u_user.dfm

小银行系统

inherited F_user: TF_user
  Caption = #29992#25143#35774#23450
  PixelsPerInch = 96
  TextHeight = 16
  inherited ScrollBox1: TScrollBox
    inherited DBGrid1: TDBGridEh
      FrozenCols = 1
      Columns = <
        item
          EditButtons = <>
          FieldName = 'user_no'
          Footers = <>
          Title.Caption = #29992#25143#20195#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 85
        end
        item
          EditButtons = <>
          FieldName = 'user_nm'
          Footers = <>
          Title.Caption = #29992#25143#21517#31216
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    inherited DBEdit1: TDBEdit
      Left = 103
      Top = 20
      Height = 22
      DataField = 'user_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -14
      Font.Name = #23435#20307
      ParentFont = False
    end
    inherited DBEdit2: TDBEdit
      Left = 103
      Top = 59
      Height = 22
      DataField = 'user_nm'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -14
      Font.Name = #23435#20307
      ParentFont = False
    end
    object StaticText3: TStaticText
      Left = 24
      Top = 22
      Width = 60
      Height = 18
      Caption = #29992#25143#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object StaticText4: TStaticText
      Left = 24
      Top = 64
      Width = 60
      Height = 18
      Caption = #29992#25143#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object StaticText5: TStaticText
      Left = 24
      Top = 104
      Width = 60
      Height = 18
      Caption = #29992#25143#23494#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object DBEdit3: TDBEdit
      Left = 105
      Top = 102
      Width = 110
      Height = 22
      DataField = 'password'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 2
    end
    object StaticText6: TStaticText
      Left = 24
      Top = 141
      Width = 60
      Height = 18
      Caption = #36229#32423#29992#25143
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object DBEdit4: TDBEdit
      Left = 105
      Top = 139
      Width = 110
      Height = 22
      Color = clInfoBk
      DataField = 'administrator'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object StaticText7: TStaticText
      Left = 24
      Top = 182
      Width = 60
      Height = 18
      Caption = #21378#21035#20195#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object DBEdit5: TDBEdit
      Left = 105
      Top = 180
      Width = 110
      Height = 22
      DataField = 'fac_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object StaticText8: TStaticText
      Left = 24
      Top = 224
      Width = 60
      Height = 18
      Caption = #32452#21035#20195#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
    object DBEdit6: TDBEdit
      Left = 105
      Top = 222
      Width = 110
      Height = 22
      DataField = 'sec_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnEnter = DBEdit6Enter
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 216
      Top = 179
      Width = 129
      Height = 22
      Color = clInfoBk
      DataField = 'fac_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      KeyField = 'fac_no'
      ListField = 'fac_nm'
      ListSource = DSFAC
      ParentFont = False
      TabOrder = 13
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 215
      Top = 222
      Width = 129
      Height = 22
      Color = clInfoBk
      DataField = 'sec_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      KeyField = 'SEC_NO'
      ListField = 'sec_nm'
      ListSource = DSSEC
      ParentFont = False
      TabOrder = 14
    end
    object StaticText9: TStaticText
      Left = 24
      Top = 264
      Width = 60
      Height = 18
      Caption = #29992#25143#20027#31649
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
    end
    object DBEdit7: TDBEdit
      Left = 105
      Top = 262
      Width = 110
      Height = 22
      DataField = 'director'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnEnter = DBEdit7Enter
      OnExit = DBEdit7Exit
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 215
      Top = 262
      Width = 129
      Height = 22
      Color = clInfoBk
      DataField = 'director'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      KeyField = 'user_no'
      ListField = 'user_nm'
      ListSource = DSDIRECTOR
      ParentFont = False
      TabOrder = 16
    end
  end
  inherited ADODataSet1: TADODataSet
    CommandText = 
      'SELECT  *          FROM  USERDB  '#13#10' where sys_id='#39'4'#39' '#13#10'ORDER  BY' +
      ' USER_NO'
  end
  inherited ClientDataSet1: TClientDataSet
    object ClientDataSet1sys_id: TStringField
      FieldName = 'sys_id'
      Size = 2
    end
    object ClientDataSet1user_no: TStringField
      FieldName = 'user_no'
    end
    object ClientDataSet1user_nm: TStringField
      FieldName = 'user_nm'
    end
    object ClientDataSet1password: TStringField
      FieldName = 'password'
      Size = 10
    end
    object ClientDataSet1administrator: TStringField
      FieldName = 'administrator'
      Size = 1
    end
    object ClientDataSet1director: TStringField
      FieldName = 'director'
    end
    object ClientDataSet1fac_no: TStringField
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet1sec_no: TStringField
      FieldName = 'sec_no'
      Size = 5
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update dbo.userdb'
      'set'
      '  sys_id = :sys_id,'
      '  user_no = :user_no,'
      '  user_nm = :user_nm,'
      '  password = :password,'
      '  administrator = :administrator,'
      '  director = :director,'
      '  fac_no = :fac_no,'
      '  sec_no = :sec_no,'
      '  add_date = :add_date,'
      '  edit_date = :edit_date'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no')
    InsertSQL.Strings = (
      'insert into dbo.userdb'
      
        '  (sys_id, user_no, user_nm, password, administrator, director, ' +
        'fac_no, '
      '   sec_no, add_date, edit_date)'
      'values'
      
        '  (:sys_id, :user_no, :user_nm, :password, :administrator, :dire' +
        'ctor, :fac_no, '
      '   :sec_no, :add_date, :edit_date)')
    DeleteSQL.Strings = (
      'delete from dbo.userdb'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no')
  end
  object FAC: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'factory'
    CommandType = cmdTable
    Parameters = <>
    Left = 56
    Top = 248
  end
  object DSFAC: TDataSource
    DataSet = FAC
    Left = 88
    Top = 248
  end
  object SEC: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'Sec'
    CommandType = cmdTable
    Parameters = <>
    Left = 56
    Top = 288
  end
  object DSSEC: TDataSource
    DataSet = SEC
    Left = 88
    Top = 288
  end
  object DIRECTOR: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'userdb'
    CommandType = cmdTable
    Parameters = <>
    Left = 56
    Top = 328
  end
  object DSDIRECTOR: TDataSource
    DataSet = DIRECTOR
    Left = 88
    Top = 328
  end
end