u_useset.dfm

小银行系统

inherited F_useset: TF_useset
  Left = 17
  Top = 86
  Width = 768
  Height = 455
  Caption = #29992#25143#26435#38480#35774#23450
  PixelsPerInch = 96
  TextHeight = 16
  inherited Splitter1: TSplitter
    Height = 428
  end
  inherited ScrollBox1: TScrollBox
    Height = 428
    inherited Memo1: TMemo
      Height = 424
    end
    inherited DBGrid1: TDBGridEh
      Height = 424
      DataSource = DataSource2
      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 = 82
        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
    Width = 582
    Height = 428
    inherited DBEdit1: TDBEdit
      Left = 8
      Top = 8
      DataField = 'user_no'
      DataSource = DataSource1
    end
    inherited DBEdit2: TDBEdit
      Left = 160
      Top = 8
      DataField = 'program_no'
      DataSource = DataSource1
    end
    object wwDBGrid1: TwwDBGrid
      Left = 0
      Top = 0
      Width = 578
      Height = 424
      Hint = #29992#25143#26435#38480#35774#32622#13#10#21491#38190#33756#21333#25209#22788#29702#26435#38480
      ControlType.Strings = (
        'insertrights;CheckBox;Y;N'
        'selectrights;CheckBox;Y;N'
        'deleterights;CheckBox;Y;N'
        'updaterights;CheckBox;Y;N'
        'approverights;CheckBox;Y;N'
        'aduitrights;CheckBox;Y;N'
        'makerights;CheckBox;Y;N'
        'counteractrights;CheckBox;Y;N'
        'fileawayrights;CheckBox;Y;N'
        'printrights;CheckBox;Y;N'
        'statsrights;CheckBox;Y;N'
        'modulesrights;CustomEdit;modulesrightsCombo'
        'p_add;CheckBox;Y;N'
        'p_edit;CheckBox;Y;N'
        'p_delete;CheckBox;Y;N'
        'p_query;CheckBox;Y;N'
        'p_getdata;CheckBox;Y;N'
        'p_print;CheckBox;Y;N'
        'p_datain;CheckBox;Y;N'
        'p_dataout;CheckBox;Y;N'
        'mod_rights;CustomEdit;mod_rightsCombo;F'
        'p_browse;CheckBox;Y;N')
      Selected.Strings = (
        'program_no'#9'16'#9#31243#24207#32534#21495#9'T'
        'program_nm'#9'21'#9#31243#24207#21517#31216#9'T'
        'p_add'#9'4'#9#26032#22686#9'F'
        'p_edit'#9'4'#9#20462#25913#9'F'
        'p_delete'#9'4'#9#21024#38500#9'F'
        'p_query'#9'4'#9#26597#35810#9'F'
        'p_getdata'#9'4'#9#21462#20540#9'F'
        'p_browse'#9'6'#9#27983#35272#9'F'
        'p_print'#9'4'#9#25171#21360#9'F'
        'mod_rights'#9'8'#9#27169#22359#26435#38480#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clNavy
      FixedCols = 1
      ShowHorzScrollBar = True
      Align = alClient
      Color = clBtnFace
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imClose
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      KeyOptions = [dgAllowDelete]
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
      TitleAlignment = taCenter
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWhite
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      IndicatorIconColor = clYellow
    end
    object mod_rightsCombo: TwwDBComboBox
      Left = 172
      Top = 52
      Width = 106
      Height = 24
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = False
      DataField = 'mod_rights'
      DataSource = DataSource1
      DropDownCount = 8
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 0
      Items.Strings = (
        'Disable'#9'0'
        'Enable'#9'1'
        'Hide'#9'2')
      Sorted = True
      TabOrder = 3
      UnboundDataType = wwDefault
      Visible = False
    end
  end
  inherited ADODataSet1: TADODataSet
    CommandText = 
      'SELECT A.*, B.program_nm  FROM  setprogram A  INNER JOIN program' +
      ' B'#13#10' ON  A.program_id=B.program_id  AND A.program_no=B.program_n' +
      'o'#13#10' WHERE A.sys_id='#39'4'#39'   AND B.sys_id='#39'4'#39'   AND  A.user_no = :us' +
      'er_no'#13#10' ORDER BY  B.program_id, A.program_no'#13#10
    Parameters = <
      item
        Name = 'user_no'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '00000'
      end>
  end
  inherited ClientDataSet1: TClientDataSet
    Active = True
    Params = <
      item
        DataType = ftString
        Name = 'user_no'
        ParamType = ptInput
        Value = '00000'
      end>
    object ClientDataSet1sys_id: TStringField
      FieldName = 'sys_id'
      Size = 2
    end
    object ClientDataSet1user_no: TStringField
      FieldName = 'user_no'
    end
    object ClientDataSet1program_id: TStringField
      FieldName = 'program_id'
      Size = 4
    end
    object ClientDataSet1program_no: TStringField
      FieldName = 'program_no'
    end
    object ClientDataSet1p_add: TStringField
      FieldName = 'p_add'
      Size = 1
    end
    object ClientDataSet1p_edit: TStringField
      FieldName = 'p_edit'
      Size = 1
    end
    object ClientDataSet1p_delete: TStringField
      FieldName = 'p_delete'
      Size = 1
    end
    object ClientDataSet1p_query: TStringField
      FieldName = 'p_query'
      Size = 1
    end
    object ClientDataSet1p_getdata: TStringField
      FieldName = 'p_getdata'
      Size = 1
    end
    object ClientDataSet1p_print: TStringField
      FieldName = 'p_print'
      Size = 1
    end
    object ClientDataSet1p_datain: TStringField
      FieldName = 'p_datain'
      Size = 1
    end
    object ClientDataSet1p_dataout: TStringField
      FieldName = 'p_dataout'
      Size = 1
    end
    object ClientDataSet1mod_rights: TStringField
      FieldName = 'mod_rights'
      Size = 1
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
    object ClientDataSet1program_nm: TStringField
      FieldName = 'program_nm'
      Size = 50
    end
    object ClientDataSet1p_browse: TStringField
      FieldName = 'p_browse'
      Size = 1
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update dbo.setprogram'
      'set'
      '  sys_id = :sys_id,'
      '  user_no = :user_no,'
      '  program_no = :program_no,'
      '  p_add = :p_add,'
      '  p_edit = :p_edit,'
      '  p_delete = :p_delete,'
      '  p_query = :p_query,'
      '  p_getdata = :p_getdata,'
      '  p_print = :p_print,'
      '  p_datain = :p_datain,'
      '  p_dataout = :p_dataout,'
      '  p_browse = :p_browse,'
      '  mod_rights = :mod_rights,'
      '  add_date = :add_date,'
      '  edit_date = :edit_date'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no and'
      '  program_no = :OLD_program_no')
    InsertSQL.Strings = (
      'insert into dbo.setprogram'
      
        '  (sys_id, user_no, program_no, p_add, p_edit, p_delete, p_query' +
        ', p_getdata, '
      
        '   p_print, p_datain, p_dataout, p_browse, mod_rights, add_date,' +
        ' edit_date)'
      'values'
      
        '  (:sys_id, :user_no, :program_no, :p_add, :p_edit, :p_delete, :' +
        'p_query, '
      
        '   :p_getdata, :p_print, :p_datain, :p_dataout, :p_browse, :mod_' +
        'rights, '
      '   :add_date, :edit_date)')
    DeleteSQL.Strings = (
      'delete from dbo.setprogram'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no and'
      '  program_no = :OLD_program_no')
  end
  object ADODataSet2: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from userdb  WHERE sys_id='#39'4'#39' '#13#10'  order by user_no'
    IndexFieldNames = 'USER_NO'
    MasterFields = 'USER_NO'
    Parameters = <>
    Left = 8
    Top = 184
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = ADODataSet2
    Constraints = True
    Exported = False
    UpdateMode = upWhereChanged
    Left = 40
    Top = 184
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'user_no'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'user_nm'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'password'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'administrator'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'director'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'fac_no'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'sec_no'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'add_date'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'edit_date'
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    Params = <>
    ProviderName = 'DataSetProvider2'
    StoreDefs = True
    BeforeScroll = ClientDataSet2BeforeScroll
    AfterScroll = ClientDataSet2AfterScroll
    Left = 72
    Top = 184
    object ClientDataSet2user_no: TStringField
      FieldName = 'user_no'
    end
    object ClientDataSet2user_nm: TStringField
      FieldName = 'user_nm'
    end
    object ClientDataSet2password: TStringField
      FieldName = 'password'
      Size = 10
    end
    object ClientDataSet2administrator: TStringField
      FieldName = 'administrator'
      Size = 1
    end
    object ClientDataSet2director: TStringField
      FieldName = 'director'
    end
    object ClientDataSet2fac_no: TStringField
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet2sec_no: TStringField
      FieldName = 'sec_no'
      Size = 5
    end
    object ClientDataSet2add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet2edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 8
    Top = 216
  end
  object ADOQpub: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    Left = 16
    Top = 272
  end
  object PopupMenu1: TPopupMenu
    Alignment = paCenter
    Left = 257
    Top = 60
    object N1: TMenuItem
      Caption = #36171#20104#25152#26377#39033#20840#37096#26435#38480
      OnClick = N1Click
    end
    object N4: TMenuItem
      Caption = #36171#20104#35813#39033#20840#37096#26435#38480
      OnClick = N4Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #28165#38500#25152#26377#39033#20840#37096#26435#38480
      OnClick = N2Click
    end
    object N8: TMenuItem
      Caption = #28165#38500#35813#39033#20840#37096#26435#38480
      OnClick = N8Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Caption = #36171#20104#25152#26377#33756#21333#20026#21487#35265
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #36171#20104#25152#26377#33756#21333#20026#21487#35265#20294#20026#28784#33394
      OnClick = N6Click
    end
  end
end