settingfm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 264 行

object FmSetting: TFmSetting
  Left = 245
  Top = 244
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21442#25968#35774#32622
  ClientHeight = 195
  ClientWidth = 372
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RzPanel1: TRzPanel
    Left = 0
    Top = 0
    Width = 372
    Height = 195
    Align = alClient
    BorderOuter = fsFlat
    Color = clWhite
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object RzGroupBox1: TRzGroupBox
      Left = 36
      Top = 12
      Width = 309
      Caption = #35774#32622#25968#25454#24211#36830#25509#65306
      ParentColor = True
      TabOrder = 0
      object RzLabel1: TRzLabel
        Left = 32
        Top = 76
        Width = 48
        Height = 13
        Caption = #30331#24405#21517#65306
      end
      object RzLabel2: TRzLabel
        Left = 166
        Top = 76
        Width = 36
        Height = 13
        Caption = #23494#30721#65306
      end
      object RzLabel3: TRzLabel
        Left = 20
        Top = 48
        Width = 60
        Height = 13
        Caption = #26381#21153#22120#21517#65306
      end
      object RzLabel4: TRzLabel
        Left = 20
        Top = 20
        Width = 60
        Height = 13
        Caption = #25968#25454#24211#21517#65306
      end
      object edtLoginName: TRzEdit
        Left = 84
        Top = 72
        Width = 73
        Height = 19
        Ctl3D = False
        FrameHotStyle = fsFlat
        ParentCtl3D = False
        TabOrder = 0
      end
      object edtPassword: TRzEdit
        Left = 204
        Top = 72
        Width = 73
        Height = 19
        Ctl3D = False
        FrameHotStyle = fsFlat
        ParentCtl3D = False
        TabOrder = 1
      end
      object edtServer: TRzComboBox
        Left = 84
        Top = 44
        Width = 193
        Height = 21
        BiDiMode = bdLeftToRight
        Ctl3D = False
        FlatButtons = True
        FrameVisible = True
        ItemHeight = 13
        ParentBiDiMode = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object edtDBName: TRzEdit
        Left = 84
        Top = 18
        Width = 73
        Height = 19
        Text = 'MsgDB'
        Ctl3D = False
        FrameHotStyle = fsFlat
        ParentCtl3D = False
        TabOrder = 2
      end
    end
    object RzPanel2: TRzPanel
      Left = 1
      Top = 147
      Width = 370
      Height = 47
      Align = alBottom
      BorderInner = fsFlat
      BorderOuter = fsFlat
      BorderSides = [sdTop]
      TabOrder = 1
      Transparent = True
      object btnOK: TRzBitBtn
        Left = 236
        Top = 12
        Caption = #30830#23450'(&O)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        TabOrder = 0
        OnClick = btnOKClick
        Glyph.Data = {
          36060000424D3606000000000000360400002800000020000000100000000100
          08000000000000020000330B0000330B00000001000000000000000000003300
          00006600000099000000CC000000FF0000000033000033330000663300009933
          0000CC330000FF33000000660000336600006666000099660000CC660000FF66
          000000990000339900006699000099990000CC990000FF99000000CC000033CC
          000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
          0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
          330000333300333333006633330099333300CC333300FF333300006633003366
          33006666330099663300CC663300FF6633000099330033993300669933009999
          3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
          330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
          66006600660099006600CC006600FF0066000033660033336600663366009933
          6600CC336600FF33660000666600336666006666660099666600CC666600FF66
          660000996600339966006699660099996600CC996600FF99660000CC660033CC
          660066CC660099CC6600CCCC6600FFCC660000FF660033FF660066FF660099FF
          6600CCFF6600FFFF660000009900330099006600990099009900CC009900FF00
          990000339900333399006633990099339900CC339900FF339900006699003366
          99006666990099669900CC669900FF6699000099990033999900669999009999
          9900CC999900FF99990000CC990033CC990066CC990099CC9900CCCC9900FFCC
          990000FF990033FF990066FF990099FF9900CCFF9900FFFF99000000CC003300
          CC006600CC009900CC00CC00CC00FF00CC000033CC003333CC006633CC009933
          CC00CC33CC00FF33CC000066CC003366CC006666CC009966CC00CC66CC00FF66
          CC000099CC003399CC006699CC009999CC00CC99CC00FF99CC0000CCCC0033CC
          CC0066CCCC0099CCCC00CCCCCC00FFCCCC0000FFCC0033FFCC0066FFCC0099FF
          CC00CCFFCC00FFFFCC000000FF003300FF006600FF009900FF00CC00FF00FF00
          FF000033FF003333FF006633FF009933FF00CC33FF00FF33FF000066FF003366
          FF006666FF009966FF00CC66FF00FF66FF000099FF003399FF006699FF009999
          FF00CC99FF00FF99FF0000CCFF0033CCFF0066CCFF0099CCFF00CCCCFF00FFCC
          FF0000FFFF0033FFFF0066FFFF0099FFFF00CCFFFF00FFFFFF00000080000080
          000000808000800000008000800080800000C0C0C00080808000191919004C4C
          4C00B2B2B200E5E5E500C8AC2800E0CC6600F2EABF00B59B2400D8E9EC009933
          6600D075A300ECC6D900646F710099A8AC00E2EFF10000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E80909
          E8E8E8E8E8E8E8E8E8E8E8E8E8E88181E8E8E8E8E8E8E8E8E8E8E8E8E8091010
          09E8E8E8E8E8E8E8E8E8E8E8E881ACAC81E8E8E8E8E8E8E8E8E8E8E809101010
          1009E8E8E8E8E8E8E8E8E8E881ACACACAC81E8E8E8E8E8E8E8E8E80910101010
          101009E8E8E8E8E8E8E8E881ACACACACACAC81E8E8E8E8E8E8E8E80910100909
          10101009E8E8E8E8E8E8E881ACAC8181ACACAC81E8E8E8E8E8E8E8091009E8E8
          0910101009E8E8E8E8E8E881AC81E8E881ACACAC81E8E8E8E8E8E80909E8E8E8
          E80910101009E8E8E8E8E88181E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8E8E8
          E8E80910101009E8E8E8E8E8E8E8E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8E8
          E8E8E80910101009E8E8E8E8E8E8E8E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8
          E8E8E8E809101009E8E8E8E8E8E8E8E8E8E8E8E881ACAC81E8E8E8E8E8E8E8E8
          E8E8E8E8E8091009E8E8E8E8E8E8E8E8E8E8E8E8E881AC81E8E8E8E8E8E8E8E8
          E8E8E8E8E8E80909E8E8E8E8E8E8E8E8E8E8E8E8E8E88181E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
        NumGlyphs = 2
      end
      object btnClose: TRzBitBtn
        Left = 72
        Top = 12
        Caption = #20851#38381'(&C)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        TabOrder = 1
        OnClick = btnCloseClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777770777777777777770077777777777770307777777777770330777777
          77770033300000000777703330FF07777777703300FF07777477703330FF0777
          4477703330FF07744444703330FF07444444703330FF0774444470330FFF0777
          44777030FFFF07777477700FFFFF077777777000000007777777}
      end
    end
    object ckAutoRun: TRzCheckBox
      Left = 36
      Top = 124
      Width = 129
      Height = 17
      Caption = #33258#21160#36816#34892#28040#24687#26381#21153#22120
      HotTrack = True
      State = cbUnchecked
      TabOrder = 2
      OnClick = ckAutoRunClick
    end
  end
  object ADOCon: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 320
  end
  object Query: TADOQuery
    Connection = ADOCon
    Parameters = <>
    SQL.Strings = (
      'IF EXISTS (SELECT * '
      #9'   FROM   master..sysdatabases '
      #9'   WHERE  name = '#39'MyDB'#39')'
      #9'DROP DATABASE MyDB'
      'GO'
      ''
      'CREATE DATABASE MyDB'
      'GO')
    Left = 320
    Top = 60
  end
  object SelectDirDlg: TRzSelDirDialog
    ButtonGlyphs = True
    DriveTypes = [dtFixed]
    Prompt = #35831#25351#23450#25968#25454#24211#25991#20214#23384#25918#20301#32622#65306
    PromptFolders = #35831#20174#19979#26694#20013#36873#25321#19968#20010#30446#24405
    PromptDrives = #25152#26377#39537#21160#22120
    BorderStyle = bsSizeable
    Caption = #36873#25321#30446#24405
    CaptionOK = #30830#23450'(&O)'
    CaptionCancel = #21462#28040'(&C)'
    CaptionHelp = '&Help'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Left = 320
    Top = 120
  end
end