unitsulfjishigozi.dfm

此代码为企业原料管理代码

object Frmsulfjishigozi: TFrmsulfjishigozi
  Left = 70
  Top = 92
  Width = 635
  Height = 427
  Caption = '计时工资'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 19
    Top = 162
    Width = 589
    Height = 217
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Ximi'
        Title.Alignment = taCenter
        Title.Caption = '姓 名'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 53
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Jsrq'
        Title.Alignment = taCenter
        Title.Caption = '日 期'
        Width = 69
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Jishi'
        Title.Alignment = taCenter
        Title.Caption = '工时（天）'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Biaozuen'
        Title.Alignment = taCenter
        Title.Caption = '日资标准/元'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 71
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Jishizi'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Butie'
        Title.Alignment = taCenter
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Kou'
        Title.Alignment = taCenter
        Width = 53
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Rizi'
        Title.Alignment = taCenter
        Title.Caption = '合计/元'
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Note'
        Title.Alignment = taCenter
        Title.Caption = '备 注'
        Width = 131
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 93
    Top = 2
    Width = 401
    Height = 33
    Caption = '工 时 输 入'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -29
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 19
    Top = 36
    Width = 589
    Height = 125
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Bevel1: TBevel
      Left = 0
      Top = 80
      Width = 584
      Height = 9
      Shape = bsTopLine
    end
    object Label6: TLabel
      Left = 8
      Top = 89
      Width = 75
      Height = 15
      Caption = '查询日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 176
      Top = 91
      Width = 15
      Height = 15
      Caption = '到'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 298
      Top = 89
      Width = 75
      Height = 15
      Caption = '职工姓名：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 87
      Top = 27
      Width = 69
      Height = 21
      DataField = 'Ximi'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnEnter = DBEdit1Enter
    end
    object DBEdit2: TDBEdit
      Left = 10
      Top = 32
      Width = 69
      Height = 12
      AutoSize = False
      DataField = 'Jsrq'
      DataSource = DataSource1
      TabOrder = 9
    end
    object DBEdit3: TDBEdit
      Left = 156
      Top = 28
      Width = 68
      Height = 21
      DataField = 'Jishi'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnEnter = DBEdit3Enter
    end
    object DBEdit4: TDBEdit
      Left = 224
      Top = 28
      Width = 79
      Height = 21
      DataField = 'Biaozuen'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnEnter = DBEdit3Enter
    end
    object DateTimePicker1: TDateTimePicker
      Left = 2
      Top = 28
      Width = 86
      Height = 20
      CalAlignment = dtaLeft
      Date = 37539.5153186343
      Time = 37539.5153186343
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 0
      OnClick = DateTimePicker1Click
      OnChange = DateTimePicker1Change
    end
    object DBEdit5: TDBEdit
      Left = 451
      Top = 28
      Width = 131
      Height = 21
      DataField = 'Note'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnEnter = DBEdit3Enter
    end
    object Panel3: TPanel
      Left = 87
      Top = 4
      Width = 69
      Height = 23
      Caption = '职工姓名'
      TabOrder = 10
    end
    object Panel4: TPanel
      Left = 156
      Top = 4
      Width = 68
      Height = 24
      Caption = '工时/天'
      TabOrder = 11
    end
    object Panel5: TPanel
      Left = 224
      Top = 4
      Width = 79
      Height = 24
      Caption = '日资标准/元'
      TabOrder = 12
    end
    object Panel6: TPanel
      Left = 303
      Top = 4
      Width = 71
      Height = 24
      Caption = '补贴/元'
      TabOrder = 13
    end
    object DBEdit6: TDBEdit
      Left = 303
      Top = 28
      Width = 71
      Height = 21
      DataField = 'Butie'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnEnter = DBEdit3Enter
    end
    object DBEdit7: TDBEdit
      Left = 374
      Top = 28
      Width = 77
      Height = 21
      DataField = 'Kou'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnEnter = DBEdit3Enter
    end
    object Panel7: TPanel
      Left = 374
      Top = 4
      Width = 77
      Height = 24
      Caption = '扣款/元'
      TabOrder = 14
    end
    object Panel8: TPanel
      Left = 3
      Top = 4
      Width = 84
      Height = 24
      Caption = '日   期'
      TabOrder = 15
    end
    object Panel9: TPanel
      Left = 451
      Top = 4
      Width = 131
      Height = 24
      Caption = '备   注'
      TabOrder = 16
    end
    object Button1: TButton
      Left = 358
      Top = 52
      Width = 83
      Height = 25
      Caption = '提 交'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 30
      Top = 52
      Width = 83
      Height = 25
      Caption = '删 除'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 248
      Top = 52
      Width = 83
      Height = 25
      Caption = '修 改'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      OnClick = Button3Click
    end
    object Button5: TButton
      Left = 140
      Top = 52
      Width = 83
      Height = 25
      Caption = '添 加'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 469
      Top = 52
      Width = 75
      Height = 25
      Caption = '返 回'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
      OnClick = Button6Click
    end
    object DateTimePicker2: TDateTimePicker
      Left = 76
      Top = 89
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 37539.9496146991
      Time = 37539.9496146991
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 20
    end
    object DateTimePicker3: TDateTimePicker
      Left = 194
      Top = 89
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 37539.9510119213
      Time = 37539.9510119213
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 21
    end
    object Edit1: TEdit
      Left = 365
      Top = 89
      Width = 76
      Height = 21
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
      OnEnter = Edit1Enter
    end
    object Button4: TButton
      Left = 469
      Top = 88
      Width = 76
      Height = 25
      Caption = '查 询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 23
      OnClick = Button4Click
    end
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = Table1FilterRecord
    TableName = 'jishigozhi.db'
    Left = 96
    Top = 212
    object Table1Ximi: TStringField
      FieldName = 'Ximi'
      Size = 8
    end
    object Table1Jsrq: TDateField
      FieldName = 'Jsrq'
    end
    object Table1Jishi: TFloatField
      FieldName = 'Jishi'
    end
    object Table1Biaozuen: TFloatField
      FieldName = 'Biaozuen'
    end
    object Table1Jishizi: TFloatField
      DisplayLabel = '计时工资/元'
      FieldName = 'Jishizi'
    end
    object Table1Kou: TFloatField
      Alignment = taCenter
      DisplayLabel = '扣款/元'
      FieldName = 'Kou'
    end
    object Table1Butie: TFloatField
      Alignment = taCenter
      DisplayLabel = '补贴/元'
      FieldName = 'Butie'
    end
    object Table1Rizi: TFloatField
      FieldName = 'Rizi'
    end
    object Table1Note: TStringField
      FieldName = 'Note'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 216
    Top = 244
  end
end