sysdata_manage.dfm

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

          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 3
          Visible = False
        end
        object ComboBox_awayEmpID: TComboBox
          Left = 18
          Top = 100
          Width = 207
          Height = 24
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ItemHeight = 16
          ParentFont = False
          TabOrder = 0
          OnKeyPress = ComboBox_awayEmpIDKeyPress
        end
        object Panel7: TPanel
          Left = 0
          Top = 15
          Width = 575
          Height = 75
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 4
          object RadioGroup1: TRadioGroup
            Left = 0
            Top = 0
            Width = 281
            Height = 75
            Hint = #19981#36755#26465#20214#40664#35748#20026#32479#35745#25152#26377#31163#32844#21592#24037
            Align = alLeft
            Caption = #26597#25214#27169#24335
            Columns = 2
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = []
            ItemIndex = 0
            Items.Strings = (
              #25353#21592#24037#32534#21495
              #25353#22995#21517#26597#25214
              #25353#37096#38376#21517#31216
              #25353#32844#21153#21517#31216)
            ParentFont = False
            TabOrder = 0
            OnClick = RadioGroup1Click
          end
          object GroupBox1: TGroupBox
            Left = 281
            Top = 0
            Width = 294
            Height = 75
            Align = alClient
            TabOrder = 1
            object LBL_money: TLabel
              Left = 8
              Top = 48
              Width = 195
              Height = 15
              Caption = #24403#21069#25152#36873#20154#21592#20225#19994#20849#38656#25903#20184#65306
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -15
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              Visible = False
            end
            object CheckBox1: TCheckBox
              Left = 8
              Top = 20
              Width = 233
              Height = 17
              Caption = #26159#21542#32564#27963' ['#24037#36164#28165#31639'] '#25353#32445
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -15
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              OnClick = CheckBox1Click
            end
          end
        end
        object Btn_Account: TBitBtn
          Left = 414
          Top = 98
          Width = 123
          Height = 30
          Cursor = crHandPoint
          Caption = #24037#36164#28165#31639'&A'
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = Btn_AccountClick
          Glyph.Data = {
            8A010000424D8A01000000000000760000002800000016000000170000000100
            04000000000014010000120B0000120B00001000000000000000FFFFFF00CECE
            CE009C9C9C008C8C8C002121210052525A00393942000073840000EFFF0000B5
            BD00424A4A00B5A57B00E7CE9C00F7D6A5007B73730000000000000000000000
            07200000000000000000000077FC00000000000000000027FE7FE00000000000
            000008FF7FEFF700000000000007FE7FE7FFEFE20000000008727FFF7FFF7FFF
            80000000C700FFFE7C2FFF7FF2000077F700FE0C20C07F7F7C002FFCFE00720C
            C0C207FF7700CF7FF8008FF80C00CC2FF7008F7FFC20F87FC2C200CCFF007EFF
            00878877870CCE28C700EF7CCFFFF87F7F7E8C0000007C000F88888787F80000
            0000027E27C87887F8E0000000000000EFEF888FC2E800000000000028787887
            77F7000000000000F8888888887E0000000000000E7887887FE0000000000000
            027872787F800000000000000787F0C887F0000000000000F787200F88FF0000
            0000000088800000878E00000000}
        end
      end
      object DBGrid2: TDBGrid
        Left = 2
        Top = 17
        Width = 575
        Height = 402
        Align = alClient
        DataSource = DS_away_query
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clRed
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = SigBtnClick
        Columns = <
          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.Caption = #21592#24037#32534#21495
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'empname'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 47
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sex'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = #24615#21035
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'depname'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = #25152#23646#37096#38376
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dutyname'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = #32844#21153
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'total'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #24635#25910#20837
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zhi'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #24635#25903#20986
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 95
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'balance'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -15
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #32467#20313
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -15
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 73
            Visible = True
          end>
      end
    end
    object ProgressBar1: TProgressBar
      Left = 0
      Top = 553
      Width = 816
      Height = 16
      Align = alBottom
      TabOrder = 2
    end
  end
  object DS_away_query: TDataSource
    DataSet = ADOQ_away_query
    Left = 336
    Top = 168
  end
  object ADOQtmp: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      'select * from earn_ABS')
    Left = 144
    Top = 144
  end
  object ADOQ_away_query: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT a.empid, b.empname, b.sex, c.depname, d.dutyname, SUM(a.s' +
        'hou)+ SUM(a.fshou) AS total,'
      
        'SUM(a.zhi) AS zhi, SUM(a.shou) + SUM(a.fshou) - SUM(a.zhi) AS ba' +
        'lance'
      
        'FROM PersonShouZhi a INNER JOIN employee b ON a.empid = b.empid ' +
        'INNER JOIN'
      
        'department c ON b.depid = c.depid INNER JOIN duty d ON b.dutyid ' +
        '= d.dutyid'
      'WHERE (b.state = 0)'
      ''
      'group by a.empid,b.empname,b.sex,c.depname, d.dutyname'
      '')
    Left = 304
    Top = 168
    object ADOQ_away_queryempid: TIntegerField
      FieldName = 'empid'
    end
    object ADOQ_away_queryempname: TStringField
      FieldName = 'empname'
      Size = 10
    end
    object ADOQ_away_querysex: TStringField
      FieldName = 'sex'
      Size = 2
    end
    object ADOQ_away_querydepname: TStringField
      FieldName = 'depname'
    end
    object ADOQ_away_querydutyname: TStringField
      FieldName = 'dutyname'
    end
    object ADOQ_away_querytotal: TBCDField
      FieldName = 'total'
      ReadOnly = True
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
      Precision = 32
      Size = 2
    end
    object ADOQ_away_queryzhi: TBCDField
      FieldName = 'zhi'
      ReadOnly = True
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
      Precision = 32
      Size = 2
    end
    object ADOQ_away_querybalance: TBCDField
      FieldName = 'balance'
      ReadOnly = True
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
      Precision = 32
      Size = 2
    end
  end
  object ADOQpersonshouzhi: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 144
    Top = 216
  end
  object ADOQemp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 144
    Top = 264
  end
  object ADOQupdate: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 440
    Top = 280
  end
  object ADOQGetyearmonth: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 440
    Top = 136
  end
  object ADOQtmp_emp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 733
    Top = 240
  end
  object ADOQ_TJFlag: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 437
    Top = 368
  end
end