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

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

Delphi控件源码

开发平台：

Delphi

Unit26.~dfm：源码内容
  1. object Form26: TForm26
  2.   Left = 274
  3.   Top = 216
  4.   Width = 870
  5.   Height = 500
  6.   Caption = #20303#38498#31649#29702#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 = #20303#38498#30149#20154#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 = 112
  34.         Top = 40
  35.         Width = 65
  36.         Height = 25
  37.         AutoSize = False
  38.         Caption = #30149#20154#32534#21495
  39.       end
  40.       object Edit1: TEdit
  41.         Left = 184
  42.         Top = 32
  43.         Width = 121
  44.         Height = 33
  45.         AutoSize = False
  46.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  47.         TabOrder = 0
  48.       end
  49.       object Button1: TButton
  50.         Left = 120
  51.         Top = 96
  52.         Width = 81
  53.         Height = 41
  54.         Caption = #26597#35810
  55.         TabOrder = 1
  56.       end
  57.       object Button2: TButton
  58.         Left = 232
  59.         Top = 96
  60.         Width = 81
  61.         Height = 41
  62.         Caption = #21462#28040
  63.         TabOrder = 2
  64.       end
  65.       object DBGrid1: TDBGrid
  66.         Left = 56
  67.         Top = 168
  68.         Width = 729
  69.         Height = 233
  70.         DataSource = DataSource1
  71.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  72.         TabOrder = 3
  73.         TitleFont.Charset = DEFAULT_CHARSET
  74.         TitleFont.Color = clWindowText
  75.         TitleFont.Height = -13
  76.         TitleFont.Name = 'MS Sans Serif'
  77.         TitleFont.Style = []
  78.         Columns = <
  79.           item
  80.             Expanded = False
  81.             FieldName = 'Patno'
  82.             Visible = True
  83.           end
  84.           item
  85.             Expanded = False
  86.             FieldName = 'Entime'
  87.             Visible = True
  88.           end
  89.           item
  90.             Expanded = False
  91.             FieldName = 'Extime'
  92.             Visible = True
  93.           end
  94.           item
  95.             Expanded = False
  96.             FieldName = 'Fore'
  97.             Visible = True
  98.           end
  99.           item
  100.             Expanded = False
  101.             FieldName = 'Bedno'
  102.             Visible = True
  103.           end>
  104.       end
  105.     end
  106.   end
  107.   object ADOConnection1: TADOConnection
  108.     Connected = True
  109.     ConnectionString = 
  110.       'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Local' +
  111.       'Server'
  112.     LoginPrompt = False
  113.     Left = 428
  114.     Top = 59
  115.   end
  116.   object ADOQuery1: TADOQuery
  117.     Connection = ADOConnection1
  118.     Parameters = <>
  119.     Left = 476
  120.     Top = 59
  121.   end
  122.   object DataSource1: TDataSource
  123.     DataSet = ADOQuery1
  124.     Left = 524
  125.     Top = 59
  126.   end
  127. end