ryda1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

    PrintTitle = '人员档案表'
    Left = 184
    Top = 136
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid2
      DateTime = 37704.4627484954
      DesignerHelpContext = 0
      PrinterPage.CenterOnPageH = True
      PrinterPage.DMPaper = 256
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 3700
      PrinterPage.Margins.Right = 5000
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageHeader.LeftTitle.Strings = (
        '【思微软件】')
      PrinterPage.PageHeader.RightTitle.Strings = (
        '第[Page #]页共[Total Pages]页')
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage.ScaleMode = smFit
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = GB2312_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = '宋体'
      ReportTitle.Font.Style = [fsBold, fsUnderline]
      ReportTitle.Text = '人员档案表'
      ShrinkToPageWidth = True
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      Color = 12639424
      EvenColor = 10930928
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddColor = 12639424
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object Table1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    BeforeEdit = Table1BeforeEdit
    AfterPost = Table1AfterPost
    AfterCancel = Table1AfterCancel
    AfterScroll = Table1AfterScroll
    OnNewRecord = Table1NewRecord
    TableName = 'RYDA'
    Left = 152
    Top = 136
    object Table1code: TStringField
      DisplayLabel = '编号'
      FieldName = 'code'
      Size = 5
    end
    object Table1name: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
    end
    object Table1bm: TStringField
      DisplayLabel = '部门'
      FieldName = 'bm'
      Size = 50
    end
    object Table1xb: TStringField
      DisplayLabel = '性别'
      FieldName = 'xb'
      Size = 2
    end
    object Table1csrq: TDateTimeField
      DisplayLabel = '出生日期'
      FieldName = 'csrq'
    end
    object Table1xl: TStringField
      DisplayLabel = '学历'
      FieldName = 'xl'
      Size = 10
    end
    object Table1dh: TStringField
      DisplayLabel = '电话'
      FieldName = 'dh'
      Size = 50
    end
    object Table1zz: TStringField
      DisplayLabel = '住址'
      FieldName = 'zz'
      Size = 200
    end
    object Table1sfzhm: TStringField
      DisplayLabel = '身份证'
      FieldName = 'sfzhm'
    end
    object Table1rzrq: TDateTimeField
      DisplayLabel = '入职日期'
      FieldName = 'rzrq'
    end
    object Table1zw: TStringField
      DisplayLabel = '职务'
      FieldName = 'zw'
      Size = 15
    end
    object Table1jbgz: TBCDField
      DisplayLabel = '基本工资'
      FieldName = 'jbgz'
      Precision = 19
    end
    object Table1ywybz: TBooleanField
      DisplayLabel = '业务员'
      FieldName = 'ywybz'
    end
    object Table1zzbz: TBooleanField
      DisplayLabel = '在职'
      FieldName = 'zzbz'
    end
    object Table1fgzbz: TBooleanField
      DisplayLabel = '发工资'
      FieldName = 'fgzbz'
    end
    object Table1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 136
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 176
    object N1: TMenuItem
      Caption = '输出'
      object Excel1: TMenuItem
        Caption = 'Excel格式'
        OnClick = Excel1Click
      end
      object Text1: TMenuItem
        Caption = 'Text格式'
        OnClick = Text1Click
      end
      object Html1: TMenuItem
        Caption = 'Html格式'
        OnClick = Html1Click
      end
      object N20: TMenuItem
        Caption = '打印预览'
        OnClick = N20Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = '显示'
      object N4: TMenuItem
        Caption = '编号'
        Checked = True
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = '姓名'
        Checked = True
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = '部门'
        Checked = True
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '性别'
        Checked = True
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '出生日期'
        Checked = True
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '学历'
        Checked = True
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = '电话'
        Checked = True
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = '住址'
        Checked = True
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = '身份证'
        Checked = True
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = '入职日期'
        Checked = True
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = '职务'
        Checked = True
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '基本工资'
        Checked = True
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = '业务员'
        Checked = True
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = '在职'
        Checked = True
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = '发工资'
        Checked = True
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = '备注'
        Checked = True
        OnClick = N19Click
      end
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object N24: TMenuItem
      Caption = '全部展开'
      OnClick = N24Click
    end
    object N25: TMenuItem
      Caption = '全部缩小'
      OnClick = N25Click
    end
  end
end