unit2.~dfm

一个很不错的仓库管理系统,能容进各种软件中去,

inherited TEMPLETF2: TTEMPLETF2
  Left = 241
  Top = 113
  Caption = 'TEMPLETF2'
  PixelsPerInch = 96
  TextHeight = 12
  inherited palClient: TPanel
    object Button1: TButton
      Left = 240
      Top = 312
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
    object NewDBGrid1: TNewDBGrid
      Left = 112
      Top = 112
      Width = 320
      Height = 120
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      WZebra = True
      WFirstColor = 16252655
      WSecondColor = 16119033
      Columns = <
        item
          Expanded = False
          FieldName = 'a'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'b'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'c'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'd'
          Visible = True
        end>
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=test;Data Source=SERVER;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=SERVER;Use En' +
      'cryption for Data=False;Tag with column collation when possible=' +
      'False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 152
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from table1')
    Left = 240
    Top = 16
    object ADOQuery1a: TStringField
      FieldName = 'a'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1b: TStringField
      FieldName = 'b'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1c: TStringField
      FieldName = 'c'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1d: TStringField
      FieldKind = fkLookup
      FieldName = 'd'
      LookupDataSet = ADOTable1
      LookupKeyFields = 'a'
      LookupResultField = 'd'
      KeyFields = 'a'
      Lookup = True
    end
    object ADOQuery1e: TStringField
      FieldName = 'e'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = ADOTable1
    Left = 208
    Top = 48
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'table2'
    Left = 240
    Top = 48
  end
end