frmdsch01_detalp.~dfm

进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文、PPT答辩资料等

inherited FrmDsCh01_Detal: TFrmDsCh01_Detal
  Left = 215
  Top = 109
  Caption = #37319#36141#21333#32500#25252#20316#19994
  ClientHeight = 304
  ClientWidth = 551
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Img1: TImage [0]
    Left = -66
    Top = -236
    Width = 619
    Height = 541
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 20
    Top = 10
    Width = 365
    Height = 27
    AutoSize = False
    Caption = #37319#36141#21333#26126#32454#32500#25252#20316#19994
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel [2]
    Left = 18
    Top = 10
    Width = 375
    Height = 27
    AutoSize = False
    Caption = #37319#36141#21333#26126#32454#32500#25252#20316#19994
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Shape1: TShape [3]
    Left = -56
    Top = 41
    Width = 605
    Height = 2
    Pen.Width = 2
  end
  object Shape2: TShape [4]
    Left = -52
    Top = 44
    Width = 601
    Height = 1
    Pen.Color = clWindow
  end
  object Label3: TLabel [5]
    Left = 16
    Top = 66
    Width = 89
    Height = 25
    AutoSize = False
    Caption = #37319#36141#21333#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel [6]
    Left = 272
    Top = 63
    Width = 57
    Height = 26
    AutoSize = False
    Caption = #39033'    '#27425
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label8: TLabel [7]
    Left = 15
    Top = 186
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #24065'          '#21035
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = FrmBaseForm.PopM1
    Transparent = True
  end
  object Label5: TLabel [8]
    Left = 15
    Top = 106
    Width = 89
    Height = 25
    AutoSize = False
    Caption = #26009#21697#32534#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel [9]
    Left = 15
    Top = 143
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #21333'          '#20301
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel [10]
    Left = 271
    Top = 143
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #21378'     '#21830
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label9: TLabel [11]
    Left = 271
    Top = 188
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #21333'     '#20215
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label10: TLabel [12]
    Left = 15
    Top = 231
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #38656#29992#26085#26399
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label11: TLabel [13]
    Left = 271
    Top = 231
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #25968'     '#37327
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label12: TLabel [14]
    Left = 15
    Top = 271
    Width = 89
    Height = 23
    AutoSize = False
    Caption = #22791'          '#27880
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Edit1: TEdit [15]
    Left = 104
    Top = 62
    Width = 161
    Height = 28
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object Edit2: TEdit [16]
    Left = 335
    Top = 61
    Width = 82
    Height = 28
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
  end
  object Edit7: TEdit [17]
    Left = 423
    Top = 142
    Width = 122
    Height = 28
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object Edit3: TEdit [18]
    Left = 103
    Top = 101
    Width = 162
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 3
    OnDblClick = Edit3DblClick
    OnExit = Edit3Exit
  end
  object Edit4: TEdit [19]
    Left = 271
    Top = 101
    Width = 274
    Height = 28
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object Edit5: TEdit [20]
    Left = 103
    Top = 141
    Width = 82
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object Edit6: TEdit [21]
    Left = 335
    Top = 141
    Width = 82
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 6
    OnDblClick = Edit6DblClick
    OnExit = Edit6Exit
  end
  object Edit8: TEdit [22]
    Left = 334
    Top = 183
    Width = 82
    Height = 28
    Hint = #21452#20987#26174#31034#27492#21378#21830#30340#25253#20215#35760#24405
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnExit = Edit8Exit
  end
  object Edit9: TEdit [23]
    Left = 103
    Top = 181
    Width = 82
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 8
  end
  object Edit10: TEdit [24]
    Left = 191
    Top = 182
    Width = 74
    Height = 28
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
  end
  object Edit11: TEdit [25]
    Left = 101
    Top = 226
    Width = 82
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 10
  end
  object Edit13: TEdit [26]
    Left = 101
    Top = 266
    Width = 212
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 11
  end
  object Edit12: TEdit [27]
    Left = 333
    Top = 226
    Width = 84
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    ParentFont = False
    TabOrder = 12
    OnExit = Edit12Exit
  end
  object PopupMenu1: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 16
    Top = 16
    object MenuItem1: TMenuItem
      Caption = #26032#22686'/'#20445#23384
      ImageIndex = 0
      ShortCut = 113
      OnClick = popnewClick
    end
    object MenuItem2: TMenuItem
      Caption = #32534#36753'/'#21462#28040
      ImageIndex = 1
      ShortCut = 114
      OnClick = popeditClick
    end
    object MenuItem3: TMenuItem
      Caption = #21024#38500
      ImageIndex = 2
      ShortCut = 115
      OnClick = popdelClick
    end
    object MenuItem4: TMenuItem
      Caption = #25554#20837#19968#31508
      ImageIndex = 3
      ShortCut = 45
      OnClick = popinsertClick
    end
    object MenuItem5: TMenuItem
      Caption = #21024#38500#19968#31508
      ImageIndex = 15
      ShortCut = 46
      Visible = False
      OnClick = popsubdelClick
    end
    object MenuItem6: TMenuItem
      Caption = '-'
    end
    object MenuItem7: TMenuItem
      Caption = #25171#21360
      ImageIndex = 4
      ShortCut = 117
      OnClick = popprintClick
    end
    object MenuItem8: TMenuItem
      Caption = #26597#25214
      ImageIndex = 5
      ShortCut = 118
      OnClick = popfindClick
    end
    object MenuItem9: TMenuItem
      Caption = '-'
    end
    object MenuItem10: TMenuItem
      Caption = #26368#21069#31508
      ImageIndex = 6
      ShortCut = 120
      OnClick = poptopClick
    end
    object MenuItem11: TMenuItem
      Caption = #19978#19968#31508
      ImageIndex = 7
      ShortCut = 121
      OnClick = popbackClick
    end
    object MenuItem12: TMenuItem
      Caption = #19979#19968#31508
      ImageIndex = 8
      ShortCut = 122
      OnClick = popnextClick
    end
    object MenuItem13: TMenuItem
      Caption = #26368#26411#31508
      SubMenuImages = FrmMain.ImageList1
      ImageIndex = 9
      ShortCut = 123
      OnClick = poplastClick
    end
    object MenuItem14: TMenuItem
      Caption = '-'
    end
    object MenuItem15: TMenuItem
      Caption = #30830#35748'/'#21453#30830#35748
      ImageIndex = 10
      ShortCut = 119
      OnClick = popcheckClick
    end
    object MenuItem16: TMenuItem
      Caption = #36864#20986
      ImageIndex = 11
      OnClick = popquitClick
    end
  end
  object PopupMenu2: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 16
    Top = 16
    object MenuItem17: TMenuItem
      Caption = #26032#22686'/'#20445#23384
      ImageIndex = 0
      ShortCut = 113
      OnClick = popnewClick
    end
    object MenuItem18: TMenuItem
      Caption = #32534#36753'/'#21462#28040
      ImageIndex = 1
      ShortCut = 114
      OnClick = popeditClick
    end
    object MenuItem19: TMenuItem
      Caption = #21024#38500
      ImageIndex = 2
      ShortCut = 115
      OnClick = popdelClick
    end
    object MenuItem20: TMenuItem
      Caption = #25554#20837#19968#31508
      ImageIndex = 3
      ShortCut = 45
      OnClick = popinsertClick
    end
    object MenuItem21: TMenuItem
      Caption = #21024#38500#19968#31508
      ImageIndex = 15
      ShortCut = 46
      Visible = False
      OnClick = popsubdelClick
    end
    object MenuItem22: TMenuItem
      Caption = '-'
    end
    object MenuItem23: TMenuItem
      Caption = #25171#21360
      ImageIndex = 4
      ShortCut = 117
      OnClick = popprintClick
    end
    object MenuItem24: TMenuItem
      Caption = #26597#25214
      ImageIndex = 5
      ShortCut = 118
      OnClick = popfindClick
    end
    object MenuItem25: TMenuItem
      Caption = '-'
    end
    object MenuItem26: TMenuItem
      Caption = #26368#21069#31508
      ImageIndex = 6
      ShortCut = 120
      OnClick = poptopClick
    end
    object MenuItem27: TMenuItem
      Caption = #19978#19968#31508
      ImageIndex = 7
      ShortCut = 121
      OnClick = popbackClick
    end
    object MenuItem28: TMenuItem
      Caption = #19979#19968#31508
      ImageIndex = 8
      ShortCut = 122
      OnClick = popnextClick
    end
    object MenuItem29: TMenuItem
      Caption = #26368#26411#31508
      SubMenuImages = FrmMain.ImageList1
      ImageIndex = 9
      ShortCut = 123
      OnClick = poplastClick
    end
    object MenuItem30: TMenuItem
      Caption = '-'
    end
    object MenuItem31: TMenuItem
      Caption = #30830#35748'/'#21453#30830#35748
      ImageIndex = 10
      ShortCut = 119
      OnClick = popcheckClick
    end
    object MenuItem32: TMenuItem
      Caption = #36864#20986
      ImageIndex = 11
      OnClick = popquitClick
    end
  end
  object ADOQ_DsCh03: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    Left = 192
    Top = 64
  end
  object ADOQ_DsSu00: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsSu00 Order By Su_no')
    Left = 352
    Top = 144
  end
  object ADOQ_DsODID: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsODID Order By Fid')
    Left = 120
    Top = 184
  end
  object ADOQ_DsEl00: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsEl00 Order By El_NO')
    Left = 112
    Top = 104
  end
  object ADOQ_DsEl01: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    Left = 376
    Top = 184
  end
end