clinicregform.dfm

1、源码包括图标、代码和建库脚本三部分 2、程序都在Delphi7.0和SQL Server 2000个人版下调试通过的

object ClinicReg: TClinicReg
  Left = 222
  Top = 143
  Width = 696
  Height = 511
  Caption = #38376#35786#25346#21495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000999
    9999999999999999999999999990099999999999999999999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF99999999999990099999999FFFFFFFFFFFFFF9999999900999
    99999FFFFFFFFFFFFFF999999990099999999FFFFFFFFFFFFFF9999999900999
    99999FFFFFFFFFFFFFF99999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999999999999999999990099999999999999999999999999999900000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000000000000000000000099999999999999009999999999999900999
    999FF99999900999999FF999999009999FFFFFF9999009999FFFFFF999900999
    999FF99999900999999FF9999990099999999999999000000000000000000000
    00000000000000000000000000000000000000000000FFFF0000FFFF00000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000FFFF0000FFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #26032#22686
      ImageIndex = 4
      OnClick = ToolButton1Click
    end
    object ToolButton5: TToolButton
      Left = 35
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 43
      Top = 0
      AutoSize = True
      Caption = #20445#23384
      Enabled = False
      ImageIndex = 7
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 78
      Top = 0
      AutoSize = True
      Caption = #21462#28040
      Enabled = False
      ImageIndex = 8
      OnClick = ToolButton3Click
    end
    object ToolButton12: TToolButton
      Left = 113
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 121
      Top = 0
      AutoSize = True
      Caption = #36864#20986
      ImageIndex = 9
      OnClick = ToolButton4Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 48
    Width = 678
    Height = 409
    Caption = #25346#21495#20449#24687
    Ctl3D = True
    Enabled = False
    ParentCtl3D = False
    TabOrder = 1
    object Bevel1: TBevel
      Left = 16
      Top = 88
      Width = 649
      Height = 10
      Shape = bsBottomLine
    end
    object Bevel2: TBevel
      Left = 8
      Top = 256
      Width = 649
      Height = 10
      Shape = bsBottomLine
    end
    object Label2: TLabel
      Left = 32
      Top = 48
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 208
      Top = 48
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #24615#21035
    end
    object Label4: TLabel
      Left = 336
      Top = 48
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #24180#40836
    end
    object Label5: TLabel
      Left = 472
      Top = 48
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #27665#26063
    end
    object Label6: TLabel
      Left = 48
      Top = 144
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #36153#29992#31867#22411
    end
    object Label7: TLabel
      Left = 48
      Top = 200
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25346#21495#31185#23460
    end
    object Label8: TLabel
      Left = 304
      Top = 144
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25346#21495#31867#22411
    end
    object Label9: TLabel
      Left = 304
      Top = 200
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #21307#29983
    end
    object Label10: TLabel
      Left = 96
      Top = 304
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25346#21495#36153#29992
    end
    object Label11: TLabel
      Left = 304
      Top = 304
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25346#21495#26102#38388
    end
    object Edit1: TEdit
      Left = 64
      Top = 48
      Width = 121
      Height = 21
      Color = clSkyBlue
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 368