unttransfernotydispose.dfm

是分布式粮库程序,是采用Delphi实现的

          object LblVTotal: TLabel
            Left = 64
            Top = 146
            Width = 54
            Height = 12
            Caption = 'LblVTotal'
          end
          object LblPrice: TLabel
            Left = 180
            Top = 146
            Width = 162
            Height = 12
            Caption = #20215#26684#65306'              '#20803'/'#30334#26020
          end
          object LblVPrice: TLabel
            Left = 222
            Top = 145
            Width = 54
            Height = 12
            Caption = 'LblVPrice'
          end
          object LblSum: TLabel
            Left = 406
            Top = 145
            Width = 126
            Height = 12
            Caption = #37329#39069#65306'             '#20803
          end
          object LblVSum: TLabel
            Left = 443
            Top = 145
            Width = 42
            Height = 12
            Caption = 'LblVSum'
          end
          object Label2: TLabel
            Left = 307
            Top = 88
            Width = 12
            Height = 12
            Caption = #33267
          end
          object DBTextBusinessType: TDBText
            Left = 80
            Top = 114
            Width = 65
            Height = 17
            DataField = 'business_type'
            DataSource = DataSourceItem
          end
        end
        object PnlItemGrid: TPanel
          Left = 1
          Top = 209
          Width = 567
          Height = 299
          Align = alClient
          Caption = 'PnlItemGrid'
          TabOrder = 1
          object DBGridItem: TDBGrid
            Left = 1
            Top = 1
            Width = 565
            Height = 297
            Align = alClient
            DataSource = DataSourceItem
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDrawColumnCell = DBGridItemDrawColumnCell
          end
        end
      end
    end
    object PnlBotn: TPanel
      Left = 1
      Top = 520
      Width = 571
      Height = 53
      Align = alBottom
      TabOrder = 1
      object btnOut: TBitBtn
        Left = 312
        Top = 5
        Width = 93
        Height = 31
        Caption = #29983#25104#31227#24211#21333' &I'
        TabOrder = 0
        OnClick = btnOutClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
      end
      object btnExit: TBitBtn
        Left = 448
        Top = 5
        Width = 83
        Height = 31
        Caption = #36864#20986' &X'
        TabOrder = 1
        OnClick = btnExitClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F0000007F7F7F0000007F7F7FFF
          FF007F7F7FFFFF00000000BFBFBF7F7F000000000000007F7F7FBFBFBF000000
          000000000000000000000000000000000000FFFF007F7F7F000000FFFFFF7F7F
          7F7F7F00000000000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
          0000000000000000000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF0000000000FF000000FFFF00FFFFFF00007F000000FFFFFF7F7F
          7F7F7F007F7F7F0000000000000000000000000000000000000000FF0000FF00
          0000FFFF0000007F000000FFFFFF7F7F007F7F7F7F7F000000000000000000FF
          0000FF0000FF0000FF0000FF0000FF0000FF00000000007F000000FFFFFF7F7F
          7F0000007F7F7F0000000000000000FF0000FF0000FF0000FF0000FF0000FF00
          00FF00000000007F000000FFFFFF0000000000007F7F00000000000000000000
          0000000000000000000000FF0000FF000000FFFF0000007F000000FFFFFF7F7F
          000000007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF0000000000FF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F7F7F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF000000000000000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FF
          FF00FFFFFFFFFF00FFFFFF000000FFFFFF7F7F7F7F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
          00FFFFFF7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnFinished: TBitBtn
        Left = 180
        Top = 7
        Width = 77
        Height = 31
        Caption = #24050#22788#29702'  &F'
        TabOrder = 2
        OnClick = BitBtnFinishedClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF777777777777FFFF7FFFFFFFFFF7FFFF7FFF0FFFFF
          F7FFFF7FF000FFFFF7FFFF7F00000FFFF7FFFF7F00F000FFF7FFFF7F0FFF000F
          F7FFFF7FFFFFF000F7FFFF7FFFFFFF00F7FFFF7FFFFFFFF0F7FFFF7FFFFFFFFF
          F7FFFF777777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      end
    end
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 252
    Height = 574
    Align = alClient
    Caption = 'PnlLeft'
    TabOrder = 1
    object PageCtrlNoty: TPageControl
      Left = 1
      Top = 1
      Width = 250
      Height = 572
      ActivePage = tsAllNoty
      Align = alClient
      TabIndex = 2
      TabOrder = 0
      TabPosition = tpBottom
      OnChange = PageCtrlNotyChange
      object tsUnfinished: TTabSheet
        Caption = #26410#22788#29702#30340#36890#30693
        object DBGrdMasterUnfinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 546
          Align = alClient
          DataSource = DataSourceMaster
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrdMasterUnfinishedDrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'AUTHORITY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLAN_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_TYPE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COUNTERPART'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SIGN_DATE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'START_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FINISH_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'INPUT_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
      object tsFinished: TTabSheet
        Caption = #24050#22788#29702#30340#36890#30693
        ImageIndex = 1
        object DBGrdMasterFinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 546
          Align = alClient
          DataSource = DataSourceMaster
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'AUTHORITY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLAN_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_TYPE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COUNTERPART'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SIGN_DATE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'START_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FINISH_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'INPUT_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
      object tsAllNoty: TTabSheet
        Caption = #25152#26377#30340#36890#30693