ubuydevice.dfm

Delphi+SQL SEVER开发的电脑销售管理系统

      DataField = 'BuyDate'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 14
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnDropDown = DBComboBox4DropDown
    end
    object DateTimePicker1: TDateTimePicker
      Left = 88
      Top = 80
      Width = 153
      Height = 22
      CalAlignment = dtaLeft
      Date = 38037.8964331944
      Time = 38037.8964331944
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 4
      Visible = False
      OnCloseUp = DateTimePicker1CloseUp
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 113
    Width = 813
    Height = 273
    Align = alClient
    Caption = 'Panel2'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 811
      Height = 271
      Align = alClient
      Color = clBtnHighlight
      Ctl3D = True
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsName'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21517#31216
          Title.Color = clActiveBorder
          Width = 82
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Producer'
          Title.Alignment = taCenter
          Title.Caption = #29983#20135#21378#21830
          Width = 144
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsType'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#22411#21495
          Width = 177
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BuyNumber'
          Title.Alignment = taCenter
          Title.Caption = #36827#36135#37327
          Width = 65
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BuyValue'
          Title.Alignment = taCenter
          Title.Caption = #36827#20215
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BuyDate'
          Title.Alignment = taCenter
          Title.Caption = #36827#36135#26085#26399
          Width = 89
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ZhiBao'
          Title.Alignment = taCenter
          Title.Caption = #36136#20445
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Note'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#31616#20171
          Width = 300
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 386
    Width = 813
    Height = 72
    Align = alBottom
    TabOrder = 2
    OnExit = Panel3Exit
    object Label10: TLabel
      Left = 136
      Top = 16
      Width = 46
      Height = 14
      Caption = #31867'  '#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 376
      Top = 16
      Width = 60
      Height = 14
      Caption = #20135#21697#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 136
      Top = 48
      Width = 45
      Height = 14
      Caption = #36215#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 384
      Top = 48
      Width = 45
      Height = 14
      Caption = #27490#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 16
      Width = 113
      Height = 17
      Caption = #21830#21697#26597#35810
      Checked = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 48
      Width = 113
      Height = 17
      Caption = #26085#26399#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = RadioButton2Click
    end
    object DateTimePicker2: TDateTimePicker
      Left = 200
      Top = 40
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 38035
      Time = 38035
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 4
    end
    object DateTimePicker3: TDateTimePicker
      Left = 480
      Top = 40
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 38035
      Time = 38035
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 5
    end
    object ComboBox1: TComboBox
      Left = 200
      Top = 8
      Width = 145
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 1
      OnChange = ComboBox1Change
      Items.Strings = (
        #25972#26426#31867
        #37197#20214#31867
        #22806#35774#31867
        #32593#32476#31867
        #25968#30721#31867
        #32791#26448#31867
        #36719#20214#31867
        #20854#23427)
    end
    object ComboBox2: TComboBox
      Left = 480
      Top = 8
      Width = 145
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 2
    end
    object BitBtn1: TBitBtn
      Left = 664
      Top = 16
      Width = 121
      Height = 41
      Caption = #26816#32034
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn1Click
    end
  end
  object DataSource1: TDataSource
    DataSet = BuyTable
    Left = 80
    Top = 185
  end
  object BuyTable: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = BuyTableAfterInsert
    AfterPost = BuyTableAfterPost
    BeforeDelete = BuyTableBeforeDelete
    TableName = 'GoodsBuy'
    Left = 112
    Top = 185
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=DataB' +
      'ase\ComputerSale.mdb;Mode=Share Deny None;Extended Properties=""' +
      ';Persist Security Info=False;Jet OLEDB:System database="";Jet OL' +
      'EDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:En' +
      'gine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global P' +
      'artial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB' +
      ':New Database Password="";Jet OLEDB:Create System Database=False' +
      ';Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on' +
      ' Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Je' +
      't OLEDB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 184
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = True
    AutoDetect = False
    Active = True
    Left = 144
    Top = 184
  end
end