sendcardall.dfm

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

          TabOrder = 2
        end
        object combobox1: TComboBox
          Left = 5
          Top = 117
          Width = 100
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          OnChange = combobox1Change
        end
        object Edit1: TEdit
          Left = 140
          Top = 117
          Width = 99
          Height = 21
          TabOrder = 4
          OnKeyPress = Edit1KeyPress
        end
        object ComboBox2: TComboBox
          Left = 72
          Top = 4
          Width = 145
          Height = 21
          ItemHeight = 13
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnKeyPress = ComboBox2KeyPress
          Items.Strings = (
            '标准IC卡格式'
            '长IC卡格式'
            '新消费机IC卡格式')
        end
        object Edit2: TEdit
          Left = 72
          Top = 31
          Width = 145
          Height = 21
          TabOrder = 6
          Text = '0'
          OnKeyPress = ComboBox2KeyPress
        end
        object Edit4: TEdit
          Left = 8
          Top = 320
          Width = 49
          Height = 21
          TabOrder = 7
          Text = 'Edit4'
          Visible = False
        end
        object Edit5: TEdit
          Left = 192
          Top = 320
          Width = 49
          Height = 21
          TabOrder = 8
          Text = 'Edit5'
          Visible = False
        end
        object Edit3: TEdit
          Left = 72
          Top = 58
          Width = 145
          Height = 21
          TabOrder = 9
          Text = '0'
          OnKeyPress = ComboBox2KeyPress
        end
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 745
    Height = 40
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Images = formmain.ImageList1
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    Transparent = True
    object ToolButton13: TToolButton
      Left = 0
      Top = 2
      AutoSize = True
      Caption = '刷新'
      ImageIndex = 55
      OnClick = ToolButton13Click
    end
    object ToolButton1: TToolButton
      Left = 35
      Top = 2
      Hint = 'Insert'
      Caption = '新增'
      ImageIndex = 4
      OnClick = ToolButton1Click
    end
    object ToolButton3: TToolButton
      Left = 66
      Top = 2
      Action = DataSetEdit1
      AutoSize = True
    end
    object ToolButton10: TToolButton
      Left = 101
      Top = 2
      AutoSize = True
      Caption = '查找'
      ImageIndex = 55
      OnClick = ToolButton10Click
    end
    object ToolButton2: TToolButton
      Left = 136
      Top = 2
      Action = DataSetDelete1
      AutoSize = True
    end
    object ToolButton11: TToolButton
      Left = 171
      Top = 2
      Action = DataSetPost1
      AutoSize = True
    end
    object ToolButton12: TToolButton
      Left = 206
      Top = 2
      Action = DataSetCancel1
      AutoSize = True
    end
    object ToolButton4: TToolButton
      Left = 241
      Top = 2
      Action = DataSetFirst1
      AutoSize = True
    end
    object ToolButton5: TToolButton
      Left = 276
      Top = 2
      Action = DataSetPrior1
      AutoSize = True
    end
    object ToolButton6: TToolButton
      Left = 311
      Top = 2
      Action = DataSetNext1
      AutoSize = True
    end
    object ToolButton7: TToolButton
      Left = 346
      Top = 2
      Action = DataSetLast1
      AutoSize = True
    end
    object ToolButton8: TToolButton
      Left = 381
      Top = 2
      AutoSize = True
      Caption = '退出'
      ImageIndex = 54
      OnClick = ToolButton8Click
    end
  end
  object ActionList1: TActionList
    Left = 128
    Top = 312
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = '取消'
      Hint = 'Cancel'
      ImageIndex = 8
      DataSource = DataSource1
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = '删除'
      Hint = 'Delete'
      ImageIndex = 5
      DataSource = DataSource1
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = '编辑'
      Hint = 'Edit'
      ImageIndex = 6
      DataSource = DataSource1
    end
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = '首项'
      Hint = 'First'
      ImageIndex = 0
      DataSource = DataSource1
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = '新增'
      Hint = 'Insert'
      ImageIndex = 4
      DataSource = DataSource1
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = '未项'
      Hint = 'Last'
      ImageIndex = 3
      DataSource = DataSource1
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = '下项'
      Hint = 'Next'
      ImageIndex = 2
      DataSource = DataSource1
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = '保存'
      Hint = 'Post'
      ImageIndex = 7
      DataSource = DataSource1
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = '上项'
      Hint = 'Prior'
      ImageIndex = 1
      DataSource = DataSource1
    end
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from per24010'
    CommandTimeout = 0
    Parameters = <>
    Left = 252
    Top = 264
  end
  object DataSource1: TDataSource
    DataSet = Qry2
    Left = 148
    Top = 352
  end
  object Qry1: TADOQuery
    Connection = DataMod.Database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mealcard')
    Left = 272
    Top = 336
    object Qry1workno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 10
    end
    object Qry1cardno: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object Qry1dept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 50
    end
    object Qry1prof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 10
    end
    object Qry1name: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object Qry1cardkind: TStringField
      DisplayLabel = '卡号格式'
      FieldName = 'cardkind'
      Size = 10
    end
    object Qry1readok: TBooleanField
      DisplayLabel = '已处理'
      FieldName = 'readok'
    end
    object Qry1money: TBCDField
      DisplayLabel = '充值金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object Qry1times: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'times'
    end
    object Qry1edICCardPwd: TStringField
      DisplayLabel = 'IC密码'
      FieldName = 'edICCardPwd'
      Size = 50
    end
  end
  object Qry2: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from mealcard order by workno'
    Parameters = <>
    Left = 212
    Top = 336
    object Qry2workno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 10
    end
    object Qry2cardno: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object Qry2dept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 50
    end
    object Qry2prof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 10
    end
    object Qry2name: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object Qry2cardkind: TStringField
      DisplayLabel = '卡号格式'
      FieldName = 'cardkind'
      Size = 10
    end
    object Qry2readok: TBooleanField
      DisplayLabel = '已处理'
      FieldName = 'readok'
    end
    object Qry2times: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'times'
    end
    object Qry2edICCardPwd: TStringField
      DisplayLabel = 'IC密码'
      FieldName = 'edICCardPwd'
      Size = 50
    end
    object Qry2money: TBCDField
      DisplayLabel = '充值金额(元)'
      FieldName = 'money'
      OnChange = Qry2moneyChange
      Precision = 18
      Size = 2
    end
    object Qry2money1: TBCDField
      DisplayLabel = '卡上余额(元)'
      FieldName = 'money1'
      Precision = 18
      Size = 2
    end
    object Qry2money2: TBCDField
      DisplayLabel = '卡上金额(元)'
      FieldName = 'money2'
      Precision = 18
      Size = 2
    end
  end
  object DataSource2: TDataSource
    DataSet = Qry1
    Left = 220
    Top = 256
  end
end