otherstorage.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 223 行

object OtherStorageFrm: TOtherStorageFrm
  Left = 204
  Top = 168
  Width = 448
  Height = 375
  Caption = #20854#23427#24211#23384#21464#21160
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 32
    Top = 16
    Width = 369
    Height = 313
    Caption = #24211#23384#21464#21160#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 40
      Width = 45
      Height = 13
      Caption = #23545'       '#26041
    end
    object Label2: TLabel
      Left = 16
      Top = 72
      Width = 48
      Height = 13
      Caption = #21464#21160#26085#26399
    end
    object Label3: TLabel
      Left = 16
      Top = 104
      Width = 48
      Height = 13
      Caption = #21464#21160#21517#31216
    end
    object Label4: TLabel
      Left = 16
      Top = 136
      Width = 48
      Height = 13
      Caption = #21464#21160#31867#22411
    end
    object Label5: TLabel
      Left = 192
      Top = 40
      Width = 48
      Height = 13
      Caption = #26465'  '#24418'  '#30721
    end
    object Label6: TLabel
      Left = 192
      Top = 72
      Width = 48
      Height = 13
      Caption = #36135#21697#21517#31216
    end
    object Label7: TLabel
      Left = 192
      Top = 104
      Width = 48
      Height = 13
      Caption = #36135#21697#35268#26684
    end
    object Label8: TLabel
      Left = 192
      Top = 136
      Width = 48
      Height = 13
      Caption = #35745#37327#21333#20301
    end
    object Label9: TLabel
      Left = 192
      Top = 168
      Width = 48
      Height = 13
      Caption = #21464#21160#25968#37327
    end
    object Label10: TLabel
      Left = 16
      Top = 168
      Width = 48
      Height = 13
      Caption = #22791#27880#20449#24687
    end
    object Edit1: TEdit
      Left = 72
      Top = 32
      Width = 97
      Height = 21
      TabOrder = 0
    end
    object ComboBox1: TComboBox
      Left = 248
      Top = 32
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = ComboBox1Change
    end
    object ComboBox2: TComboBox
      Left = 248
      Top = 64
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      OnChange = ComboBox2Change
    end
    object DateTimePicker1: TDateTimePicker
      Left = 72
      Top = 64
      Width = 97
      Height = 21
      Date = 37909.528021377310000000
      Time = 37909.528021377310000000
      TabOrder = 3
    end
    object ComboBox3: TComboBox
      Left = 72
      Top = 96
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      OnChange = ComboBox3Change
    end
    object Edit2: TEdit
      Left = 248
      Top = 96
      Width = 105
      Height = 21
      Color = clScrollBar
      ReadOnly = True
      TabOrder = 5
    end
    object Edit3: TEdit
      Left = 72
      Top = 128
      Width = 97
      Height = 21
      Color = clScrollBar
      ReadOnly = True
      TabOrder = 6
    end
    object Edit4: TEdit
      Left = 248
      Top = 128
      Width = 105
      Height = 21
      Color = clScrollBar
      ReadOnly = True
      TabOrder = 7
    end
    object Edit5: TEdit
      Left = 248
      Top = 160
      Width = 105
      Height = 21
      TabOrder = 8
    end
    object Button1: TButton
      Left = 256
      Top = 216
      Width = 75
      Height = 25
      Caption = #30830#35748#20445#23384
      TabOrder = 9
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 256
      Top = 264
      Width = 75
      Height = 25
      Caption = #36820'      '#22238
      TabOrder = 10
      OnClick = Button2Click
    end
    object Memo1: TMemo
      Left = 16
      Top = 200
      Width = 185
      Height = 89
      Lines.Strings = (
        'Memo1')
      TabOrder = 11
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'Product'
    Left = 160
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = LoginFrm.ADOConnection1
    CursorType = ctStatic
    TableName = 'OtherStoType'
    Left = 208
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    Left = 264
    Top = 8
  end
end