uselectacc.dfm

天涯進銷存系統

    end
    object Shape2: TShape
      Left = 405
      Top = 2
      Width = 2
      Height = 54
      Align = alRight
      Brush.Color = 15175283
      Pen.Color = 14581072
      Pen.Width = 0
    end
    object Shape4: TShape
      Left = 0
      Top = 0
      Width = 407
      Height = 2
      Align = alTop
      Brush.Color = 15175283
      Pen.Color = 14581072
      Pen.Width = 0
    end
    object Label3: TLabel
      Left = 40
      Top = 8
      Width = 299
      Height = 33
      Caption = #22825#28079#36827#38144#23384#31995#32479'    '
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -32
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 302
      Top = 7
      Width = 84
      Height = 12
      Caption = #36890#29992#32593#32476#29256'    '
    end
    object Label2: TLabel
      Left = 302
      Top = 23
      Width = 66
      Height = 12
      Caption = #19987#19994#35774#35745'   '
    end
    object Label4: TLabel
      Left = 304
      Top = 40
      Width = 84
      Height = 12
      Caption = #21608#21040#32454#33268#26381#21153'  '
    end
  end
  object EnterButton: TLBButton
    Left = 255
    Top = 241
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #30830#23450'(&Y)'
    TabOrder = 1
    OnClick = EnterButtonClick
  end
  object CancelButton: TLBButton
    Left = 323
    Top = 241
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040'(&C)'
    TabOrder = 2
    OnClick = CancelButtonClick
  end
  object Panel2: TPanel
    Left = 56
    Top = 63
    Width = 331
    Height = 21
    BevelOuter = bvNone
    Color = 14581072
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label17: TLabel
      Left = 3
      Top = 5
      Width = 48
      Height = 12
      Caption = #24080#22871#32534#21495
    end
    object Label21: TLabel
      Left = 82
      Top = 5
      Width = 48
      Height = 12
      Caption = #24080#22871#21517#31216
    end
  end
  object DataDBGrid: TLBDBGrid
    Left = 57
    Top = 83
    Width = 329
    Height = 151
    BorderStyle = bsNone
    DataSource = AccDs
    GridlineColor = clBackground
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ShowScrollBars = False
    SelectRowColor = 16774127
    SelectRowFontColor = clHighlight
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyDown = DataDBGridKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'CODE'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Width = 231
        Visible = True
      end>
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 369
    Top = 82
    Width = 18
    Height = 153
    Color = 16774127
    LineColor = clBackground
    DownFontColor = clBlack
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Marlett'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    DataSource = AccCds
  end
  object CreateAccButton: TLBButton
    Left = 55
    Top = 241
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #26032#24314#24080#22871
    TabOrder = 6
    OnClick = CreateAccButtonClick
  end
  object DeleteAccButton: TLBButton
    Left = 121
    Top = 241
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21024#38500#24080#22871
    TabOrder = 7
    OnClick = DeleteAccButtonClick
  end
  object SQLConnection: TSQLConnection
    ConnectionName = 'SQLServerConnection'
    DriverName = 'SQLServer'
    GetDriverFunc = 'getSQLDriverSQLServer'
    LibraryName = 'dbexpsda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'HostName=a6'
      'DataBase=master'
      'DriverName=SQLServer'
      'User_Name=sa'
      'Password='
      'LongStrings=True'
      'EnableBCD=True'
      'FetchAll=True')
    VendorLib = 'sqloledb.dll'
    Left = 16
    Top = 112
  end
  object AccCds: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 16
    Top = 144
  end
  object AccDs: TDataSource
    DataSet = AccCds
    Left = 16
    Top = 176
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection
    Left = 16
    Top = 208
  end
  object IdIPWatch1: TIdIPWatch
    Active = False
    HistoryFilename = 'iphist.dat'
    Left = 192
    Top = 136
  end
  object adocx: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 16
    Top = 240
  end
end