Upf.dfm
上传用户:jiete_yjc
上传日期:2010-02-11
资源大小:422k
文件大小:17k
源码类别:

医药行业

开发平台:

Delphi

  1. object fpf: Tfpf
  2.   Left = 102
  3.   Top = 122
  4.   BorderStyle = bsSingle
  5.   Caption = #25209#21457
  6.   ClientHeight = 417
  7.   ClientWidth = 692
  8.   Color = clInactiveCaptionText
  9.   Constraints.MinHeight = 400
  10.   Constraints.MinWidth = 700
  11.   Ctl3D = False
  12.   Font.Charset = DEFAULT_CHARSET
  13.   Font.Color = clWindowText
  14.   Font.Height = -11
  15.   Font.Name = 'MS Sans Serif'
  16.   Font.Style = []
  17.   FormStyle = fsMDIChild
  18.   OldCreateOrder = False
  19.   Position = poDefault
  20.   Visible = True
  21.   WindowState = wsMaximized
  22.   OnClose = FormClose
  23.   OnShow = FormShow
  24.   PixelsPerInch = 96
  25.   TextHeight = 13
  26.   object Label1: TLabel
  27.     Left = 0
  28.     Top = 0
  29.     Width = 692
  30.     Height = 29
  31.     Align = alTop
  32.     Alignment = taCenter
  33.     Caption = #33647#21697#25209#21457#21333
  34.     Font.Charset = DEFAULT_CHARSET
  35.     Font.Color = clWindowText
  36.     Font.Height = -24
  37.     Font.Name = 'MS Sans Serif'
  38.     Font.Style = []
  39.     ParentFont = False
  40.   end
  41.   object DBGridEh1: TDBGridEh
  42.     Left = 0
  43.     Top = 73
  44.     Width = 692
  45.     Height = 227
  46.     Align = alClient
  47.     AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
  48.     DataSource = adodm.dscr
  49.     Flat = True
  50.     Font.Charset = DEFAULT_CHARSET
  51.     Font.Color = clWindowText
  52.     Font.Height = -13
  53.     Font.Name = 'MS Sans Serif'
  54.     Font.Style = []
  55.     FooterColor = clWindow
  56.     FooterFont.Charset = DEFAULT_CHARSET
  57.     FooterFont.Color = clWindowText
  58.     FooterFont.Height = -11
  59.     FooterFont.Name = 'MS Sans Serif'
  60.     FooterFont.Style = []
  61.     FooterRowCount = 1
  62.     ParentFont = False
  63.     SumList.Active = True
  64.     TabOrder = 1
  65.     TitleFont.Charset = DEFAULT_CHARSET
  66.     TitleFont.Color = clWindowText
  67.     TitleFont.Height = -11
  68.     TitleFont.Name = 'MS Sans Serif'
  69.     TitleFont.Style = []
  70.     OnColEnter = DBGridEh1ColEnter
  71.     OnColExit = DBGridEh1ColExit
  72.     OnKeyDown = DBGridEh1KeyDown
  73.     Columns = <
  74.       item
  75.         AutoDropDown = True
  76.         AutoFitColWidth = False
  77.         DropDownWidth = 300
  78.         EditButtons = <>
  79.         FieldName = #33647#21697#31616#30721
  80.         Footer.Value = #21697#31181#21512#35745#65306
  81.         Footer.ValueType = fvtStaticText
  82.         Footers = <>
  83.         LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
  84.         Width = 62
  85.       end
  86.       item
  87.         AutoFitColWidth = False
  88.         EditButtons = <>
  89.         FieldName = #25968#37327
  90.         Footer.FieldName = #33647#21697#31616#30721
  91.         Footer.ValueType = fvtCount
  92.         Footers = <>
  93.         Width = 68
  94.       end
  95.       item
  96.         AutoDropDown = True
  97.         AutoFitColWidth = False
  98.         DropDownWidth = 300
  99.         EditButtons = <>
  100.         FieldName = #33647#21697#32534#21495
  101.         Footer.EndEllipsis = True
  102.         Footers = <>
  103.         LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
  104.         Width = 68
  105.       end
  106.       item
  107.         AutoDropDown = True
  108.         AutoFitColWidth = False
  109.         DropDownWidth = 300
  110.         EditButtons = <>
  111.         FieldName = #33647#21697#21517#31216
  112.         Footers = <>
  113.         LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
  114.         Width = 73
  115.       end
  116.       item
  117.         AutoFitColWidth = False
  118.         EditButtons = <>
  119.         FieldName = #21333#20215
  120.         Footer.Value = #21512#35745#65306
  121.         Footer.ValueType = fvtStaticText
  122.         Footers = <>
  123.       end
  124.       item
  125.         AutoFitColWidth = False
  126.         EditButtons = <>
  127.         FieldName = #37329#39069
  128.         Footer.EndEllipsis = True
  129.         Footer.FieldName = #37329#39069
  130.         Footer.ValueType = fvtSum
  131.         Footers = <>
  132.         ReadOnly = True
  133.         Width = 83
  134.       end
  135.       item
  136.         AutoFitColWidth = False
  137.         EditButtons = <>
  138.         FieldName = #21333#20301
  139.         Footers = <>
  140.         ReadOnly = True
  141.         Width = 71
  142.       end
  143.       item
  144.         AutoFitColWidth = False
  145.         EditButtons = <>
  146.         FieldName = #35268#26684
  147.         Footers = <>
  148.         ReadOnly = True
  149.         Width = 87
  150.       end
  151.       item
  152.         AutoFitColWidth = False
  153.         EditButtons = <>
  154.         FieldName = #25209#21457#20215
  155.         Footers = <>
  156.         ReadOnly = True
  157.       end>
  158.   end
  159.   object TabControl1: TTabControl
  160.     Left = 0
  161.     Top = 29
  162.     Width = 692
  163.     Height = 44
  164.     Align = alTop
  165.     Style = tsFlatButtons
  166.     TabOrder = 0
  167.     object Label2: TLabel
  168.       Left = 512
  169.       Top = 16
  170.       Width = 48
  171.       Height = 13
  172.       AutoSize = False
  173.       Caption = #32534#21495
  174.     end
  175.     object Label3: TLabel
  176.       Left = 320
  177.       Top = 16
  178.       Width = 32
  179.       Height = 13
  180.       Caption = 'Label3'
  181.     end
  182.     object Label4: TLabel
  183.       Left = 8
  184.       Top = 16
  185.       Width = 65
  186.       Height = 13
  187.       AutoSize = False
  188.       Caption = #36141#33647#21333#20301
  189.     end
  190.     object dw: TDBLookupComboboxEh
  191.       Left = 72
  192.       Top = 16
  193.       Width = 121
  194.       Height = 19
  195.       DropDownBox.AutoDrop = True
  196.       DropDownBox.Width = 200
  197.       EditButtons = <>
  198.       KeyField = 'clientid'
  199.       ListField = #31616#30721';'#21517#31216
  200.       ListFieldIndex = 1
  201.       ListSource = adodm.dsdw
  202.       Style = csDropDownEh
  203.       TabOrder = 0
  204.       OnChange = dwChange
  205.       OnExit = dwExit
  206.     end
  207.     object Edit2: TEdit
  208.       Left = 568
  209.       Top = 16
  210.       Width = 105
  211.       Height = 19
  212.       Enabled = False
  213.       TabOrder = 1
  214.     end
  215.   end
  216.   object TabControl2: TTabControl
  217.     Left = 0
  218.     Top = 300
  219.     Width = 692
  220.     Height = 117
  221.     Align = alBottom
  222.     Style = tsFlatButtons
  223.     TabOrder = 2
  224.     object Label5: TLabel
  225.       Left = 16
  226.       Top = 20
  227.       Width = 57
  228.       Height = 13
  229.       AutoSize = False
  230.       Caption = #25805#20316#20154
  231.     end
  232.     object Label6: TLabel
  233.       Left = 240
  234.       Top = 20
  235.       Width = 49
  236.       Height = 13
  237.       AutoSize = False
  238.       Caption = #24320#31080#20154
  239.     end
  240.     object Label7: TLabel
  241.       Left = 488
  242.       Top = 40
  243.       Width = 57
  244.       Height = 17
  245.       AutoSize = False
  246.       Caption = #23454#20184#37329#39069#65306
  247.     end
  248.     object Label8: TLabel
  249.       Left = 488
  250.       Top = 64
  251.       Width = 33
  252.       Height = 17
  253.       AutoSize = False
  254.       Caption = #25214#38065#65306
  255.     end
  256.     object sncCurrencyLabel1: TsncCurrencyLabel
  257.       Left = 560
  258.       Top = 8
  259.       Width = 129
  260.       Height = 26
  261.       Ctl3D = False
  262.       DecimalSymbols.Strings = (
  263.         #35282
  264.         #20998)
  265.       DigitalSymbols.Strings = (
  266.         #20803
  267.         #21313
  268.         #30334
  269.         #21315
  270.         #19975
  271.         #21313
  272.         #30334
  273.         #21315
  274.         #20159
  275.         #21313
  276.         #30334
  277.         #21315
  278.         #19975)
  279.       ParentColor = False
  280.     end
  281.     object Edit1: TEdit
  282.       Left = 72
  283.       Top = 17
  284.       Width = 97
  285.       Height = 19
  286.       Enabled = False
  287.       ReadOnly = True
  288.       TabOrder = 1
  289.     end
  290.     object ren: TDBLookupComboboxEh
  291.       Left = 312
  292.       Top = 17
  293.       Width = 129
  294.       Height = 19
  295.       DropDownBox.AutoDrop = True
  296.       DropDownBox.Width = 150
  297.       EditButtons = <>
  298.       KeyField = 'ygid'
  299.       ListField = #22995#21517';'#21592#24037#32534#21495
  300.       ListSource = adodm.dsyg
  301.       Style = csDropDownEh
  302.       TabOrder = 0
  303.       OnChange = renChange
  304.       OnExit = renExit
  305.     end
  306.     object print: TCheckBox
  307.       Left = 64
  308.       Top = 80
  309.       Width = 97
  310.       Height = 17
  311.       Caption = #25171#21360#25209#21457#21333
  312.       Checked = True
  313.       State = cbChecked
  314.       TabOrder = 3
  315.     end
  316.     object save: TBitBtn
  317.       Left = 165
  318.       Top = 75
  319.       Width = 69
  320.       Height = 25
  321.       Caption = #23384#30424'(&S)'
  322.       TabOrder = 4
  323.       TabStop = False
  324.       OnClick = saveClick
  325.       Glyph.Data = {
  326.         96090000424D9609000000000000360000002800000028000000140000000100
  327.         1800000000006009000000000000000000000000000000000000FF00FF000000
  328.         0000000000000000000000000000000000000000000000000000000000000000
  329.         00000000000000000000000000000000000000FF00FFFF00FF00000000000000
  330.         0000000000000000000000000000000000000000000000000000000000000000
  331.         000000000000000000000000000000FF00FF2963636394946394946394942931
  332.         29293129293129293129293129293129293129293129293129ADB5ADADB5ADAD
  333.         B5AD2931290063630063630000008484848484848484848484844A4A4A4A4A4A
  334.         4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4AADB5ADADB5ADADB5AD4A4A
  335.         4A84848484848400000029636363949494CECE94CECE4A4A4A4A4A4A29312929
  336.         3129293129293129293129293129293129CECECEADB5ADADB5AD293129639494
  337.         006363000000848484848484ADB5ADADB5AD6363636363634A4A4A4A4A4A4A4A
  338.         4A4A4A4A4A4A4A4A4A4A4A4A4ACECECEADB5ADADB5AD4A4A4A84848484848400
  339.         000029636394CECE94CECE94CECE4A4A4A4A4A4A4A4A4A4A4A4A293129293129
  340.         293129293129293129CECECEADB5ADADB5AD2931296394946394940000008484
  341.         84ADB5ADADB5ADADB5AD6363636363636363636363634A4A4A4A4A4A4A4A4A4A
  342.         4A4A4A4A4ACECECEADB5ADADB5AD4A4A4A84848484848400000029636394CECE
  343.         94CECE94CECE4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A2931292931292931292931
  344.         29CECECECECECEADB5AD293129639494639494000000848484ADB5ADADB5ADAD
  345.         B5AD6363636363636363636363636363634A4A4A4A4A4A4A4A4A4A4A4ACECECE
  346.         CECECEADB5AD4A4A4A84848484848400000029636394CECE94CECE94CECE4A4A
  347.         4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A293129293129FFFFFFCECECEAD
  348.         B5AD293129639494639494000000848484ADB5ADADB5ADADB5AD636363636363
  349.         6363636363636363636363636363634A4A4A4A4A4AFFFFFFCECECEADB5AD4A4A
  350.         4A848484848484000000296363CEFFFF94CECE94CECE4A4A4A4A4A4A4A4A4A4A
  351.         4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A293129639494
  352.         639494000000848484CECECEADB5ADADB5AD6363636363636363636363636363
  353.         636363636363636363636363636363636363636363634A4A4A84848484848400
  354.         0000296363CEFFFF94CECE94CECE94CECE94CECE94CECE94CECE94CECE94CECE
  355.         94CECE94CECE94CECE94CECE94CECE94CECE94CECE6394946394940000008484
  356.         84CECECEADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADAD
  357.         B5ADADB5ADADB5ADADB5ADADB5ADADB5AD848484848484000000296363CEFFFF
  358.         CEFFFF94CECE94CECE94CECE94CECE94CECE94CECE94CECE94CECE94CECE94CE
  359.         CE94CECE94CECE94CECE94CECE94CECE639494000000848484CECECECECECEAD
  360.         B5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5ADADB5AD
  361.         ADB5ADADB5ADADB5ADADB5AD848484000000296363CEFFFFCEFFFF94CECE2963
  362.         6329636329636329636329636329636329636329636329636329636329636329
  363.         636394CECE94CECE639494000000848484CECECECECECEADB5AD5A5A5A5A5A5A
  364.         5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5AADB5
  365.         ADADB5AD848484000000296363CEFFFFCEFFFF639494CEFFFFCEFFFFCEFFFF94
  366.         FFFF94FFFF94FFFF94FFFF94FFFF94FFFF94FFFF94FFFF94FFFF29636394CECE
  367.         94CECE000000848484DEE7DECECECE848484DEDEDECECECECECECECECECECECE
  368.         CECECECECECECECECECECECECECECECECECECECECECE5A5A5AADB5ADADB5AD00
  369.         0000296363CEFFFFCEFFFF639494FFFFFFCEFFFFCEFFFFCEFFFFCEFFFF94FFFF
  370.         94FFFF94FFFF94FFFF94FFFF94FFFF94FFFF29636394CECE94CECE0000008484
  371.         84DEE7DECECECE848484FFFFFFDEDEDEDEDEDEDEDEDEDEDEDEDEDEDECECECECE
  372.         CECECECECECECECECECECECECECE5A5A5AADB5ADADB5AD000000296363CEFFFF
  373.         CEFFFF639494FFFFFFFFFFFFCEFFFFCEFFFFCEFFFFCEFFFFCEFFFF94FFFF94FF
  374.         FF94FFFF94FFFF94FFFF29636394CECE94CECE000000848484DEE7DEDEE7DE84
  375.         8484FFFFFFFFFFFFFFFFFFDEE7DEDEDEDEDEDEDEDEDEDEDEDEDECECECECECECE
  376.         CECECECECECE5A5A5AADB5ADADB5AD000000296363CEFFFFCEFFFF639494FFFF
  377.         FFFFFFFFFFFFFFFFFFFFCEFFFFCEFFFFCEFFFFCEFFFF94FFFF94FFFF94FFFF94
  378.         FFFF29636394CECE94CECE000000848484DEE7DEDEE7DE848484FFFFFFFFFFFF
  379.         FFFFFFFFFFFFFFFFFFDEE7DEDEE7DEDEDEDEDEDEDEDEDEDECECECECECECE5A5A
  380.         5AADB5ADADB5AD000000296363CEFFFFCEFFFF639494FFFFFFFFFFFFFFFFFFFF
  381.         FFFFFFFFFFCEFFFFCEFFFFCEFFFFCEFFFF94FFFF94FFFF94FFFF29636394CECE
  382.         94CECE000000848484DEE7DEDEE7DE848484FFFFFFFFFFFFFFFFFFFFFFFFFFFF
  383.         FFFFFFFFDEE7DEDEE7DEDEDEDEDEDEDECECECECECECE5A5A5AADB5ADADB5AD00
  384.         0000296363FFFFFFCEFFFF639494FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  385.         CEFFFFCEFFFFCEFFFFCEFFFF94FFFF94FFFF29636394CECE94CECE0000008484
  386.         84FFFFFFDEE7DE848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDE
  387.         E7DEDEE7DEDEDEDEDEDEDECECECE5A5A5AADB5ADADB5AD000000296363FFFFFF
  388.         CEFFFF639494FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCEFFFFCEFF
  389.         FFCEFFFFCEFFFF94FFFF29636394CECE94CECE000000848484FFFFFFDEE7DE84
  390.         8484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEE7DEDEDEDE
  391.         DEDEDECECECE5A5A5AADB5ADADB5AD000000296363FFFFFFFFFFFF639494FFFF
  392.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCEFFFFCEFFFFCEFFFF94
  393.         FFFF296363296363296363000000848484FFFFFFFFFFFF848484FFFFFFFFFFFF
  394.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEE7DEDEDEDEDEDEDE5A5A
  395.         5A84848484848400000029636394CECEFFFFFF63949463946363946363946363
  396.         9463639463639463639463639463639463639463639463639463296363BDBDBD
  397.         FFFFFF000000848484FFFFFFFFFFFF848484CECECECECECECECECECECECECECE
  398.         CECECECECECECECECECECECECECECECECECECECECECE5A5A5ABDBDBDFFFFFF00
  399.         0000296363296363296363639494639463639463639463639463639463639463
  400.         6394636394636394636394636394636394632963632963632963630000008484
  401.         8484848484848484848484848484848484848484848484848484848484848484
  402.         8484848484848484848484848484848484848484848484000000}
  403.       NumGlyphs = 2
  404.     end
  405.     object ret: TBitBtn
  406.       Left = 272
  407.       Top = 75
  408.       Width = 72
  409.       Height = 25
  410.       Caption = #26032#21333'(&G)'
  411.       TabOrder = 5
  412.       OnClick = retClick
  413.       Glyph.Data = {
  414.         DE010000424DDE01000000000000760000002800000024000000120000000100
  415.         0400000000006801000000000000000000001000000000000000000000000000
  416.         80000080000000808000800000008000800080800000C0C0C000808080000000
  417.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
  418.         33333333333F8888883F33330000324334222222443333388F3833333388F333
  419.         000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
  420.         F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
  421.         223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
  422.         3338888300003AAAAAAA33333333333888888833333333330000333333333333
  423.         333333333333333333FFFFFF000033333333333344444433FFFF333333888888
  424.         00003A444333333A22222438888F333338F3333800003A2243333333A2222438
  425.         F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
  426.         22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
  427.         33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
  428.         3333333333338888883333330000333333333333333333333333333333333333
  429.         0000}
  430.       NumGlyphs = 2
  431.     end
  432.     object sf: TsncCurrencyEdit
  433.       Left = 560
  434.       Top = 32
  435.       Width = 129
  436.       Height = 24
  437.       CurrencySymbol = #65509
  438.       Font.Charset = DEFAULT_CHARSET
  439.       Font.Color = clWindowText
  440.       Font.Height = -16
  441.       Font.Name = 'MS Sans Serif'
  442.       Font.Style = [fsBold]
  443.       NegativeFont.Charset = DEFAULT_CHARSET
  444.       NegativeFont.Color = clWindowText
  445.       NegativeFont.Height = -11
  446.       NegativeFont.Name = 'MS Sans Serif'
  447.       NegativeFont.Style = []
  448.       ParentColor = False
  449.       ParentFont = False
  450.       TabOrder = 2
  451.       TabStop = True
  452.       ZeroEmpty = False
  453.       OnExit = sfExit
  454.     end
  455.     object zq: TsncCurrencyEdit
  456.       Left = 560
  457.       Top = 56
  458.       Width = 129
  459.       Height = 24
  460.       CurrencySymbol = #65509
  461.       Enabled = False
  462.       Font.Charset = DEFAULT_CHARSET
  463.       Font.Color = clWindowText
  464.       Font.Height = -16
  465.       Font.Name = 'MS Sans Serif'
  466.       Font.Style = [fsBold]
  467.       NegativeFont.Charset = DEFAULT_CHARSET
  468.       NegativeFont.Color = clWindowText
  469.       NegativeFont.Height = -11
  470.       NegativeFont.Name = 'MS Sans Serif'
  471.       NegativeFont.Style = []
  472.       ParentColor = False
  473.       ParentFont = False
  474.       TabOrder = 6
  475.       TabStop = True
  476.       ZeroEmpty = False
  477.     end
  478.     object BitBtn3: TBitBtn
  479.       Left = 384
  480.       Top = 76
  481.       Width = 75
  482.       Height = 25
  483.       Cancel = True
  484.       Caption = #20851#38381'(Esc)'
  485.       ModalResult = 5
  486.       TabOrder = 7
  487.       OnClick = BitBtn3Click
  488.       Glyph.Data = {
  489.         DE010000424DDE01000000000000760000002800000024000000120000000100
  490.         0400000000006801000000000000000000001000000000000000000000000000
  491.         80000080000000808000800000008000800080800000C0C0C000808080000000
  492.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
  493.         44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
  494.         00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
  495.         33833F333383F33300003333AA463362A433333333383F333833F33300003333
  496.         6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
  497.         33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
  498.         6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
  499.         000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
  500.         333383333333F3330000333333322AAA4333333333333833333F333300003333
  501.         333322A4333333333333338333F333330000333333344A433333333333333338
  502.         3F333333000033333336A24333333333333333833F333333000033333336AA43
  503.         33333333333333833F3333330000333333336663333333333333333888333333
  504.         0000}
  505.       NumGlyphs = 2
  506.     end
  507.   end
  508.   object sum1: TDBSumList
  509.     Active = False
  510.     DataSet = adodm.tcr
  511.     ExternalRecalc = False
  512.     SumCollection = <
  513.       item
  514.         FieldName = #37329#39069
  515.         GroupOperation = goSum
  516.       end>
  517.     VirtualRecords = False
  518.     Left = 376
  519.     Top = 120
  520.   end
  521. end