ustockin.dfm

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

      Height = 13
      Caption = #20837#24211#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 8
      Top = 112
      Width = 60
      Height = 13
      Caption = #20837#24211#20998#24215#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 146
      Width = 60
      Height = 13
      Caption = #32463'  '#25163'  '#20154#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 8
      Top = 180
      Width = 60
      Height = 13
      Caption = #24635'  '#37329'  '#39069#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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
      Style = csDropDownList
      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 = 2
    object StringGrid1: TStringGrid
      Left = 1
      Top = 88
      Width = 331
      Height = 120
      ColCount = 4
      DefaultColWidth = 15
      DefaultRowHeight = 20
      RowCount = 2
      TabOrder = 0
      OnClick = StringGrid1Click
      ColWidths = (
        15
        102
        83
        123)
    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 dxButtonEdit1: TdxButtonEdit
    Left = 224
    Top = 298
    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 ADOQuery1: TADOQuery
    Connection = DataModule2.filialeConnect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select stockin1.prid,pluinfo.prname,stockin1.stocknum,stockin1.s' +
        'toprice'
      
        'from stockin1 inner join pluinfo on stockin1.prid = pluinfo.prid' +
        ' ')
    Left = 232
    Top = 111
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select stockin.stockid,stockin.stockdate,stockin.handleman,filia' +
        'le.filname,provinfo.provname'
      
        'from (stockin inner join filiale on stockin.filid = filiale.fili' +
        'd) inner join provinfo on '
      'stockin.provid = provinfo.provid')
    Left = 294
    Top = 103
  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 ADOQuery3: TADOQuery
    Connection = DataModule2.ADOConnection1
    Parameters = <>
    Left = 254
    Top = 145
  end
  object stockintConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery1
    Left = 357
    Top = 165
  end
  object RvProject1: TRvProject
    ProjectFile = 'report\Prstockin.rav'
    Left = 282
    Top = 296
  end
  object stockinConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery2
    Left = 499
    Top = 169
  end
end