labh_t.dfm

一个以前收集的基于C/S架构的ERP客户端源代码

    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect, goThumbTracking]
    ParentCtl3D = False
    TabOrder = 5
    OnClick = sgLabhClick
    OnDblClick = sgLabhDblClick
    SelectColor = clActiveCaption
    OddGridColor = clWhite
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '员工编号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '加工单号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '所在工序代码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '工时'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '工时单价'
        ColumnWidth = 0
      end>
    ColWidths = (
      33
      101
      104
      103
      69
      70)
  end
  inherited sbBar: TStatusBar
    Top = 469
    Width = 657
  end
  inherited CoolBar1: TCoolBar
    Width = 657
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 657
      end>
    inherited tbMainBar: TToolBar
      Width = 644
    end
  end
  object FloatPanel1: TFloatPanel [4]
    Left = 0
    Top = 39
    Width = 657
    Height = 96
    Align = alTop
    Color = clWhite
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 21
      Top = 15
      Width = 54
      Height = 12
      Caption = '计时单号:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 462
      Top = 8
      Width = 30
      Height = 12
      Caption = '备注:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 229
      Top = 15
      Width = 54
      Height = 12
      Caption = '所在车间:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label28: TLabel
      Left = 21
      Top = 40
      Width = 54
      Height = 12
      Caption = '制单日期:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 21
      Top = 64
      Width = 54
      Height = 12
      Caption = '财务月份:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 229
      Top = 39
      Width = 54
      Height = 12
      Caption = '所属班组:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 229
      Top = 63
      Width = 30
      Height = 12
      Caption = '状态:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seLabhCode: TSDEdit
      Left = 79
      Top = 10
      Width = 134
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      Text = 'seLabhCode'
      OnKeyDown = seLabhCodeKeyDown
      SplitSymbol = ' | '
    end
    object memLabhDesc: TMemo
      Left = 463
      Top = 22
      Width = 176
      Height = 44
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        '')
      ParentCtl3D = False
      TabOrder = 5
    end
    object scLabhShop: TSDComboBox
      Left = 284
      Top = 8
      Width = 166
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 3
      Text = 'scLabhShop'
      KeyItem = cbItem2
    end
    object deLabhDate: TDateEdit
      Left = 79
      Top = 36
      Width = 87
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-05-14'
      InitDate = '2003-05-14 11:24:28'
      ModalResult = 0
      TabOrder = 1
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
    end
    object scLabhFmon: TSDComboBox
      Left = 79
      Top = 57
      Width = 88
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 2
      Text = 'scLabhFmon'
    end
    object scLabhState: TSDComboBox
      Left = 284
      Top = 56
      Width = 121
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 4
      KeyItem = cbItem2
    end
    object seLabhTeam: TSDEdit
      Left = 284
      Top = 34
      Width = 166
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 6
      Text = 'seLabhTeam'
      OnButtonClick = seLabhTeamButtonClick
      ButtonVisible = True
      KeyItem = cbItem2
      DispItem = cbItem1
      SplitSymbol = ' | '
    end
  end
  object FloatPanel3: TFloatPanel [5]
    Left = 0
    Top = 437
    Width = 657
    Height = 32
    Align = alBottom
    Color = clWhite
    Caption = 'FloatPanel3'
    ParentColor = False
    TabOrder = 3
    object labUserCode: TLabel
      Left = 589
      Top = 5
      Width = 48
      Height = 12
      Caption = 'UserCode'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label36: TLabel
      Left = 546
      Top = 5
      Width = 42
      Height = 12
      Caption = '制单人:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labChecker: TLabel
      Left = 484
      Top = 5
      Width = 42
      Height = 12
      Caption = 'Checker'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 441
      Top = 5
      Width = 42
      Height = 12
      Caption = '审核人:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labCheckDate: TLabel
      Left = 359
      Top = 5
      Width = 54
      Height = 12
      Caption = 'CheckDate'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 304
      Top = 5
      Width = 54
      Height = 12
      Caption = '审核日期:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object cheLabhCheck: TCheckBox
      Left = 230
      Top = 6
      Width = 52
      Height = 14
      TabStop = False
      Alignment = taLeftJustify
      Caption = '已审核'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 93
    Top = 369
  end
  inherited ImageList1: TImageList
    Left = 152
    Top = 369
  end
  inherited BillPrnSetupDlg: TPrinterSetupDialog
    Left = 535
    Top = 69
  end
  inherited pmDetail: TPopupMenu
    Left = 123
    Top = 369
  end
end