uinvinitial.dfm

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

inherited fmInvInitial: TfmInvInitial
  Caption = #26399#21021#24211#23384#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited OptionPanel: TPanel
    Visible = True
    inherited PnlProject: TPanel
      Visible = False
    end
    inherited PnlDate: TPanel
      Visible = True
      inherited LbLStart: TLabel
        Caption = #23553#24080#26085#26399
      end
      inherited LblEnd: TLabel
        Visible = False
      end
      inherited DateTo: TwwDBDateTimePicker
        Visible = False
      end
      inherited DateFrm: TwwDBDateTimePicker
        Width = 92
        TabStop = False
        DataField = 'StartDate'
        DataSource = DataSource2
        Enabled = False
        ReadOnly = True
        DisplayFormat = 'YYYY'#24180'MM'#26376
      end
      object StaticText1: TStaticText
        Left = 157
        Top = 3
        Width = 50
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        BevelOuter = bvSpace
        BorderStyle = sbsSingle
        Caption = #23553#24080#21542'?'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Transparent = False
      end
    end
    inherited PnlSelect: TPanel
      Width = 275
      inherited dxBtnSelect: TdxButtonEdit
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  inherited PageControl: TPageControl
    inherited TabBrowse: TTabSheet
      inherited DBGrid1: TdxDBGrid
        KeyField = 'StockID'
        OnKeyDown = DBGrid1KeyDown
        Filter.Criteria = {00000000}
        OnCustomDrawCell = DBGrid1CustomDrawCell
        object DBGrid1StockName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'StockName'
        end
        object DBGrid1CategoryName: TdxDBGridMaskColumn
          ReadOnly = True
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CategoryName'
        end
        object DBGrid1PartNo: TdxDBGridButtonColumn
          CharCase = ecUpperCase
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PartNo'
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = DBGrid1PartNoButtonClick
        end
        object DBGrid1PartNameC: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'PartNameC'
        end
        object DBGrid1PartNameE: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'PartNameE'
        end
        object DBGrid1Model: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Model'
        end
        object DBGrid1Color: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Color'
        end
        object DBGrid1UnitID: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 1
          RowIndex = 0
          FieldName = 'UnitID'
        end
        object DBGrid1UnitName: TdxDBGridMaskColumn
          ReadOnly = True
          BandIndex = 1
          RowIndex = 0
          FieldName = 'UnitName'
        end
        object DBGrid1Qty: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Qty'
        end
        object DBGrid1Price: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Price'
        end
      end
    end
  end
  inherited ToolBar1: TToolBar
    inherited TBTemp: TToolButton
      DropdownMenu = Menu3
      Enabled = True
      ImageIndex = 14
      Visible = True
    end
  end
  inherited DataSource1: TDataSource
    DataSet = DMINV.CInvInitial
  end
  inherited SubAction: TActionList
    inherited AApprove: TAction
      Caption = #23553#24080
      OnExecute = AApproveExecute
    end
    inherited AConfirm: TAction
      Caption = #35299#24080
      OnExecute = AConfirmExecute
    end
  end
  object DataSource2: TDataSource [5]
    DataSet = DMSys.CSysConfig
    Left = 164
    Top = 150
  end
  inherited Menu3: TPopupMenu
    inherited Grid: TMenuItem
      OnClick = nil
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #35013#36733#25152#26377#40664#35748#29289#26009
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21024#38500#38646#24211#23384#30340#29289#26009
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #20445#23384#36164#26009
      OnClick = N5Click
    end
  end
end