createtable.dfm

来自「速达开源ERP系统」· DFM 代码 · 共 457 行

object frmCreateTable: TfrmCreateTable
  Left = 57
  Top = 26
  Width = 743
  Height = 574
  Caption = '建立数据表'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object FloatPanel2: TFloatPanel
    Left = 0
    Top = 175
    Width = 734
    Height = 371
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 2
    Visible = False
    object Label6: TLabel
      Left = 260
      Top = 15
      Width = 105
      Height = 19
      Caption = '原始表结构'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = '幼圆'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object sgSelect: TSDGrid
      Left = 8
      Top = 49
      Width = 623
      Height = 309
      ColCount = 11
      Ctl3D = False
      DefaultRowHeight = 18
      FixedColor = 8564917
      FixedCols = 0
      RowCount = 4
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
      ParentCtl3D = False
      TabOrder = 0
      Columns = <
        item
          ColumnFont.Charset = DEFAULT_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -11
          ColumnFont.Name = 'MS Sans Serif'
          ColumnFont.Style = []
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = '字段名'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = '类型'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = '宽度'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = '精度'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = 'NULL'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = 'IDENTITY'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = GB2312_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -14
          ColumnFont.Name = '宋体'
          ColumnFont.Style = []
          TitleString = 'DEFAULT'
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = DEFAULT_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -11
          ColumnFont.Name = 'MS Sans Serif'
          ColumnFont.Style = []
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = DEFAULT_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -11
          ColumnFont.Name = 'MS Sans Serif'
          ColumnFont.Style = []
          ColumnWidth = 0
        end
        item
          ColumnFont.Charset = DEFAULT_CHARSET
          ColumnFont.Color = clWindowText
          ColumnFont.Height = -11
          ColumnFont.Name = 'MS Sans Serif'
          ColumnFont.Style = []
          ColumnWidth = 0
        end>
    end
    object btOK: TBitBtn
      Left = 640
      Top = 65
      Width = 75
      Height = 25
      Caption = '确定'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btOKClick
    end
    object btCancel: TBitBtn
      Left = 640
      Top = 115
      Width = 75
      Height = 25
      Caption = '取消'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btCancelClick
    end
  end
  object sgField: TSDGrid
    Left = 0
    Top = 173
    Width = 735
    Height = 374
    Align = alClient
    Color = clNone
    ColCount = 9
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 0
    OnDblClick = sgFieldDblClick
    OnMouseUp = sgFieldMouseUp
    OnSelectCell = sgFieldSelectCell
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -11
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '字段说明'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '字段名'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '字段类型'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '宽度'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '精度'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = 'NULL'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = 'IDENTITY'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -14
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = 'DEFAULT'
        ColumnWidth = 0
      end>
    ColWidths = (
      10
      160
      103
      69
      74
      69
      79
      66
      71)
  end
  object FloatPanel1: TFloatPanel
    Left = 0
    Top = 0
    Width = 735
    Height = 173
    Align = alTop
    Color = 16441822
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 25
      Top = 20
      Width = 54
      Height = 12
      Caption = '系统表名:'
    end
    object Label2: TLabel
      Left = 25
      Top = 98
      Width = 54
      Height = 12
      Caption = '所属模块:'
    end
    object Label3: TLabel
      Left = 25
      Top = 137
      Width = 54
      Height = 12
      Caption = '修改日期:'
    end
    object Label4: TLabel
      Left = 284
      Top = 16
      Width = 30
      Height = 12
      Caption = '主键:'
    end
    object Label5: TLabel
      Left = 410
      Top = 16
      Width = 30
      Height = 12
      Caption = '外键:'
    end
    object cbxTable: TSDComboBox
      Left = 96
      Top = 12
      Width = 169
      Height = 20
      Color = 16441822
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnClick = cbxTableClick
      ReadOnly = True
    end
    object edTableDesc: TSDEdit
      Left = 95
      Top = 56
      Width = 172
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
      SplitSymbol = ' | '
    end
    object edClassid: TSDEdit
      Left = 95
      Top = 94
      Width = 171
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      SplitSymbol = ' | '
    end
    object edDate: TSDEdit
      Left = 96
      Top = 135
      Width = 168
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
      SplitSymbol = ' | '
    end
    object lbPk: TListBox
      Left = 272
      Top = 35
      Width = 121
      Height = 124
      Color = 16441822
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 4
    end
    object sgFk: TStringGrid
      Left = 398
      Top = 35
      Width = 243
      Height = 124
      Color = 16441822
      ColCount = 3
      Ctl3D = False
      FixedColor = clActiveBorder
      FixedCols = 0
      RowCount = 2
      ParentCtl3D = False
      TabOrder = 5
      ColWidths = (
        85
        71
        78)
    end
    object btnRefresh: TBitBtn
      Left = 646
      Top = 34
      Width = 75
      Height = 25
      Caption = '刷新'
      TabOrder = 6
      OnClick = btnRefreshClick
    end
    object btnCreate: TBitBtn
      Left = 646
      Top = 70
      Width = 75
      Height = 25
      Caption = '建表'
      TabOrder = 7
      OnClick = btnCreateClick
    end
    object btnExit: TBitBtn
      Left = 646
      Top = 108
      Width = 75
      Height = 25
      Caption = '退出'
      TabOrder = 8
      OnClick = btnExitClick
    end
  end
  object pmField: TPopupMenu
    Left = 175
    Top = 315
    object E1: TMenuItem
      Caption = '修改(&E)'
      OnClick = E1Click
    end
    object D1: TMenuItem
      Caption = '删除(&D)'
      OnClick = D1Click
    end
  end
end