flgc.~dfm

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

object flgcForm1: TflgcForm1
  Left = 195
  Top = 203
  Width = 486
  Height = 314
  Caption = 'flgcForm1'
  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 Label1: TLabel
    Left = 144
    Top = 16
    Width = 13
    Height = 13
    Caption = #24180
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 297
    Top = 17
    Width = 13
    Height = 13
    Caption = #26376
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 450
    Top = 16
    Width = 13
    Height = 13
    Caption = #26085
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 16
    Top = 56
    Width = 26
    Height = 13
    Caption = #39033#30446
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 240
    Top = 56
    Width = 39
    Height = 13
    Caption = #21512#21516#21495
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 16
    Top = 98
    Width = 39
    Height = 13
    Caption = #32852#31995#20154
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 240
    Top = 96
    Width = 39
    Height = 13
    Caption = #39044#31639#20215
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 16
    Top = 141
    Width = 39
    Height = 13
    Caption = #20915#31639#20215
    FocusControl = DBEdit8
  end
  object Label9: TLabel
    Left = 240
    Top = 136
    Width = 39
    Height = 13
    Caption = #26045#24037#22270
    FocusControl = DBImage1
  end
  object Label10: TLabel
    Left = 16
    Top = 184
    Width = 39
    Height = 13
    Caption = #32463#21150#20154
    FocusControl = DBEdit9
  end
  object DBEdit1: TDBEdit
    Left = 16
    Top = 16
    Width = 108
    Height = 21
    DataField = 'yy'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 168
    Top = 16
    Width = 108
    Height = 21
    DataField = 'mm'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 328
    Top = 16
    Width = 102
    Height = 21
    DataField = 'dd'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 64
    Top = 56
    Width = 134
    Height = 21
    DataField = 'xm'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    Left = 300
    Top = 56
    Width = 134
    Height = 21
    DataField = 'hth'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit6: TDBEdit
    Left = 64
    Top = 96
    Width = 134
    Height = 21
    DataField = 'lxr'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit7: TDBEdit
    Left = 300
    Top = 92
    Width = 134
    Height = 21
    DataField = 'ysj'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit8: TDBEdit
    Left = 64
    Top = 136
    Width = 134
    Height = 21
    DataField = 'jsj'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBImage1: TDBImage
    Left = 300
    Top = 128
    Width = 105
    Height = 105
    DataField = 'sgt'
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBEdit9: TDBEdit
    Left = 64
    Top = 176
    Width = 134
    Height = 21
    DataField = 'jbr'
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 232
    Width = 240
    Height = 25
    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 flgc'
    Parameters = <>
    Left = 312
    Top = 184
    object ADODataSet1yy: TWideStringField
      FieldName = 'yy'
      Size = 8
    end
    object ADODataSet1mm: TWideStringField
      FieldName = 'mm'
      Size = 8
    end
    object ADODataSet1dd: TWideStringField
      FieldName = 'dd'
      Size = 8
    end
    object ADODataSet1xm: TWideStringField
      FieldName = 'xm'
      Size = 10
    end
    object ADODataSet1hth: TWideStringField
      FieldName = 'hth'
      Size = 10
    end
    object ADODataSet1lxr: TWideStringField
      FieldName = 'lxr'
      Size = 10
    end
    object ADODataSet1ysj: TIntegerField
      FieldName = 'ysj'
    end
    object ADODataSet1jsj: TIntegerField
      FieldName = 'jsj'
    end
    object ADODataSet1sgt: TBlobField
      FieldName = 'sgt'
    end
    object ADODataSet1jbr: TWideStringField
      FieldName = 'jbr'
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 256
    Top = 176
  end
end