uinout.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

inherited fmInOut: TfmInOut
  Left = 188
  Top = 113
  Width = 594
  Height = 397
  Caption = #20986#20837#24211#22788#29702
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl: TPageControl
    Width = 586
    Height = 286
    ActivePage = Tabbrowse
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Width = 578
      end
      inherited GridMas: TdxDBGrid
        Width = 578
        Filter.Criteria = {00000000}
        object GridMasInOutNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'InOutNo'
        end
        object GridMasStockName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'StockName'
        end
        object GridMasInOutDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'InOutDate'
        end
        object GridMasStatus: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Status'
        end
        object GridMasVendorID: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'VendorID'
        end
        object GridMasVendorName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'VendorName'
        end
        object GridMasPONo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PONo'
        end
        object GridMasDeptID: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'DeptID'
        end
        object GridMasDeptName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'DeptName'
        end
        object GridMasHandler: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Handler'
        end
        object GridMasRemark: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Remark'
        end
        object GridMasCreater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Creater'
        end
        object GridMasCreateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CreateDate'
        end
        object GridMasUpdater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Updater'
        end
        object GridMasUpdateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UpdateDate'
        end
        object GridMasApprover: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Approver'
        end
        object GridMasApproveDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ApproveDate'
        end
        object GridMasConfirmer: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Confirmer'
        end
        object GridMasConfirmDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ConfirmDate'
        end
      end
      inherited PanelButtom: TPanel
        Top = 230
        Width = 578
        object Splitter1: TSplitter [0]
          Left = 251
          Top = 1
          Width = 24
          Height = 22
          Cursor = crDefault
          AutoSnap = False
          Beveled = True
          ResizeStyle = rsNone
        end
        inherited StatusTabSet: TTabSet
          Width = 250
          Align = alLeft
          Constraints.MinWidth = 250
          Font.Name = #26032#32454#26126#20307
        end
        object TypeTabSet: TTabSet
          Left = 275
          Top = 1
          Width = 302
          Height = 22
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          SelectedColor = clYellow
          Tabs.Strings = (
            #20837#24211#21333
            #39046#26009#21333
            #34917#39046#21333
            #36864#26009#21333
            #36864#36135#21333
            #25253#24223#21333)
          TabIndex = 0
          OnChange = TypeTabSetChange
        end
      end
      inherited PanelGrid: TPanel
        Width = 578
        inherited GridSub: TdxDBGrid
          Width = 578
          Filter.Criteria = {00000000}
          object GridSubOrderNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
          end
          object GridSubPartNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
          end
          object GridSubPartNameC: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridSubPartNameE: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridSubModel: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridSubColor: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridSubUnitID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitID'
          end
          object GridSubUnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridSubQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridSubPrice: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Price'
          end
          object GridSubRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited PanelEnter: TPanel
        Width = 578
        Height = 143
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 24
          Height = 13
          Caption = #20179#24211
          FocusControl = DBLookupComboBox1
        end
        object Label2: TLabel
          Left = 168
          Top = 8
          Width = 24
          Height = 13
          Caption = #21333#21495
          FocusControl = DBEdit1
        end
        object Label3: TLabel
          Left = 312
          Top = 8
          Width = 24
          Height = 13
          Caption = #26085#26399
        end
        object Label6: TLabel
          Left = 8
          Top = 96
          Width = 36
          Height = 13
          Caption = #32463#25163#20154
        end
        object Label7: TLabel
          Left = 168
          Top = 96
          Width = 24
          Height = 13
          Caption = #22791#27880
          FocusControl = DBEdit4
        end
        object Panel3: TPanel
          Left = 3
          Top = 47
          Width = 600
          Height = 45
          BevelOuter = bvNone
          TabOrder = 4
          object Label5: TLabel
            Left = 6
            Top = 5
            Width = 24
            Height = 13
            Caption = #37096#38376
            FocusControl = DBLookupComboBox3
          end
          object DBLookupComboBox3: TDBLookupComboBox
            Left = 7
            Top = 21
            Width = 134
            Height = 21
            DataField = 'DeptName'
            DataSource = DSMas
            TabOrder = 0
          end
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 8
          Top = 24
          Width = 134
          Height = 21
          DataField = 'StockName'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBEdit1: TDBEdit
          Left = 168
          Top = 24
          Width = 124
          Height = 21
          CharCase = ecUpperCase
          DataField = 'InOutNo'
          DataSource = DSMas
          TabOrder = 1
        end
        object DBEdit4: TDBEdit
          Left = 168
          Top = 112
          Width = 265
          Height = 21
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 6
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 312
          Top = 24
          Width = 122
          Height = 21
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          DataField = 'InOutDate'
          DataSource = DSMas
          Date = 38599.000000000000000000
          Epoch = 1950
          ShowButton = True
          TabOrder = 2
          UnboundDataType = wwDTEdtDate
        end
        object Panel1: TPanel
          Left = 3
          Top = 47
          Width = 600
          Height = 45
          BevelOuter = bvNone
          TabOrder = 3
          object Label4: TLabel
            Left = 5
            Top = 6
            Width = 36
            Height = 13
            Caption = #20379#24212#21830
          end
          object Label10: TLabel
            Left = 164
            Top = 6
            Width = 27
            Height = 13
            Caption = 'PO'#21495
          end
          object dxDBButtonEdit1: TdxDBButtonEdit
            Left = 5
            Top = 20
            Width = 133
            TabOrder = 0
            DataField = 'VendorName'
            DataSource = DSMas
            Buttons = <
              item
                Default = True
              end>
            ExistButtons = True
          end
          object dxDBButtonEdit2: TdxDBButtonEdit
            Left = 164
            Top = 20
            Width = 126
            Hint = #20174#21487#20379#36873#25321#30340#37319#36141#21333#28165#21333#20013#33258#21160#25552#21462#26410#39564#25910#29289#26009#39033','#22914#37319#36141#21333#24050#20840#37096#39564#25910#23436#27605#21017#36820#22238#20026#31354'.'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnExit = dxDBButtonEdit2Exit
            CharCase = ecUpperCase
            DataField = 'PONo'
            DataSource = DSMas
            Buttons = <
              item
                Default = True
              end>
            OnButtonClick = dxDBButtonEdit2ButtonClick
            ExistButtons = True
          end
        end
        object dxDBButtonEdit3: TdxDBButtonEdit
          Left = 8
          Top = 112
          Width = 134
          TabOrder = 5
          DataField = 'Handler'
          DataSource = DSMas
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = dxDBButtonEdit3ButtonClick
          ExistButtons = True
        end
      end
      inherited PanelView: TPanel
        Top = 143
        Width = 578
        Height = 111
        inherited GridEnter: TdxDBGrid
          Width = 578
          Height = 111
          Filter.Criteria = {00000000}
          object GridEnterOrderNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterPartNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterPartNameC: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridEnterPartNameE: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridEnterModel: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridEnterColor: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridEnterUnitID: TdxDBGridMaskColumn
            DisableEditor = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'UnitID'
          end
          object GridEnterUnitName: TdxDBGridMaskColumn
            DisableEditor = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridEnterQty: TdxDBGridCalcColumn
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridEnterPrice: TdxDBGridCalcColumn
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Price'
          end
          object GridEnterRemark: TdxDBGridMaskColumn
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 586
    inherited TBBlank3: TToolButton
      Left = 379
      Wrap = False
    end
    inherited TBFirst: TToolButton
      Left = 387
      Top = 0
    end
    inherited TBLast: TToolButton
      Left = 434
      Top = 0
    end
    inherited TBBlank4: TToolButton
      Left = 0
      Top = 0
      Wrap = True
    end
    inherited TBAdd: TToolButton
      Left = 0
    end
    inherited TBEdit: TToolButton
      Left = 48
    end
    inherited TBDelete: TToolButton
      Left = 83
    end
    inherited TBSave: TToolButton
      Left = 118
    end
    inherited TBCancel: TToolButton
      Left = 166
    end
    inherited TBBlank5: TToolButton
      Left = 201
    end
    inherited TBClose: TToolButton
      Left = 207
    end
    inherited TBHelp: TToolButton
      Left = 242
    end
  end
  inherited DSMas: TDataSource
    DataSet = DMINV.CInOutMas
  end
  inherited DSSub: TDataSource
    DataSet = DMINV.CInOutSub
  end
end