Internet/IE编程

开发平台：
Delphi

FormOrder.dfm：源码内容
							object FrmOrder: TFrmOrder
  Left = 82
  Top = 206
  Width = 678
  Height = 422
  Caption = 'FrmOrder'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter: TSplitter
    Left = 0
    Top = 177
    Width = 670
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Beveled = True
  end
  object ScrollBox: TScrollBox
    Left = 0
    Top = 0
    Width = 670
    Height = 177
    Align = alTop
    PopupMenu = PopupMenu
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 42
      Height = 12
      Caption = 'OrderID'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 240
      Top = 24
      Width = 48
      Height = 12
      Caption = 'Customer'
    end
    object Label3: TLabel
      Left = 448
      Top = 120
      Width = 48
      Height = 12
      Caption = 'Employee'
    end
    object Label4: TLabel
      Left = 448
      Top = 24
      Width = 54
      Height = 12
      Caption = 'OrderDate'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 16
      Top = 48
      Width = 72
      Height = 12
      Caption = 'RequiredDate'
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 240
      Top = 48
      Width = 66
      Height = 12
      Caption = 'ShippedDate'
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 448
      Top = 48
      Width = 42
      Height = 12
      Caption = 'ShipVia'
    end
    object Label8: TLabel
      Left = 16
      Top = 72
      Width = 42
      Height = 12
      Caption = 'Freight'
      FocusControl = DBEdit8
    end
    object Label9: TLabel
      Left = 240
      Top = 72
      Width = 48
      Height = 12
      Caption = 'ShipName'
      FocusControl = DBEdit9
    end
    object Label10: TLabel
      Left = 16
      Top = 96
      Width = 66
      Height = 12
      Caption = 'ShipAddress'
      FocusControl = DBEdit10
    end
    object Label11: TLabel
      Left = 16
      Top = 120
      Width = 48
      Height = 12
      Caption = 'ShipCity'
      FocusControl = DBEdit11
    end
    object Label12: TLabel
      Left = 240
      Top = 120
      Width = 60
      Height = 12
      Caption = 'ShipRegion'
      FocusControl = DBEdit12
    end
    object Label13: TLabel
      Left = 16
      Top = 144
      Width = 84
      Height = 12
      Caption = 'ShipPostalCode'
      FocusControl = DBEdit13
    end
    object Label14: TLabel
      Left = 240
      Top = 144
      Width = 66
      Height = 12
      Caption = 'ShipCountry'
      FocusControl = DBEdit14
    end
    object DBEdit1: TDBEdit
      Left = 96
      Top = 16
      Width = 105
      Height = 20
      DataField = 'OrderID'
      DataSource = dsOrders
      TabOrder = 0
    end
    object DBEdit4: TDBEdit
      Left = 520
      Top = 16
      Width = 105
      Height = 20
      DataField = 'OrderDate'
      DataSource = dsOrders
      TabOrder = 1
    end
    object DBEdit5: TDBEdit
      Left = 96
      Top = 40
      Width = 105
      Height = 20
      DataField = 'RequiredDate'
      DataSource = dsOrders
      TabOrder = 2
    end
    object DBEdit6: TDBEdit
      Left = 320
      Top = 40
      Width = 105
      Height = 20
      DataField = 'ShippedDate'
      DataSource = dsOrders
      TabOrder = 3
    end
    object DBEdit8: TDBEdit
      Left = 96
      Top = 64
      Width = 105
      Height = 20
      DataField = 'Freight'
      DataSource = dsOrders
      TabOrder = 4
    end
    object DBEdit9: TDBEdit
      Left = 320
      Top = 64
      Width = 305
      Height = 20
      DataField = 'ShipName'
      DataSource = dsOrders
      TabOrder = 5
    end
    object DBEdit10: TDBEdit
      Left = 96
      Top = 88
      Width = 529
      Height = 20
      DataField = 'ShipAddress'
      DataSource = dsOrders
      TabOrder = 6
    end
    object DBEdit11: TDBEdit
      Left = 96
      Top = 112
      Width = 105
      Height = 20
      DataField = 'ShipCity'
      DataSource = dsOrders
      TabOrder = 7
    end
    object DBEdit12: TDBEdit
      Left = 320
      Top = 112
      Width = 105
      Height = 20
      DataField = 'ShipRegion'
      DataSource = dsOrders
      TabOrder = 8
    end
    object DBEdit13: TDBEdit
      Left = 96
      Top = 136
      Width = 105
      Height = 20
      DataField = 'ShipPostalCode'
      DataSource = dsOrders
      TabOrder = 9
    end
    object DBEdit14: TDBEdit
      Left = 320
      Top = 136
      Width = 105
      Height = 20
      DataField = 'ShipCountry'
      DataSource = dsOrders
      TabOrder = 10
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 320
      Top = 16
      Width = 105
      Height = 20
      DataField = 'CustomerID'
      DataSource = dsOrders
      KeyField = 'CustomerID'
      ListField = 'CompanyName'
      ListSource = DmMain.dsCustomers
      TabOrder = 11
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 520
      Top = 112
      Width = 105
      Height = 20
      DataField = 'EmployeeID'
      DataSource = dsOrders
      KeyField = 'EmployeeID'
      ListField = 'EmployeeName'
      ListSource = DmMain.dsEmployees
      TabOrder = 12
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 520
      Top = 40
      Width = 105
      Height = 20
      DataField = 'ShipVia'
      DataSource = dsOrders
      KeyField = 'ShipperID'
      ListField = 'CompanyName'
      ListSource = DmMain.dsShipper
      TabOrder = 13
    end
  end
  object pnlControls: TPanel
    Left = 0
    Top = 345
    Width = 670
    Height = 31
    Align = alBottom
    TabOrder = 1
    object btnFind: TButton
      Left = 8
      Top = 3
      Width = 50
      Height = 25
      Action = actFind
      TabOrder = 0
    end
    object btnRefresh: TButton
      Left = 62
      Top = 3
      Width = 50
      Height = 25
      Action = actRefresh
      TabOrder = 1
    end
    object btnSave: TButton
      Left = 116
      Top = 3
      Width = 50
      Height = 25
      Action = actSave
      TabOrder = 2
    end
    object btnCancel: TButton
      Left = 171
      Top = 3
      Width = 50
      Height = 25
      Action = actCancel
      TabOrder = 3
    end
    object btnAdd: TButton
      Left = 225
      Top = 3
      Width = 50
      Height = 25
      Action = actAdd
      TabOrder = 4
    end
    object btnModify: TButton
      Left = 280
      Top = 3
      Width = 50
      Height = 25
      Action = actModify
      TabOrder = 5
    end
    object Button1: TButton
      Left = 336
      Top = 3
      Width = 50
      Height = 25
      Action = actDelete
      TabOrder = 6
    end
  end
  object dbgrdDetail: TDBGrid
    Left = 0
    Top = 180
    Width = 670
    Height = 165
    Align = alClient
    DataSource = dsOrderDetails
    PopupMenu = PopupMenu_grid
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ProductName'
        Title.Caption = #20135#21697#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UnitPrice'
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Quantity'
        Title.Caption = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Discount'
        Title.Caption = #25240#25187
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Total'
        Title.Caption = #21512#35745
        Visible = True
      end>
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 376
    Width = 670
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object ActionList: TActionList
    Left = 96
    Top = 288
    object actAdd: TAction
      Caption = #28155#21152
      OnExecute = actAddExecute
    end
    object actModify: TAction
      Caption = #20462#25913
      OnExecute = actModifyExecute
    end
    object actRefresh: TAction
      Caption = #21047#26032
      OnExecute = actRefreshExecute
    end
    object actSave: TAction
      Caption = #20445#23384
      OnExecute = actSaveExecute
    end
    object actFind: TAction
      Caption = #26597#35810
      OnExecute = actFindExecute
    end
    object actCancel: TAction
      Caption = #21462#28040
      OnExecute = actCancelExecute
    end
    object actAddRow: TAction
      Caption = #28155#34892
      OnExecute = actAddRowExecute
    end
    object actDelRow: TAction
      Caption = #21024#34892
      OnExecute = actDelRowExecute
    end
    object actDelete: TAction
      Caption = #21024#38500
    end
  end
  object PopupMenu: TPopupMenu
    Left = 128
    Top = 288
    object N1: TMenuItem
      Action = actFind
    end
    object N2: TMenuItem
      Action = actRefresh
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = actAdd
    end
    object N5: TMenuItem
      Action = actDelete
    end
    object N6: TMenuItem
      Action = actModify
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N8: TMenuItem
      Action = actSave
    end
    object N9: TMenuItem
      Action = actCancel
    end
  end
  object cltdsOrders: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 320
    Top = 248
    object cltdsOrdersOrderID: TIntegerField
      FieldName = 'OrderID'
    end
    object cltdsOrdersCustomerID: TWideStringField
      FieldName = 'CustomerID'
      Size = 5
    end
    object cltdsOrdersEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
    end
    object cltdsOrdersOrderDate: TDateTimeField
      FieldName = 'OrderDate'
    end
    object cltdsOrdersRequiredDate: TDateTimeField
      FieldName = 'RequiredDate'
    end
    object cltdsOrdersShippedDate: TDateTimeField
      FieldName = 'ShippedDate'
    end
    object cltdsOrdersShipVia: TIntegerField
      FieldName = 'ShipVia'
    end
    object cltdsOrdersFreight: TBCDField
      FieldName = 'Freight'
      Precision = 19
    end
    object cltdsOrdersShipName: TWideStringField
      FieldName = 'ShipName'
      Size = 40
    end
    object cltdsOrdersShipAddress: TWideStringField
      FieldName = 'ShipAddress'
      Size = 60
    end
    object cltdsOrdersShipCity: TWideStringField
      FieldName = 'ShipCity'
      Size = 15
    end
    object cltdsOrdersShipRegion: TWideStringField
      FieldName = 'ShipRegion'
      Size = 15
    end
    object cltdsOrdersShipPostalCode: TWideStringField
      FieldName = 'ShipPostalCode'
      Size = 10
    end
    object cltdsOrdersShipCountry: TWideStringField
      FieldName = 'ShipCountry'
      Size = 15
    end
  end
  object cltdsOrderDetails: TClientDataSet
    Aggregates = <>
    Params = <>
    OnCalcFields = cltdsOrderDetailsCalcFields
    Left = 352
    Top = 248
    object cltdsOrderDetailsOrderID: TIntegerField
      FieldName = 'OrderID'
    end
    object cltdsOrderDetailsProductID: TIntegerField
      FieldName = 'ProductID'
    end
    object cltdsOrderDetailsUnitPrice: TBCDField
      FieldName = 'UnitPrice'
      Precision = 19
    end
    object cltdsOrderDetailsQuantity: TSmallintField
      FieldName = 'Quantity'
    end
    object cltdsOrderDetailsDiscount: TFloatField
      FieldName = 'Discount'
      Precision = 3
    end
    object cltdsOrderDetailsProductName: TStringField
      FieldKind = fkLookup
      FieldName = 'ProductName'
      LookupDataSet = DmMain.cltdsProducts
      LookupKeyFields = 'ProductID'
      LookupResultField = 'ProductName'
      KeyFields = 'ProductID'
      Size = 40
      Lookup = True
    end
    object cltdsOrderDetailsTotal: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Total'
      Precision = 3
      Calculated = True
    end
  end
  object dsOrders: TDataSource
    DataSet = cltdsOrders
    Left = 320
    Top = 280
  end
  object dsOrderDetails: TDataSource
    DataSet = cltdsOrderDetails
    Left = 352
    Top = 280
  end
  object PopupMenu_grid: TPopupMenu
    Left = 160
    Top = 288
    object N10: TMenuItem
      Action = actAddRow
    end
    object N11: TMenuItem
      Action = actDelRow
    end
  end
end

						