uinsert.~dfm

在公司做的一个小的系统源代码

object frminsert: Tfrminsert
  Left = 169
  Top = 176
  AutoScroll = False
  Caption = #25307#26631#37319#36141#33647#21697#20449#24687#24405#20837
  ClientHeight = 541
  ClientWidth = 828
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 352
    Top = 8
    Width = 3
    Height = 13
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 192
    Width = 825
    Height = 337
    Hint = #21452#20987#20462#25913#35760#24405
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnDblClick = SptnxiugaiClick
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = #24207#21495
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'scqy'
        Title.Caption = #29983#20135#20225#19994
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ypmc'
        Title.Caption = #33647#21697#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jx'
        Title.Caption = #21058#22411
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spm'
        Title.Caption = #21830#21697#21517
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gg'
        Title.Caption = #35268#26684
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dw'
        Title.Caption = #21333#20301
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jg'
        Title.Caption = #20013#26631#38646#21806#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zlcc'
        Title.Caption = #36136#37327#23618#27425
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'glfs'
        Title.Caption = #31649#29702#26041#24335
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wh'
        Title.Caption = #25991#21495
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zbrq'
        Title.Caption = #20013#26631#26085#26399
        Width = 60
        Visible = True
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 516
    Width = 828
    Height = 25
    Color = clInactiveCaptionText
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 480
    Width = 828
    Height = 36
    Align = alBottom
    BevelOuter = bvSpace
    Color = clSkyBlue
    TabOrder = 2
    object Sptnsave: TSpeedButton
      Left = 168
      Top = 8
      Width = 81
      Height = 25
      Caption = #20445#23384'(&S)'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088
        030AA03300000000030DD03333333333330AA03300000000330DD03088888888
        030AA03088888888030DD03088888888030AA03088888888030DD03088888888
        000AA03088888888080DD00000000000000AADADADADADADADAD}
      OnClick = SptnsaveClick
    end
    object Sptnadd: TSpeedButton
      Left = 32
      Top = 8
      Width = 81
      Height = 25
      Caption = #26032#22686'(&A)'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADADAD444444444444DADA477777777774ADAD488888888084
        DADA480080080004ADAD488888888000DADA4800800800B70DAD4888888880B8
        0ADA44444444440B70AD4F44F44F440B80DA444444444440B70DDADADADADAD0
        B70AADADADADADAD0050DADADADADADA0550ADADADADADADA00D}
      OnClick = SptnaddClick
    end
    object Sptnxiugai: TSpeedButton
      Left = 304
      Top = 8
      Width = 81
      Height = 25
      Caption = #20462#25913'(&G)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      OnClick = SptnxiugaiClick
    end
    object Sptncopy: TSpeedButton
      Left = 440
      Top = 8
      Width = 81
      Height = 25
      Caption = #22797#21046'(&C)'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777700000000007700007777777787777777707700007777
        77778FBFBFBF70770000777777778BFBFBFB70770000777777778FBFBFBF7077
        0000777000008BFBFBFB70770000777877778FBFBFBF707700007778FFFF8BFB
        FBFB707700007778FFFF8FBFBF00007700007778FFFF8BFBFB7F877700007778
        FFFF8FBFBF78777700007778FFFF88888887777700007778FFFFFFFF07777777
        00007778FFFFF0000777777700007778FFFFF7F87777777700007778FFFFF787
        7777777700007778888888777777777700007777777777777777777700007777
        77777777777777770000}
      OnClick = SptncopyClick
    end
    object Sptndelete: TSpeedButton
      Left = 576
      Top = 8
      Width = 81
      Height = 25
      Caption = #21024#38500'(&D)'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDD9D0000DD9DDDDDDDDDDDDDD9DD0000DD99
        DD77777777779DDD0000DD999000000000099DDD0000DDD990BFFFBFFF99DDDD
        0000DDDD99FCCCCCCF97DDDD0000DDDD999FBFFFB997DDDD0000DDDDD999CCC9
        9907DDDD0000DDDDD0999FB99F07DDDD0000DDDDD0FC9999CF07DDDD0000DDDD
        D0FF9999BF07DDDD0000DDDDD0FC99990007DDDD0000DDDDD0B99F099F07DDDD
        0000DDDDD0999F09999DDDDD0000DDDD999FBF0F0D99DDDD0000DD9999000000
        DDD99DDD0000DD999DDDDDDDDDDDD9DD0000DDDDDDDDDDDDDDDDDD9D0000DDDD
        DDDDDDDDDDDDDDDD0000}
      OnClick = SptndeleteClick
    end
    object Sptnclose: TSpeedButton
      Left = 704
      Top = 8
      Width = 73
      Height = 25
      Caption = #20851#38381'(&E)'
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FFFFFF00FFFFFF000000000000000000FFFFFF000000000000000000FFFF
        FF000000000000000000FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00
        FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
        0000000000008080800000000000000000008080800000000000FF00FF00FF00
        FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
        0000FF00FF008080800000000000000000008080800000000000FF00FF00FF00
        FF0000000000000000000000000000000000000000000000000000000000FF00
        FF00FF00FF008080800080808000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF000000
        0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
        0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF000000000000000000000000000000000000000000000000008080
        8000FF00FF00000000008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00000000000000FF000000FF000000FF000000FF00000000008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000FF000000FF000000FF000000FF0000000000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF000000000000000000000000000000FF000000000080808000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0000000000000000000000000080808000808080008080
        800000000000FF00FF008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        80008080800000000000FF00FF0080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        8000808080008080800000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      OnClick = SptncloseClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 1017
    Height = 185
    BevelOuter = bvSpace
    Color = clSkyBlue
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 78
      Height = 13
      Caption = ' '#29983#20135#20225#19994'  '#65306'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 184
      Top = 40
      Width = 69
      Height = 13
      Caption = #33647#21697#21517#31216'  '#65306' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 512
      Top = 40
      Width = 51
      Height = 13
      Caption = #21830#21697#21517' '#65306