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

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

Delphi控件源码

开发平台：

Delphi

Unit3.~dfm：源码内容
  1. object Form3: TForm3
  2.   Left = 255
  3.   Top = 176
  4.   Width = 870
  5.   Height = 500
  6.   Caption = #38376#35786#25910#36153
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 40
  19.     Top = 32
  20.     Width = 81
  21.     Height = 33
  22.     AutoSize = False
  23.     Caption = '   '#25910#36153#21333#21495
  24.     Font.Charset = DEFAULT_CHARSET
  25.     Font.Color = clWindowText
  26.     Font.Height = -13
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = []
  29.     ParentFont = False
  30.   end
  31.   object Label2: TLabel
  32.     Left = 272
  33.     Top = 32
  34.     Width = 81
  35.     Height = 33
  36.     AutoSize = False
  37.     Caption = '    '#30149#20154#32534#21495
  38.     Font.Charset = DEFAULT_CHARSET
  39.     Font.Color = clWindowText
  40.     Font.Height = -13
  41.     Font.Name = 'MS Sans Serif'
  42.     Font.Style = []
  43.     ParentFont = False
  44.   end
  45.   object Label3: TLabel
  46.     Left = 40
  47.     Top = 88
  48.     Width = 81
  49.     Height = 33
  50.     AutoSize = False
  51.     Caption = '              '#22995#21517
  52.     Font.Charset = DEFAULT_CHARSET
  53.     Font.Color = clWindowText
  54.     Font.Height = -13
  55.     Font.Name = 'MS Sans Serif'
  56.     Font.Style = []
  57.     ParentFont = False
  58.   end
  59.   object Label4: TLabel
  60.     Left = 272
  61.     Top = 88
  62.     Width = 81
  63.     Height = 33
  64.     AutoSize = False
  65.     Caption = '             '#21307#29983
  66.     Font.Charset = DEFAULT_CHARSET
  67.     Font.Color = clWindowText
  68.     Font.Height = -13
  69.     Font.Name = 'MS Sans Serif'
  70.     Font.Style = []
  71.     ParentFont = False
  72.   end
  73.   object Label5: TLabel
  74.     Left = 40
  75.     Top = 144
  76.     Width = 81
  77.     Height = 33
  78.     AutoSize = False
  79.     Caption = '    '#25910#36153#39033#30446
  80.     Font.Charset = DEFAULT_CHARSET
  81.     Font.Color = clWindowText
  82.     Font.Height = -13
  83.     Font.Name = 'MS Sans Serif'
  84.     Font.Style = []
  85.     ParentFont = False
  86.   end
  87.   object Label6: TLabel
  88.     Left = 272
  89.     Top = 144
  90.     Width = 81
  91.     Height = 33
  92.     AutoSize = False
  93.     Caption = '  '#25910#36153#37329#39069
  94.     Font.Charset = DEFAULT_CHARSET
  95.     Font.Color = clWindowText
  96.     Font.Height = -13
  97.     Font.Name = 'MS Sans Serif'
  98.     Font.Style = []
  99.     ParentFont = False
  100.   end
  101.   object Label7: TLabel
  102.     Left = 96
  103.     Top = 280
  104.     Width = 49
  105.     Height = 33
  106.     AutoSize = False
  107.     Caption = #24635#35745
  108.     Font.Charset = DEFAULT_CHARSET
  109.     Font.Color = clWindowText
  110.     Font.Height = -13
  111.     Font.Name = 'MS Sans Serif'
  112.     Font.Style = []
  113.     ParentFont = False
  114.   end
  115.   object Label8: TLabel
  116.     Left = 96
  117.     Top = 328
  118.     Width = 49
  119.     Height = 33
  120.     AutoSize = False
  121.     Caption = #39044#25910
  122.     Font.Charset = DEFAULT_CHARSET
  123.     Font.Color = clWindowText
  124.     Font.Height = -13
  125.     Font.Name = 'MS Sans Serif'
  126.     Font.Style = []
  127.     ParentFont = False
  128.   end
  129.   object Label9: TLabel
  130.     Left = 96
  131.     Top = 384
  132.     Width = 49
  133.     Height = 33
  134.     AutoSize = False
  135.     Caption = #25214#38646
  136.     Font.Charset = DEFAULT_CHARSET
  137.     Font.Color = clWindowText
  138.     Font.Height = -13
  139.     Font.Name = 'MS Sans Serif'
  140.     Font.Style = []
  141.     ParentFont = False
  142.   end
  143.   object Label10: TLabel
  144.     Left = 256
  145.     Top = 280
  146.     Width = 33
  147.     Height = 33
  148.     AutoSize = False
  149.     Caption = #20803
  150.     Font.Charset = DEFAULT_CHARSET
  151.     Font.Color = clWindowText
  152.     Font.Height = -13
  153.     Font.Name = 'MS Sans Serif'
  154.     Font.Style = []
  155.     ParentFont = False
  156.   end
  157.   object Label11: TLabel
  158.     Left = 256
  159.     Top = 328
  160.     Width = 33
  161.     Height = 33
  162.     AutoSize = False
  163.     Caption = #20803
  164.     Font.Charset = DEFAULT_CHARSET
  165.     Font.Color = clWindowText
  166.     Font.Height = -13
  167.     Font.Name = 'MS Sans Serif'
  168.     Font.Style = []
  169.     ParentFont = False
  170.   end
  171.   object Label12: TLabel
  172.     Left = 256
  173.     Top = 384
  174.     Width = 33
  175.     Height = 33
  176.     AutoSize = False
  177.     Caption = #20803
  178.     Font.Charset = DEFAULT_CHARSET
  179.     Font.Color = clWindowText
  180.     Font.Height = -13
  181.     Font.Name = 'MS Sans Serif'
  182.     Font.Style = []
  183.     ParentFont = False
  184.   end
  185.   object Edit1: TEdit
  186.     Left = 120
  187.     Top = 24
  188.     Width = 121
  189.     Height = 33
  190.     AutoSize = False
  191.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  192.     TabOrder = 0
  193.   end
  194.   object Edit2: TEdit
  195.     Left = 352
  196.     Top = 24
  197.     Width = 121
  198.     Height = 33
  199.     AutoSize = False
  200.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  201.     TabOrder = 1
  202.   end
  203.   object Edit3: TEdit
  204.     Left = 128
  205.     Top = 80
  206.     Width = 121
  207.     Height = 33
  208.     AutoSize = False
  209.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  210.     TabOrder = 2
  211.   end
  212.   object Edit4: TEdit
  213.     Left = 352
  214.     Top = 80
  215.     Width = 121
  216.     Height = 33
  217.     AutoSize = False
  218.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  219.     TabOrder = 3
  220.   end
  221.   object Edit5: TEdit
  222.     Left = 352
  223.     Top = 136
  224.     Width = 121
  225.     Height = 33
  226.     AutoSize = False
  227.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  228.     TabOrder = 4
  229.   end
  230.   object Button1: TButton
  231.     Left = 112
  232.     Top = 192
  233.     Width = 97
  234.     Height = 41
  235.     Caption = #28155#21152#12299#12299
  236.     TabOrder = 5
  237.     OnClick = Button1Click
  238.   end
  239.   object Button2: TButton
  240.     Left = 248
  241.     Top = 192
  242.     Width = 97
  243.     Height = 41
  244.     Caption = '*'#21462#28040'*'
  245.     TabOrder = 6
  246.     OnClick = Button2Click
  247.   end
  248.   object Edit7: TEdit
  249.     Left = 144
  250.     Top = 272
  251.     Width = 113
  252.     Height = 33
  253.     AutoSize = False
  254.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  255.     TabOrder = 7
  256.   end
  257.   object Edit8: TEdit
  258.     Left = 144
  259.     Top = 320
  260.     Width = 113
  261.     Height = 33
  262.     AutoSize = False
  263.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  264.     TabOrder = 8
  265.   end
  266.   object Edit9: TEdit
  267.     Left = 144
  268.     Top = 376
  269.     Width = 113
  270.     Height = 33
  271.     AutoSize = False
  272.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  273.     TabOrder = 9
  274.   end
  275.   object Button3: TButton
  276.     Left = 312
  277.     Top = 280
  278.     Width = 97
  279.     Height = 41
  280.     Caption = #25910#36153
  281.     TabOrder = 10
  282.     OnClick = Button3Click
  283.   end
  284.   object Button4: TButton
  285.     Left = 312
  286.     Top = 344
  287.     Width = 97
  288.     Height = 41
  289.     Caption = #36864#20986
  290.     TabOrder = 11
  291.   end
  292.   object DBGrid1: TDBGrid
  293.     Left = 520
  294.     Top = 32
  295.     Width = 320
  296.     Height = 353
  297.     DataSource = DataSource1
  298.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  299.     TabOrder = 12
  300.     TitleFont.Charset = DEFAULT_CHARSET
  301.     TitleFont.Color = clWindowText
  302.     TitleFont.Height = -11
  303.     TitleFont.Name = 'MS Sans Serif'
  304.     TitleFont.Style = []
  305.     Columns = <
  306.       item
  307.         Expanded = False
  308.         FieldName = 'Chaitem'
  309.         Font.Charset = DEFAULT_CHARSET
  310.         Font.Color = clWindowText
  311.         Font.Height = -13
  312.         Font.Name = 'MS Sans Serif'
  313.         Font.Style = []
  314.         Visible = True
  315.       end
  316.       item
  317.         Expanded = False
  318.         FieldName = 'Chasum'
  319.         Font.Charset = DEFAULT_CHARSET
  320.         Font.Color = clWindowText
  321.         Font.Height = -13
  322.         Font.Name = 'MS Sans Serif'
  323.         Font.Style = []
  324.         Visible = True
  325.       end>
  326.   end
  327.   object ComboBox1: TComboBox
  328.     Left = 128
  329.     Top = 144
  330.     Width = 129
  331.     Height = 24
  332.     Font.Charset = DEFAULT_CHARSET
  333.     Font.Color = clWindowText
  334.     Font.Height = -13
  335.     Font.Name = 'MS Sans Serif'
  336.     Font.Style = []
  337.     ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  338.     ItemHeight = 16
  339.     ParentFont = False
  340.     TabOrder = 13
  341.   end
  342.   object DataSource1: TDataSource
  343.     DataSet = ADOQuery1
  344.     Left = 600
  345.   end
  346.   object ADOConnection1: TADOConnection
  347.     Connected = True
  348.     ConnectionString = 
  349.       'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Local' +
  350.       'Server'
  351.     LoginPrompt = False
  352.     Left = 504
  353.   end
  354.   object ADOQuery1: TADOQuery
  355.     Connection = ADOConnection1
  356.     Parameters = <>
  357.     Left = 552
  358.   end
  359. end