unit_mater_stockview.dfm

此代码为企业原料管理代码

object Form_Mater_StockView: TForm_Mater_StockView
  Left = 189
  Top = 160
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  ClientHeight = 355
  ClientWidth = 507
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid_Stock: TDBGrid
    Left = 25
    Top = 56
    Width = 216
    Height = 267
    DataSource = DS_Stock
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Width = 104
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '库存'
        Title.Alignment = taCenter
        Width = 74
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 264
    Top = 56
    Width = 217
    Height = 129
    TabOrder = 1
    object BitBtn2: TBitBtn
      Left = 118
      Top = 95
      Width = 75
      Height = 25
      Caption = '查找'
      TabOrder = 0
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object Edit_Mater: TEdit
      Left = 90
      Top = 41
      Width = 103
      Height = 22
      TabOrder = 1
      OnChange = Edit_MaterChange
      OnExit = Edit_MaterExit
    end
    object Panel3: TPanel
      Left = 24
      Top = 41
      Width = 66
      Height = 22
      Caption = '材料简称'
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 24
      Top = 14
      Width = 169
      Height = 27
      Caption = '请输入要查询的材料名称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
  object BitBtn3: TBitBtn
    Left = 263
    Top = 249
    Width = 72
    Height = 28
    Caption = '全部'
    TabOrder = 2
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000
      000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000
      FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000
      00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000
      00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F
      FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF
      0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000
      05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555
      55557F7777777555555500000005555555557777777555555555}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 337
    Top = 249
    Width = 79
    Height = 28
    Caption = '采购指南'
    TabOrder = 3
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
      00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
      0333337733F733F77F33370980FFF08907333373373F373373F33099FFFFFFF9
      903337F3F373F33FF7F33090F000FF00903337F73337F37737F3B099FFF0FFF9
      90B3373F33F7F3F33733070980F0F0890703337FF737F7337F33BB0098F0F890
      0BB33F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
      77037F3377777773337F088887707888870373F3337773F33373B078800B0088
      70B3373FF733373FF73303700BBBBB007303337773F3F3777F33330BB0B0B0BB
      033333733737F73F73F330BB03B0B30BB0333733733733733733}
    NumGlyphs = 2
  end
  object Panel5: TPanel
    Left = 26
    Top = 15
    Width = 455
    Height = 41
    Caption = '宁波市巨龙橡塑有限公司  仓库查询、采购指南系统'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Button1: TButton
    Left = 419
    Top = 249
    Width = 75
    Height = 28
    Caption = '返回'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 376
    Top = 208
    Width = 43
    Height = 22
    TabOrder = 6
    Text = 'Edit1'
    OnClick = Edit1Click
  end
  object Panel2: TPanel
    Left = 324
    Top = 209
    Width = 52
    Height = 22
    Caption = '库 号'
    TabOrder = 7
  end
  object Qry_Stock: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'SELECT 材料名称, Sum(库存)as 库存'
      'FROM "原材料台帐.DB" 原材料台帐'
      'group by 材料名称')
    Left = 184
    Top = 64
  end
  object DS_Stock: TDataSource
    DataSet = Qry_Stock
    Left = 136
    Top = 96
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 184
    Top = 128
  end
  object Qry_StockWarn: TQuery
    DatabaseName = 'JL2000'
    Left = 184
    Top = 176
  end
end