borrow.dfm

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

        ReadOnly = True
        TabOrder = 6
      end
      object edtmoney: TEdit
        Left = 80
        Top = 48
        Width = 132
        Height = 27
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        Text = '0.00'
        OnKeyPress = edtmoneyKeyPress
      end
      object edtmemo: TEdit
        Left = 80
        Top = 80
        Width = 609
        Height = 23
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object edtoperator: TEdit
        Left = 312
        Top = 48
        Width = 113
        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 = 8
      end
      object SaveBtn: TBitBtn
        Left = 575
        Top = 13
        Width = 114
        Height = 29
        Cursor = crHandPoint
        Caption = #25903#20986#30830#35748'&C'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = SaveBtnClick
        Glyph.Data = {
          8E060000424D8E06000000000000360400002800000018000000190000000100
          08000000000058020000120B0000120B00000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
          FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
          FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
          FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
          FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
          CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
          CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
          CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
          CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
          990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
          990000CC9900FF999900CC99990099999900669999003399990000999900FF66
          9900CC66990099669900666699003366990000669900FF339900CC3399009933
          9900663399003333990000339900FF009900CC00990099009900660099003300
          990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
          6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
          6600669966003399660000996600FF666600CC66660099666600666666003366
          660000666600FF336600CC33660099336600663366003333660000336600FF00
          6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
          330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
          330000CC3300FF993300CC99330099993300669933003399330000993300FF66
          3300CC66330099663300666633003366330000663300FF333300CC3333009933
          3300663333003333330000333300FF003300CC00330099003300660033003300
          330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
          000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
          000000990000FF660000CC66000099660000666600000066000033660000FF33
          0000CC33000099330000663300003333000000330000CC000000990000006600
          0000330000000000DD000000BB000000AA000000880000007700000055000000
          44000000220000DD000000BB000000AA00000088000000770000005500000044
          000000220000DDDDDD0055555500777777007777770044444400222222001111
          110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
          FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
          FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD000000EFFDFDFDFDFDFD
          FDFDFDFDFDFDFDFDFDFDFDFD00000B133C00EFEFFDFDFDFDFDFDFDFDFDFDFDFD
          FDFD0000EC000B133C00EFEFEFEFFDFDFDFDFDFDFDFDFDFD0000EDEDEC000B13
          3C00EFEFEFEFEFEFFDFDFDFDFDFD0000EDEFEDEDEC000B133C00EFEFEFEFEFEF
          FDFDFDFD0000F7ED00EFEDEDEC000B133C00EFEFEFEFFDFDFDFDFD001300F7ED
          00EFEDEDEC000B133C00EFEFFDFDFDFDFDFDFD001300F7EDEDEFF7F700001313
          3C00FDFDFDFDFDFDFDFDFD001300F7EDF7F70000131313133C00FDFDFDFDFDFD
          FDFDFD001300F7F700001313131313133C00FDFDFDFDFDFDFDFDFD0013000000
          131313130B0B13133C00FDFDFDFDFDFDFDFDFD001313131313130B0B07070B13
          3C00FDFDFDFDFDFDFDFDFD00131313130B0B0707EB070B133C00FDFDFDFDFDFD
          FDFDFD0013130B0B0707EBEBEB070B133C00FDFDFDFDFDFDFDFDFD0013130707
          EBEBEBEBEB070B133C00FDFDFDFDFDFDFDFDFD001313FFEBEBEBEBEBEBF7F70B
          00FDFDFDFDFDFDFDFDFDFD001313FFEBEBEBEBF7F7F70000FDFDFDFDFDFDFDFD
          FDFDFD001313FFEBEBF7F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFD001313FFF7
          F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD001313F7F70000FDFDFDFDFDFD
          FDFDFDFDFDFDFDFDFDFDFD000B0B0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
          FDFDFDFD0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
          FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
      end
      object CancelBtn: TBitBtn
        Left = 575
        Top = 45
        Width = 114
        Height = 29
        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
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000008000
          0000008000008080000000008000800080000080800080808000C0C0C000FF00
          000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DDDDDDD0000D
          DDDDDDDDD00199900DDD0DDD0199111910DD00D019100001910D01019100DDD0
          190D0111910DDDDD0910011910DDDDDD0190019B90DDDDDD019009B9990DDDDD
          01900BBBBB90DDDD0910000000000DD0190DDDDDDDDDDD01910DDDDDDDDD0019
          10DDDDDDD00019910DDDDDDDD0999100DDDDDDDDDD0000DDDDDD}
      end
      object edtsex: TEdit
        Left = 488
        Top = 16
        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 = 7
      end
    end
    object TabSheet3: TTabSheet
      Caption = #24120#29992#25903#20986#20107#30001#32534#36753
      ImageIndex = 2
      object Button1: TButton
        Left = 630
        Top = 398
        Width = 75
        Height = 25
        Caption = #20445#23384
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = Button1Click
      end
      object ListBox2: TListBox
        Left = 8
        Top = 8
        Width = 609
        Height = 385
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 1
      end
      object Button2: TButton
        Left = 630
        Top = 360
        Width = 75
        Height = 25
        Hint = #21024#38500#24403#21069#34892#30340#20107#30001#65281
        Caption = #21024#38500
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = Button2Click
      end
      object Edit4: TEdit
        Left = 8
        Top = 400
        Width = 609
        Height = 23
        Hint = #36755#20837#25903#20986#20107#30001#65292#20877#21333#20987' ['#20445#23384'] '#25353#32445
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
    end
  end
  object ADOQ_Borrow: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    AfterInsert = ADOQ_BorrowAfterInsert
    BeforeEdit = ADOQ_BorrowBeforeEdit
    BeforePost = ADOQ_BorrowBeforePost
    AfterPost = ADOQ_BorrowAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from brrow order by empid,rec_date')
    Left = 112
    Top = 328
    object ADOQ_Borrowlog_id: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'log_id'
      ReadOnly = True
    end
    object ADOQ_Borrowempid: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'empid'
    end
    object ADOQ_Borrowempname: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'empname'
      LookupDataSet = ADOQemployee
      LookupKeyFields = 'empid'
      LookupResultField = 'empname'
      KeyFields = 'empid'
      Lookup = True
    end
    object ADOQ_Borrowevent: TStringField
      FieldName = 'event'
      Size = 40
    end
    object ADOQ_Borrowmoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'money'
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object ADOQ_Borrowrec_date: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'rec_date'
    end
    object ADOQ_Borrowtmp_id: TIntegerField
      DisplayLabel = #25805#20316#21592'ID'
      FieldName = 'tmp_id'
    end
    object ADOQ_Borrowopername: TStringField
      DisplayLabel = #32463#25163#20154
      FieldKind = fkLookup
      FieldName = 'opername'
      LookupDataSet = ADOQoper
      LookupKeyFields = 'tmp_id'
      LookupResultField = 'opername'
      KeyFields = 'tmp_id'
      Lookup = True
    end
    object ADOQ_Borrowflag: TStringField
      FieldName = 'flag'
      Size = 1
    end
    object ADOQ_Borrowtjflag: TBooleanField
      FieldName = 'tjflag'
    end
  end
  object DS_Borrow: TDataSource
    DataSet = ADOQ_Borrow
    OnStateChange = DS_BorrowStateChange
    Left = 152
    Top = 328
  end
  object ADOQemployee: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select empid,empname,sex,state from employee where state=1')
    Left = 65
    Top = 176
  end
  object ADOQoper: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from operator')
    Left = 65
    Top = 120
    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
  object adoq_temp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 236
    Top = 120
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    Left = 160
    Top = 200
  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 = 200
    Top = 200
  end
  object Rv_ZCMX: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQ_Borrow
    Left = 240
    Top = 200
  end
end