upro.dfm

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

inherited fmpro: Tfmpro
  Left = 231
  Top = 108
  Caption = #29983#20135#24037#26102#21333
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited GridMas: TdxDBGrid
        Filter.Criteria = {00000000}
        object GridMasProNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ProNo'
        end
        object GridMasProDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ProDate'
        end
        object GridMasDeptname: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Deptname'
        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
        object Splitter1: TSplitter [0]
          Left = 297
          Top = 1
          Width = 24
          Height = 22
          Cursor = crDefault
          AutoSnap = False
          Beveled = True
          ResizeStyle = rsNone
        end
        inherited StatusTabSet: TTabSet
          Width = 296
          Align = alLeft
        end
        object TabControl1: TTabControl
          Left = 321
          Top = 1
          Width = 527
          Height = 22
          Align = alLeft
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #26032#32454#26126#20307
          Font.Style = []
          HotTrack = True
          MultiLine = True
          ParentFont = False
          TabOrder = 1
          TabPosition = tpBottom
          OnChange = TabControl1Change
        end
      end
      inherited PanelGrid: TPanel
        Height = 348
        inherited GridSub: TdxDBGrid
          Height = 348
          HeaderMinRowCount = 2
          Filter.Criteria = {00000000}
          object GridSubOrderNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
          end
          object GridSubMachineID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineID'
          end
          object GridSubMachineName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineName'
          end
          object GridSubActionID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ActionID'
          end
          object GridSubActionName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ActionName'
          end
          object GridSubEmployeeID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EmployeeID'
          end
          object GridSubReadyTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ReadyTime'
          end
          object GridSubStartTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'StartTime'
          end
          object GridSubEndTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EndTime'
          end
          object GridSubTotalTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'TotalTime'
          end
          object GridSubReserved1: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Reserved1'
          end
          object GridSubReserved2: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Reserved2'
          end
          object GridSubRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited PanelEnter: TPanel
        object Label1: TLabel
          Left = 7
          Top = 3
          Width = 24
          Height = 13
          Caption = #21333#21495
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 151
          Top = 3
          Width = 24
          Height = 13
          Caption = #26085#26399
        end
        object Label3: TLabel
          Left = 343
          Top = 3
          Width = 48
          Height = 13
          Caption = #29983#20135#32452#21035
          FocusControl = DBLookupComboBox1
        end
        object Label4: TLabel
          Left = 7
          Top = 43
          Width = 24
          Height = 13
          Caption = #22791#27880
          FocusControl = DBEdit3
        end
        object DBEdit1: TDBEdit
          Left = 7
          Top = 19
          Width = 124
          Height = 21
          CharCase = ecUpperCase
          DataField = 'ProNo'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 343
          Top = 19
          Width = 134
          Height = 21
          DataField = 'Deptname'
          DataSource = DSMas
          TabOrder = 2
        end
        object DBEdit3: TDBEdit
          Left = 7
          Top = 59
          Width = 470
          Height = 21
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 3
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 151
          Top = 19
          Width = 153
          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 = 'ProDate'
          DataSource = DSMas
          Date = 38598.000000000000000000
          Epoch = 1950
          ShowButton = True
          TabOrder = 1
        end
      end
      inherited PanelView: TPanel
        inherited GridEnter: TdxDBGrid
          HeaderMinRowCount = 2
          OnKeyPress = GridEnterKeyPress
          Filter.Criteria = {00000000}
          object GridEnterOrderNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterMachineID: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineID'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterMachineName: TdxDBGridMaskColumn
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineName'
          end
          object GridEnterActionID: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ActionID'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterActionName: TdxDBGridMaskColumn
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ActionName'
          end
          object GridEnterEmployeeID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EmployeeID'
          end
          object GridEnterReadyTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ReadyTime'
          end
          object GridEnterStartTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'StartTime'
          end
          object GridEnterEndTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EndTime'
          end
          object GridEnterTotalTime: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'TotalTime'
          end
          object GridEnterReserved1: TdxDBGridMaskColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Reserved1'
          end
          object GridEnterReserved2: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Reserved2'
          end
          object GridEnterRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
  end
  inherited DSMas: TDataSource
    DataSet = DMWIP.CProMas
  end
  inherited DSSub: TDataSource
    DataSet = DMWIP.CProSub
  end
  inherited Menu3: TPopupMenu
    object AutoApprove: TMenuItem
      Caption = #20445#23384#24460#33258#21160#25209#26680
      Checked = True
      OnClick = AutoApproveClick
    end
  end
end