ugoodsxs.dfm

delphi 源代码 界面上模仿了在2ccc.com网站发布的某一个程序.数据库为SQL2000。

inherited frmGoodsXs: TfrmGoodsXs
  Left = 5
  Width = 782
  Caption = #20135#21697#38144#21806
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Shape1: TShape
    Width = 774
  end
  inherited Image1: TImage
    Left = 25
  end
  inherited lbLittle: TLabel
    Left = 136
    Top = 14
    Width = 60
    Height = 14
    AutoSize = True
    WordWrap = False
  end
  inherited lbLittle1: TLabel
    Left = 246
    Top = 13
    Width = 449
    Height = 28
    Caption = 
      '(1)'#36755#20837#23458#25143#12289#20132#36135#26085#26399#12289#21333#21495#31561#21333#22836#20869#23481' (2)'#28857#20987'[+]'#36755#20837#20135#21697#32534#21495#24102#20986#20135#21697#20449#24687' (3)'#30830#23450#27491#30830#21518#28857#20987'['#20445#23384']'#36827#34892#20445#23384#65307#28857#20987'[' +
      #21462#28040']'#36827#34892#21462#28040#36755#20837#30340#21333#25454#12290
  end
  inherited ToolBar1: TToolBar
    Width = 774
    Height = 40
  end
  inherited Panel3: TPanel
    Top = 90
    Width = 774
    Height = 344
    BorderWidth = 6
    Color = clCaptionText
    inherited Panel4: TPanel
      Left = 6
      Top = 6
      Width = 762
      Height = 103
      Color = clCaptionText
      object Label1: TLabel
        Left = 2
        Top = 43
        Width = 60
        Height = 12
        Caption = #23458#21830#32534#21495#65306
      end
      object Label2: TLabel
        Left = 2
        Top = 73
        Width = 60
        Height = 12
        Caption = #23458#21830#21517#31216#65306
      end
      object Label4: TLabel
        Left = 573
        Top = 73
        Width = 60
        Height = 12
        Caption = #19979#21333#26085#26399#65306
      end
      object Label3: TLabel
        Left = 597
        Top = 43
        Width = 36
        Height = 12
        Caption = #21333#21495#65306
      end
      object Label5: TLabel
        Left = 336
        Top = 5
        Width = 60
        Height = 14
        Alignment = taCenter
        Caption = #26631#39064#35828#26126
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object cxDBButtonEdit1: TcxDBButtonEdit
        Left = 66
        Top = 38
        Width = 121
        Height = 20
        DataBinding.DataField = 'ccodeClient'
        DataBinding.DataSource = dsMaster
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = cxDBButtonEdit1PropertiesButtonClick
        Style.Edges = [bBottom]
        Style.ButtonStyle = btsFlat
        Style.ButtonTransparency = ebtHideUnselected
        TabOrder = 0
        OnKeyDown = cxDBButtonEdit1KeyDown
      end
      object cxDBButtonEdit2: TcxDBButtonEdit
        Left = 66
        Top = 69
        Width = 431
        Height = 20
        DataBinding.DataField = 'cNameClient'
        DataBinding.DataSource = dsMaster
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = cxDBButtonEdit2PropertiesButtonClick
        Style.Edges = [bBottom]
        Style.ButtonStyle = btsFlat
        Style.ButtonTransparency = ebtHideUnselected
        TabOrder = 1
        OnKeyDown = cxDBButtonEdit2KeyDown
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 639
        Top = 38
        Width = 121
        Height = 20
        DataBinding.DataField = 'cdh'
        DataBinding.DataSource = dsMaster
        Style.Edges = [bBottom]
        TabOrder = 2
        OnKeyDown = cxDBTextEdit1KeyDown
      end
      object cxDBDateEdit1: TcxDBDateEdit
        Left = 639
        Top = 69
        Width = 121
        Height = 20
        DataBinding.DataField = 'ddatePz'
        DataBinding.DataSource = dsMaster
        Style.Edges = [bBottom]
        Style.ButtonStyle = btsFlat
        Style.ButtonTransparency = ebtHideUnselected
        TabOrder = 3
        OnKeyDown = cxDBDateEdit1KeyDown
      end
    end
    inherited cxGrid4: TcxGrid
      Left = 6
      Top = 109
      Width = 762
      Height = 229
      BevelKind = bkNone
      LookAndFeel.Kind = lfFlat
      inherited GridItem: TcxGridDBTableView
        DataController.DataSource = dsItem
        DataController.Filter.Criteria = {FFFFFFFF0000000000}
        OptionsBehavior.AlwaysShowEditor = True
        object colCode: TcxGridDBColumn
          Caption = #20135#21697#32534#21495
          PropertiesClassName = 'TcxButtonEditProperties'
          Properties.Buttons = <
            item
              Default = True
              Kind = bkEllipsis
            end>
          Properties.OnButtonClick = colCodePropertiesButtonClick
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'IkeyCp'
        end
        object colName: TcxGridDBColumn
          Caption = #21697#31216#35268#26684
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'cname'
        end
        object colDw: TcxGridDBColumn
          Caption = #21333#20301
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'cdw'
        end
        object colSl: TcxGridDBColumn
          Caption = #25968#37327
          PropertiesClassName = 'TcxCalcEditProperties'
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'fsl'
        end
        object colDj: TcxGridDBColumn
          Caption = #21333#20215
          PropertiesClassName = 'TcxCurrencyEditProperties'
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'fdj'
        end
        object colJe: TcxGridDBColumn
          Caption = #37329#39069
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          Options.Filtering = False
          Options.Sorting = False
          DataBinding.FieldName = 'fje'
        end
        object colNil: TcxGridDBColumn
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderAlignmentVert = vaCenter
          HeaderGlyphAlignmentHorz = taCenter
          MinWidth = 12
          Options.Filtering = False
          Options.Focusing = False
          Options.Sorting = False
          Width = 12
        end
      end
    end
  end
  object StatusBar1: TStatusBar [6]
    Left = 0
    Top = 434
    Width = 774
    Height = 19
    Panels = <
      item
        Alignment = taRightJustify
        Bevel = pbNone
        Text = #24211#23384#25552#31034#65306
        Width = 80
      end
      item
        Width = 200
      end
      item
        Alignment = taRightJustify
        Bevel = pbNone
        Text = #38190#30424#25805#20316#35828#26126#65306
        Width = 100
      end
      item
        Text = 'F2 '#25110#65288'CTRL + ENTER'#65289'= '#26032#22686' F3 = '#20445#23384' F4 = '#21024#38500' F5 = '#21462#28040
        Width = 50
      end>
  end
  inherited cdItem: TClientDataSet
    Left = 720
    Top = 268
  end
  inherited cdMaster: TClientDataSet
    OnNewRecord = cdMasterNewRecord
    Left = 688
    Top = 268
  end
  inherited dsItem: TDataSource
    Left = 720
    Top = 239
  end
  inherited dsMaster: TDataSource
    Left = 688
    Top = 239
  end
end