unit3.dfm

工资管理源码

        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #25490#24207#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #31867#21035
            Visible = True
          end
          item
            Expanded = False
            FieldName = #39033#30446
            Visible = True
          end
          item
            Expanded = False
            FieldName = #23383#27573#31867#22411
            PickList.Strings = (
              #25991#26412
              #36135#24065)
            Visible = True
          end
          item
            Expanded = False
            FieldName = #23383#27573#38271#24230
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26159#21542#25171#21360
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 456
        Width = 784
        Height = 25
        DataSource = DataSource_gzjg
        Align = alBottom
        Hints.Strings = (
          #26368#21069#19968#21517
          #19978#19968#21517
          #19979#19968#21517
          #26368#21518#19968#21517
          #25554#20837
          #21024#38500
          #32534#32521
          #20445#23384
          #21462#28040
          #21047#26032)
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 41
        Align = alTop
        Caption = #27880#24847#65306#21069#22235#39033#32844#24037#20449#24687#19981#33021#21024#38500#65292#21542#21017#21487#33021#20250#20986#29616#22522#26412#20449#24687#38169#35823#65281#65281
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = #32534#21046#32500#25252
      ImageIndex = 2
      object DBNavigator2: TDBNavigator
        Left = 0
        Top = 456
        Width = 784
        Height = 25
        DataSource = DataSource2
        Align = alBottom
        Hints.Strings = (
          #26368#21069#19968#21517
          #19978#19968#21517
          #19979#19968#21517
          #26368#21518#19968#21517
          #25554#20837
          #21024#38500
          #32534#32521
          #20445#23384
          #21462#28040
          #21047#26032)
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 784
        Height = 456
        Align = alClient
        DataSource = DataSource2
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #32534#21046#21517#31216
            Visible = True
          end>
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterOpen = ADOQuery1AfterOpen
    Parameters = <>
    SQL.Strings = (
      
        'select '#31185#23460',sum('#22522#30784#24037#36164') as '#22522#30784#24037#36164',count(*) as '#20154#25968' from 200201 group by ' +
        #31185#23460' having '#31185#23460'='#39#19968#20013#38431#39)
    Left = 256
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 288
    Top = 144
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\pa' +
      'y\pay.mdb;Mode=Share Deny None;Extended Properties="";Persist Se' +
      'curity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registr' +
      'y Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5' +
      ';Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk' +
      ' Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databa' +
      'se Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:' +
      'Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fa' +
      'lse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP' +
      '=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 224
    Top = 144
  end
  object gzjg: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = #25490#24207#21495
    TableName = #24037#36164#32467#26500
    Left = 256
    Top = 184
  end
  object DataSource_gzjg: TDataSource
    DataSet = gzjg
    Left = 288
    Top = 184
  end
  object xjgzb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      
        'update 200201 set '#24212#21457#37329#39069'='#22522#30784#24037#36164'+'#32844#21153#24037#36164'+'#32423#21035#24037#36164'+'#24037#40836#24037#36164'+'#35686#34903#34917#36148'+'#32844#21153#34917#36148'+'#22320#26041#31119#21033#34917#36148'+'#20854#20182#34917#36148 +
        '+'#23703#20301#34917#36148'+'#20445#20581#34917#36148'+'#28082#21270#27668#34917#36148'+'#29420#23376#27927#34915'+'#32771#21220#23703#20301#30446#26631'+aaaaaa')
    Left = 256
    Top = 224
  end
  object de: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 488
    Top = 136
  end
  object hjje: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 456
    Top = 192
  end
  object gz: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from 200201'
      ''
      '')
    Left = 344
    Top = 344
  end
  object sor: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 456
    Top = 136
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterPost = ADOTable1AfterPost
    TableName = #32534#21046
    Left = 256
    Top = 256
  end
  object DataSource2: TDataSource
    DataSet = ADOTable1
    Left = 288
    Top = 256
  end
  object chd: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum('#23454#21457#37329#39069') from 200201')
    Left = 528
    Top = 272
  end
  object RMReport1: TRMReport
    SaveReportOptions.UseRegistry = True
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    Dataset = RMDBDataSet1
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    StoreInDFM = True
    Left = 436
    Top = 400
    ReportForm = {
      2B000000C90000002B000B1A005265706F72744D616368696E65205265706F72
      742046696C651A00010000000000000000000000000000000000000000000000
      00000000000F0044656661756C74205072696E74657200FF000400466F726D00
      0500506167653100DC000000B40000007C0100002C0100000F0000FF03040900
      000050340300C4870400983A0000204E0000983A0000204E0000000000000000
      0000000000FFFF000000000000A90000000000000000000000FFFFFFFFFFFFFF
      FF00FC0100000000000000000000000000}
  end
  object RMDBDataSet1: TRMDBDataSet
    DataSet = gz
    Left = 404
    Top = 400
  end
end