object Form1: TForm1
  Left = 261
  Top = 220
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MiNGLIU'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter2: TSplitter
    Left = 0
    Top = 306
    Width = 862
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object Memo1: TMemo
    Left = 0
    Top = 352
    Width = 862
    Height = 256
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 862
    Height = 306
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 201
      Top = 0
      Width = 5
      Height = 306
    end
    object DBGrid2: WDBGRID
      Left = 0
      Top = 0
      Width = 201
      Height = 306
      Align = alLeft
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'MiNGLIU'
      TitleFont.Style = []
      IsTwoColor = True
      TwoColor = 12648447
      TwoFontColor = clWindowText
      AllowAppend = True
      AllowDelete = True
      IsVerScrollBar = True
      MenuShow = [msWDGM, msExcel, msDBF, msDB, msTXT, msMDB]
    end
    object DBGrid1: WDBGRID
      Left = 206
      Top = 0
      Width = 656
      Height = 306
      Align = alClient
      DataSource = DataSource2
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'MiNGLIU'
      TitleFont.Style = []
      IsTwoColor = True
      TwoColor = 12648447
      TwoFontColor = clWindowText
      AllowAppend = True
      AllowDelete = True
      IsVerScrollBar = True
      MenuShow = [msWDGM, msExcel, msDBF, msDB, msTXT, msMDB]
      Columns = <
        item
          Expanded = False
          FieldName = #34920#26684#21517#31281
          Width = -1
          Visible = False
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #38917#27425
          Width = 28
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #27396#20301#21517#31281
          Width = 60
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #22411#24907
          PickList.Strings = (
            'CHAR'
            'NCHAR'
            'TEXT'
            'NTEXT'
            'VARCHAR'
            'NVARCHAR'
            'INT'
            'DECIMAL'
            'DATETIME'
            'DOUBLE'
            'IMAGE')
          Width = 60
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #38263#24230
          Width = 28
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #23567#25976
          Width = 28
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = 'PK'
          Width = 16
          Visible = True
          Check = True
          ValueChecked = 'V'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = 'FK'
          Width = 16
          Visible = True
          Check = True
          ValueChecked = 'V'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #20013#25991#21517#31281
          Width = 120
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #39023#31034#20803#20214
          PickList.Strings = (
            'Label'
            'TextBox'
            'CheckBox'
            'ComboBox'
            'Memo'
            'Picture')
          Width = 80
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #32232#36655#20803#20214
          PickList.Strings = (
            'Label'
            'TextBox'
            'CheckBox'
            'ComboBox'
            'Memo'
            'Picture')
          Width = 80
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end
        item
          Expanded = False
          FieldName = #20633#35387
          Width = 1500
          Visible = True
          ValueChecked = 'T'
          ValueUnchecked = 'F'
          EditType = etEdit
          TwoColor = 12648447
          TwoFontColor = clWindowText
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 311
    Width = 862
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 105
      Height = 25
      Caption = #29986#29983' Create SQL'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 120
      Top = 8
      Width = 121
      Height = 25
      Caption = #29986#29983' ItemTemplate'
      TabOrder = 1
    end
    object Button3: TButton
      Left = 248
      Top = 8
      Width = 121
      Height = 25
      Caption = #29986#29983' InsertTemplate'
      TabOrder = 2
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=N:\VS.NET\Thinkyu\D' +
      'elphi\'#36039#26009#34920'.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 168
    Top = 408
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADODataSet1AfterScroll
    CommandText = 'SELECT * FROM ['#36039#26009#34920'] ORDER BY ['#34920#26684#21517#31281']'
    Parameters = <>
    Left = 272
    Top = 408
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 368
    Top = 408
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADODataSet2AfterInsert
    CommandText = 'SELECT * FROM ['#27396#20301'] WHERE ['#34920#26684#21517#31281']=:'#34920#26684#21517#31281#13#10'ORDER BY ['#38917#27425']'
    MasterFields = #34920#26684#21517#31281
    Parameters = <
      item
        Name = #34920#26684#21517#31281
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = 'BCUS'
      end>
    Left = 272
    Top = 480
    object ADODataSet2DSDesigner: TWideStringField
      FieldName = #34920#26684#21517#31281
    end
    object ADODataSet2DSDesigner2: TSmallintField
      FieldName = #38917#27425
    end
    object ADODataSet2DSDesigner3: TWideStringField
      FieldName = #27396#20301#21517#31281
    end
    object ADODataSet2DSDesigner4: TWideStringField
      FieldName = #22411#24907
      Size = 10
    end
    object ADODataSet2DSDesigner5: TSmallintField
      FieldName = #38263#24230
    end
    object ADODataSet2DSDesigner6: TSmallintField
      FieldName = #23567#25976
    end
    object ADODataSet2PK: TWideStringField
      FieldName = 'PK'
      Size = 1
    end
    object ADODataSet2FK: TWideStringField
      FieldName = 'FK'
      Size = 1
    end
    object ADODataSet2DSDesigner7: TWideStringField
      FieldName = #20013#25991#21517#31281
    end
    object ADODataSet2DSDesigner8: TWideStringField
      FieldName = #39023#31034#20803#20214
    end
    object ADODataSet2DSDesigner9: TWideStringField
      FieldName = #32232#36655#20803#20214
    end
    object ADODataSet2DSDesigner10: TWideStringField
      FieldName = #20633#35387
      Size = 255
    end
    object ADODataSet2MaxItem: TAggregateField
      FieldName = 'MaxItem'
      Active = True
      Expression = 'MAX('#38917#27425')'
    end
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 368
    Top = 480
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet2
    ResolveToDataSet = True
    Options = [poAutoRefresh]
    Left = 464
    Top = 480
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    FetchOnDemand = False
    Params = <>
    ProviderName = 'DataSetProvider1'
    AfterInsert = ClientDataSet1AfterInsert
    AfterPost = ClientDataSet1AfterPost
    Left = 552
    Top = 480
    object ClientDataSet1CDSDesigner: TWideStringField
      FieldName = #34920#26684#21517#31281
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ClientDataSet1CDSDesigner2: TSmallintField
      FieldName = #38917#27425
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1CDSDesigner3: TWideStringField
      FieldName = #27396#20301#21517#31281
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ClientDataSet1CDSDesigner4: TWideStringField
      FieldName = #22411#24907
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ClientDataSet1CDSDesigner5: TSmallintField
      FieldName = #38263#24230
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1CDSDesigner6: TSmallintField
      FieldName = #23567#25976
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1PK: TWideStringField
      FieldName = 'PK'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object ClientDataSet1FK: TWideStringField
      FieldName = 'FK'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object ClientDataSet1CDSDesigner7: TWideStringField
      FieldName = #20013#25991#21517#31281
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1CDSDesigner8: TWideStringField
      FieldName = #39023#31034#20803#20214
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1CDSDesigner9: TWideStringField
      FieldName = #32232#36655#20803#20214
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1CDSDesigner10: TWideStringField
      FieldName = #20633#35387
      ProviderFlags = [pfInUpdate]
      Size = 255
    end
    object ClientDataSet1MAXItem: TAggregateField
      FieldName = 'MAXItem'
      Active = True
      Expression = 'MAX('#38917#27425')'
    end
  end
end