untsalbilldispose.dfm

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

          0000FFFF0000007F000000FFFFFF7F7F007F7F7F7F7F000000000000000000FF
          0000FF0000FF0000FF0000FF0000FF0000FF00000000007F000000FFFFFF7F7F
          7F0000007F7F7F0000000000000000FF0000FF0000FF0000FF0000FF0000FF00
          00FF00000000007F000000FFFFFF0000000000007F7F00000000000000000000
          0000000000000000000000FF0000FF000000FFFF0000007F000000FFFFFF7F7F
          000000007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF0000000000FF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F7F7F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF000000000000000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FF
          FF00FFFFFFFFFF00FFFFFF000000FFFFFF7F7F7F7F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
          00FFFFFF7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnFinished: TBitBtn
        Left = 225
        Top = 11
        Width = 108
        Height = 30
        Caption = #24050#20986#24211'  &F'
        TabOrder = 2
        OnClick = BitBtnFinishedClick
      end
    end
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 191
    Height = 516
    Align = alClient
    Caption = 'PnlLeft'
    TabOrder = 1
    object PageCtrlNoty: TPageControl
      Left = 1
      Top = 1
      Width = 189
      Height = 514
      ActivePage = tsAll
      Align = alClient
      TabIndex = 2
      TabOrder = 0
      TabPosition = tpBottom
      OnChange = PageCtrlNotyChange
      object tsUnfinished: TTabSheet
        Caption = #26410#20986#24211#30340#36890#30693
        object DBGrdMasterUnfinished: TDBGrid
          Left = 0
          Top = 0
          Width = 181
          Height = 488
          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 = 'SALE_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RECIEVER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATETIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OPERTER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UnitName'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
      object tsFinished: TTabSheet
        Caption = #24050#20986#24211#30340#36890#30693
        ImageIndex = 1
        object DBGrdMasterFinished: TDBGrid
          Left = 0
          Top = 0
          Width = 181
          Height = 488
          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 = 'SALE_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RECIEVER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATETIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OPERTER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UnitName'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
      object tsAll: TTabSheet
        Caption = #25152#26377#30340#36890#30693
        ImageIndex = 2
        object DBGridMasterAll: TDBGrid
          Left = 0
          Top = 0
          Width = 181
          Height = 488
          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 = DBGridMasterAllDrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'SALE_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RECIEVER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATETIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OPERTER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UnitName'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
    end
  end
  object TblSaleMaster: TTable
    Active = True
    DatabaseName = 'LYDB'
    IndexFieldNames = 'SALE_ID'
    TableName = 'dbo.ENT_SALE'
    Left = 16
    Top = 64
    object TblSaleMasterSALE_ID: TStringField
      DisplayLabel = #38144#21333#32534#21495
      FieldName = 'SALE_ID'
      Required = True
      Size = 12
    end
    object TblSaleMasterRECIEVER: TStringField
      DisplayLabel = #25552#36135#21333#20301
      FieldName = 'RECIEVER'
      Size = 50
    end
    object TblSaleMasterSTATUS: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'STATUS'
    end
    object TblSaleMasterMANAGER: TStringField
      DisplayLabel = #26426#20851#20027#31649
      FieldName = 'MANAGER'
      Size = 12
    end
    object TblSaleMasterCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Size = 12
    end
    object TblSaleMasterOPERTER: TStringField
      DisplayLabel = #25805#20316#20154
      FieldName = 'OPERTER'
      Size = 12
    end
    object TblSaleMasterMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 200
    end
    object TblSaleMasterUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
    end
    object TblSaleMasterDATETIME: TDateTimeField
      DisplayLabel = #22635#21457#26085#26399
      FieldName = 'DATETIME'
    end
    object TblSaleMasterUnitName: TStringField
      DisplayLabel = #21457#36135#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = TblUnit_info
      LookupKeyFields = 'UNIT_ID'
      LookupResultField = 'UNIT_NAME'
      KeyFields = 'UNIT_ID'
      Size = 100
      Lookup = True
    end
  end
  object DataSourceMaster: TDataSource
    DataSet = TblSaleMaster
    Left = 48
    Top = 64
  end
  object DataSourceItem: TDataSource
    DataSet = TblSaleItem
    Left = 240
    Top = 296
  end
  object TblSaleItem: TTable
    Active = True
    DatabaseName = 'LYDB'
    IndexFieldNames = 'SALE_ID'
    MasterFields = 'SALE_ID'
    MasterSource = DataSourceMaster
    TableName = 'dbo.ENT_SALE_ITEM'
    Left = 280
    Top = 296
    object TblSaleItemSALEITEM_ID: TStringField
      DisplayLabel = #38144#21333#32454#30446
      FieldName = 'SALEITEM_ID'
      Required = True
      Size = 12
    end
    object TblSaleItemSALE_ID: TStringField
      DisplayLabel = #38144#21333#32534#21495
      FieldName = 'SALE_ID'
      Required = True
      Size = 12
    end
    object TblSaleItemFOOD_TYPE: TStringField
      DisplayLabel = #21697#31181
      FieldName = 'FOOD_TYPE'
      Size = 12
    end
    object TblSaleItemQUANTITY: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'QUANTITY'
    end
    object TblSaleItemPRICE: TFloatField
      DisplayLabel = #20215#26684
      FieldName = 'PRICE'
    end
    object TblSaleItemREMAIN: TFloatField
      DisplayLabel = #26410#25552#37327
      FieldName = 'REMAIN'
    end
    object TblSaleItemSTATUS: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'STATUS'
    end
    object TblSaleItemMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 100
    end
  end
  object TblUnit_info: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 272
    Top = 8
  end
  object DataSourceUnit_info: TDataSource
    Left = 312
    Top = 8
  end
end