📄 unitpypk.~dfm

📁 仓储系统
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      ParentFont = False
      TabOrder = 1
      OnClick = btnEraseClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnMod: TBitBtn
      Left = 362
      Top = 5
      Width = 81
      Height = 24
      Caption = #20462#25913'(&M)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = btnModClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object btnSave: TBitBtn
      Left = 449
      Top = 5
      Width = 81
      Height = 24
      Caption = #20445#23384'(&S)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnSaveClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777770007777777700007777777003B30077777700007777
        7003B3B3B30077770000777003B3BF0FB3B3007700007003B3BF00000FB3B300
        000070B3BF000000000FB3B0000070BF0000044440000FB00000700000044000
        440000000000770004400000004400070000770440088FFF8800440700007870
        0EE8888888EE00870000778FF00EE888EE00FF8700007778FFF00EEE00FFFF87
        000077778FFFF000FFFFF8770000777778FFFFFFFFFFF87700007777778F7F7F
        7F7F8777000077777778FFFFFFFF87770000777777778F7F7F78777700007777
        777778F7F7F877770000}
    end
    object btncancel: TBitBtn
      Left = 535
      Top = 5
      Width = 81
      Height = 24
      Caption = #21462#28040'(&C)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btncancelClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        83333333330AAAAA00833333330AAAAAA2033333330AAAAA2A20333333000000
        A220333333333333002033333333333333003333033333333300333003333333
        0020330A00000000A22030AAAAAAAAAA2A200AAAAAAAAAAAA20330AAAAAAAAAA
        0033330A00000000833333300333333333333333033333333333}
    end
    object btnclose: TBitBtn
      Left = 624
      Top = 5
      Width = 81
      Height = 24
      Caption = #36864#20986'(&Q)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btncloseClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000088888888888888833338000088888888888888F3F38800008888
        888888888F3F38880000444444088888FFF44443000033333450888F3FF43333
        00003333345508FFFFF4333300003333345550FFFFF4333300003330045550FF
        FFF4333300003330A05550FFFFF4333300000000EA0550FFFEF4333300000EAE
        AEA050FFFFF4333300000AEAEAEA00FEFEF4333300000EAEAEA050FFFFF43333
        00000000EA0550FEFEF4333300003330A05550EFEFE4333300003330045550FE
        FEF4333300003333345550EFEFE4333300003333344444444444333300003333
        33333333333333330000}
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 207
    Width = 773
    Height = 35
    Align = alTop
    Color = 15263976
    TabOrder = 2
    object RxLabel1: TRxLabel
      Left = 37
      Top = 11
      Width = 62
      Height = 13
      Caption = #24211#23384#25968#37327#65306
    end
    object RxLabel2: TRxLabel
      Left = 210
      Top = 11
      Width = 62
      Height = 13
      Caption = #24211#23384#24635#20215#65306
    end
    object btnMx: TAbColBitBtn
      Left = 396
      Top = 4
      Width = 80
      Height = 26
      Visible = False
      PosHorizontal = phCenter
      PosVertical = pvCenter
      PosGlyph = pTop
      GradBtnFace.ColorFrom = 15790320
      GradBtnFace.ColorTo = clSilver
      GradBtnFace.Visible = True
      GradBtnFace.Style = gsHorizontal2
      ButtonBevel.ShadowColFrom = clWhite
      ButtonBevel.ShadowColTo = clSilver
      ButtonBevel.HighlightColFrom = clSilver
      ButtonBevel.HighlightColTo = clWhite
      ButtonBevel.Width = 1
      FlashOptions = [foGlyph, foText, foTextCol, foBtnCol]
      CheckedOptions = [coGlyph, coText, coTextCol, coBtnCol, coBevel]
      ColorOff = clBtnFace
      ColorDisabled = 10526880
      ColorOn = clBtnFace
      OffsetX = 0
      OffsetY = 0
      OffsetDown = 1
      NumGlyph = 1
      Beveled = True
      Transparent = False
      Flat = True
      Spacing = 4
      TextOn = #26126#32454#36164#26009
      TextColOn = clRed
      TextColOff = clBlack
      TextColDisabled = clBtnShadow
      Text3D = True
      Frequency = ff1Hz
      Flashing = False
      GroupIndex = 0
      StatusBit = 0
      StatusInt = 0
      Checked = False
      Mode = mButton
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object btnGz: TAbColBitBtn
      Left = 483
      Top = 4
      Width = 80
      Height = 26
      PosHorizontal = phCenter
      PosVertical = pvCenter
      PosGlyph = pLeft
      GradBtnFace.ColorFrom = 15790320
      GradBtnFace.ColorTo = clSilver
      GradBtnFace.Visible = True
      GradBtnFace.Style = gsHorizontal2
      ButtonBevel.ShadowColFrom = clWhite
      ButtonBevel.ShadowColTo = clSilver
      ButtonBevel.HighlightColFrom = clSilver
      ButtonBevel.HighlightColTo = clWhite
      ButtonBevel.Width = 1
      FlashOptions = [foGlyph, foText, foTextCol, foBtnCol]
      CheckedOptions = [coGlyph, coText, coTextCol, coBtnCol, coBevel]
      ColorOff = clBtnFace
      ColorDisabled = 10526880
      ColorOn = clBtnFace
      OffsetX = 0
      OffsetY = 0
      OffsetDown = 1
      NumGlyph = 1
      Beveled = True
      Transparent = False
      Flat = True
      Spacing = 4
      TextOn = #36807#24080
      TextColOn = clRed
      TextColOff = clBlack
      TextColDisabled = clBtnShadow
      Text3D = True
      Frequency = ff1Hz
      Flashing = False
      GroupIndex = 0
      StatusBit = 0
      StatusInt = 0
      Checked = False
      Mode = mButton
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = btnGzClick
    end
    object edtStockNum: TRxCalcEdit
      Left = 99
      Top = 7
      Width = 107
      Height = 21
      AutoSize = False
      DecimalPlaces = 4
      DisplayFormat = ',0.####'
      NumGlyphs = 2
      TabOrder = 0
      ZeroEmpty = False
    end
    object edtStockZJ: TCurrencyEdit
      Left = 275
      Top = 7
      Width = 107
      Height = 21
      AutoSize = False
      DecimalPlaces = 4
      DisplayFormat = #65509',0.0000;-'#65509',0.0000'
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 242
    Width = 773
    Height = 178
    Align = alClient
    Color = 15263976
    DataSource = dsPyPk
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'Pd_Bill'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#21333#21495
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Pd_ClassNo'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#31867#21035
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mate_code'
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#32534#30721
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mate_name'
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#21517#31216
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mate_type'
        Title.Alignment = taCenter
        Title.Caption = #35268#26684#22411#21495
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Pd_ClassName'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#21517#31216
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'Pd_date'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#26085#26399
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_id'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#37096#38376
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'Dept_Name'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#37096#38376
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'Pd_Amount'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#25968
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Yk_Amount'
        Title.Alignment = taCenter
        Title.Caption = #30408#20111#25968
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Pd_Post'
        Title.Caption = #36807#24080#26631#24535
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pd_man'
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#20154
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Oper_id'
        Title.Alignment = taCenter
        Title.Caption = #21046#21333#20154
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Pd_Memo'
        Title.Alignment = taCenter
        Title.Caption = #25688#35201
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 150
        Visible = True
      end>
  end
  object dsPyPk: TDataSource
    DataSet = DM.qry_PyPk
    OnDataChange = dsPyPkDataChange
    Left = 24
    Top = 288
  end
  object ADOQuery_sql: TADOQuery
    Connection = DM.ADO_C
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.Pd_Bill,a.Pd_ClassNo,a.Pd_date,                     '
      '            a.mate_code,b.mate_name,b.mate_type,a.Dept_id,   '
      
        '               a.KfNo,a.KwNo,b.Stoc_Amount,a.Pd_Amount,a.Yk_Amou' +
        'nt,a.Pd_Post,a.pd_man,a.Oper_id,a.Pd_Memo   '
      
        '          from Mate_PyPk a                                      ' +
        '                   '
      
        '          left outer join mate_basic b on a.mate_code=b.mate_cod' +
        'e')
    Left = 72
    Top = 288
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -