storequery.dfm

一个简单的企业进销存管理系统,对于新手学习c++builder很有帮助的,用的是BC++6.0,数据库是sql server 2000

object fmStoreQuery: TfmStoreQuery
  Left = 211
  Top = 246
  Width = 557
  Height = 298
  Caption = #24211#23384#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 549
    Height = 57
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 24
      Height = 12
      Caption = #36135#21495
    end
    object Label2: TLabel
      Left = 152
      Top = 24
      Width = 48
      Height = 12
      Caption = #21830#21697#25340#38899
    end
    object Label3: TLabel
      Left = 304
      Top = 24
      Width = 24
      Height = 12
      Caption = #20179#24211
    end
    object edGoodCode: TEdit
      Left = 56
      Top = 20
      Width = 73
      Height = 20
      TabOrder = 0
      Text = 'edGoodCode'
    end
    object edGoodPY: TEdit
      Left = 200
      Top = 20
      Width = 73
      Height = 20
      TabOrder = 1
      Text = 'edGoodPY'
    end
    object cboStore: TComboBox
      Left = 328
      Top = 20
      Width = 97
      Height = 20
      ItemHeight = 12
      TabOrder = 2
      Text = 'cboStore'
    end
    object btQuery: TButton
      Left = 448
      Top = 16
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = btQueryClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 57
    Width = 549
    Height = 214
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #36135#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21697#21517
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20179#24211
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#25968#37327
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#21333#20215
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#37329#39069
        Width = 57
        Visible = True
      end>
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select a.'#36135#21495',b.'#21697#21517','#25340#38899#32534#30721','#21333#20301','#20179#24211','#24211#23384#25968#37327','#24211#23384#21333#20215','#24211#23384#37329#39069' from '#24211#23384#24211' as a,'#21830#21697#28165#21333' as' +
        ' b where a.'#36135#21495'=b.'#36135#21495)
    Left = 520
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 512
    Top = 88
  end
end