dfm_imdata.dfm

仓库管理系统 仓库管理系统

object dfmimdata: Tdfmimdata
  Left = 181
  Top = 265
  Width = 437
  Height = 260
  Caption = '导入销售数据'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 214
    Width = 429
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 429
    Height = 41
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 24
      Height = 12
      Caption = '店号'
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 64
      Top = 8
      Width = 145
      Height = 20
      KeyField = 'lcstor'
      ListField = 'lcstor'
      ListSource = DataSource2
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 240
      Top = 6
      Width = 75
      Height = 25
      Caption = '导入'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 328
      Top = 6
      Width = 75
      Height = 25
      Caption = '预览'
      TabOrder = 2
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 429
    Height = 173
    Align = alClient
    DataSource = dstempsale
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'SASTOR'
        Title.Caption = '店号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SADATE'
        Title.Caption = '日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SASKU'
        Title.Caption = '条码'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SAQTY'
        Title.Caption = '数量'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALPRC'
        Title.Caption = '价格'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SASAL'
        Title.Caption = '金额'
        Visible = True
      end>
  end
  object dstempsale: TDataSource
    DataSet = tbltempsale
    Left = 32
    Top = 64
  end
  object tbltempsale: TTable
    DatabaseName = 'indb'
    TableName = 'w01sale.dbf'
    Left = 64
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 112
    Top = 64
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'atoa'
    IndexFieldNames = 'lcstor'
    TableName = 'dbo.posloca'
    Left = 144
    Top = 64
  end
  object Query1: TQuery
    DatabaseName = 'atoa'
    SQL.Strings = (
      'UPDATE tbltempsale'
      'SET SASTOR = '#39'w02'#39)
    Left = 192
    Top = 64
  end
  object BatchMove1: TBatchMove
    Destination = tbltpostemp
    Mode = batCopy
    Source = tbltempsale
    Left = 232
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = tbltpostemp
    Left = 288
    Top = 64
  end
  object tbltpostemp: TTable
    DatabaseName = 'atoa'
    TableName = 'dbo.postemp'
    Left = 320
    Top = 64
  end
  object Query2: TQuery
    DatabaseName = 'atoa'
    SQL.Strings = (
      'update postemp'
      'set sastor=:vstor')
    Left = 360
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'vstor'
        ParamType = ptUnknown
      end>
  end
end