mainfrm.dfm

delphi下自动建立数据库的源代码

object frmMain: TfrmMain
  Left = 432
  Top = 260
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '创建数据库'
  ClientHeight = 208
  ClientWidth = 369
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  PixelsPerInch = 120
  TextHeight = 15
  object lblUserId: TLabel
    Left = 24
    Top = 72
    Width = 60
    Height = 15
    Caption = '登入用户'
    Transparent = True
  end
  object lblPassWd: TLabel
    Left = 24
    Top = 112
    Width = 60
    Height = 15
    Caption = '登入密码'
    Transparent = True
  end
  object lblServerName: TLabel
    Left = 24
    Top = 32
    Width = 60
    Height = 15
    Caption = '服务器名'
    ParentShowHint = False
    ShowHint = False
    Transparent = True
  end
  object edtUserId: TEdit
    Left = 136
    Top = 66
    Width = 200
    Height = 23
    TabOrder = 0
    Text = 'edtUserId'
  end
  object edtPassWd: TEdit
    Left = 136
    Top = 106
    Width = 200
    Height = 23
    TabOrder = 1
    Text = 'edtPassWd'
  end
  object btnBuild: TButton
    Left = 168
    Top = 160
    Width = 75
    Height = 25
    Caption = '创建(&C)'
    TabOrder = 2
    OnClick = btnBuildClick
  end
  object btnExit: TButton
    Left = 264
    Top = 160
    Width = 75
    Height = 25
    Caption = '退出(&X)'
    TabOrder = 3
    OnClick = btnExitClick
  end
  object edtServerName: TEdit
    Left = 136
    Top = 25
    Width = 200
    Height = 23
    TabOrder = 4
    Text = 'edtServerName'
  end
end