unitmain.dfm

来自「包含众多详细的delphi对数据库的访问代码」· DFM 代码 · 共 70 行

object FormMain: TFormMain
  Left = 192
  Top = 322
  Width = 696
  Height = 480
  Caption = 'Main Form'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Query1: TQuery
    Left = 152
    Top = 48
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'TestDatabase'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'Server Name=Aizhbao'
      'Database Name=TestDB'
      'User Name=sa'
      'Password=')
    SessionName = 'Default'
    Left = 240
    Top = 48
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 32
    object MenuItemWork: TMenuItem
      Caption = '操作'
      object ItemInStore: TMenuItem
        Caption = '进仓单'
        OnClick = ItemInStoreClick
      end
      object ItemEmployee: TMenuItem
        Caption = '员工'
        OnClick = ItemEmployeeClick
      end
      object ItemStore: TMenuItem
        Caption = '仓库'
        OnClick = ItemStoreClick
      end
      object ItemGoods: TMenuItem
        Caption = '商品'
        OnClick = ItemGoodsClick
      end
      object ItemStorage: TMenuItem
        Caption = '库存'
        OnClick = ItemStorageClick
      end
      object ItemExit: TMenuItem
        Caption = 'Exit'
        OnClick = ItemExitClick
      end
    end
  end
end