unit6.dfm

玉龙飞雪进销存管理系统,可以帮您管理进销存的软件

object Formrih: TFormrih
  Left = -4
  Top = -4
  Align = alCustom
  BorderStyle = bsNone
  Caption = #26085#20449#24687#27719#24635
  ClientHeight = 553
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 10
    Top = 11
    Width = 777
    Height = 561
    Caption = #26085#20449#24687#27719#24635
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object SpeedButton2: TSpeedButton
      Left = 383
      Top = 15
      Width = 65
      Height = 33
      Caption = #36864'    '#20986
      Flat = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton1: TSpeedButton
      Left = 275
      Top = 16
      Width = 65
      Height = 33
      Caption = #25253#34920#26597#30475
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Left = 168
      Top = 16
      Width = 65
      Height = 33
      Caption = #26597'    '#30475
      Flat = True
      PopupMenu = PopupMenu1
      OnClick = FormCreate
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 51
      Width = 761
      Height = 248
      Caption = #36827#36135#20449#24687
      TabOrder = 0
      object SpeedButton3: TSpeedButton
        Left = 360
        Top = 176
        Width = 23
        Height = 22
      end
      object Label1: TLabel
        Left = 405
        Top = 224
        Width = 100
        Height = 14
        AutoSize = False
        Caption = #24403#26085#24635#24212#20184#27454#25968
      end
      object Label2: TLabel
        Left = 598
        Top = 224
        Width = 83
        Height = 15
        AutoSize = False
        Caption = #24403#26085#24635#27424#27454#25968
      end
      object DBChart3: TDBChart
        Left = 8
        Top = 14
        Width = 393
        Height = 219
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          '')
        BevelOuter = bvNone
        TabOrder = 1
        object Series3: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          DataSource = Query1
          SeriesColor = clRed
          XLabelsSource = #36135#21697#31867#22411
          BarStyle = bsRectGradient
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = #36192#36865#25968#37327
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = #36192#36865#25968#37327
        end
      end
      object DBChart1: TDBChart
        Left = 8
        Top = 14
        Width = 393
        Height = 219
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        PrintProportional = False
        Title.Text.Strings = (
          '')
        BevelOuter = bvNone
        TabOrder = 0
        object Series1: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          DataSource = Query1
          SeriesColor = clRed
          XLabelsSource = #36135#21697#31867#22411
          BarStyle = bsRectGradient
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = #36827#36135#25968#37327
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = #36827#36135#25968#37327
        end
      end
      object RadioButton1: TRadioButton
        Left = 313
        Top = 136
        Width = 69
        Height = 17
        Caption = #27491#24120#36827#36135
        Checked = True
        TabOrder = 2
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 313
        Top = 182
        Width = 68
        Height = 15
        Caption = #36192#36865#25968#37327
        TabOrder = 3
        OnClick = RadioButton2Click
      end
      object DBGrid1: TDBGrid
        Left = 412
        Top = 16
        Width = 344
        Height = 191
        DataSource = DataSource4
        TabOrder = 4
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Edit1: TEdit
        Left = 518
        Top = 221
        Width = 57
        Height = 19
        TabOrder = 5
        Text = 'Edit1'
      end
      object Edit2: TEdit
        Left = 693
        Top = 220
        Width = 63
        Height = 19
        TabOrder = 6
        Text = 'Edit2'
      end
    end
    object GroupBox3: TGroupBox
      Left = 8
      Top = 302
      Width = 761
      Height = 248
      Caption = #38144#21806#20449#24687
      TabOrder = 1
      object Label3: TLabel
        Left = 6
        Top = 223
        Width = 99
        Height = 14
        AutoSize = False
        Caption = #24403#26085#24635#24212#25910#27454#25968
      end
      object Label4: TLabel
        Left = 220
        Top = 223
        Width = 85
        Height = 16
        AutoSize = False
        Caption = #24403#26085#24635#27424#27454#25968
      end
      object DBChart4: TDBChart
        Left = 426
        Top = 15
        Width = 329
        Height = 222
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          '')
        BevelOuter = bvNone
        TabOrder = 2
        object Series4: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          DataSource = Query5
          SeriesColor = clRed
          XLabelsSource = #36135#21697#31867#22411
          BarStyle = bsRectGradient
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = #36192#36865#25968#37327
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = #36192#36865#25968#37327
        end
      end
      object DBGrid2: TDBGrid
        Left = 5
        Top = 14
        Width = 380
        Height = 195
        DataSource = DataSource6
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object DBChart2: TDBChart
        Left = 426
        Top = 15
        Width = 329
        Height = 222
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          '')
        BevelOuter = bvNone
        TabOrder = 1
        object Series2: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          DataSource = Query5
          SeriesColor = clRed
          XLabelsSource = #36135#21697#31867#22411
          BarStyle = bsRectGradient
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = #38144#21806#25968#37327
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = #38144#21806#25968#37327
        end
      end
      object RadioButton3: TRadioButton
        Left = 675
        Top = 129
        Width = 67
        Height = 17
        Caption = #27491#24120#38144#21806
        Checked = True
        TabOrder = 3
        TabStop = True
        OnClick = RadioButton3Click
      end
      object RadioButton4: TRadioButton
        Left = 675
        Top = 176
        Width = 67
        Height = 17
        Caption = #36192#36865#25968#37327
        TabOrder = 4
        OnClick = RadioButton4Click
      end
      object Edit3: TEdit
        Left = 320
        Top = 220
        Width = 65
        Height = 19
        TabOrder = 5
        Text = 'Edit3'
      end
      object Edit4: TEdit
        Left = 118
        Top = 220
        Width = 65
        Height = 19
        TabOrder = 6
        Text = 'Edit4'
      end
    end
    object DateTimePicker1: TDateTimePicker
      Left = 9
      Top = 26
      Width = 129
      Height = 21
      CalAlignment = dtaLeft
      Date = 37222.9745650579
      Time = 37222.9745650579
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'mydb'
    SQL.Strings = (
      
        'select '#36827#36135#32534#21495','#36135#21697#31867#22411','#36827#36135#26041#24335','#36827#36135#26102#38388','#36827#36135#25968#37327','#36192#36865#25968#37327','#21333#20301','#36135#21697#21333#20215','#36135#21697#21333#20215'*'#36827#36135#25968#37327' as '#24212#20184#27454#25968','#27424 +
        #27454#25968#30446
      'from jin.db'
      ''
      '')
    Left = 24
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 24
    Top = 120
  end
  object Query2: TQuery
    DatabaseName = 'mydb'
    Left = 408
    Top = 496
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 408
    Top = 528
  end
  object Query3: TQuery
    DatabaseName = 'mydb'
    Left = 592
    Top = 32
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 552
    Top = 32
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 464
    Top = 136
  end
  object Query4: TQuery
    DatabaseName = 'mydb'
    Left = 512
    Top = 136
  end
  object Query5: TQuery
    Active = True
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select * from xiao')
    Left = 488
    Top = 336
  end
  object DataSource5: TDataSource
    DataSet = Query5
    Left = 528
    Top = 336
  end
  object Query6: TQuery
    DatabaseName = 'mydb'
    Left = 56
    Top = 392
  end
  object DataSource6: TDataSource
    DataSet = Query6
    Left = 96
    Top = 392
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 88
    Top = 72
    object N1: TMenuItem
      Caption = #24403#26085#36827#36135#20449#24687#27719#24635
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #24403#26085#38144#21806#20449#24687#27719#24635
      OnClick = N2Click
    end
  end
  object XPMenu1: TXPMenu
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = True
    FlatMenu = True
    AutoDetect = True
    Active = True
    Left = 512
    Top = 32
  end
end