systemfrm.~dfm

适合新手 绝对精品 仓库管理系统 本人花钱购买来的源代

object frmSystem: TfrmSystem
  Left = 261
  Top = 174
  Width = 544
  Height = 375
  Caption = #31995#32479#21151#33021
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object pgcMain: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 341
    ActivePage = shtSjbfyhf
    Align = alClient
    TabOrder = 0
    object shtRkcssz: TTabSheet
      Caption = #24211#23384#21021#22987#35774#32622
      object grdKc: TDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 289
        Align = alClient
        DataSource = dskc
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ck'
            Title.Alignment = taCenter
            Title.Caption = #23384#25918#20179#24211
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hwlb'
            Title.Alignment = taCenter
            Title.Caption = #36135#29289#31867#21035
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hwgg'
            Title.Alignment = taCenter
            Title.Caption = #36135#29289#35268#26684
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hwcd'
            Title.Alignment = taCenter
            Title.Caption = #21697#29260'/'#20135#22320
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hwdw'
            Title.Alignment = taCenter
            Title.Caption = #35745#37327#21333#20301
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hwsl'
            Title.Alignment = taCenter
            Title.Caption = #36135#29289#25968#37327
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dj'
            Title.Alignment = taCenter
            Title.Caption = #36135#29289#21333#20215
            Width = 106
            Visible = True
          end>
      end
      object pnlRkBottom: TPanel
        Left = 0
        Top = 289
        Width = 528
        Height = 25
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object dbngRk: TDBNavigator
          Left = 0
          Top = 0
          Width = 528
          Height = 25
          DataSource = dskc
          Align = alClient
          Flat = True
          Hints.Strings = (
            #39318#26465#35760#24405
            #19978#19968#35760#24405
            #19979#19968#35760#24405
            #26411#26465#35760#24405
            #25554#20837#35760#24405
            #21024#38500#35760#24405
            #20462#25913#35760#24405
            #20445#23384#20462#25913
            #21462#28040#20462#25913
            #21047#26032#35760#24405)
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
      end
    end
    object shtXtrz: TTabSheet
      Caption = #31995#32479#26085#24535
      ImageIndex = 1
      object pnlXtrzTop: TPanel
        Left = 0
        Top = 0
        Width = 528
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblXtrj: TLabel
          Left = 8
          Top = 16
          Width = 48
          Height = 12
          Caption = #26085#24535#26102#38388
        end
        object dtpLog: TDateTimePicker
          Left = 72
          Top = 11
          Width = 121
          Height = 20
          Date = 72694.852178472190000000
          Time = 72694.852178472190000000
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnChange = dtpLogChange
        end
      end
      object grdLog: TDBGrid
        Left = 0
        Top = 41
        Width = 528
        Height = 152
        Align = alClient
        DataSource = dsLog
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'logdate'
            Title.Alignment = taCenter
            Title.Caption = #26102#38388
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'username'
            Title.Alignment = taCenter
            Title.Caption = #29992#25143
            Width = 152
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'content'
            Title.Alignment = taCenter
            Title.Caption = #29992#25143#21160#20316
            Width = 300
            Visible = True
          end>
      end
      object mmoLog: TDBMemo
        Left = 0
        Top = 193
        Width = 528
        Height = 121
        Align = alBottom
        DataField = 'content'
        DataSource = dskc
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
        Visible = False
      end
    end
    object shtSjbfyhf: TTabSheet
      Caption = #25968#25454#22791#20221#19982#24674#22797
      ImageIndex = 2
      object mmoComment: TMemo
        Left = 0
        Top = 0
        Width = 528
        Height = 273
        Align = alClient
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Lines.Strings = (
          #25968#25454#22791#20221#35828#26126
          '----------------------------------------'
          ''
          '    1.'
          '    2.'
          '    3.'
          '    4.'
          '    5.')
        TabOrder = 0
      end
      object pnlSjbfyhfBottom: TPanel
        Left = 0
        Top = 273
        Width = 528
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object btnRestore: TButton
          Left = 120
          Top = 8
          Width = 75
          Height = 25
          Caption = #25968#25454#24674#22797
          TabOrder = 0
          OnClick = btnRestoreClick
        end
        object btnBackup: TButton
          Left = 16
          Top = 8
          Width = 75
          Height = 25
          Caption = #22791#20221#25968#25454
          TabOrder = 1
          OnClick = btnBackupClick
        end
      end
    end
  end
  object dsLog: TDataSource
    DataSet = qryLog
    Left = 124
    Top = 247
  end
  object dskc: TDataSource
    DataSet = qryKc
    Left = 44
    Top = 247
  end
  object qryLog: TADOQuery
    Parameters = <
      item
        Name = 'logdate'
        DataType = ftString
        Size = 2
        Value = #39#39
      end>
    SQL.Strings = (
      
        'select logdate,  username, content from log where logdate = :log' +
        'date')
    Left = 92
    Top = 247
  end
  object qryKc: TADOQuery
    CursorType = ctStatic
    AfterPost = qryKcAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from kc')
    Left = 12
    Top = 247
  end
end