untsalbilldispose.dfm

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

object FrmSaleBillDispose: TFrmSaleBillDispose
  Left = 201
  Top = 94
  Width = 823
  Height = 550
  Anchors = []
  BorderIcons = []
  Caption = #21830#21697#38144#21806#21333#27983#35272'/'#22788#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 191
    Top = 0
    Width = 6
    Height = 516
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel
    Left = 197
    Top = 0
    Width = 618
    Height = 516
    Align = alRight
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 1
      Top = 454
      Width = 616
      Height = 6
      Cursor = crVSplit
      Align = alBottom
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 616
      Height = 453
      Align = alClient
      Caption = 'Panel3'
      TabOrder = 0
      object Panel4: TPanel
        Left = 1
        Top = 1
        Width = 614
        Height = 451
        Align = alClient
        Caption = 'Panel4'
        TabOrder = 0
        object Splitter3: TSplitter
          Left = 1
          Top = 169
          Width = 612
          Height = 6
          Cursor = crVSplit
          Align = alTop
        end
        object PnlBrowse: TPanel
          Left = 1
          Top = 1
          Width = 612
          Height = 168
          Align = alTop
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object lblTitle: TLabel
            Left = 161
            Top = 13
            Width = 280
            Height = 26
            Alignment = taCenter
            AutoSize = False
            Caption = #26477#24030#24066#31918#39135#23616#21830#21697#38144#21806#21333
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -21
            Font.Name = #26999#20307'_GB2312'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Shape1: TShape
            Left = 7
            Top = 52
            Width = 594
            Height = 107
            Brush.Style = bsClear
            Pen.Color = clNavy
          end
          object LblManager: TLabel
            Left = 16
            Top = 134
            Width = 70
            Height = 14
            Caption = #26426#20851#20027#31649#65306
          end
          object LblUnitName: TLabel
            Left = 14
            Top = 98
            Width = 70
            Height = 14
            Caption = #21457#36135#21333#20301#65306
          end
          object lblQianfa: TLabel
            Left = 10
            Top = 63
            Width = 79
            Height = 14
            Alignment = taCenter
            AutoSize = False
            Caption = #22635#21457#26085#26399#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object DBTxtDateTime: TDBText
            Left = 110
            Top = 63
            Width = 100
            Height = 17
            DataField = 'DATETIME'
            DataSource = DataSourceMaster
          end
          object DBTxtSupplyer: TDBText
            Left = 107
            Top = 96
            Width = 174
            Height = 17
            DataField = 'UnitName'
            DataSource = DataSourceMaster
          end
          object LblClerk: TLabel
            Left = 312
            Top = 133
            Width = 56
            Height = 14
            Caption = #32463#21150#20154#65306
          end
          object LblCounterpart: TLabel
            Left = 311
            Top = 101
            Width = 70
            Height = 14
            Caption = #25552#36135#21333#20301#65306
          end
          object DBTxtReciever: TDBText
            Left = 408
            Top = 98
            Width = 108
            Height = 17
            DataField = 'RECIEVER'
            DataSource = DataSourceMaster
          end
          object DBTxtClerk: TDBText
            Left = 408
            Top = 132
            Width = 95
            Height = 17
            DataField = 'CLERK'
            DataSource = DataSourceMaster
          end
          object DBTxtSaleID: TDBText
            Left = 408
            Top = 62
            Width = 118
            Height = 17
            DataField = 'SALE_ID'
            DataSource = DataSourceMaster
          end
          object Label13: TLabel
            Left = 304
            Top = 63
            Width = 97
            Height = 17
            Alignment = taCenter
            AutoSize = False
            Caption = #38144#21806#21333#32534#21495#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object DBTxtManager: TDBText
            Left = 108
            Top = 132
            Width = 125
            Height = 17
            DataField = 'MANAGER'
            DataSource = DataSourceMaster
          end
          object Shape2: TShape
            Left = 7
            Top = 88
            Width = 594
            Height = 1
            Pen.Color = clNavy
          end
          object Shape3: TShape
            Left = 93
            Top = 51
            Width = 1
            Height = 107
            Pen.Color = clNavy
          end
          object Shape4: TShape
            Left = 8
            Top = 123
            Width = 593
            Height = 1
            Pen.Color = clNavy
          end
          object Shape5: TShape
            Left = 392
            Top = 53
            Width = 1
            Height = 106
            Pen.Color = clNavy
          end
          object Shape6: TShape
            Left = 295
            Top = 52
            Width = 1
            Height = 106
            Pen.Color = clNavy
          end
        end
        object PnlItemGrid: TPanel
          Left = 1
          Top = 175
          Width = 612
          Height = 275
          Align = alClient
          Caption = 'PnlItemGrid'
          TabOrder = 1
          object DBGridItem: TDBGrid
            Left = 1
            Top = 1
            Width = 610
            Height = 273
            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
            Columns = <
              item
                Expanded = False
                FieldName = 'SALEITEM_ID'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'SALE_ID'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'FOOD_TYPE'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'QUANTITY'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REMAIN'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'STATUS'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'MEMO'
                Visible = True
              end>
          end
        end
      end
    end
    object PnlBotn: TPanel
      Left = 1
      Top = 460
      Width = 616
      Height = 55
      Align = alBottom
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object btnInput: TBitBtn
        Left = 349
        Top = 11
        Width = 108
        Height = 30
        Caption = #36755#20837#20986#24211#21488#24080' &I'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        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 = 473
        Top = 11
        Width = 108
        Height = 30
        Caption = #36864#20986' &X'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = btnExitClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F0000007F7F7F0000007F7F7FFF
          FF007F7F7FFFFF00000000BFBFBF7F7F000000000000007F7F7FBFBFBF000000
          000000000000000000000000000000000000FFFF007F7F7F000000FFFFFF7F7F
          7F7F7F00000000000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
          0000000000000000000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF0000000000FF000000FFFF00FFFFFF00007F000000FFFFFF7F7F
          7F7F7F007F7F7F0000000000000000000000000000000000000000FF0000FF00