print_lens.dfm

精确套打与机械图纸生成, 包含了所有源码, 可供朋友们打印方面的参考

object Form1: TForm1
  Left = 252
  Top = 35
  Width = 763
  Height = 646
  Caption = #30011#38754#25805#20316#20363#23376'('#32477#23545#32463#20856#21407#21019','#21407#21019#20316#32773':'#26472#25391#21326',QQ:46643663,'#30005#35805':13728065163)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 208
    Top = 480
    Width = 36
    Height = 13
    Caption = #36215#22987#39029
  end
  object Label2: TLabel
    Left = 208
    Top = 512
    Width = 36
    Height = 13
    Caption = #32456#27490#39029
  end
  object Label3: TLabel
    Left = 208
    Top = 552
    Width = 36
    Height = 13
    Caption = #39030#36793#30697
  end
  object Label4: TLabel
    Left = 208
    Top = 576
    Width = 36
    Height = 13
    Caption = #24038#36793#36317
  end
  object Label5: TLabel
    Left = 280
    Top = 440
    Width = 64
    Height = 13
    Caption = #21333#20301#20840#26159'mm'
  end
  object Bevel1: TBevel
    Left = 32
    Top = 408
    Width = 537
    Height = 9
    Shape = bsTopLine
  end
  object Label6: TLabel
    Left = 40
    Top = 392
    Width = 282
    Height = 13
    Caption = #20197#19979#26159#24120#35265#30340#34920#21333#22871#25171#31243#24207'('#20165#25552#20379#26680#24515#31243#24207#20379#23398#20064#29992')'
  end
  object Bevel2: TBevel
    Left = 24
    Top = 64
    Width = 537
    Height = 9
    Shape = bsTopLine
  end
  object Label7: TLabel
    Left = 32
    Top = 48
    Width = 555
    Height = 13
    Caption = #20197#19979#26159#22312#30011#24067#19978#32472#22270#30340#20363#23376'----'#22270#32440#33258#21160#29983#25104')  '#20026#20445#35777#29983#25104#30340#25928#26524','#35831#30830#20445#35745#31639#26426#31995#32479#20013#26377#23433#35013#20102#30456#20851#30340#23383#20307')'
  end
  object Label8: TLabel
    Left = 32
    Top = 72
    Width = 571
    Height = 13
    Caption = #27492#27169#22359#26377#35843#29992'dll'#25991','#30011#24067#19978#32472#22270#30340#25972#20010#36807#31243#26159#22312'DLL'#25991#20214#20013#23436#25104#30340',DLL'#25991#20214#20026#26412#20154#21407#21019','#22312#21478#19968#20010'DLL'#30340#25991#20214#22841#20013
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label9: TLabel
    Left = 32
    Top = 88
    Width = 534
    Height = 13
    Caption = #27492#22270#32440#29983#25104#20363#23376#31243#24207','#26377#28041#21450#21040#20809#23398#30340#22522#26412#30693#36947#21644#26426#26800#21046#22270#30340#30456#20851#20869#23481','#35831#26681#25454#33258#24049#23454#38469#24773#20917#26469#36827#34892#23398#20064
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 16
    Top = 320
    Width = 713
    Height = 20
    AutoSize = False
    Caption = #26412#31243#24207#26159#30452#25509#23545#30011#24067#30340#25805#20316#30340#32477#23545#32463#20856#21407#21019#20363#23376'.'#23545#21021#23398#32773#26377#21487#33021#23384#22312#19968#23450#38590#24230','
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 104
    Top = 280
    Width = 105
    Height = 25
    Caption = #36880#24352#22270#32440#29983#25104
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 24
    Top = 280
    Width = 75
    Height = 25
    Caption = #36830#32493#29983#25104
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 32
    Top = 112
    Width = 529
    Height = 169
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button3: TButton
    Left = 48
    Top = 472
    Width = 121
    Height = 25
    Caption = #36755#20986#20179#24211#26126#32454#36134
    TabOrder = 3
    OnClick = Button3Click
  end
  object Edit1: TEdit
    Left = 248
    Top = 472
    Width = 121
    Height = 21
    TabOrder = 4
    Text = '1'
  end
  object Edit2: TEdit
    Left = 248
    Top = 512
    Width = 121
    Height = 21
    TabOrder = 5
    Text = '200'
  end
  object Button4: TButton
    Left = 48
    Top = 512
    Width = 113
    Height = 25
    Caption = #22635#34920'A('#22871#25171')'
    TabOrder = 6
    OnClick = Button4Click
  end
  object Edit3: TEdit
    Left = 248
    Top = 544
    Width = 121
    Height = 21
    TabOrder = 7
    Text = '11'
  end
  object Edit4: TEdit
    Left = 248
    Top = 576
    Width = 121
    Height = 21
    TabOrder = 8
    Text = '32'
  end
  object Button5: TButton
    Left = 48
    Top = 552
    Width = 113
    Height = 25
    Caption = #22635#34920'B('#22871#25171')'
    TabOrder = 9
    OnClick = Button5Click
  end
  object PrintDialog1: TPrintDialog
    Left = 320
    Top = 176
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Lens.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 128
    Top = 128
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Lens_All where mid(id,1,4)='#39'AF03'#39';')
    Left = 136
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 192
    Top = 104
  end
  object ADOConnection2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=Ku.md' +
      'b;Mode=Share Deny None;Extended Properties="";Persist Security I' +
      'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
      '";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
      'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
      'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
      'ord="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt ' +
      'Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet ' +
      'OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 120
    Top = 408
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from KU;')
    Left = 216
    Top = 408
  end
end