unitpatient.~dfm

Delphi 控件源码

object patientMain: TpatientMain
  Left = 0
  Top = 0
  Width = 660
  Height = 530
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 275
  DesignTop = 105
  object IWDB3Navigator1: TIWDBNavigator
    Left = 399
    Top = 464
    Width = 230
    Height = 25
    ZIndex = 0
    Confirmations.Delete = 'Are you sure you want to delete this record?'
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = FFDatamodule.dsrcMain
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Orientation = orHorizontal
  end
  object IWButton1: TIWButton
    Left = 530
    Top = 516
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = ' Page > '
    Color = 13160660
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
  end
  object IWButton2: TIWButton
    Left = 442
    Top = 516
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = ' < Page '
    Color = 13160660
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
  end
  object dgrdFish: TIWDBGrid
    Left = 296
    Top = 232
    Width = 337
    Height = 209
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clSkyBlue
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clBlue
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseWidth = True
    Columns = <>
    DataSource = FFDatamodule.dsrcMain
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object IWDBLookupComboBox1: TIWDBLookupComboBox
    Left = 296
    Top = 480
    Width = 81
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 2
    AutoEditable = False
    DataField = 'xueli_id'
    DataSource = FFDatamodule.dsrcMain
    KeyField = 'xueli_id'
    ListField = 'xueli_name'
  end
  object IWDBEdit1: TIWDBEdit
    Left = 128
    Top = 384
    Width = 89
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    AutoEditable = False
    DataField = 'bingli_code'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit2: TIWDBEdit
    Left = 128
    Top = 416
    Width = 89
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 4
    AutoEditable = False
    DataField = 'bingli_id'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit3: TIWDBEdit
    Left = 128
    Top = 448
    Width = 89
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit3'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 5
    AutoEditable = False
    DataField = 'bingli_name'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWLabel1: TIWLabel
    Left = 40
    Top = 384
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30149#21382#21495
  end
  object IWLabel2: TIWLabel
    Left = 40
    Top = 416
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20837#36873#26102#38388
  end
  object IWLabel3: TIWLabel
    Left = 40
    Top = 448
    Width = 51
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #22995'     '#21517
  end
  object IWImage1: TIWImage
    Left = 16
    Top = 216
    Width = 251
    Height = 95
    ZIndex = 0
    DoSubmitValidation = True
    ScriptEvents = <>
    UseBorder = False
    UseSize = True
    JpegOptions.CompressionQuality = 90
    JpegOptions.Performance = jpBestSpeed
    JpegOptions.ProgressiveEncoding = False
    JpegOptions.Smoothing = True
    Picture.Data = {
      0A544A504547496D616765991E0000FFD8FFE000104A46494600010101004800
      480000FFDB004300070404040504070505070A0705070A0C090707090C0D0B0B
      0C0B0B0D110D0D0D0D0D0D110D0F1011100F0D1414161614141E1D1D1D1E2222
      2222222222222222FFDB0043010807070D0C0D181010181A1511151A20202020
      2020202020202020202120202020202021212120202021212121212121212222
      22222222222222222222222222FFC0001108005F00FB03011100021101031101
      FFC4001C0000020203010100000000000000000000000605070103040208FFC4
      004D1000000405000506090808050305000000010203040005061112071321A2
      E3142231415162081552616381A3D3F023323342538391E4162425719293A1D4
      437282B1B21734E12735364473FFC40018010101010101000000000000000000
      00000002010304FFC4002B110101000201020405030500000000000000010211
      0331411221325104132271811461914272A1B1C1FFDA000C0301000211031100
      3F00FA0B568F617F1E24018A5E6FC43DE401823D85F8FBC803148032D81E7BF1
      226E5A0B2F749D4320FBC5EDDC8CC9F81AC66F2E4567C72889720CB93EB00BD3
      F58633C546A7B5A4FB540694D213274A186C5E502832275F5ACBE77F30921AA3
      5A55FCF1BFFEEF474DDA172B1D46E549EA652F68EA16138EDE9B1061F50EF91E
      906869D382B466F9324C4DFF00D17253B573D36B6A1714D4FE919E2B3A860D5A
      1E487C7FAE2A65B06AD0EC2FC7DE4503047B0BF1F79006AD1EC2FE3C480314BC
      DF887BC803047B0BF1F7900608F617E3EF200C11EEFC7DE401823D85FC43DE40
      1823DDF8FBC803047B0BF887BC803147CDF887BC803047B03F10F79006097563
      FD3DE4063047A6C5BFEFE24067047B0BF1F7900608F617E3EF200D5A3DDF8FBC
      803047BBF1F79006AD0EC0FC43DE406304BCDF8F12033AB4BCDF8F1203C18890
      1B6087F171420318A3DBBDC580DF98F95BDC480C67DFDEE240464FAA14E54995
      34D351ECD17B83397A2375163805FCB102143EB1CDB0A11CEE7BF28142AAA5EA
      41A79DD515580CEDD32445CA34B365D4425E4D5F3873E93BA50A1B79FB06D6B0
      454C44FCBF9382ED1ACB7548D313B95FEA09342951488E00BACBA664C086BA88
      9EE5DBB30D9141428942669D2F452CB6BE6ED4CED13F2A54794A8D1D026AA0E4
      0E730E5AA1308E2371C4DB3A2D609BA41BCA667A40D20BC6471D618ECE5EA2A8
      A82020749A7CA60203CD301CF611ED0808DA5D325654853F259AA484E8A9B505
      EA1983F005C481CE295322A060311C09B9D7BDCA50F384069A727F306C9A6B51
      0E9CCDA463AC225219BE4472A2289C482B4ADE29B172625B948730ECFAC1D113
      7061F69DAA64D514BBC612A5C54440E29AA99EE451154BF392588730090E5EB0
      18C97C3E55B127ACEF6F7122C198F95BDC48033EF6F71200CFBDBDC480359DED
      EE24019F7B7B890067DEDEE24019F7B7B890067DEDEE240632EF6F71200CBBDB
      DC480CE7DEDEE24019F7B7B890067DEDEE24019F7B7B890067DEDEE24019F7B7
      B890067DEDEE240632EF6F71203398F95BDC480F0653BFBDC580C6B7BFBFC580
      F5AF0F2B783DEC04455D5636A6E48A4C9429D75C4C5499B34C6EA3872A8E2922
      40CCDB4E6FC02E31195DDD348F3124F651302CB2A3938BB0A98B699D41CBCED5
      24D736D49822A259288A49FCD25EC07379CC3158C9187BA6A6F38372B97CFD8A
      CD79205D378BEACC8B86F6F9E2AA62240386D0300E3DA016E8D0992255470BB5
      6B4326F2792395AC73CBDCBA5136B2B6C6C4E981535F562E5D9532AA62971B94
      3B47A8261B52F5E4AA566C6752B90CB5B6B1733596CB0051286D50E222B2BFBC
      4440A17808FA166D5B4FA9E2D534A3F96BF60FCEA0E0FA5E697ACA1913992364
      A375550DA251C44C4808FA8041BD2E95180C7F43137AF0A0EC0E39B47C8AEA64
      E5BA13220D9255701100154A5375007604A399D52545B155CCC9C3934BD90A69
      4829A72DCA2E515DB904B66026015952980D88180C62940360DA016256FEB52B
      F4A7A8A0D02B75D978D9D30607BA3339601C0A6496B6C2BC6E0A1008A06C3746
      D858CD2D1A6AA696D43246D37979C45ABA201CB71C4C51EB218B9858C5E810ED
      889D74D487282F95BE1EF62C675E5F2B783DEC0724DA7B2E94CB5C4CE60B022C
      9B1054595130580A5DBF682301994CF65B3697A33196B82B864B97245621C2C6
      0FE64074EBCBE56F87BD8035E5F2B7C3DEC0675E1E56F07BD8035E1E56F07BD8
      035E1E56F07BD8035E1E56F07BD8035E1E56F07BD8035E1E56F07BD8035E1E56
      F07BD8035E1E56F07BD8035E1E56F07BD8035E1E56F07BD8035E5F2B783DEC01
      AF2F95BC1EF600D797CADE0F7B018E501E56F07BD80F5AE0F2F7B8901E359DFD
      FE2C65BA811D5466F55D7930752E3A7A9A492142540E40CA363CE5C27928AA80
      43DC793A272A7D370131863309A9BF736E6A7AB0AE6B094CCA5932A7E5EE81A6
      2CA76C4CB2A80EB8FF004C8948721C0C054CC0729F2C4D70B0DC22874C9A9A4A
      74A1E942BA76E688901B933A51D2E2AAB31781CE3A2AABD6DDB9440A628580C6
      E68FCD1B8582D791912041AEACA9240042A49E205280741400BB02029AF0A8D2
      FB3A7A9C5E8B978E73C9B218B8B7F80D14D8611EF28002001D9B7B20177473E1
      37A39A37471269024CDF3B9934400AE5349320175A6113A82073182E02611EA8
      0EC7FE17F484C98ACC6674A3D5D9B801228828292899C83D4603005E02534735
      5D39537253CBCA7C8A9B96349CD6665133A97BD14323B0554FF14B8082889AE2
      225031479C5DA12120994A68A9030469E90A25A81CCC9B52EA4C1C141BEBDD10
      8632CE1412828A8A59A6610EB308C014BCD14906900ED05306B2BA9CCE562B62
      FCC4270C94D4BD4C86B94048B097585BF6F4432C7737DE27A5FBACD2AC02501C
      F67F9B8B1332DA86B7BFBFC58A0B1A5B197A9A32A84B303FEA9C856137382F7C
      79B6F951FAD014553FA40AC7453A1795A9AE29E61387DCA25CCD61CB552F2800
      9F601AE1AD3F9B65E01DEBDF0904CD2A96CB6810F18D573A48864C8411539299
      40F9A25CCC1AC01EA1D81D23016068CD8D62C29444B584C05ECF973996706CCB
      64F3F9A917139039A1D900CDACEFEFF1600D677F7F8B006B7BFBFC58035BDFDF
      E2C01ACEFEFF001600153BFBFC580862D734D1AAC1A501E80CF8A8F28336B9BE
      8FA6F96B31BFAE026759DFDFE2C01ACEFEFF001600D677F7F8B000297FAFBDC5
      80F57B6DCB7F890065DEDFE2400236FADBFC480014EF6F7120399D4D1AB466BB
      C555F916E999552C6C87120643B35868E79F590BD15AE8B86BE714E93F47DFCB
      925DD93C72FCEFD0556517713350EB007C9AA96042A2040BD847F08EB5912267
      EEE50BD4555CF1924CEB49731459EB19ACA28C5DF281FD515D51B01CC15E673E
      E205D97B46355F691D1ADE6B584AF42345BC1668326655E68F35A64C575540D6
      AEAAE620643B4D9583A4C68084AEBC1D2A9D18D30A56B22A95451EB104CEF4A8
      90EDCFCF381324CC539B22809B68183A203AEBAD3148AA8D1CB56B2896A132D2
      1CDE58624F1E911298ED5BB7288AE631F1D8260209803EA87AA021DB690A694B
      E8928C6F4EA48C9466667859954266C0A98A293912734F8A837B0E46D97E8B40
      6A73A539C344961434A4F9DBA2907569925A7148E7EA0032A2188755F180B674
      6CEEB0D21E8295733348A8D4492C65E54FB5609EB5C3512AADD712940BB44E5C
      0C21D21780F0E5EE8F9F3A91D4D34AABC4D2C74AA1538C896D5E077A01AA3193
      58FF002800539440E985F6EDD978089D24D6140CCE4693DA1CE651C4826294E9
      47C44D5D51B942FA875CF56C6388995298F8EC8AE3EBF74E536B82573541CB52
      2E454356B948B27CE00D870BFDA17B63963356CF6563771D7CA92FB62FF338D1
      62ABD214E98D6DA4896E8C81C078A5BFED19F7CA006B7561745A96EA58D908DC