开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit25.~dfm
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：25k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit25.~dfm：源码内容
  1. object Form25: TForm25
  2.   Left = 215
  3.   Top = 211
  4.   Width = 870
  5.   Height = 500
  6.   Caption = #33647#25151#33647#24211#26597#35810
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -19
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 24
  16.   object PageControl1: TPageControl
  17.     Left = 0
  18.     Top = 0
  19.     Width = 862
  20.     Height = 456
  21.     ActivePage = TabSheet1
  22.     Align = alClient
  23.     TabOrder = 0
  24.     object TabSheet1: TTabSheet
  25.       Caption = #21457#33647#21333#26597#35810
  26.       Font.Charset = DEFAULT_CHARSET
  27.       Font.Color = clWindowText
  28.       Font.Height = -13
  29.       Font.Name = 'MS Sans Serif'
  30.       Font.Style = []
  31.       ParentFont = False
  32.       object Label1: TLabel
  33.         Left = 264
  34.         Top = 48
  35.         Width = 73
  36.         Height = 25
  37.         AutoSize = False
  38.         Caption = #21457#33647#21333#21495
  39.         Font.Charset = DEFAULT_CHARSET
  40.         Font.Color = clWindowText
  41.         Font.Height = -13
  42.         Font.Name = 'MS Sans Serif'
  43.         Font.Style = []
  44.         ParentFont = False
  45.       end
  46.       object Label2: TLabel
  47.         Left = 264
  48.         Top = 88
  49.         Width = 73
  50.         Height = 25
  51.         AutoSize = False
  52.         Caption = #30149#20154#32534#21495
  53.         Font.Charset = DEFAULT_CHARSET
  54.         Font.Color = clWindowText
  55.         Font.Height = -13
  56.         Font.Name = 'MS Sans Serif'
  57.         Font.Style = []
  58.         ParentFont = False
  59.       end
  60.       object RadioButton1: TRadioButton
  61.         Left = 128
  62.         Top = 40
  63.         Width = 129
  64.         Height = 33
  65.         Caption = #25353#21457#33647#21333#21495#26597#35810
  66.         Checked = True
  67.         Font.Charset = DEFAULT_CHARSET
  68.         Font.Color = clWindowText
  69.         Font.Height = -13
  70.         Font.Name = 'MS Sans Serif'
  71.         Font.Style = []
  72.         ParentFont = False
  73.         TabOrder = 0
  74.         TabStop = True
  75.       end
  76.       object RadioButton2: TRadioButton
  77.         Left = 128
  78.         Top = 80
  79.         Width = 129
  80.         Height = 33
  81.         Caption = #25353#30149#20154#32534#21495#26597#35810
  82.         Font.Charset = DEFAULT_CHARSET
  83.         Font.Color = clWindowText
  84.         Font.Height = -13
  85.         Font.Name = 'MS Sans Serif'
  86.         Font.Style = []
  87.         ParentFont = False
  88.         TabOrder = 1
  89.       end
  90.       object Edit1: TEdit
  91.         Left = 336
  92.         Top = 40
  93.         Width = 121
  94.         Height = 32
  95.         AutoSize = False
  96.         Font.Charset = DEFAULT_CHARSET
  97.         Font.Color = clWindowText
  98.         Font.Height = -13
  99.         Font.Name = 'MS Sans Serif'
  100.         Font.Style = []
  101.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  102.         ParentFont = False
  103.         TabOrder = 2
  104.       end
  105.       object Edit2: TEdit
  106.         Left = 336
  107.         Top = 80
  108.         Width = 121
  109.         Height = 32
  110.         AutoSize = False
  111.         Font.Charset = DEFAULT_CHARSET
  112.         Font.Color = clWindowText
  113.         Font.Height = -13
  114.         Font.Name = 'MS Sans Serif'
  115.         Font.Style = []
  116.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  117.         ParentFont = False
  118.         TabOrder = 3
  119.       end
  120.       object Button1: TButton
  121.         Left = 144
  122.         Top = 128
  123.         Width = 97
  124.         Height = 41
  125.         Caption = #26597#35810
  126.         Font.Charset = DEFAULT_CHARSET
  127.         Font.Color = clWindowText
  128.         Font.Height = -13
  129.         Font.Name = 'MS Sans Serif'
  130.         Font.Style = []
  131.         ParentFont = False
  132.         TabOrder = 4
  133.         OnClick = Button1Click
  134.       end
  135.       object Button2: TButton
  136.         Left = 280
  137.         Top = 128
  138.         Width = 97
  139.         Height = 41
  140.         Caption = #21462#28040
  141.         Font.Charset = DEFAULT_CHARSET
  142.         Font.Color = clWindowText
  143.         Font.Height = -13
  144.         Font.Name = 'MS Sans Serif'
  145.         Font.Style = []
  146.         ParentFont = False
  147.         TabOrder = 5
  148.         OnClick = Button2Click
  149.       end
  150.       object DBGrid1: TDBGrid
  151.         Left = 56
  152.         Top = 224
  153.         Width = 689
  154.         Height = 161
  155.         DataSource = DataSource1
  156.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  157.         TabOrder = 6
  158.         TitleFont.Charset = DEFAULT_CHARSET
  159.         TitleFont.Color = clWindowText
  160.         TitleFont.Height = -13
  161.         TitleFont.Name = 'MS Sans Serif'
  162.         TitleFont.Style = []
  163.         Columns = <
  164.           item
  165.             Expanded = False
  166.             FieldName = 'Senno'
  167.             Visible = True
  168.           end
  169.           item
  170.             Expanded = False
  171.             FieldName = 'Patno'
  172.             Visible = True
  173.           end
  174.           item
  175.             Expanded = False
  176.             FieldName = 'Pat'
  177.             Visible = True
  178.           end
  179.           item
  180.             Expanded = False
  181.             FieldName = 'Doc'
  182.             Visible = True
  183.           end
  184.           item
  185.             Expanded = False
  186.             FieldName = 'Med'
  187.             Visible = True
  188.           end
  189.           item
  190.             Expanded = False
  191.             FieldName = 'Su'
  192.             Visible = True
  193.           end>
  194.       end
  195.     end
  196.     object TabSheet2: TTabSheet
  197.       Caption = #36864#33647#21333#26597#35810
  198.       Font.Charset = DEFAULT_CHARSET
  199.       Font.Color = clWindowText
  200.       Font.Height = -13
  201.       Font.Name = 'MS Sans Serif'
  202.       Font.Style = []
  203.       ImageIndex = 1
  204.       ParentFont = False
  205.       object Label3: TLabel
  206.         Left = 264
  207.         Top = 48
  208.         Width = 73
  209.         Height = 25
  210.         AutoSize = False
  211.         Caption = #36864#33647#21333#21495
  212.         Font.Charset = DEFAULT_CHARSET
  213.         Font.Color = clWindowText
  214.         Font.Height = -13
  215.         Font.Name = 'MS Sans Serif'
  216.         Font.Style = []
  217.         ParentFont = False
  218.       end
  219.       object Label4: TLabel
  220.         Left = 264
  221.         Top = 88
  222.         Width = 73
  223.         Height = 25
  224.         AutoSize = False
  225.         Caption = #30149#20154#32534#21495
  226.         Font.Charset = DEFAULT_CHARSET
  227.         Font.Color = clWindowText
  228.         Font.Height = -13
  229.         Font.Name = 'MS Sans Serif'
  230.         Font.Style = []
  231.         ParentFont = False
  232.       end
  233.       object RadioButton3: TRadioButton
  234.         Left = 128
  235.         Top = 40
  236.         Width = 129
  237.         Height = 33
  238.         Caption = #25353#36864#33647#21333#21495#26597#35810
  239.         Checked = True
  240.         Font.Charset = DEFAULT_CHARSET
  241.         Font.Color = clWindowText
  242.         Font.Height = -13
  243.         Font.Name = 'MS Sans Serif'
  244.         Font.Style = []
  245.         ParentFont = False
  246.         TabOrder = 0
  247.         TabStop = True
  248.       end
  249.       object RadioButton4: TRadioButton
  250.         Left = 128
  251.         Top = 80
  252.         Width = 129
  253.         Height = 33
  254.         Caption = #25353#30149#20154#32534#21495#26597#35810
  255.         Font.Charset = DEFAULT_CHARSET
  256.         Font.Color = clWindowText
  257.         Font.Height = -13
  258.         Font.Name = 'MS Sans Serif'
  259.         Font.Style = []
  260.         ParentFont = False
  261.         TabOrder = 1
  262.       end
  263.       object Edit3: TEdit
  264.         Left = 336
  265.         Top = 40
  266.         Width = 121
  267.         Height = 32
  268.         AutoSize = False
  269.         Font.Charset = DEFAULT_CHARSET
  270.         Font.Color = clWindowText
  271.         Font.Height = -13
  272.         Font.Name = 'MS Sans Serif'
  273.         Font.Style = []
  274.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  275.         ParentFont = False
  276.         TabOrder = 2
  277.       end
  278.       object Edit4: TEdit
  279.         Left = 336
  280.         Top = 80
  281.         Width = 121
  282.         Height = 32
  283.         AutoSize = False
  284.         Font.Charset = DEFAULT_CHARSET
  285.         Font.Color = clWindowText
  286.         Font.Height = -13
  287.         Font.Name = 'MS Sans Serif'
  288.         Font.Style = []
  289.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  290.         ParentFont = False
  291.         TabOrder = 3
  292.       end
  293.       object Button3: TButton
  294.         Left = 152
  295.         Top = 128
  296.         Width = 97
  297.         Height = 41
  298.         Caption = #26597#35810
  299.         Font.Charset = DEFAULT_CHARSET
  300.         Font.Color = clWindowText
  301.         Font.Height = -13
  302.         Font.Name = 'MS Sans Serif'
  303.         Font.Style = []
  304.         ParentFont = False
  305.         TabOrder = 4
  306.         OnClick = Button3Click
  307.       end
  308.       object Button4: TButton
  309.         Left = 288
  310.         Top = 128
  311.         Width = 97
  312.         Height = 41
  313.         Caption = #21462#28040
  314.         Font.Charset = DEFAULT_CHARSET
  315.         Font.Color = clWindowText
  316.         Font.Height = -13
  317.         Font.Name = 'MS Sans Serif'
  318.         Font.Style = []
  319.         ParentFont = False
  320.         TabOrder = 5
  321.         OnClick = Button4Click
  322.       end
  323.       object DBGrid2: TDBGrid
  324.         Left = 64
  325.         Top = 200
  326.         Width = 705
  327.         Height = 201
  328.         DataSource = DataSource2
  329.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  330.         TabOrder = 6
  331.         TitleFont.Charset = DEFAULT_CHARSET
  332.         TitleFont.Color = clWindowText
  333.         TitleFont.Height = -13
  334.         TitleFont.Name = 'MS Sans Serif'
  335.         TitleFont.Style = []
  336.         Columns = <
  337.           item
  338.             Expanded = False
  339.             FieldName = 'Canno'
  340.             Visible = True
  341.           end
  342.           item
  343.             Expanded = False
  344.             FieldName = 'Patno'
  345.             Visible = True
  346.           end
  347.           item
  348.             Expanded = False
  349.             FieldName = 'Pat'
  350.             Visible = True
  351.           end
  352.           item
  353.             Expanded = False
  354.             FieldName = 'Med'
  355.             Visible = True
  356.           end
  357.           item
  358.             Expanded = False
  359.             FieldName = 'Su'
  360.             Visible = True
  361.           end>
  362.       end
  363.     end
  364.     object TabSheet3: TTabSheet
  365.       Caption = #33647#25151#20837#24211#21333
  366.       Font.Charset = DEFAULT_CHARSET
  367.       Font.Color = clWindowText
  368.       Font.Height = -13
  369.       Font.Name = 'MS Sans Serif'
  370.       Font.Style = []
  371.       ImageIndex = 2
  372.       ParentFont = False
  373.       object Label5: TLabel
  374.         Left = 264
  375.         Top = 48
  376.         Width = 73
  377.         Height = 25
  378.         AutoSize = False
  379.         Caption = #20837#24211#21333#21495
  380.         Font.Charset = DEFAULT_CHARSET
  381.         Font.Color = clWindowText
  382.         Font.Height = -13
  383.         Font.Name = 'MS Sans Serif'
  384.         Font.Style = []
  385.         ParentFont = False
  386.       end
  387.       object Label6: TLabel
  388.         Left = 264
  389.         Top = 88
  390.         Width = 73
  391.         Height = 25
  392.         AutoSize = False
  393.         Caption = #33647#25151#32534#21495
  394.         Font.Charset = DEFAULT_CHARSET
  395.         Font.Color = clWindowText
  396.         Font.Height = -13
  397.         Font.Name = 'MS Sans Serif'
  398.         Font.Style = []
  399.         ParentFont = False
  400.       end
  401.       object RadioButton5: TRadioButton
  402.         Left = 120
  403.         Top = 40
  404.         Width = 145
  405.         Height = 33
  406.         Caption = #25353#20837#24211#21333#21495#26597#35810
  407.         Checked = True
  408.         Font.Charset = DEFAULT_CHARSET
  409.         Font.Color = clWindowText
  410.         Font.Height = -13
  411.         Font.Name = 'MS Sans Serif'
  412.         Font.Style = []
  413.         ParentFont = False
  414.         TabOrder = 0
  415.         TabStop = True
  416.       end
  417.       object RadioButton6: TRadioButton
  418.         Left = 120
  419.         Top = 80
  420.         Width = 129
  421.         Height = 33
  422.         Caption = #25353#33647#25151#32534#21495#26597#35810
  423.         Font.Charset = DEFAULT_CHARSET
  424.         Font.Color = clWindowText
  425.         Font.Height = -13
  426.         Font.Name = 'MS Sans Serif'
  427.         Font.Style = []
  428.         ParentFont = False
  429.         TabOrder = 1
  430.       end
  431.       object Edit5: TEdit
  432.         Left = 336
  433.         Top = 40
  434.         Width = 121
  435.         Height = 32
  436.         AutoSize = False
  437.         Font.Charset = DEFAULT_CHARSET
  438.         Font.Color = clWindowText
  439.         Font.Height = -13
  440.         Font.Name = 'MS Sans Serif'
  441.         Font.Style = []
  442.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  443.         ParentFont = False
  444.         TabOrder = 2
  445.       end
  446.       object Edit6: TEdit
  447.         Left = 336
  448.         Top = 80
  449.         Width = 121
  450.         Height = 32
  451.         AutoSize = False
  452.         Font.Charset = DEFAULT_CHARSET
  453.         Font.Color = clWindowText
  454.         Font.Height = -13
  455.         Font.Name = 'MS Sans Serif'
  456.         Font.Style = []
  457.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  458.         ParentFont = False
  459.         TabOrder = 3
  460.       end
  461.       object Button5: TButton
  462.         Left = 144
  463.         Top = 128
  464.         Width = 97
  465.         Height = 41
  466.         Caption = #26597#35810
  467.         Font.Charset = DEFAULT_CHARSET
  468.         Font.Color = clWindowText
  469.         Font.Height = -13
  470.         Font.Name = 'MS Sans Serif'
  471.         Font.Style = []
  472.         ParentFont = False
  473.         TabOrder = 4
  474.         OnClick = Button5Click
  475.       end
  476.       object Button6: TButton
  477.         Left = 272
  478.         Top = 128
  479.         Width = 97
  480.         Height = 41
  481.         Caption = #21462#28040
  482.         Font.Charset = DEFAULT_CHARSET
  483.         Font.Color = clWindowText
  484.         Font.Height = -13
  485.         Font.Name = 'MS Sans Serif'
  486.         Font.Style = []
  487.         ParentFont = False
  488.         TabOrder = 5
  489.         OnClick = Button6Click
  490.       end
  491.       object DBGrid3: TDBGrid
  492.         Left = 88
  493.         Top = 200
  494.         Width = 681
  495.         Height = 169
  496.         DataSource = DataSource3
  497.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  498.         TabOrder = 6
  499.         TitleFont.Charset = DEFAULT_CHARSET
  500.         TitleFont.Color = clWindowText
  501.         TitleFont.Height = -13
  502.         TitleFont.Name = 'MS Sans Serif'
  503.         TitleFont.Style = []
  504.         Columns = <
  505.           item
  506.             Expanded = False
  507.             FieldName = 'Inno'
  508.             Visible = True
  509.           end
  510.           item
  511.             Expanded = False
  512.             FieldName = 'Druno'
  513.             Visible = True
  514.           end
  515.           item
  516.             Expanded = False
  517.             FieldName = 'Stono'
  518.             Visible = True
  519.           end
  520.           item
  521.             Expanded = False
  522.             FieldName = 'Med'
  523.             Visible = True
  524.           end
  525.           item
  526.             Expanded = False
  527.             FieldName = 'Su'
  528.             Visible = True
  529.           end>
  530.       end
  531.     end
  532.     object TabSheet4: TTabSheet
  533.       Caption = #33647#25151#20986#24211#21333
  534.       Font.Charset = DEFAULT_CHARSET
  535.       Font.Color = clWindowText
  536.       Font.Height = -13
  537.       Font.Name = 'MS Sans Serif'
  538.       Font.Style = []
  539.       ImageIndex = 3
  540.       ParentFont = False
  541.       object Label7: TLabel
  542.         Left = 264
  543.         Top = 48
  544.         Width = 73
  545.         Height = 25
  546.         AutoSize = False
  547.         Caption = #20986#24211#21333#21495
  548.         Font.Charset = DEFAULT_CHARSET
  549.         Font.Color = clWindowText
  550.         Font.Height = -13
  551.         Font.Name = 'MS Sans Serif'
  552.         Font.Style = []
  553.         ParentFont = False
  554.       end
  555.       object Label8: TLabel
  556.         Left = 264
  557.         Top = 88
  558.         Width = 73
  559.         Height = 25
  560.         AutoSize = False
  561.         Caption = #33647#25151#32534#21495
  562.         Font.Charset = DEFAULT_CHARSET
  563.         Font.Color = clWindowText
  564.         Font.Height = -13
  565.         Font.Name = 'MS Sans Serif'
  566.         Font.Style = []
  567.         ParentFont = False
  568.       end
  569.       object RadioButton7: TRadioButton
  570.         Left = 120
  571.         Top = 40
  572.         Width = 145
  573.         Height = 33
  574.         Caption = #25353#20986#24211#21333#21495#26597#35810
  575.         Checked = True
  576.         Font.Charset = DEFAULT_CHARSET
  577.         Font.Color = clWindowText
  578.         Font.Height = -13
  579.         Font.Name = 'MS Sans Serif'
  580.         Font.Style = []
  581.         ParentFont = False
  582.         TabOrder = 0
  583.         TabStop = True
  584.       end
  585.       object RadioButton8: TRadioButton
  586.         Left = 120
  587.         Top = 80
  588.         Width = 145
  589.         Height = 33
  590.         Caption = #25353#33647#25151#32534#21495#26597#35810
  591.         Font.Charset = DEFAULT_CHARSET
  592.         Font.Color = clWindowText
  593.         Font.Height = -13
  594.         Font.Name = 'MS Sans Serif'
  595.         Font.Style = []
  596.         ParentFont = False
  597.         TabOrder = 1
  598.       end
  599.       object Edit7: TEdit
  600.         Left = 336
  601.         Top = 40
  602.         Width = 121
  603.         Height = 32
  604.         AutoSize = False
  605.         Font.Charset = DEFAULT_CHARSET
  606.         Font.Color = clWindowText
  607.         Font.Height = -13
  608.         Font.Name = 'MS Sans Serif'
  609.         Font.Style = []
  610.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  611.         ParentFont = False
  612.         TabOrder = 2
  613.       end
  614.       object Edit8: TEdit
  615.         Left = 336
  616.         Top = 80
  617.         Width = 121
  618.         Height = 32
  619.         AutoSize = False
  620.         Font.Charset = DEFAULT_CHARSET
  621.         Font.Color = clWindowText
  622.         Font.Height = -13
  623.         Font.Name = 'MS Sans Serif'
  624.         Font.Style = []
  625.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  626.         ParentFont = False
  627.         TabOrder = 3
  628.       end
  629.       object Button7: TButton
  630.         Left = 160
  631.         Top = 128
  632.         Width = 97
  633.         Height = 41
  634.         Caption = #26597#35810
  635.         Font.Charset = DEFAULT_CHARSET
  636.         Font.Color = clWindowText
  637.         Font.Height = -13
  638.         Font.Name = 'MS Sans Serif'
  639.         Font.Style = []
  640.         ParentFont = False
  641.         TabOrder = 4
  642.         OnClick = Button7Click
  643.       end
  644.       object Button8: TButton
  645.         Left = 280
  646.         Top = 128
  647.         Width = 97
  648.         Height = 41
  649.         Caption = #21462#28040
  650.         Font.Charset = DEFAULT_CHARSET
  651.         Font.Color = clWindowText
  652.         Font.Height = -13
  653.         Font.Name = 'MS Sans Serif'
  654.         Font.Style = []
  655.         ParentFont = False
  656.         TabOrder = 5
  657.         OnClick = Button8Click
  658.       end
  659.       object DBGrid4: TDBGrid
  660.         Left = 64
  661.         Top = 200
  662.         Width = 681
  663.         Height = 193
  664.         DataSource = DataSource4
  665.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  666.         TabOrder = 6
  667.         TitleFont.Charset = DEFAULT_CHARSET
  668.         TitleFont.Color = clWindowText
  669.         TitleFont.Height = -13
  670.         TitleFont.Name = 'MS Sans Serif'
  671.         TitleFont.Style = []
  672.         Columns = <
  673.           item
  674.             Expanded = False
  675.             FieldName = 'Outno'
  676.             Visible = True
  677.           end
  678.           item
  679.             Expanded = False
  680.             FieldName = 'Druno'
  681.             Visible = True
  682.           end
  683.           item
  684.             Expanded = False
  685.             FieldName = 'Stono'
  686.             Visible = True
  687.           end
  688.           item
  689.             Expanded = False
  690.             FieldName = 'Med'
  691.             Visible = True
  692.           end
  693.           item
  694.             Expanded = False
  695.             FieldName = 'Su'
  696.             Visible = True
  697.           end>
  698.       end
  699.     end
  700.     object TabSheet5: TTabSheet
  701.       Caption = #37319#36141#21333#26597#35810
  702.       Font.Charset = DEFAULT_CHARSET
  703.       Font.Color = clWindowText
  704.       Font.Height = -13
  705.       Font.Name = 'MS Sans Serif'
  706.       Font.Style = []
  707.       ImageIndex = 4
  708.       ParentFont = False
  709.       object Label9: TLabel
  710.         Left = 264
  711.         Top = 48
  712.         Width = 73
  713.         Height = 25
  714.         AutoSize = False
  715.         Caption = #37319#36141#21333#21495
  716.         Font.Charset = DEFAULT_CHARSET
  717.         Font.Color = clWindowText
  718.         Font.Height = -13
  719.         Font.Name = 'MS Sans Serif'
  720.         Font.Style = []
  721.         ParentFont = False
  722.       end
  723.       object Label10: TLabel
  724.         Left = 264
  725.         Top = 88
  726.         Width = 73
  727.         Height = 25
  728.         AutoSize = False
  729.         Caption = #33647#21697#32534#21495
  730.         Font.Charset = DEFAULT_CHARSET
  731.         Font.Color = clWindowText
  732.         Font.Height = -13
  733.         Font.Name = 'MS Sans Serif'
  734.         Font.Style = []
  735.         ParentFont = False
  736.       end
  737.       object RadioButton9: TRadioButton
  738.         Left = 120
  739.         Top = 40
  740.         Width = 145
  741.         Height = 33
  742.         Caption = #25353#37319#36141#21333#21495#26597#35810
  743.         Checked = True
  744.         Font.Charset = DEFAULT_CHARSET
  745.         Font.Color = clWindowText
  746.         Font.Height = -13
  747.         Font.Name = 'MS Sans Serif'
  748.         Font.Style = []
  749.         ParentFont = False
  750.         TabOrder = 0
  751.         TabStop = True
  752.       end
  753.       object RadioButton10: TRadioButton
  754.         Left = 120
  755.         Top = 80
  756.         Width = 145
  757.         Height = 33
  758.         Caption = #25353#33647#21697#32534#21495#26597#35810
  759.         Font.Charset = DEFAULT_CHARSET
  760.         Font.Color = clWindowText
  761.         Font.Height = -13
  762.         Font.Name = 'MS Sans Serif'
  763.         Font.Style = []
  764.         ParentFont = False
  765.         TabOrder = 1
  766.       end
  767.       object Edit9: TEdit
  768.         Left = 336
  769.         Top = 40
  770.         Width = 121
  771.         Height = 32
  772.         AutoSize = False
  773.         Font.Charset = DEFAULT_CHARSET
  774.         Font.Color = clWindowText
  775.         Font.Height = -13
  776.         Font.Name = 'MS Sans Serif'
  777.         Font.Style = []
  778.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  779.         ParentFont = False
  780.         TabOrder = 2
  781.       end
  782.       object Edit10: TEdit
  783.         Left = 336
  784.         Top = 80
  785.         Width = 121
  786.         Height = 32
  787.         AutoSize = False
  788.         Font.Charset = DEFAULT_CHARSET
  789.         Font.Color = clWindowText
  790.         Font.Height = -13
  791.         Font.Name = 'MS Sans Serif'
  792.         Font.Style = []
  793.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  794.         ParentFont = False
  795.         TabOrder = 3
  796.       end
  797.       object Button9: TButton
  798.         Left = 160
  799.         Top = 128
  800.         Width = 97
  801.         Height = 41
  802.         Caption = #26597#35810
  803.         Font.Charset = DEFAULT_CHARSET
  804.         Font.Color = clWindowText
  805.         Font.Height = -13
  806.         Font.Name = 'MS Sans Serif'
  807.         Font.Style = []
  808.         ParentFont = False
  809.         TabOrder = 4
  810.         OnClick = Button9Click
  811.       end
  812.       object Button10: TButton
  813.         Left = 288
  814.         Top = 128
  815.         Width = 97
  816.         Height = 41
  817.         Caption = #21462#28040
  818.         Font.Charset = DEFAULT_CHARSET
  819.         Font.Color = clWindowText
  820.         Font.Height = -13
  821.         Font.Name = 'MS Sans Serif'
  822.         Font.Style = []
  823.         ParentFont = False
  824.         TabOrder = 5
  825.         OnClick = Button10Click
  826.       end
  827.       object DBGrid5: TDBGrid
  828.         Left = 48
  829.         Top = 192
  830.         Width = 737
  831.         Height = 209
  832.         DataSource = DataSource5
  833.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  834.         TabOrder = 6
  835.         TitleFont.Charset = DEFAULT_CHARSET
  836.         TitleFont.Color = clWindowText
  837.         TitleFont.Height = -13
  838.         TitleFont.Name = 'MS Sans Serif'
  839.         TitleFont.Style = []
  840.         Columns = <
  841.           item
  842.             Expanded = False
  843.             FieldName = 'Stkno'
  844.             Visible = True
  845.           end
  846.           item
  847.             Expanded = False
  848.             FieldName = 'Buyno'
  849.             Visible = True
  850.           end
  851.           item
  852.             Expanded = False
  853.             FieldName = 'Medno'
  854.             Visible = True
  855.           end
  856.           item
  857.             Expanded = False
  858.             FieldName = 'Med'
  859.             Visible = True
  860.           end
  861.           item
  862.             Expanded = False
  863.             FieldName = 'Su'
  864.             Visible = True
  865.           end
  866.           item
  867.             Expanded = False
  868.             FieldName = 'Uprice'
  869.             Visible = True
  870.           end>
  871.       end
  872.     end
  873.   end
  874.   object ADOConnection1: TADOConnection
  875.     ConnectionString = 
  876.       'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Local' +
  877.       'Server'
  878.     LoginPrompt = False
  879.     Provider = 'MSDASQL.1'
  880.     Left = 572
  881.     Top = 67
  882.   end
  883.   object ADOQuery1: TADOQuery
  884.     Connection = ADOConnection1
  885.     Parameters = <>
  886.     Left = 620
  887.     Top = 67
  888.   end
  889.   object DataSource1: TDataSource
  890.     DataSet = ADOQuery1
  891.     Left = 668
  892.     Top = 67
  893.   end
  894.   object ADOQuery2: TADOQuery
  895.     Connection = ADOConnection1
  896.     Parameters = <>
  897.     Left = 620
  898.     Top = 99
  899.   end
  900.   object DataSource2: TDataSource
  901.     DataSet = ADOQuery2
  902.     Left = 668
  903.     Top = 99
  904.   end
  905.   object DataSource3: TDataSource
  906.     DataSet = ADOQuery3
  907.     Left = 668
  908.     Top = 131
  909.   end
  910.   object ADOQuery3: TADOQuery
  911.     Connection = ADOConnection1
  912.     Parameters = <>
  913.     Left = 620
  914.     Top = 131
  915.   end
  916.   object ADOQuery4: TADOQuery
  917.     Connection = ADOConnection1
  918.     Parameters = <>
  919.     Left = 620
  920.     Top = 163
  921.   end
  922.   object DataSource4: TDataSource
  923.     DataSet = ADOQuery4
  924.     Left = 668
  925.     Top = 163
  926.   end
  927.   object DataSource5: TDataSource
  928.     DataSet = ADOQuery5
  929.     Left = 668
  930.     Top = 195
  931.   end
  932.   object ADOQuery5: TADOQuery
  933.     Connection = ADOConnection1
  934.     Parameters = <>
  935.     Left = 620
  936.     Top = 195
  937.   end
  938. end