data.dfm

DelphiHelper---Delphi帮助源代码

object DM: TDM
  OldCreateOrder = False
  Left = 166
  Top = 124
  Height = 409
  Width = 552
  object Conn1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\My ' +
      'Soft\DelphiHelper V2.0\data\data.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 16
  end
  object Query1: TADOQuery
    Connection = Conn1
    Parameters = <>
    Left = 40
    Top = 72
  end
  object Query2: TADOQuery
    Connection = Conn1
    Parameters = <>
    Left = 40
    Top = 128
  end
  object Query3: TADOQuery
    Connection = Conn1
    Parameters = <>
    Left = 40
    Top = 192
  end
  object DS_Query1: TDataSource
    DataSet = Query1
    Left = 96
    Top = 72
  end
  object DS_Query2: TDataSource
    DataSet = Query2
    Left = 96
    Top = 128
  end
  object DS_Query3: TDataSource
    DataSet = Query3
    Left = 96
    Top = 192
  end
  object Set_Color: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 
      'select color_id, color_name, color_code, color_value, color_r+'#39':' +
      #39'+color_g+'#39':'#39'+color_b as color_rgb,color_r,color_g,color_b '#13#10'fro' +
      'm tbl_color'
    Parameters = <>
    Left = 184
    Top = 136
    object Set_Colorcolor_id: TAutoIncField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'color_id'
      ReadOnly = True
    end
    object Set_Colorcolor_name: TWideStringField
      DisplayLabel = #39068#33394#21517#31216
      DisplayWidth = 12
      FieldName = 'color_name'
      Size = 24
    end
    object Set_Colorcolor_code: TWideStringField
      DisplayLabel = #33394#30721
      DisplayWidth = 12
      FieldName = 'color_code'
      Size = 24
    end
    object Set_Colorcolor_value: TWideStringField
      DisplayLabel = #33394#20540
      DisplayWidth = 10
      FieldName = 'color_value'
      Size = 16
    end
    object Set_Colorcolor_rgb: TWideStringField
      DisplayLabel = 'RGB'#20540
      DisplayWidth = 12
      FieldName = 'color_rgb'
      ReadOnly = True
      Size = 255
    end
    object Set_Colorcolor_r: TWideStringField
      FieldName = 'color_r'
      Visible = False
      Size = 3
    end
    object Set_Colorcolor_g: TWideStringField
      FieldName = 'color_g'
      Visible = False
      Size = 3
    end
    object Set_Colorcolor_b: TWideStringField
      FieldName = 'color_b'
      Visible = False
      Size = 3
    end
  end
  object DS_Color: TDataSource
    DataSet = Set_Color
    Left = 256
    Top = 136
  end
  object Set_Arc_add: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from Article'
    Parameters = <>
    Left = 184
    Top = 16
  end
  object Set_Arc_edit: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from Article'
    Parameters = <>
    Left = 184
    Top = 80
  end
  object DS_Arc_add: TDataSource
    DataSet = Set_Arc_add
    Left = 256
    Top = 16
  end
  object DS_Arc_edit: TDataSource
    DataSet = Set_Arc_edit
    Left = 256
    Top = 80
  end
  object Set_Func_add: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from tbl_function'
    Parameters = <>
    Left = 184
    Top = 192
  end
  object DS_Func_add: TDataSource
    DataSet = Set_Func_add
    Left = 264
    Top = 192
  end
  object Query4: TADOQuery
    Connection = Conn1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbl_function')
    Left = 40
    Top = 248
    object Query4fun_id: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'fun_id'
      ReadOnly = True
      Visible = False
    end
    object Query4fun_name: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 15
      FieldName = 'fun_name'
      Size = 200
    end
    object Query4fun_exp: TMemoField
      DisplayLabel = #35299#37322#35828#26126
      FieldName = 'fun_exp'
      Visible = False
      BlobType = ftMemo
    end
  end
  object DS_Query4: TDataSource
    DataSet = Query4
    Left = 96
    Top = 248
  end
  object Set_Func_edit: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from tbl_function'
    Parameters = <>
    Left = 184
    Top = 248
  end
  object DS_Func_edit: TDataSource
    DataSet = Set_Func_edit
    Left = 264
    Top = 248
  end
  object Set_Log: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from tbl_log'
    Parameters = <>
    Left = 184
    Top = 304
    object Set_Loglog_id: TAutoIncField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'log_id'
      ReadOnly = True
    end
    object Set_Loglog_title: TWideStringField
      DisplayLabel = #26085#24535#26631#39064
      DisplayWidth = 60
      FieldName = 'log_title'
      Size = 200
    end
    object Set_Loglog_date: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 16
      FieldName = 'log_date'
      EditMask = '!0000-99-99;1;_'
    end
    object Set_Loglog_text: TMemoField
      DisplayLabel = #20869#23481
      FieldName = 'log_text'
      Visible = False
      BlobType = ftMemo
    end
  end
  object DS_log: TDataSource
    AutoEdit = False
    DataSet = Set_Log
    Left = 264
    Top = 304
  end
  object Query5: TADOQuery
    Connection = Conn1
    Parameters = <>
    Left = 40
    Top = 304
  end
  object DS_Query5: TDataSource
    DataSet = Query5
    Left = 96
    Top = 304
  end
  object ppDBPipeline1: TppDBPipeline
    DataSource = DS_log
    UserName = 'DBPipeline1'
    Left = 328
    Top = 304
    object ppDBPipeline1ppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'log_id'
      FieldName = 'log_id'
      FieldLength = 0
      DataType = dtLongint
      DisplayWidth = 6
      Position = 0
    end
    object ppDBPipeline1ppField2: TppField
      FieldAlias = 'log_title'
      FieldName = 'log_title'
      FieldLength = 200
      DisplayWidth = 60
      Position = 1
    end
    object ppDBPipeline1ppField3: TppField
      FieldAlias = 'log_date'
      FieldName = 'log_date'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 16
      Position = 2
    end
    object ppDBPipeline1ppField4: TppField
      FieldAlias = 'log_text'
      FieldName = 'log_text'
      FieldLength = 0
      DataType = dtMemo
      DisplayWidth = 10
      Position = 3
      Searchable = False
      Sortable = False
    end
  end
  object Set_Arc: TADODataSet
    Connection = Conn1
    CursorType = ctStatic
    CommandText = 'select * from Article'
    Parameters = <>
    Left = 360
    Top = 16
  end
  object DS_Arc: TDataSource
    AutoEdit = False
    DataSet = Set_Arc
    Left = 416
    Top = 16
  end
  object ppDBPipeline2: TppDBPipeline
    DataSource = DS_Arc
    UserName = 'DBPipeline2'
    Left = 360
    Top = 72
  end
  object ppReport2: TppReport
    AutoStop = False
    DataPipeline = ppDBPipeline2
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4 210 x 297 mm'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297127
    PrinterSetup.mmPaperWidth = 210079
    PrinterSetup.PaperSize = 9
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 416
    Top = 72
    Version = '7.01'
    mmColumnWidth = 0
    DataPipelineName = 'ppDBPipeline2'
    object ppHeaderBand2: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 15240
      mmPrintPosition = 0
      object ppLabel3: TppLabel
        UserName = 'Label3'
        AutoSize = False
        Caption = 'DelphiHelper '#25216#26415#25991#31456
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Name = #21326#25991#34892#26999
        Font.Size = 26
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 10054
        mmLeft = 44715
        mmTop = 265
        mmWidth = 98954
        BandType = 0
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Weight = 0.750000000000000000
        mmHeight = 265
        mmLeft = 529
        mmTop = 13229
        mmWidth = 196586
        BandType = 0
      end
    end
    object ppDetailBand2: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 261621
      mmPrintPosition = 0
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        DataField = 'Article_Title'
        DataPipeline = ppDBPipeline2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Name = #23435#20307
        Font.Size = 16
        Font.Style = [fsBold]
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'ppDBPipeline2'
        mmHeight = 6350
        mmLeft = 8996
        mmTop = 0
        mmWidth = 177271
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        DataField = 'Article_Type'
        DataPipeline = ppDBPipeline2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline2'
        mmHeight = 4233
        mmLeft = 155311
        mmTop = 8731
        mmWidth = 30692
        BandType = 4
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Weight = 0.750000000000000000
        mmHeight = 265
        mmLeft = 0
        mmTop = 259292
        mmWidth = 197115
        BandType = 4
      end
      object ppDBMemo1: TppDBMemo
        UserName = 'DBMemo1'
        CharWrap = False
        DataField = 'Article_text'
        DataPipeline = ppDBPipeline2