zjll.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 1,366 行 · 第 1/5 页

object Formzjll: TFormzjll
  Left = 27
  Top = -1
  Width = 758
  Height = 580
  Caption = '计件录入'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 40
    Width = 750
    Height = 513
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '计件录入'
      ImageIndex = 1
      object Splitter3: TSplitter
        Left = 0
        Top = 280
        Width = 742
        Height = 2
        Cursor = crVSplit
        Align = alBottom
      end
      object Splitter1: TSplitter
        Left = 0
        Top = 344
        Width = 742
        Height = 1
        Cursor = crVSplit
        Align = alBottom
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 345
        Width = 742
        Height = 140
        Align = alBottom
        DataSource = DataMod.Dspieman
        ImeName = '万能五笔2000a+'
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'rq'
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'prof'
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 143
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'money'
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 282
        Width = 742
        Height = 62
        Align = alBottom
        BevelInner = bvLowered
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 11
          Width = 26
          Height = 13
          Caption = '日期'
        end
        object Label2: TLabel
          Left = 142
          Top = 11
          Width = 26
          Height = 13
          Caption = '编号'
          FocusControl = DBEdit2
        end
        object Label14: TLabel
          Left = 399
          Top = 11
          Width = 39
          Height = 13
          Caption = '工序号'
        end
        object Label3: TLabel
          Left = 399
          Top = 38
          Width = 26
          Height = 13
          Caption = '单价'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 10
          Top = 37
          Width = 26
          Height = 13
          Caption = '部门'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 259
          Top = 11
          Width = 39
          Height = 13
          Caption = '订单号'
        end
        object Label9: TLabel
          Left = 526
          Top = 11
          Width = 52
          Height = 13
          Caption = '交回日期'
        end
        object Label10: TLabel
          Left = 168
          Top = 36
          Width = 26
          Height = 13
          Caption = '人数'
        end
        object Label11: TLabel
          Left = 527
          Top = 37
          Width = 52
          Height = 13
          Caption = '计件工资'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 262
          Top = 36
          Width = 52
          Height = 13
          Caption = '交回数量'
        end
        object DBEdit2: TDBEdit
          Left = 172
          Top = 7
          Width = 84
          Height = 21
          DataField = 'id'
          DataSource = DataMod.Dszjll
          ImeName = '万能五笔2000a+'
          TabOrder = 1
        end
        object goodsid: TwwDBLookupCombo
          Left = 444
          Top = 7
          Width = 79
          Height = 21
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'goodsid'#9'20'#9'序号'#9'F'
            'goodsname'#9'30'#9'工序名'#9'F')
          DataField = 'goodsid'
          DataSource = DataMod.Dszjll
          LookupTable = adogoodsid
          LookupField = 'goodsid'
          Options = [loColLines, loTitles]
          TabOrder = 3
          AutoDropDown = True
          ShowButton = True
          SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
          AllowClearKey = False
        end
        object dept: TwwDBLookupCombo
          Left = 40
          Top = 33
          Width = 126
          Height = 21
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'dno'#9'8'#9'部门编号'#9'F'
            'dept'#9'80'#9'部门名称'#9'F')
          DataField = 'redept'
          DataSource = DataMod.Dszjll
          LookupTable = ADOdept
          LookupField = 'dept'
          Options = [loColLines, loTitles]
          TabOrder = 6
          AutoDropDown = True
          ShowButton = True
          AllowClearKey = False
        end
        object DBEdit1: TDBEdit
          Left = 40
          Top = 7
          Width = 96
          Height = 21
          DataField = 'rq'
          DataSource = DataMod.Dszjll
          ImeName = '万能五笔2000a+'
          MaxLength = 10
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Left = 435
          Top = 33
          Width = 88
          Height = 21
          Color = clSilver
          DataField = 'prices'
          DataSource = DataMod.Dszjll
          ImeName = '万能五笔2000a+'
          ReadOnly = True