u_setprogram.dfm

小银行系统

    end
    object StaticText1: TStaticText
      Left = 24
      Top = 22
      Width = 64
      Height = 19
      Caption = #29992#25143#32534#21495
      TabOrder = 3
    end
  end
  inherited DataSetProvider2: TDataSetProvider
    Constraints = False
    ResolveToDataSet = False
    Exported = False
    UpdateMode = upWhereChanged
  end
  inherited ClientDataSet1: TClientDataSet
    AfterScroll = ClientDataSet1AfterScroll
  end
  inherited ClientDataSet2: TClientDataSet
    FieldDefs = <
      item
        Name = 'program_no'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'program_nm'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'ADD1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'EDIT1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'DELETE1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'QUERY1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GETDATA1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'PRINT1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'DATAIN1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'DATAOUT1'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_NO'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_add'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_edit'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_delete'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_query'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_getdata'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_print'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_datain'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'p_dataout'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    MasterSource = nil
    PacketRecords = -1
    Params = <
      item
        DataType = ftString
        Name = 'USER_NO'
        ParamType = ptInput
        Value = ' '
      end>
    StoreDefs = True
    AfterScroll = ClientDataSet2AfterScroll
    object ClientDataSet2program_no: TStringField
      FieldName = 'program_no'
    end
    object ClientDataSet2program_nm: TStringField
      FieldName = 'program_nm'
      Size = 50
    end
    object ClientDataSet2ADD1: TStringField
      FieldName = 'ADD1'
      Size = 1
    end
    object ClientDataSet2EDIT1: TStringField
      FieldName = 'EDIT1'
      Size = 1
    end
    object ClientDataSet2DELETE1: TStringField
      FieldName = 'DELETE1'
      Size = 1
    end
    object ClientDataSet2QUERY1: TStringField
      FieldName = 'QUERY1'
      Size = 1
    end
    object ClientDataSet2GETDATA1: TStringField
      FieldName = 'GETDATA1'
      Size = 1
    end
    object ClientDataSet2PRINT1: TStringField
      FieldName = 'PRINT1'
      Size = 1
    end
    object ClientDataSet2DATAIN1: TStringField
      FieldName = 'DATAIN1'
      Size = 1
    end
    object ClientDataSet2DATAOUT1: TStringField
      FieldName = 'DATAOUT1'
      Size = 1
    end
    object ClientDataSet2USER_NO: TStringField
      FieldName = 'USER_NO'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_add: TStringField
      FieldName = 'p_add'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_edit: TStringField
      FieldName = 'p_edit'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_delete: TStringField
      FieldName = 'p_delete'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_query: TStringField
      FieldName = 'p_query'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_getdata: TStringField
      FieldName = 'p_getdata'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_print: TStringField
      FieldName = 'p_print'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_datain: TStringField
      FieldName = 'p_datain'
      FixedChar = True
      Size = 10
    end
    object ClientDataSet2p_dataout: TStringField
      FieldName = 'p_dataout'
      FixedChar = True
      Size = 10
    end
  end
  inherited UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'UPDATE   SETPROGRAM'
      'SET '
      '    P_ADD=:P_ADD,'
      '    P_EDIT=:P_EDIT,'
      '    P_DELETE=:P_DELETE,'
      '    P_QUERY=:P_QUERY,'
      '    P_GETDATA=:P_GETDATA,'
      '    P_DATAIN=:P_DATAIN,'
      '    P_DATAOUT=:P_DATAOUT,'
      '    P_PRINT=:P_PRINT'
      ''
      'WHERE  USER_NO=:OLD_USER_NO    AND  '
      'PROGRAM_NO=:OLD_PROGRAM_NO')
    InsertSQL.Strings = (
      'INSERT  INTO   SETPROGRAM'
      '('
      '    USER_NO,'
      '    PROGRAM_NO, '
      '    P_ADD,'
      '    P_EDIT,'
      '    P_DELETE,'
      '    P_QUERY,'
      '    P_GETDATA,'
      '    P_DATAIN,'
      '    P_DATAOUT,'
      '    P_PRINT'
      ')'
      'VALUES'
      '('
      '    :USER_NO,'
      '    :PROGRAM_NO, '
      '    :P_ADD,'
      '    :P_EDIT,'
      '    :P_DELETE,'
      '    :P_QUERY,'
      '    :P_GETDATA,'
      '    :P_DATAIN,'
      '    :P_DATAOUT,'
      '    :P_PRINT'
      ')')
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'SELECT  *   FROM   USERDB'#13#10'where sys_id='#39'1'#39' '#13#10'ORDER  BY   USER_N' +
      'O'
  end
  inherited ADODataSet2: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'select A.program_no, A.program_nm, A.p_add  ADD1, A.p_edit EDIT1' +
      ', A.p_delete DELETE1, A.p_query QUERY1, A.p_getdata GETDATA1, A.' +
      'p_print PRINT1, A.p_datain DATAIN1, A.p_dataout DATAOUT1,'#13#10'B.USE' +
      'R_NO, B.p_add, B.p_edit, B.p_delete, B.p_query, B.p_getdata, B.p' +
      '_print, B.p_datain, B.p_dataout'#13#10'FROM  PROGRAM  A'#13#10'LEFT  JOIN   ' +
      #13#10'(SELECT  *  FROM    SETPROGRAM   WHERE  USER_NO=:USER_NO)   B ' +
      '  '#13#10'ON   A.PROGRAM_NO=B.PROGRAM_NO'#13#10'WHERE A.sys_id='#39'1'#39'  '#13#10'ORDER ' +
      'BY program_id, program_no'
    IndexFieldNames = 'USER_NO'
    MasterFields = 'USER_NO'
    Parameters = <
      item
        Name = 'USER_NO'
        DataType = ftString
        Size = 1
        Value = ' '
      end>
  end
  object seek: TADODataSet
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'SELECT  *  FROM    SETPROGRAM   WHERE  USER_NO=:USER_NO'#13#10'AND  PR' +
      'OGRAM_NO=:PROGRAM_NO'
    IndexFieldNames = 'USER_NO'
    MasterFields = 'USER_NO'
    Parameters = <
      item
        Name = 'USER_NO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '111'
      end
      item
        Name = 'PROGRAM_NO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '111'
      end>
    Left = 16
    Top = 264
  end
end