untinnotydispose.dfm

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

            Width = 58
            Height = 16
            DataField = 'START_TIME'
            DataSource = DataSourceMaster
          end
          object LblSNTime: TLabel
            Left = 183
            Top = 89
            Width = 60
            Height = 12
            Caption = #36215#35755#26102#38388#65306
          end
          object DBTxtUnitName: TDBText
            Left = 79
            Top = 60
            Width = 202
            Height = 16
            DataField = 'UnitName'
            DataSource = DataSourceMaster
          end
          object LblUnitName: TLabel
            Left = 13
            Top = 61
            Width = 60
            Height = 12
            Caption = #20837#24211#21333#20301#65306
          end
          object LblCounterpart: TLabel
            Left = 296
            Top = 60
            Width = 60
            Height = 12
            Caption = #20379#36135#21333#20301#65306
          end
          object DBTxtCounterpart: TDBText
            Left = 361
            Top = 60
            Width = 61
            Height = 16
            DataField = 'COUNTERPART'
            DataSource = DataSourceMaster
          end
          object LblSettlement: TLabel
            Left = 406
            Top = 88
            Width = 60
            Height = 12
            Caption = #32467#31639#26041#24335#65306
          end
          object LblVSettlement: TLabel
            Left = 468
            Top = 87
            Width = 84
            Height = 12
            Caption = 'LblVSettlement'
          end
        end
        object PnlItemGrid: TPanel
          Left = 1
          Top = 209
          Width = 567
          Height = 306
          Align = alClient
          Caption = 'PnlItemGrid'
          TabOrder = 1
          object DBGridItem: TDBGrid
            Left = 1
            Top = 1
            Width = 565
            Height = 304
            Align = alClient
            DataSource = DataSourceItem
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            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 = 527
      Width = 571
      Height = 51
      Align = alBottom
      TabOrder = 1
      object btnInput: TBitBtn
        Left = 297
        Top = 10
        Width = 119
        Height = 29
        Caption = #36755#20837#36827#36135#21488#24080' &I'
        TabOrder = 0
        OnClick = btnInputClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
      end
      object btnExit: TBitBtn
        Left = 438
        Top = 10
        Width = 119
        Height = 29
        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 = 156
        Top = 10
        Width = 119
        Height = 29
        Caption = #24050#20837#24211'  &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 = 579
    Align = alClient
    Caption = 'PnlLeft'
    TabOrder = 1
    object PageCtrlNoty: TPageControl
      Left = 1
      Top = 1
      Width = 250
      Height = 577
      ActivePage = tsUnfinished
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      TabPosition = tpBottom
      OnChange = PageCtrlNotyChange
      object tsUnfinished: TTabSheet
        Caption = #26410#20837#24211#30340#36890#30693
        object DBGrdMasterUnfinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 551
          Align = alClient
          DataSource = DataSourceMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          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 = '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#20837#24211#30340#36890#30693
        ImageIndex = 1
        object DBGrdMasterFinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 551
          Align = alClient
          DataSource = DataSourceMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          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 = '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