uselectaccept.dfm

天涯進銷存系統

      4B4B605E294D3A01740074740102010101010101010101010101010101010174
      7400747474747474747474747474747474747474747474747400}
    OnClick = SysCloseButtonClick
    GlyphsTransparent = True
    Interval = 10
  end
  object WindowCaption: TLabel
    Left = 3
    Top = 9
    Width = 75
    Height = 14
    Caption = #36873#25321#25910#27454#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 = 464
    Top = 38
    Width = 36
    Height = 12
    Caption = #31867#21035#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 = 352
    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 = 584
    Top = 30
    Width = 2
    Height = 352
    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 = 382
    Width = 586
    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 DataDBGrid: TLBDBGrid
    Left = 10
    Top = 84
    Width = 568
    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 = 4
    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 = 'OTHERUNITNAME'
        Width = 245
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLDATE'
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLMODEL'
        Width = 84
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 9
    Top = 63
    Width = 570
    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 = 5
    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 = #23545#26041#21333#20301
    end
    object Label4: TLabel
      Left = 365
      Top = 5
      Width = 24
      Height = 12
      Caption = #26085#26399
    end
    object Label5: TLabel
      Left = 467
      Top = 5
      Width = 24
      Height = 12
      Caption = #31867#21035
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 561
    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 = 6
    DataSource = sdsSelectBillData
  end
  object OpposingNameEdit: TLBEdit
    Left = 328
    Top = 35
    Width = 129
    Height = 18
    ParentColor = True
    TabOrder = 7
    OnChange = BillCodeEditChange
    OnKeyDown = BillCodeEditKeyDown
  end
  object PayMentTypeEdit: TLBComboBox
    Left = 497
    Top = 34
    Width = 81
    Height = 20
    ArrowColor = clBlack
    ButtonColor = 13741485
    ButStyle = cbsXp
    ItemHeight = 12
    Items.Strings = (
      #38144#21806#25910#27454
      #37319#36141#36864#36135#25910#27454
      #39044#25910#27454
      #20869#37096#35843#20986#25910#27454)
    TabOrder = 8
    ItemIndex = -1
    OnChange = BillCodeEditChange
  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 = <>
    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 = 'BILLMODEL'
      FixedChar = True
      Size = 1
    end
    object sdsSelectBillDataDEPOTNAME: TStringField
      FieldName = 'OTHERUNITNAME'
      FixedChar = True
      Size = 50
    end
  end
end