urecloss.dfm

DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.

    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 60
      Height = 13
      Caption = #21333#25454#32534#21495#65306
    end
    object Label2: TLabel
      Left = 10
      Top = 38
      Width = 60
      Height = 13
      Caption = #26085#26399#33539#22260#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 251
      Top = 4
      Width = 75
      Height = 25
      Caption = #26597#25214
      Flat = True
      OnClick = SpeedButton1Click
    end
    object Label3: TLabel
      Left = 178
      Top = 38
      Width = 12
      Height = 13
      Caption = #33267
    end
    object Edit1: TEdit
      Left = 72
      Top = 6
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object DatePicker1: TDateTimePicker
      Left = 70
      Top = 34
      Width = 101
      Height = 21
      Date = 38557.578366805550000000
      Time = 38557.578366805550000000
      TabOrder = 1
    end
    object DatePicker2: TDateTimePicker
      Left = 198
      Top = 34
      Width = 101
      Height = 21
      Date = 38557.578366805550000000
      Time = 38557.578366805550000000
      TabOrder = 2
    end
    object StringGrid1: TStringGrid
      Left = 0
      Top = 60
      Width = 329
      Height = 120
      ColCount = 4
      DefaultColWidth = 80
      DefaultRowHeight = 20
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
      TabOrder = 3
      OnSelectCell = StringGrid1SelectCell
      ColWidths = (
        16
        101
        103
        101)
    end
  end
  object Panel2: TPanel
    Left = 1
    Top = 2
    Width = 274
    Height = 183
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 54
      Width = 63
      Height = 13
      Caption = #21333#25454#32534#21495#65306' '
    end
    object Label5: TLabel
      Left = 16
      Top = 87
      Width = 60
      Height = 13
      Caption = #20998#24215#21517#31216#65306
    end
    object Label6: TLabel
      Left = 16
      Top = 121
      Width = 60
      Height = 13
      Caption = #25253#25439#26085#26399#65306
    end
    object Label7: TLabel
      Left = 16
      Top = 154
      Width = 60
      Height = 13
      Caption = #32463'  '#25163#20154'  '#65306
    end
    object Label8: TLabel
      Left = 74
      Top = 8
      Width = 180
      Height = 24
      Caption = #21830#21697#25253#25439#21333'     '
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit2: TEdit
      Left = 80
      Top = 49
      Width = 135
      Height = 21
      Enabled = False
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 80
      Top = 150
      Width = 151
      Height = 21
      Enabled = False
      TabOrder = 1
    end
    object DatePicker3: TDateTimePicker
      Left = 80
      Top = 117
      Width = 151
      Height = 21
      Date = 38557.586218611110000000
      Time = 38557.586218611110000000
      Enabled = False
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 83
      Width = 177
      Height = 21
      Enabled = False
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object StringGrid2: TStringGrid
    Left = 1
    Top = 186
    Width = 524
    Height = 197
    DefaultColWidth = 12
    DefaultRowHeight = 20
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnSelectCell = StringGrid2SelectCell
    ColWidths = (
      12
      68
      131
      67
      241)
  end
  object dxButtonEdit1: TdxButtonEdit
    Left = 176
    Top = 266
    Width = 121
    Style.BorderColor = clSilver
    Style.BorderStyle = xbsSingle
    TabOrder = 3
    Visible = False
    OnExit = dxButtonEdit1Exit
    Buttons = <
      item
        Default = True
      end>
    OnButtonClick = dxButtonEdit1ButtonClick
    ExistButtons = True
  end
  object PopupMenu1: TPopupMenu
    Left = 356
    Top = 254
    object N1: TMenuItem
      Caption = #28155#21152
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500
      OnClick = N2Click
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DataModule2.filialeConnect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select recloss1.prid,pluinfo.prname,recloss1.lossnum,'
      
        'recloss1.cause from recloss1 inner join pluinfo on recloss1.prid' +
        ' ='
      'pluinfo.prid')
    Left = 344
    Top = 140
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    Parameters = <>
    Left = 376
    Top = 140
  end
  object ADOQuery3: TADOQuery
    Connection = DataModule2.ADOConnection1
    Parameters = <>
    Left = 404
    Top = 140
  end
  object RvProject1: TRvProject
    ProjectFile = 'report\Prloss.rav'
    Left = 177
    Top = 154
  end
  object lossConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery1
    Left = 237
    Top = 150
  end
  object RvDataSetConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    Left = 300
    Top = 222
  end
end