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

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

Delphi控件源码

开发平台：

Delphi

Unit26.dfm：源码内容
  1. object Form26: TForm26
  2.   Left = 278
  3.   Top = 139
  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.         OnClick = Button1Click
  57.       end
  58.       object Button2: TButton
  59.         Left = 232
  60.         Top = 96
  61.         Width = 81
  62.         Height = 41
  63.         Caption = #21462#28040
  64.         TabOrder = 2
  65.         OnClick = Button2Click
  66.       end
  67.       object DBGrid1: TDBGrid
  68.         Left = 56
  69.         Top = 168
  70.         Width = 729
  71.         Height = 233
  72.         DataSource = DataSource1
  73.         ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  74.         TabOrder = 3
  75.         TitleFont.Charset = DEFAULT_CHARSET
  76.         TitleFont.Color = clWindowText
  77.         TitleFont.Height = -13
  78.         TitleFont.Name = 'MS Sans Serif'
  79.         TitleFont.Style = []
  80.         Columns = <
  81.           item
  82.             Expanded = False
  83.             FieldName = 'Patno'
  84.             Visible = True
  85.           end
  86.           item
  87.             Expanded = False
  88.             FieldName = 'Entime'
  89.             Visible = True
  90.           end
  91.           item
  92.             Expanded = False
  93.             FieldName = 'Extime'
  94.             Visible = True
  95.           end
  96.           item
  97.             Expanded = False
  98.             FieldName = 'Fore'
  99.             Visible = True
  100.           end
  101.           item
  102.             Expanded = False
  103.             FieldName = 'Bedno'
  104.             Visible = True
  105.           end>
  106.       end
  107.     end
  108.   end
  109.   object ADOConnection1: TADOConnection
  110.     Connected = True
  111.     ConnectionString = 
  112.       'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Local' +
  113.       'Server'
  114.     LoginPrompt = False
  115.     Left = 428
  116.     Top = 59
  117.   end
  118.   object ADOQuery1: TADOQuery
  119.     Connection = ADOConnection1
  120.     Parameters = <>
  121.     Left = 476
  122.     Top = 59
  123.   end
  124.   object DataSource1: TDataSource
  125.     DataSet = ADOQuery1
  126.     Left = 524
  127.     Top = 59
  128.   end
  129. end