uselectdepotpartmove.dfm

天涯進銷存系統

      7400747474747474747474747474747474747474747474747400}
    OnClick = SysCloseButtonClick
    GlyphsTransparent = True
    Interval = 10
  end
  object WindowCaption: TLabel
    Left = 3
    Top = 9
    Width = 105
    Height = 14
    Caption = #36873#25321#37197#20214#31227#20179#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 432
    Top = 38
    Width = 60
    Height = 12
    Caption = #31227#33267#20179#24211#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Panel4: TPanel
    Left = 0
    Top = 30
    Width = 2
    Height = 351
    Align = alLeft
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel6: TPanel
    Left = 576
    Top = 30
    Width = 2
    Height = 351
    Align = alRight
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 0
    Top = 381
    Width = 578
    Height = 2
    Align = alBottom
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object BillCodeEdit: TLBEdit
    Left = 160
    Top = 35
    Width = 105
    Height = 18
    ParentColor = True
    TabOrder = 3
    OnChange = BillCodeEditChange
    OnKeyDown = BillCodeEditKeyDown
  end
  object OutDepotEdit: TLBComboBox
    Left = 334
    Top = 34
    Width = 89
    Height = 20
    ArrowColor = clBlack
    ButtonColor = 13741485
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 4
    ItemIndex = -1
    OnChange = BillCodeEditChange
    OnDropDown = OutDepotEditDropDown
    OnEnter = OutDepotEditDropDown
  end
  object DataDBGrid: TLBDBGrid
    Left = 10
    Top = 84
    Width = 559
    Height = 288
    BorderStyle = bsNone
    DataSource = dsSelectBillData
    GridlineColor = clBackground
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ShowScrollBars = False
    SelectRowColor = 16774127
    SelectRowFontColor = clHighlight
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = Action2Execute
    OnKeyDown = DataDBGridKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'BILLCODE'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OUTPUTDEPOTNAME'
        Width = 168
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPUTDEPOTNAME'
        Width = 151
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLDATE'
        Width = 100
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 9
    Top = 63
    Width = 561
    Height = 21
    BevelOuter = bvNone
    Color = 14581072
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    object Label17: TLabel
      Left = 3
      Top = 5
      Width = 24
      Height = 12
      Caption = #21333#21495
    end
    object Label21: TLabel
      Left = 122
      Top = 5
      Width = 48
      Height = 12
      Caption = #31227#20986#20179#24211
    end
    object Label4: TLabel
      Left = 293
      Top = 5
      Width = 48
      Height = 12
      Caption = #31227#33267#20179#24211
    end
    object Label5: TLabel
      Left = 443
      Top = 5
      Width = 48
      Height = 12
      Caption = #24320#21333#26085#26399
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 552
    Top = 83
    Width = 18
    Height = 290
    Color = 16774127
    LineColor = clBackground
    DownFontColor = clBlack
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Marlett'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    DataSource = sdsSelectBillData
  end
  object InDepotEdit: TLBComboBox
    Left = 488
    Top = 34
    Width = 81
    Height = 20
    ArrowColor = clBlack
    ButtonColor = 13741485
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 8
    ItemIndex = -1
    OnChange = BillCodeEditChange
    OnDropDown = InDepotEditDropDown
    OnEnter = InDepotEditDropDown
  end
  object dsSelectBillData: TDataSource
    DataSet = sdsSelectBillData
    Left = 376
    Top = 224
  end
  object ActionList1: TActionList
    Images = frmMain.ToolbarImageList
    Left = 408
    Top = 224
    object Action1: TAction
      Caption = #21047#26032
      ImageIndex = 4
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #36873#25321
      ImageIndex = 8
      OnExecute = Action2Execute
    end
  end
  object sdsSelectBillData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 
      'Select BillCode, DepotName, BillDate, isExecute '#13#10'     from Part' +
      'sInPutHand '
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 1000
    Params = <>
    OnCalcFields = sdsSelectBillDataCalcFields
    Left = 344
    Top = 224
    object StringField29: TStringField
      FieldName = 'BILLCODE'
      FixedChar = True
    end
    object SQLTimeStampField3: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object StringField33: TStringField
      FieldName = 'OUTPUTDEPOTNAME'
      FixedChar = True
      Size = 1
    end
    object sdsSelectBillDataDEPOTNAME: TStringField
      FieldName = 'INPUTDEPOTNAME'
      Size = 50
    end
  end
end