unit1.dfm

用Delphi开发低成本高性能的数据库应用系统

object Form1: TForm1
  Left = 207
  Top = 114
  Width = 696
  Height = 489
  Caption = 'Delphi'#24320#21457'Firebird'#25968#25454#24211#30340#28436#31034'--'#28142#21335#24464#38647
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 96
    Top = 360
    Width = 169
    Height = 25
    Caption = #29992#23384#20648#36807#31243#22686#21152#35760#24405
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 336
    Top = 360
    Width = 153
    Height = 25
    Hint = #21024#38500#25152#26377#35760#24405#65292#21516#26102#29983#25104#22120#32622'0'
    Caption = #21024#38500#25152#26377#35760#24405
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 24
    Width = 673
    Height = 161
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object LabeledEdit1: TLabeledEdit
    Left = 8
    Top = 256
    Width = 129
    Height = 21
    AutoSize = False
    EditLabel.Width = 30
    EditLabel.Height = 13
    EditLabel.Caption = #22995#21517
    EditLabel.ShowAccelChar = False
    EditLabel.Transparent = True
    TabOrder = 3
  end
  object LabeledEdit2: TLabeledEdit
    Left = 152
    Top = 256
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #37038#25919#32534#30721
    EditLabel.ShowAccelChar = False
    EditLabel.Transparent = True
    TabOrder = 4
  end
  object LabeledEdit3: TLabeledEdit
    Left = 304
    Top = 256
    Width = 297
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #22320#22336
    EditLabel.ShowAccelChar = False
    EditLabel.Transparent = True
    TabOrder = 5
  end
  object LabeledEdit4: TLabeledEdit
    Left = 8
    Top = 304
    Width = 121
    Height = 21
    EditLabel.Width = 40
    EditLabel.Height = 13
    EditLabel.Caption = #30005#35805
    EditLabel.ShowAccelChar = False
    EditLabel.Transparent = True
    TabOrder = 6
  end
  object LabeledEdit5: TLabeledEdit
    Left = 160
    Top = 304
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'Email'
    EditLabel.ShowAccelChar = False
    EditLabel.Transparent = True
    TabOrder = 7
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 688
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    Align = alTop
    TabOrder = 8
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'test1'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpUIBfire15.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'Database=test.fdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=3'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=True')
    VendorLib = 'fbembed.dll'
    Left = 8
    Top = 200
  end
  object SimpleDataSet1: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'select * from TXL'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    DataSet.SortFieldNames = 'ID'
    Params = <>
    AfterPost = SimpleDataSet1AfterPost
    Left = 56
    Top = 200
    object SimpleDataSet1ID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      ReadOnly = True
      Size = 12
    end
    object SimpleDataSet1NAME: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'NAME'
      Size = 10
    end
    object SimpleDataSet1ZIPCODE: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'ZIPCODE'
      Size = 6
    end
    object SimpleDataSet1ADDRESS: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'ADDRESS'
      Size = 30
    end
    object SimpleDataSet1PHONE: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'PHONE'
      Size = 12
    end
    object SimpleDataSet1EMAIL: TStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'EMAIL'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = SimpleDataSet1
    Left = 104
    Top = 200
  end
  object SQLStoredProc1: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'N_ID'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    StoredProcName = 'P_DELETE_ALL'
    Left = 160
    Top = 200
  end
end