sendcard.dfm

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

          ItemIndex = 0
          Items.Strings = (
            '充值'
            '退款')
          TabOrder = 0
          OnClick = RadioGroup1Click
        end
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 37
        Width = 784
        Height = 320
        Align = alClient
        DataSource = DataSource3
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid4TitleClick
      end
    end
    object TabSheet6: TTabSheet
      Caption = '充值/退款月查询'
      ImageIndex = 5
      object Splitter1: TSplitter
        Left = 0
        Top = 234
        Width = 784
        Height = 3
        Cursor = crVSplit
        Align = alBottom
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 37
        Align = alTop
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label29: TLabel
          Left = 132
          Top = 12
          Width = 92
          Height = 13
          Caption = '工号/卡号/姓名'
        end
        object Label30: TLabel
          Left = 316
          Top = 12
          Width = 26
          Height = 13
          Caption = '月份'
        end
        object Label31: TLabel
          Left = 420
          Top = 13
          Width = 52
          Height = 13
          Caption = '查询类别'
        end
        object Edit2: TEdit
          Left = 227
          Top = 8
          Width = 81
          Height = 21
          MaxLength = 10
          TabOrder = 0
          OnExit = ComboBox4Exit
        end
        object MaskEdit3: TMaskEdit
          Left = 348
          Top = 8
          Width = 61
          Height = 21
          EditMask = '9999/99;1;_'
          MaxLength = 7
          TabOrder = 1
          Text = '    /  '
          OnExit = ComboBox4Exit
        end
        object ComboBox4: TComboBox
          Left = 481
          Top = 7
          Width = 137
          Height = 21
          ItemHeight = 0
          TabOrder = 2
          OnExit = ComboBox4Exit
        end
        object RadioGroup2: TRadioGroup
          Left = 3
          Top = 1
          Width = 108
          Height = 31
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '充值'
            '退款')
          TabOrder = 3
          OnClick = RadioGroup2Click
        end
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 37
        Width = 784
        Height = 197
        Align = alClient
        DataSource = DataSource5
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid5TitleClick
      end
      object DBGrid6: TDBGrid
        Left = 0
        Top = 237
        Width = 784
        Height = 120
        Align = alBottom
        DataSource = DataSource6
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid6TitleClick
      end
    end
  end
  object ADODataSet5: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from per24010'
    CommandTimeout = 0
    Parameters = <>
    Left = 640
    Top = 384
    object ADODataSet5workno: TStringField
      DisplayLabel = '工号'
      DisplayWidth = 15
      FieldName = 'workno'
      Size = 15
    end
    object ADODataSet5cardno: TStringField
      DisplayLabel = '卡号'
      DisplayWidth = 10
      FieldName = 'cardno'
      Size = 10
    end
    object ADODataSet5name: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 10
      FieldName = 'name'
      Size = 10
    end
    object ADODataSet5prof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
    object ADODataSet5dept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
  end
  object ADOQrymealcard: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    AfterPost = ADOQrymealcardAfterPost
    CommandText = 'select * from mealcard order by workno'
    CommandTimeout = 0
    Parameters = <>
    Left = 584
    Top = 288
    object ADOQrymealcardcardno: TStringField
      DisplayLabel = '卡号'
      DisplayWidth = 10
      FieldName = 'cardno'
      Size = 10
    end
    object ADOQrymealcardname: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 10
      FieldName = 'name'
      Size = 10
    end
    object ADOQrymealcarddept: TStringField
      DisplayLabel = '部门'
      DisplayWidth = 10
      FieldName = 'dept'
      Size = 50
    end
    object ADOQrymealcardprof: TStringField
      DisplayLabel = '职称'
      DisplayWidth = 10
      FieldName = 'prof'
      Size = 10
    end
    object ADOQrymealcardreadok: TBooleanField
      DisplayLabel = '已处理'
      DisplayWidth = 5
      FieldName = 'readok'
    end
    object ADOQrymealcardworkno: TStringField
      DisplayLabel = '工号'
      DisplayWidth = 10
      FieldName = 'workno'
      OnChange = ADOQrymealcardworknoChange
      Size = 10
    end
    object ADOQrymealcardcardkind: TStringField
      DisplayLabel = '卡号格式'
      DisplayWidth = 10
      FieldName = 'cardkind'
      Size = 10
    end
    object ADOQrymealcardmoney: TBCDField
      DisplayLabel = '充值金额(元)'
      DisplayWidth = 19
      FieldName = 'money'
      OnChange = ADOQrymealcardmoneyChange
      Precision = 18
      Size = 2
    end
    object ADOQrymealcardtimes: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'times'
      Visible = False
    end
    object ADOQrymealcardedICCardPwd: TStringField
      DisplayLabel = 'IC密码'
      FieldName = 'edICCardPwd'
      Visible = False
      Size = 50
    end
    object ADOQrymealcardmoney1: TBCDField
      DisplayLabel = '卡上余额(元)'
      FieldName = 'money1'
      Precision = 18
      Size = 2
    end
    object ADOQrymealcardmoney2: TBCDField
      DisplayLabel = '卡上金额(元)'
      FieldName = 'money2'
      Precision = 18
      Size = 2
    end
    object ADOQrymealcarddecmoney: TBCDField
      DisplayLabel = '退款金额(元)'
      FieldName = 'decmoney'
      OnChange = ADOQrymealcarddecmoneyChange
      Precision = 18
      Size = 2
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQrymealcard
    Left = 608
    Top = 288
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from congcard order by workno,rq'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 452
    Top = 184
    object ADODataSet1workno: TStringField
      DisplayLabel = '工号'
      DisplayWidth = 12
      FieldName = 'workno'
      OnChange = ADODataSet1worknoChange
      Size = 10
    end
    object ADODataSet1cardno: TStringField
      DisplayLabel = '卡号'
      DisplayWidth = 12
      FieldName = 'cardno'
      Size = 10
    end
    object ADODataSet1dept: TStringField
      DisplayLabel = '部门'
      DisplayWidth = 14
      FieldName = 'dept'
      Size = 50
    end
    object ADODataSet1prof: TStringField
      DisplayLabel = '职称'
      DisplayWidth = 12
      FieldName = 'prof'
      Size = 10
    end
    object ADODataSet1name: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 12
      FieldName = 'name'
      Size = 10
    end
    object ADODataSet1cardkind: TStringField
      DisplayLabel = '卡号格式'
      DisplayWidth = 16
      FieldName = 'cardkind'
      Size = 30
    end
    object ADODataSet1readok: TBooleanField
      DisplayLabel = '已处理'
      DisplayWidth = 7
      FieldName = 'readok'
    end
    object ADODataSet1money: TBCDField
      DisplayLabel = '充值金额(元)'
      DisplayWidth = 23
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADODataSet1rq: TDateTimeField
      DisplayLabel = '充值日期'
      DisplayWidth = 22
      FieldName = 'rq'
      EditMask = '!9999/99/99;1;_'
    end
    object ADODataSet1cdate: TDateTimeField
      DisplayLabel = '建档日期'
      DisplayWidth = 22
      FieldName = 'cdate'
    end
    object ADODataSet1operator: TStringField
      DisplayLabel = '建档人'
      DisplayWidth = 12
      FieldName = 'operator'
      Size = 10
    end
    object ADODataSet1timesum: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'timesum'
    end
    object ADODataSet1times: TIntegerField
      FieldName = 'times'
    end
    object ADODataSet1edICCardPwd: TStringField
      FieldName = 'edICCardPwd'
      Size = 50
    end
    object ADODataSet1reson: TStringField
      DisplayLabel = '原因'
      FieldName = 'reson'
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 428
    Top = 184
  end
  object ADODataSet2: TADODataSet
    Connection = DataMod.Database1
    CommandTimeout = 0
    Parameters = <>
    Left = 300
    Top = 176
  end
  object ADODataSet3: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from tuikuancard order by workno,rq'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 388
    Top = 128
    object adodataset3workno: TStringField
      DisplayLabel = '工号'
      DisplayWidth = 12
      FieldName = 'workno'
      OnChange = adodataset3worknoChange
      Size = 10
    end
    object adodataset3cardno: TStringField
      DisplayLabel = '卡号'
      DisplayWidth = 12
      FieldName = 'cardno'
      Size = 10
    end
    object adodataset3dept: TStringField
      DisplayLabel = '部门'
      DisplayWidth = 14
      FieldName = 'dept'
      Size = 50
    end
    object adodataset3prof: TStringField
      DisplayLabel = '职称'
      DisplayWidth = 12
      FieldName = 'prof'
      Size = 10
    end
    object adodataset3name: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 12
      FieldName = 'name'
      Size = 10
    end
    object adodataset3cardkind: TStringField
      DisplayLabel = '卡号格式'
      DisplayWidth = 16
      FieldName = 'cardkind'
      Size = 30
    end
    object adodataset3money: TBCDField
      DisplayLabel = '退款金额(元)'
      DisplayWidth = 23
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object adodataset3rq: TDateTimeField
      DisplayLabel = '退款日期'
      DisplayWidth = 22
      FieldName = 'rq'
      EditMask = '!9999/99/99;1;_'
    end
    object adodataset3cdate: TDateTimeField
      DisplayLabel = '建档日期'
      DisplayWidth = 22
      FieldName = 'cdate'
    end
    object adodataset3operator: TStringField
      DisplayLabel = '建档人'
      DisplayWidth = 12
      FieldName = 'operator'
      Size = 10
    end
    object adodataset3timesum: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'timesum'
    end
    object adodataset3ediccardpwd: TStringField
      FieldName = 'edICCardPwd'
      Size = 50
    end
    object ADODataSet3reson: TStringField
      DisplayLabel = '原因'
      FieldName = 'reson'
      Size = 100
    end
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet3
    Left = 364
    Top = 128
  end
  object DataSource3: TDataSource
    DataSet = ADOdaycong
    Left = 124
    Top = 136
  end
  object ADOdaycong: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from daycong order by workno,rq'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 148
    Top = 136
    object ADOdaycongworkno: TStringField
      DisplayLabel = '工号'
      DisplayWidth = 18
      FieldName = 'workno'
      Size = 15
    end
    object ADOdaycongcardno: TStringField
      DisplayLabel = '卡号'
      DisplayWidth = 12
      FieldName = 'cardno'
      Size = 10
    end
    object ADOdaycongname: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 12
      FieldName = 'name'
      Size = 10
    end
    object ADOdaycongmoney: TBCDField
      DisplayLabel = '充值金额'
      DisplayWidth = 23
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADOdaycongtimesum: TIntegerField
      DisplayLabel = '充值次数'
      DisplayWidth = 12
      FieldName = 'timesum'
    end
    object ADOdaycongrq: TDateTimeField
      DisplayLabel = '充值日期'
      DisplayWidth = 22