uselectsotckorder.dfm

天涯進銷存系統

    Top = 83
    Width = 552
    Height = 298
    Pen.Color = clBackground
  end
  object WindowCaption: TLabel
    Left = 3
    Top = 9
    Width = 76
    Height = 14
    Caption = #36873#25321#35746#36135#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Panel4: TPanel
    Left = 0
    Top = 30
    Width = 2
    Height = 358
    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 = 568
    Top = 30
    Width = 2
    Height = 358
    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 = 388
    Width = 570
    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 NameEdit: TLBEdit
    Left = 328
    Top = 35
    Width = 129
    Height = 18
    ParentColor = True
    TabOrder = 4
    Text = 'LBEdit1'
    OnChange = BillCodeEditChange
    OnKeyDown = NameEditKeyDown
  end
  object StateEdit: TLBComboBox
    Left = 504
    Top = 34
    Width = 57
    Height = 20
    ArrowColor = clBlack
    ButtonColor = 13741485
    ButStyle = cbsXp
    ItemHeight = 12
    Items.Strings = (
      #24050#25910#36135
      #26410#25910#36135)
    TabOrder = 5
    ItemIndex = -1
    OnChange = BillCodeEditChange
    OnKeyDown = NameEditKeyDown
  end
  object DataDBGrid: TLBDBGrid
    Left = 10
    Top = 84
    Width = 534
    Height = 296
    BorderStyle = bsNone
    DataSource = dsSelectBillData
    GridlineColor = clBackground
    Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ShowScrollBars = False
    SelectRowColor = 14540253
    SelectRowFontColor = clHighlight
    TabOrder = 6
    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 = 'PROVIDERNAME'
        Width = 171
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLDATE'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPUTTYPE'
        Width = 96
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STATE'
        Width = 42
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 9
    Top = 63
    Width = 552
    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 = 7
    object Label17: TLabel
      Left = 3
      Top = 5
      Width = 48
      Height = 12
      Caption = #20837#24211#21333#21495
    end
    object Label21: TLabel
      Left = 122
      Top = 5
      Width = 60
      Height = 12
      Caption = #20379#24212#21830#21517#31216
    end
    object Label4: TLabel
      Left = 293
      Top = 5
      Width = 48
      Height = 12
      Caption = #20837#24211#26085#26399
    end
    object Label7: TLabel
      Left = 395
      Top = 5
      Width = 48
      Height = 12
      Caption = #20837#24211#31867#21035
    end
    object Label5: TLabel
      Left = 491
      Top = 5
      Width = 24
      Height = 12
      Caption = #29366#24577
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 543
    Top = 83
    Width = 18
    Height = 298
    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 = 8
    DataSource = dmData.sdsSelectClient
  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, ProviderCode, ProviderName, BillDate, InPutType' +
      ', '#13#10'isExecute From PartsInPutHand'#13#10
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    OnCalcFields = sdsSelectBillDataCalcFields
    Left = 344
    Top = 224
    object sdsSelectBillDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
      FixedChar = True
    end
    object sdsSelectBillDataPROVIDERCODE: TStringField
      FieldName = 'PROVIDERCODE'
      Size = 50
    end
    object sdsSelectBillDataPROVIDERNAME: TStringField
      FieldName = 'PROVIDERNAME'
      Size = 100
    end
    object sdsSelectBillDataBILLDATE: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object sdsSelectBillDataINPUTTYPE: TStringField
      FieldName = 'INPUTTYPE'
      FixedChar = True
      Size = 1
    end
    object sdsSelectBillDataISEXECUTE: TStringField
      FieldName = 'ISEXECUTE'
      FixedChar = True
      Size = 1
    end
    object sdsSelectBillDataState: TStringField
      FieldKind = fkCalculated
      FieldName = 'STATE'
      Size = 10
      Calculated = True
    end
  end
  object dsSelectBillData: TDataSource
    DataSet = sdsSelectBillData
    Left = 376
    Top = 224
  end
end