printtp.dfm

DBchart的高级使用

object printtype: Tprinttype
  Left = 101
  Top = 89
  Width = 471
  Height = 286
  BorderIcons = [biSystemMenu]
  Caption = #25171#21360#36873#25321
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 360
    Top = 160
    Width = 89
    Height = 25
    Cursor = crHandPoint
    Hint = #39044#35272#32467#26524#25171#21360
    Caption = #39044#35272
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 360
    Top = 208
    Width = 89
    Height = 25
    Cursor = crHandPoint
    Hint = #36820#22238#20027#31383#21475
    Caption = #20851#38381
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object RadioGroup2: TRadioGroup
    Left = 0
    Top = 136
    Width = 345
    Height = 113
    Caption = #35831#36873#25321#25171#21360#39034#24207
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -20
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      #24207#21495
      #24471#31080#25968)
    ParentFont = False
    TabOrder = 0
    OnClick = RadioGroup2Click
  end
  object RadioGroup1: TRadioGroup
    Left = 0
    Top = 0
    Width = 463
    Height = 129
    Caption = #35831#36873#25321#25171#21360#32467#26524#31867#22411
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -20
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      #39046#23548#36873#20030#32467#26524
      #24120#22996#36873#20030#32467#26524)
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
  object Table1: TTable
    DatabaseName = 'electionprj'
    TableName = 'ld.DB'
    Left = 216
    Top = 40
  end
  object Table2: TTable
    DatabaseName = 'electionprj'
    TableName = 'ldlx.DB'
    Left = 224
    Top = 80
  end
  object Query1: TQuery
    DatabaseName = 'elect'
    Left = 280
    Top = 40
  end
  object Query2: TQuery
    DatabaseName = 'elect'
    Left = 296
    Top = 80
  end
end