uwholesale.dfm

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

      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      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 StringGrid2: TStringGrid
    Left = 0
    Top = 214
    Width = 585
    Height = 227
    ColCount = 7
    DefaultColWidth = 90
    DefaultRowHeight = 20
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnExit = StringGrid2Exit
    OnKeyPress = StringGrid2KeyPress
    OnKeyUp = StringGrid2KeyUp
    OnSelectCell = StringGrid2SelectCell
    ColWidths = (
      8
      90
      120
      90
      90
      90
      90)
  end
  object dxButtonEdit1: TdxButtonEdit
    Left = 248
    Top = 262
    Width = 121
    Style.BorderColor = clSilver
    Style.BorderStyle = xbsSingle
    TabOrder = 2
    Visible = False
    OnExit = dxButtonEdit1Exit
    Buttons = <
      item
        Default = True
      end>
    OnButtonClick = dxButtonEdit1ButtonClick
    ExistButtons = True
  end
  object Panel1: TPanel
    Left = 337
    Top = 3
    Width = 331
    Height = 87
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    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
  object StringGrid1: TStringGrid
    Left = 337
    Top = 90
    Width = 331
    Height = 122
    ColCount = 4
    DefaultColWidth = 15
    DefaultRowHeight = 20
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
    TabOrder = 4
    OnClick = StringGrid1Click
    ColWidths = (
      15
      94
      101
      110)
  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 wholesale1.prid,pluinfo.prname,wholesale1.salenum,wholesa' +
        'le1.price,wholesale1.costprice'
      
        'from wholesale1 inner join pluinfo on wholesale1.prid = pluinfo.' +
        'prid')
    Left = 230
    Top = 101
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select wholesale.wholesaleid,wholesale.saledate,wholesale.handle' +
        'man,filiale.filname'
      
        ',clients.clientname from (wholesale inner join filiale on wholes' +
        'ale.filid = filiale.filid) inner join'
      'clients on wholesale.clientid = clients.clientid '
      ' ')
    Left = 274
    Top = 101
  end
  object ADOQuery3: TADOQuery
    Connection = DataModule2.ADOConnection1
    Parameters = <>
    Left = 286
    Top = 131
  end
  object RvProject1: TRvProject
    ProjectFile = 'report\Prwholesale.rav'
    Left = 264
    Top = 298
  end
  object wholesaleConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery1
    Left = 332
    Top = 294
  end
  object wholesaleConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery2
    Left = 410
    Top = 286
  end
end