unit4.dfm

来自「一个小的设备管理系统」· DFM 代码 · 共 97 行

object Form4: TForm4
  Left = 151
  Top = 196
  BorderStyle = bsSingle
  Caption = #35774#22791#36141#20080#30003#35831#35760#24405
  ClientHeight = 420
  ClientWidth = 718
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 32
    Width = 705
    Height = 369
    TabOrder = 0
    object DBGrid3: TDBGrid
      Left = 8
      Top = 8
      Width = 689
      Height = 321
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid3DrawColumnCell
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 336
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 1
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 401
    Width = 718
    Height = 19
    Panels = <>
  end
  object StaticText1: TStaticText
    Left = 16
    Top = 8
    Width = 401
    Height = 17
    AutoSize = False
    Caption = #35774#22791#36141#20080#30003#35831#35760#24405
    TabOrder = 2
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=EqOfJsidc.mdb;Persi' +
      'st Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 128
    Top = 144
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'GMSQ'
    Left = 208
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 288
    Top = 120
  end
end