main.dfm

是 delphi6的函数库

object frmMain: TfrmMain
  Left = 273
  Top = 171
  BorderStyle = bsDialog
  Caption = #31034#20363' '
  ClientHeight = 329
  ClientWidth = 602
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton3: TSpeedButton
    Left = 301
    Top = 299
    Width = 90
    Height = 24
    Caption = #21160#24577#25253#34920#31034#20363
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 40
    Width = 529
    Height = 97
    DataSource = dsMaster
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid4: TDBGrid
    Left = 16
    Top = 144
    Width = 249
    Height = 145
    DataSource = dsDetail
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 32
    Top = 8
    Width = 240
    Height = 25
    DataSource = dsMaster
    TabOrder = 2
  end
  object PRClass1: TPRClass
    Left = 472
    Top = 112
    Width = 17
    Height = 25
    Visible = False
    EditStatus = False
  end
  object Button5: TButton
    Left = 19
    Top = 299
    Width = 90
    Height = 24
    Hint = 
      'E:\lzl_delphi\vcl\CReport\CReport_D5_D7\demo_d6_7\CReport_demo.e' +
      'pt'
    Caption = #39044#35272'('#21333#25454')'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button3: TButton
    Left = 114
    Top = 299
    Width = 90
    Height = 24
    Hint = 
      'E:\lzl_delphi\vcl\CReport\CReport_D5_D7\demo_d6_7\CReport_demo.e' +
      'pt'
    Caption = #25171#21360'('#21333#25454')'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button6: TButton
    Left = 209
    Top = 299
    Width = 90
    Height = 24
    Hint = #23558'Table1'#23384#20026'EXcl'#25991#20214
    Caption = #23548#20986' Excel'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button4: TButton
    Left = 474
    Top = 299
    Width = 90
    Height = 24
    Caption = #20851#38381
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button4Click
  end
  object Memo1: TMemo
    Left = 272
    Top = 144
    Width = 321
    Height = 145
    Color = clBtnFace
    Lines.Strings = (
      '1 '#25511#20214#22312'eReport,CReport'#22522#30784#19978#20462#25913','#35831#21442#32771#26412#20363#20195#30721#20351#29992
      '2 '#26412#25253#34920#25511#20214#27809#26377#20219#20309#38480#21046#25110#25511#21046','#24744#21487#25918#24515#20351#29992#12290
      #22240#24050#32463#29992#22312#21830#19994#36719#20214#20013','#24661#19981#33021#25552#20379#28304#20195#30721'.'#22914#24744
      #38656#35201#25913#21160','#35831#21644#25105#20204#32852#31995'[e-mail]'
      '3 '#25903#25345#20027#20174'('#32454')'#34920','#20027#20174#34920#20013#20027#34920' '#24517#39035#20197#39#20027#34920'.'#39
      #24320#22836#65292#20174#34920#20197#39#32454#34920'.'#39#24320#22836','#21487#20197#35774#32622#20219#20309#38656#35201#30340
      #21333#25454#26684#24335','#22914#26524#38656#35201#22871#25171#35831#22312#27169#26495#20013#21435#25481#34920#26684#32447','
      #35843#33410#23485#24230#39640#24230#31561
      '4 '#25903#25345#26222#36890#21015#34920','#21487#20197#20174'DBGrid'#30452#25509#29983#25104#25253#34920','#30452
      #25509#23548#20986#21040'Excel')
    ScrollBars = ssBoth
    TabOrder = 8
  end
  object Button1: TButton
    Left = 392
    Top = 299
    Width = 75
    Height = 24
    Caption = #33258#21160#25253#34920
    TabOrder = 9
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 320
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 10
  end
  object opbm1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico)|*.jpg;*.jpeg;*.bmp;*.ico|JPEG Ima' +
      'ge File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*' +
      '.bmp)|*.bmp|Icons (*.ico)|*.ico'
    Left = 448
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'XLS'
    Filter = 'Excl'#25991#20214'|*.XLS'
    Left = 400
    Top = 48
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 200
    Top = 16
  end
  object QMaster: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Orders')
    Left = 272
    Top = 8
    object QMasterOrderNo: TFloatField
      DisplayLabel = #23450#21333#21495
      FieldName = 'OrderNo'
    end
    object QMasterCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object QMasterSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object QMasterShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object QMasterEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object QMasterShipToContact: TWideStringField
      FieldName = 'ShipToContact'
    end
    object QMasterShipToAddr1: TWideStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object QMasterShipToAddr2: TWideStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object QMasterShipToCity: TWideStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object QMasterfReport: TBlobField
      FieldName = 'fReport'
    end
  end
  object QDetail: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    DataSource = dsMaster
    Parameters = <
      item
        Name = 'OrderNo'
        Attributes = [paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 255
        Value = 1003.000000000000000000
      end>
    SQL.Strings = (
      'select * from Items where OrderNo=:OrderNo')
    Left = 272
    Top = 40
    object QDetailOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object QDetailItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object QDetailPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object QDetailQty: TIntegerField
      FieldName = 'Qty'
    end
    object QDetailDiscount: TFloatField
      FieldName = 'Discount'
    end
  end
  object dsMaster: TDataSource
    DataSet = QMaster
    Left = 288
    Top = 56
  end
  object dsDetail: TDataSource
    DataSet = QDetail
    Left = 312
    Top = 80
  end
  object PRToExcel1: TPRToExcel
    Dataset = QMaster
    Left = 520
    Top = 40
  end
  object PRExcute1: TPRExcute
    PrintDBGrid = DBGrid1
    EnableEdit = False
    EditEpt = False
    Datasources.Strings = (
      #20027#34920':QMaster'
      #32454#34920':QDetail')
    Left = 496
    Top = 40
  end
end