unit4.dfm

非常实用本人心血研制不是为了更多我需要的代码不会轻易拿出来换东东的关于盘刻录程序代码

object Form4: TForm4
  Left = 181
  Top = 210
  BorderStyle = bsDialog
  Caption = #26085#24535#26597#35810
  ClientHeight = 446
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 384
      Top = 16
      Width = 12
      Height = 13
      Caption = #21040
    end
    object Button1: TButton
      Left = 32
      Top = 8
      Width = 75
      Height = 25
      Caption = #26174#31034
      TabOrder = 0
      OnClick = Button1Click
    end
    object Dt1: TDateTimePicker
      Left = 176
      Top = 8
      Width = 186
      Height = 21
      Date = 39763.009745370370000000
      Time = 39763.009745370370000000
      TabOrder = 1
    end
    object Dt2: TDateTimePicker
      Left = 416
      Top = 8
      Width = 186
      Height = 21
      Date = 39763.968113425920000000
      Time = 39763.968113425920000000
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 688
    Height = 405
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 403
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    Left = 24
    Top = 120
  end
end