unit1.dfm

本人写的delphi例子

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 756
  Height = 534
  Caption = #29289#26009#32534#30721#29983#25104#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 12
    Top = 464
    Width = 36
    Height = 16
    Caption = #28216#38553#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 10
    Top = 392
    Width = 36
    Height = 16
    Caption = #22411#21495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 424
    Width = 57
    Height = 16
    Caption = #20445#25345#26550#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 11
    Top = 360
    Width = 36
    Height = 16
    Caption = #29260#23376#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 250
    Top = 360
    Width = 35
    Height = 16
    Caption = #27833#33026#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 247
    Top = 392
    Width = 72
    Height = 16
    AutoSize = False
    Caption = #25391#21160#31561#32423#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 250
    Top = 464
    Width = 35
    Height = 16
    Caption = #20854#20182#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 248
    Top = 424
    Width = 80
    Height = 16
    AutoSize = False
    Caption = #31934#24230#31561#32423#65306
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 745
    Height = 337
    Caption = 'Panel1'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 745
      Height = 329
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnColExit = DBGrid1ColExit
      OnDrawDataCell = DBGrid1DrawDataCell
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = #24207#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32534#30721
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29260#23376
          PickList.Strings = (
            'HGADNG'
            'ABBB'
            'ERB'
            'PNB'
            'PMBB'
            'HCB'
            'TPX'
            'HRSJ'
            'VA103-UF-URT'
            'VA10A GTB'
            'PS'
            'PS HADNG'
            'RZ PTX'
            'PS PMBB'
            'V ABBN'
            'RS HCB')
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22411#21495
          PickList.Strings = (
            '606'
            '607'
            '608'
            '609')
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20445#25345#26550
          PickList.Strings = (
            #38081
            #23612#40857)
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #28216#38553
          PickList.Strings = (
            '5-8'
            '10-15'
            '13-18'
            '8-15')
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #27833#33026
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25391#21160#31561#32423
          PickList.Strings = (
            'z'
            'z1'
            'z2'
            'z3'
            'z4')
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31934#24230#31561#32423
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20854#20182
          Width = 175
          Visible = True
        end>
    end
  end
  object Edit1: TEdit
    Left = 80
    Top = 360
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 80
    Top = 392
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 80
    Top = 424
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 3
  end
  object Edit4: TEdit
    Left = 80
    Top = 464
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 4
  end
  object Edit5: TEdit
    Left = 343
    Top = 360
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 5
  end
  object Edit6: TEdit
    Left = 343
    Top = 392
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 6
  end
  object Edit7: TEdit
    Left = 343
    Top = 424
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 7
  end
  object Edit8: TEdit
    Left = 343
    Top = 456
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 8
  end
  object BitBtn1: TBitBtn
    Left = 512
    Top = 352
    Width = 75
    Height = 25
    Caption = #22686#21152
    ModalResult = 1
    TabOrder = 9
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 512
    Top = 400
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 10
  end
  object BitBtn3: TBitBtn
    Left = 616
    Top = 352
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 11
  end
  object BitBtn4: TBitBtn
    Left = 616
    Top = 400
    Width = 75
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 12
  end
  object BitBtn5: TBitBtn
    Left = 616
    Top = 448
    Width = 75
    Height = 25
    Caption = #36864#20986
    ModalResult = 2
    TabOrder = 13
  end
  object BitBtn6: TBitBtn
    Left = 514
    Top = 449
    Width = 75
    Height = 25
    Caption = #23548#20986'execl'
    TabOrder = 14
    OnClick = BitBtn6Click
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\'#31243#24207'\delphi7.0\db1' +
      '.mdb;Persist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#25104#21697#29289#26009#28165#21333)
    Left = 128
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 80
    Top = 48
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\'#31243#24207'\delphi7.0\db1' +
      '.mdb;Persist Security Info=False'
    Parameters = <>
    Left = 104
    Top = 136
  end
  object ADOQuery3: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\'#31243#24207'\delphi7.0\db1' +
      '.mdb;Persist Security Info=False'
    Parameters = <>
    Left = 120
    Top = 192
  end
end