udiarymain.dfm

delphi com addin

object fmDiary: TfmDiary
  Left = 107
  Top = 111
  Width = 544
  Height = 375
  Caption = #30005#23376#35760#20107#26412
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object pnlMain: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 197
      Top = 30
      Width = 3
      Height = 317
      Cursor = crHSplit
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 534
      Height = 29
      ButtonHeight = 33
      ButtonWidth = 32
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Hint = 'New'
        Caption = 'ToolButton1'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 32
        Top = 0
        Hint = 'Show'
        Caption = 'ToolButton2'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 64
        Top = 0
        Hint = 'Save'
        Caption = 'ToolButton3'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton3Click
      end
      object ToolButton5: TToolButton
        Left = 96
        Top = 0
        Hint = 'Cancel'
        Caption = 'ToolButton5'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 128
        Top = 0
        Hint = 'Delete!!'
        Caption = 'ToolButton6'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton6Click
      end
      object ToolButton4: TToolButton
        Left = 160
        Top = 0
        Hint = 'Close'
        Caption = 'ToolButton4'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton4Click
      end
    end
    object DBRichEdit1: TDBRichEdit
      Left = 200
      Top = 30
      Width = 335
      Height = 317
      Align = alClient
      DataField = 'Glance'
      DataSource = dsDisry
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 30
      Width = 196
      Height = 317
      Align = alLeft
      DataSource = dsDisry
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'date'
          Footers = <>
          ReadOnly = True
          Title.Caption = #26085#26399
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = 'Title'
          Footers = <>
          Title.Caption = #39064#30446
          Width = 96
        end>
    end
  end
  object acDiary: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=D:\Borland\Delphi5\Projects\Temp\WordDoc\dbWord.mdb;Mode=' +
      'Share Deny None;Extended Properties="";Locale Identifier=2052;Je' +
      't OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:' +
      'Database Password=soloman;Jet OLEDB:Engine Type=5;Jet OLEDB:Data' +
      'base Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLED' +
      'B:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";' +
      'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Databas' +
      'e=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:C' +
      'ompact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    OnWillConnect = acDiaryWillConnect
    Left = 32
    Top = 304
  end
  object tbDiary: TADOTable
    Connection = acDiary
    CursorType = ctStatic
    BeforeInsert = tbDiaryBeforeInsert
    BeforeCancel = tbDiaryBeforeCancel
    AfterScroll = tbDiaryAfterScroll
    TableName = 'tbDiary'
    Left = 96
    Top = 304
    object tbDiaryCode: TAutoIncField
      FieldName = 'Code'
    end
    object tbDiarydate: TDateTimeField
      FieldName = 'date'
      DisplayFormat = 'dddddd'
    end
    object tbDiaryTitle: TWideStringField
      FieldName = 'Title'
    end
    object tbDiaryGlance: TWideStringField
      FieldName = 'Glance'
      Size = 255
    end
    object tbDiaryContent: TBlobField
      FieldName = 'Content'
    end
  end
  object dsDisry: TDataSource
    DataSet = tbDiary
    Left = 144
    Top = 304
  end
  object WordApp: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    OnQuit = WordAppQuit
    Left = 24
    Top = 105
  end
  object WordDoc: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew