earn.dfm

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

object FrmFJEarn: TFrmFJEarn
  Left = 231
  Top = 165
  BorderStyle = bsDialog
  Caption = #21592#24037#38468#21152#25910#20837#20837#24080
  ClientHeight = 481
  ClientWidth = 645
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = 398
    Width = 45
    Height = 15
    Caption = #37329#39069#65306
    FocusControl = DBEdit3
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 344
    Width = 75
    Height = 15
    Caption = #20154#21592#32534#30721#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 16
    Top = 370
    Width = 45
    Height = 15
    Caption = #20107#30001#65306
    FocusControl = DBEdit6
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 8
    Top = 144
    Width = 217
    Height = 9
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 0
    Top = 432
    Width = 645
    Height = 49
    Align = alBottom
    Shape = bsTopLine
  end
  object Label10: TLabel
    Left = 0
    Top = 0
    Width = 645
    Height = 15
    Align = alTop
    Alignment = taCenter
    Caption = ' '#21592#24037#38468#21152#25910#20837#21382#21490#26126#32454
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 264
    Top = 344
    Width = 45
    Height = 15
    Caption = #22995#21517#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 472
    Top = 344
    Width = 45
    Height = 15
    Caption = #24615#21035#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel
    Left = 237
    Top = 396
    Width = 22
    Height = 21
    Caption = #20803
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 272
    Top = 400
    Width = 345
    Height = 15
    Caption = #65288#25552#31034#65306#22312#24403#21069#32534#36753#26694#20869#21487#30452#25509#20462#25913#23545#24212#35760#24405#20449#24687#65289
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 15
    Width = 645
    Height = 316
    Align = alTop
    DataSource = DataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 9
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'log_id'
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'empid'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'event'
        Title.Alignment = taCenter
        Title.Caption = #20107#30001
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 224
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rec_date'
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 127
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'opername'
        Title.Alignment = taCenter
        Title.Caption = #32463#25163#20154
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 70
        Visible = True
      end>
  end
  object AddBtn: TBitBtn
    Left = 69
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Hint = #22686#21152'|'#22686#21152
    Caption = #22686#21152'&A'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = AddBtnClick
  end
  object PrtBtn: TBitBtn
    Left = 443
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Hint = #20462#25913'|'#20462#25913
    Caption = #25171#21360'&P'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = PrtBtnClick
  end
  object DelBtn: TBitBtn
    Left = 152
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Hint = #21024#38500'|'#21024#38500
    Caption = #21024#38500'&D'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = DelBtnClick
    NumGlyphs = 2
  end
  object SaveBtn: TBitBtn
    Left = 235
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Caption = #20445#23384'&S'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = SaveBtnClick
  end
  object CancelBtn: TBitBtn
    Left = 319
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Caption = #21462#28040'&C'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = CancelBtnClick
  end
  object ExtBtn: TBitBtn
    Left = 532
    Top = 446
    Width = 65
    Height = 25
    Cursor = crHandPoint
    Cancel = True
    Caption = #36864#20986'&X'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 7
    ParentFont = False
    TabOrder = 0
  end
  object DBEdit3: TDBEdit
    Left = 80
    Top = 394
    Width = 156
    Height = 27
    DataField = 'money'
    DataSource = DataSource
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnKeyPress = DBEdit3KeyPress
  end
  object DBEdit6: TDBEdit
    Left = 80
    Top = 367
    Width = 385
    Height = 23
    DataField = 'event'
    DataSource = DataSource
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object edtname: TEdit
    Left = 304
    Top = 340
    Width = 161
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = True
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object edtsex: TEdit
    Left = 512
    Top = 340
    Width = 49
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = True
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object DBComboBox2: TComboBox
    Left = 80
    Top = 339
    Width = 169
    Height = 24
    Hint = #36755#20837#21592#24037#32534#21495#20877#25353#22238#36710#38190#65292#20197#20415#25214#21040#23545#24212#20154#21592#30340#38468#21152#25910#20837#21382#21490#26126#32454
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ItemHeight = 16
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnChange = DBComboBox2Change
    OnKeyPress = DBComboBox2KeyPress
  end
  object CheckBox2: TCheckBox
    Left = 468
    Top = 371
    Width = 185
    Height = 17
    Caption = #26174#31034#20840#37096#38468#21152#25910#20837#26126#32454
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = CheckBox2Click
  end
  object DataSource: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSourceStateChange
    OnDataChange = DataSourceDataChange
    Left = 344
    Top = 72
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    AfterEdit = ADOQuery1AfterEdit
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from earn_ABS')
    Left = 312
    Top = 72
    object ADOQuery1log_id: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'log_id'
      ReadOnly = True
    end
    object ADOQuery1empid: TIntegerField
      DisplayLabel = #21592#24037#32534#30721
      FieldName = 'empid'
    end
    object ADOQuery1money: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'money'
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object ADOQuery1event: TStringField
      FieldName = 'event'
      Size = 40
    end
    object ADOQuery1rec_date: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'rec_date'
    end
    object ADOQuery1tmp_id: TIntegerField
      FieldName = 'tmp_id'
    end
    object ADOQuery1opername: TStringField
      FieldKind = fkLookup
      FieldName = 'opername'
      LookupDataSet = ADOQoper
      LookupKeyFields = 'tmp_id'
      LookupResultField = 'opername'
      KeyFields = 'tmp_id'
      Lookup = True
    end
    object ADOQuery1tjflag: TBooleanField
      FieldName = 'tjflag'
    end
  end
  object ADOQtmp: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      'select * from earn_ABS')
    Left = 184
    Top = 272
  end
  object DataSource1: TDataSource
    DataSet = ADOQtmp
    Left = 224
    Top = 272
  end
  object Rv_FJSLMX: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQuery1
    Left = 536
    Top = 248
  end
  object RvSystem1: TRvSystem
    TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
    TitleStatus = #27491#22312#29983#25104#25253#34920
    TitlePreview = #25968#25454#39044#35272
    SystemSetups = [ssAllowDestPrinter]
    SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
    SystemPreview.FormState = wsMaximized
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 448
    Top = 248
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    Left = 376
    Top = 248
  end
  object ADOQoper: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from operator')
    Left = 313
    Top = 272
    object ADOQopertmp_id: TAutoIncField
      FieldName = 'tmp_id'
      ReadOnly = True
    end
    object ADOQoperoperid: TStringField
      FieldName = 'operid'
    end
    object ADOQoperopername: TStringField
      FieldName = 'opername'
      Size = 10
    end
    object ADOQoperpassword: TStringField
      FieldName = 'password'
      Size = 32
    end
    object ADOQoperteam_id: TIntegerField
      FieldName = 'team_id'
    end
  end
end