deletedb.dfm

三层ERP系统 (SQL)

inherited frmdeletedb: Tfrmdeletedb
  Left = 248
  Top = 144
  Width = 383
  Height = 456
  ActiveControl = Edit1
  Caption = #21034#38500#24115#22871
  Font.Height = -15
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 375
    Height = 146
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 14
      Top = 14
      Width = 236
      Height = 119
      Caption = #25976#25818#24235#20449#24687
      TabOrder = 1
      object Label1: TLabel
        Left = 14
        Top = 30
        Width = 87
        Height = 15
        AutoSize = False
        Caption = 'SQL'#30331#20837#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #32048#26126#39636
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 14
        Top = 59
        Width = 87
        Height = 15
        AutoSize = False
        Caption = #23494#30908
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #32048#26126#39636
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 14
        Top = 88
        Width = 87
        Height = 15
        AutoSize = False
        Caption = #26381#21209#22120#21517#31281
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #32048#26126#39636
        Font.Style = []
        ParentFont = False
      end
      object Edit2: TEdit
        Left = 101
        Top = 55
        Width = 101
        Height = 23
        PasswordChar = '*'
        TabOrder = 1
      end
      object Edit1: TEdit
        Left = 101
        Top = 28
        Width = 101
        Height = 23
        TabOrder = 0
      end
      object Edit3: TEdit
        Left = 101
        Top = 83
        Width = 122
        Height = 23
        TabOrder = 2
        OnExit = Edit3Exit
      end
    end
    object Button1: TButton
      Left = 264
      Top = 104
      Width = 75
      Height = 25
      Caption = #30906#23450
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 393
    Width = 375
    Height = 36
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Button2: TButton
      Left = 296
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 212
      Top = 8
      Width = 83
      Height = 25
      Caption = #21034#38500#25976#25818#24235
      TabOrder = 1
      OnClick = Button3Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 146
    Width = 375
    Height = 247
    Align = alClient
    Ctl3D = True
    DataSource = DSdatabase
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #32048#26126#39636
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        EditButtons = <>
        FieldName = 'accname'
        Footers = <>
        Title.Caption = #20844#21496#21517#31281
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'dbname'
        Footers = <>
        Title.Caption = #24115#22871#21517#31281
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #20633#27880
        Width = 130
      end>
  end
  object CDSdatabase: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 192
  end
  object DSdatabase: TDataSource
    DataSet = CDSdatabase
    Left = 168
    Top = 240
  end
end