zhuanye.dfm

气象信息服务(delphi) 气象信息服务(delphi)

object zyfwForm: TzyfwForm
  Left = 217
  Top = 287
  Width = 476
  Height = 292
  Caption = #19987#19994#26381#21153
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 17
    Top = 48
    Width = 52
    Height = 13
    Caption = #26381#21153#21333#20301
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 16
    Top = 83
    Width = 52
    Height = 13
    Caption = #26381#21153#26102#27573
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 240
    Top = 80
    Width = 52
    Height = 13
    Caption = #26381#21153#26041#24335
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 16
    Top = 123
    Width = 39
    Height = 13
    Caption = #24212#25910#27454
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 240
    Top = 117
    Width = 39
    Height = 13
    Caption = #24050#25910#27454
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 16
    Top = 163
    Width = 39
    Height = 13
    Caption = #32852#31995#20154
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 240
    Top = 159
    Width = 52
    Height = 13
    Caption = #32852#31995#30005#35805
    FocusControl = DBEdit8
  end
  object Label12: TLabel
    Left = 90
    Top = 18
    Width = 13
    Height = 13
    Caption = #24180
    FocusControl = DBEdit9
  end
  object Label9: TLabel
    Left = 172
    Top = 19
    Width = 13
    Height = 13
    Caption = #26376
  end
  object Label15: TLabel
    Left = 271
    Top = 17
    Width = 13
    Height = 13
    Caption = #26085
  end
  object DBEdit2: TDBEdit
    Left = 75
    Top = 43
    Width = 134
    Height = 21
    DataField = 'fwdw'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit3: TDBEdit
    Left = 76
    Top = 80
    Width = 134
    Height = 21
    DataField = 'fwsd'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit4: TDBEdit
    Left = 315
    Top = 79
    Width = 134
    Height = 21
    DataField = 'fwfs'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit5: TDBEdit
    Left = 76
    Top = 117
    Width = 134
    Height = 21
    DataField = 'ysk'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit6: TDBEdit
    Left = 315
    Top = 115
    Width = 134
    Height = 21
    DataField = 'yisk'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit7: TDBEdit
    Left = 76
    Top = 155
    Width = 134
    Height = 21
    DataField = 'lxr'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit8: TDBEdit
    Left = 316
    Top = 153
    Width = 134
    Height = 21
    DataField = 'lxdh'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBNavigator1: TDBNavigator
    Left = 112
    Top = 192
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBEdit9: TDBEdit
    Left = 16
    Top = 16
    Width = 65
    Height = 21
    DataField = 'yy'
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBEdit12: TDBEdit
    Left = 109
    Top = 16
    Width = 49
    Height = 21
    DataField = 'mm'
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBEdit13: TDBEdit
    Left = 200
    Top = 14
    Width = 57
    Height = 21
    DataField = 'dd'
    DataSource = DataSource1
    TabOrder = 10
  end
  object ADODataSet1: TADODataSet
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\qxfw\qxfw.mdb;Pe' +
      'rsist Security Info=False'
    CursorType = ctStatic
    CommandText = 'select * from zyfw'
    Parameters = <>
    Left = 64
    Top = 208
    object ADODataSet1fwdw: TWideStringField
      FieldName = 'fwdw'
      Size = 10
    end
    object ADODataSet1fwsd: TWideStringField
      FieldName = 'fwsd'
      Size = 10
    end
    object ADODataSet1fwfs: TWideStringField
      FieldName = 'fwfs'
      Size = 10
    end
    object ADODataSet1ysk: TIntegerField
      FieldName = 'ysk'
    end
    object ADODataSet1yisk: TIntegerField
      FieldName = 'yisk'
    end
    object ADODataSet1lxr: TWideStringField
      FieldName = 'lxr'
      Size = 10
    end
    object ADODataSet1lxdh: TWideStringField
      FieldName = 'lxdh'
      Size = 10
    end
    object ADODataSet1yy: TWideStringField
      FieldName = 'yy'
      Size = 8
    end
    object ADODataSet1mm: TWideStringField
      FieldName = 'mm'
      Size = 8
    end
    object ADODataSet1dd: TWideStringField
      FieldName = 'dd'
      Size = 8
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 24
    Top = 208
  end
end