dingdan.dfm

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

object Formdingdan: TFormdingdan
  Left = 161
  Top = 122
  Width = 544
  Height = 375
  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
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 40
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 67
    Caption = 'ToolBar1'
    Images = ImageList2
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = '资料库维护'
      ImageIndex = 47
    end
    object ToolButton5: TToolButton
      Left = 67
      Top = 2
      AutoSize = True
      Caption = '刷新'
      ImageIndex = 4
    end
    object tbnsort: TToolButton
      Left = 102
      Top = 2
      Hint = '设定多栏位排序'
      AutoSize = True
      Caption = '排序'
      ImageIndex = 19
      ParentShowHint = False
      ShowHint = True
    end
    object tbnfind: TToolButton
      Left = 137
      Top = 2
      Hint = '根据条件查询您要的记录'
      AutoSize = True
      Caption = '查找'
      ImageIndex = 20
      ParentShowHint = False
      ShowHint = True
    end
    object tbnprint: TToolButton
      Left = 172
      Top = 2
      Hint = '打印'
      AutoSize = True
      Caption = '打印'
      ImageIndex = 24
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton4: TToolButton
      Left = 207
      Top = 2
      Hint = '退出'
      AutoSize = True
      Caption = '退出'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
    object DBNavigator1: TDBNavigator
      Left = 242
      Top = 2
      Width = 240
      Height = 36
      DataSource = DataMod.Dsdingdan
      Hints.Strings = (
        '到第一条记录'
        '移到上一条记录'
        '移到下一条记录'
        '移到最后一条记录'
        '插入一条记录'
        '删除一条记录'
        '修改当前记录 '
        '确定修改或新增的记录'
        '取消前一次操作'
        '重新显示当前记录中的数据')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 40
    Width = 536
    Height = 308
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = '定单资料'
      object Splitter1: TSplitter
        Left = 0
        Top = 216
        Width = 528
        Height = 2
        Cursor = crVSplit
        Align = alBottom
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 528
        Height = 33
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 0
        object Label18: TLabel
          Left = 24
          Top = 10
          Width = 118
          Height = 13
          Caption = '序号/工序名/建档人'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 149
          Top = 6
          Width = 148
          Height = 21
          ImeName = '万能五笔2000a+'
          TabOrder = 0
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 33
        Width = 528
        Height = 183
        Align = alClient
        DataSource = DataMod.Dsdingdan
        ImeName = '万能五笔2000a+'
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ddid'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ddname'
            Width = 119
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'goodid'
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'deptno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'prices'
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'operator'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cdate'
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 218
        Width = 528
        Height = 62
        Align = alBottom
        BevelInner = bvLowered
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label1: TLabel