unit16.~dfm

来自「商品销售管理系统」· ~DFM 代码 · 共 150 行

object Form16: TForm16
  Left = 149
  Top = 212
  Width = 693
  Height = 476
  Caption = #26597#35810#26694
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object tapsheet5: TPageControl
    Left = 0
    Top = 0
    Width = 681
    Height = 433
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21830#21697#26377#20851#20449#24687#27983#35272
      object GroupBox1: TGroupBox
        Left = 16
        Top = 8
        Width = 225
        Height = 105
        Caption = #36873#25321#65306
        TabOrder = 0
        object Button1: TButton
          Left = 64
          Top = 24
          Width = 75
          Height = 25
          Caption = #26597#12288#35810
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 64
          Top = 64
          Width = 75
          Height = 25
          Caption = #36864#12288#20986
          TabOrder = 1
          OnClick = Button2Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 120
        Width = 649
        Height = 273
        Caption = #25152#26377#20449#24687#65306
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 8
          Top = 16
          Width = 633
          Height = 241
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21512#21516#26377#20851#20449#24687#27983#35272
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 16
        Top = 128
        Width = 633
        Height = 257
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 8
        Width = 185
        Height = 105
        Caption = #35831#36873#25321#65306
        TabOrder = 1
        object Button3: TButton
          Left = 48
          Top = 24
          Width = 75
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 0
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 48
          Top = 64
          Width = 75
          Height = 25
          Caption = #36864'  '#20986
          TabOrder = 1
          OnClick = Button4Click
        end
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog='#21830#21697#36827#36135#31649#29702#31995#32479
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 236
    Top = 24
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = #22810#34920'1'
    Left = 276
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 316
    Top = 24
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    TableName = #22810#34920'2'
    Left = 268
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 316
    Top = 64
  end
end