urefund.~dfm

来自「DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.」· ~DFM 代码 · 共 650 行 · 第 1/2 页

      Font.Style = []
      ParentFont = False
    end
    object Edit2: TEdit
      Left = 74
      Top = 8
      Width = 135
      Height = 21
      Enabled = False
      MaxLength = 12
      TabOrder = 0
    end
    object ComboBox2: TComboBox
      Left = 74
      Top = 41
      Width = 221
      Height = 21
      Style = csDropDownList
      Enabled = False
      ItemHeight = 13
      TabOrder = 1
    end
    object DTPicker3: TDateTimePicker
      Left = 74
      Top = 75
      Width = 89
      Height = 20
      Date = 38542.000000000000000000
      Time = 38542.000000000000000000
      Enabled = False
      TabOrder = 2
    end
    object ComboBox3: TComboBox
      Left = 74
      Top = 108
      Width = 138
      Height = 21
      Enabled = False
      ItemHeight = 13
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 74
      Top = 142
      Width = 135
      Height = 21
      Enabled = False
      MaxLength = 12
      TabOrder = 4
    end
    object Edit4: TEdit
      Left = 74
      Top = 176
      Width = 135
      Height = 21
      Enabled = False
      MaxLength = 12
      TabOrder = 5
    end
  end
  object Panel3: TPanel
    Left = 335
    Top = 3
    Width = 335
    Height = 211
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object StringGrid1: TStringGrid
      Left = 1
      Top = 88
      Width = 331
      Height = 120
      ColCount = 4
      DefaultColWidth = 15
      DefaultRowHeight = 20
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
      TabOrder = 0
      OnClick = StringGrid1Click
      ColWidths = (
        15
        92
        108
        103)
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 331
      Height = 87
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 60
        Height = 13
        Caption = #21333#25454#32534#21495#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 39
        Width = 60
        Height = 13
        Caption = #26085#26399#33539#22260#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 63
        Width = 60
        Height = 13
        Caption = #20379'  '#24212'  '#21830#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 250
        Top = 6
        Width = 75
        Height = 25
        Caption = #26597#35810
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FF00
          FF00B5848400B5848400B5848400B5848400B5848400B5848400B5848400B584
          8400B5848400B5848400B5848400B5848400B5848400FF00FF00FF00FF00FF00
          FF00636B7B00FFEFD600F7E7C600F7DEBD00F7DEB500F7D6AD00F7D6A500F7CE
          9C00F7CE9400F7CE9C00F7CE9C00F7D69C00B5848400FF00FF00FF00FF005A9C
          C600318CD6007B849C00F7E7CE00F7DEC600F7DEBD00F7D6B500F7D6AD00F7D6
          A500EFCE9C00EFCE9400EFCE9400F7D69C00B5848400FF00FF00FF00FF00FF00
          FF004AB5FF00298CE70084849C00F7E7CE00F7DEC600F7DEBD00F7D6B500F7D6
          AD00F7D6A500EFCE9C00EFCE9400F7D69C00B5848400FF00FF00FF00FF00FF00
          FF00B58473004AB5FF00218CDE007B849C00F7E7CE00F7DEC600F7DEBD00F7D6
          B500F7D6AD00F7D6A500EFCE9C00F7D69C00B5848400FF00FF00FF00FF00FF00
          FF00BD8C8400FFFFF7004ABDFF005A94BD00A5847B00BD948C00AD7B7B00BD94
          8C00D6B59C00F7D6AD00F7D6A500F7D69C00B5848400FF00FF00FF00FF00FF00
          FF00BD8C8400FFFFFF00FFF7EF00BDA59C00C6A59C00E7CEBD00F7DEC600E7C6
          AD00C69C9400D6B59C00F7D6AD00F7D6A500B5848400FF00FF00FF00FF00FF00
          FF00CE9C8400FFFFFF00FFFFF700C69C9400E7CEC600FFEFDE00FFE7D600FFFF
          F700E7C6AD00BD948C00F7DEB500F7DEAD00B5848400FF00FF00FF00FF00FF00
          FF00CE9C8400FFFFFF00FFFFFF00AD7B7B00FFEFE700FFEFE700FFEFDE00FFFF
          F700F7DEC600AD7B7B00F7DEBD00FFDEB500B5848400FF00FF00FF00FF00FF00
          FF00DEAD8400FFFFFF00FFFFFF00C69C9C00E7D6D600FFF7EF00FFEFE700FFFF
          DE00E7CEBD00BD948C00F7E7C600F7DEB500B5848400FF00FF00FF00FF00FF00
          FF00DEAD8400FFFFFF00FFFFFF00DECECE00CEADAD00E7D6D600FFEFE700E7CE
          C600C6A59C00C6A59400E7DEC600C6BDAD00B5848400FF00FF00FF00FF00FF00
          FF00E7B58C00FFFFFF00FFFFFF00FFFFFF00DECECE00C69C9C00AD7B7B00C69C
          9400D6BDB500BD847B00BD847B00BD847B00B5848400FF00FF00FF00FF00FF00
          FF00E7B58C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00E7CECE00BD847B00EFB57300EFA54A00C6846B00FF00FF00FF00FF00FF00
          FF00EFBD9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00E7D6D600BD847B00FFC67300CE947300FF00FF00FF00FF00FF00FF00FF00
          FF00EFBD9400FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7
          F700E7D6CE00BD847B00CE9C8400FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00EFBD9400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD
          8400DEAD8400BD847B00FF00FF00FF00FF00FF00FF00FF00FF00}
        OnClick = SpeedButton1Click
      end
      object Label10: TLabel
        Left = 168
        Top = 38
        Width = 12
        Height = 13
        Caption = #33267
      end
      object Edit1: TEdit
        Left = 71
        Top = 8
        Width = 135
        Height = 21
        MaxLength = 12
        TabOrder = 0
      end
      object DTPicker1: TDateTimePicker
        Left = 71
        Top = 35
        Width = 89
        Height = 20
        Date = 38542.000000000000000000
        Time = 38542.000000000000000000
        TabOrder = 1
      end
      object DTPicker2: TDateTimePicker
        Left = 190
        Top = 35
        Width = 89
        Height = 20
        Date = 38542.000000000000000000
        Time = 38542.000000000000000000
        TabOrder = 2
      end
      object ComboBox1: TComboBox
        Left = 71
        Top = 59
        Width = 203
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
      end
    end
  end
  object StringGrid2: TStringGrid
    Left = 0
    Top = 214
    Width = 585
    Height = 227
    ColCount = 6
    DefaultColWidth = 100
    DefaultRowHeight = 20
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnExit = StringGrid2Exit
    OnKeyPress = StringGrid2KeyPress
    OnKeyUp = StringGrid2KeyUp
    OnSelectCell = StringGrid2SelectCell
    ColWidths = (
      9
      100
      126
      100
      100
      100)
  end
  object dxButtonEdit1: TdxButtonEdit
    Left = 248
    Top = 262
    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 = 144
    Top = 290
    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 refund1.prid ,pluinfo.prname,refund1.refunum,refund1.refu' +
        'price from '
      'refund1 inner join pluinfo on refund1.prid = pluinfo.prid ')
    Left = 230
    Top = 101
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select refund.refid,refund.refudate,refund.handleman,filiale.fil' +
        'name,provinfo.provname'
      
        'from (refund inner join filiale on refund.filid = filiale.filid)' +
        ' inner join provinfo on '
      'refund.provid = provinfo.provid')
    Left = 276
    Top = 101
  end
  object ADOQuery3: TADOQuery
    Connection = DataModule2.ADOConnection1
    Parameters = <>
    Left = 286
    Top = 131
  end
  object RvProject1: TRvProject
    ProjectFile = 'report\Prrefund.rav'
    Left = 176
    Top = 230
  end
  object refundConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery1
    Left = 286
    Top = 278
  end
  object refundConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery2
    Left = 352
    Top = 274
  end
end