frmdssu01p.~dfm

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

inherited FrmDsSu01: TFrmDsSu01
  Left = 210
  Top = 230
  Caption = #21378#21830#25253#20215#36164#26009#32500#25252
  ClientHeight = 384
  ClientWidth = 543
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Img1: TImage [0]
    Left = -25
    Top = -8
    Width = 615
    Height = 465
    PopupMenu = FrmBaseForm.PopM1
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 20
    Top = 10
    Width = 365
    Height = 27
    AutoSize = False
    Caption = #21378#21830#25253#20215#36164#26009#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 = 327
    Height = 27
    AutoSize = False
    Caption = #21378#21830#25253#20215#36164#26009#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 = #25253#20215#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 = 224
    Top = 63
    Width = 81
    Height = 26
    AutoSize = False
    Caption = #21378#21830#20195#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 [7]
    Left = 16
    Top = 110
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #25253#20215#26085#26399
    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 = 224
    Top = 110
    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 Label7: TLabel [9]
    Left = 16
    Top = 150
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #25253'  '#20215'   '#20154
    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 Label8: TLabel [10]
    Left = 223
    Top = 191
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #30830'   '#35748'  '#20154
    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 Label9: TLabel [11]
    Left = 16
    Top = 190
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #30830#35748#26085#26399
    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 Label10: TLabel [12]
    Left = 360
    Top = 10
    Width = 89
    Height = 25
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Edit1: TEdit [13]
    Left = 104
    Top = 62
    Width = 105
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 0
    OnDblClick = Edit1DblClick
    OnExit = Edit1Exit
  end
  object Edit2: TEdit [14]
    Left = 311
    Top = 61
    Width = 66
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 1
    OnDblClick = Edit2DblClick
    OnExit = Edit2Exit
  end
  object dg1: TDBGrid [15]
    Left = 8
    Top = 224
    Width = 523
    Height = 145
    Hint = #22312#20462#25913#29366#24577#21452#20987#21487#20462#25913#34920#36523
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #33521#25976
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColEnter = dg1ColEnter
    OnDrawColumnCell = dg1DrawColumnCell
    OnDblClick = dg1DblClick
    OnKeyPress = dg1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'SU_ID'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'SU_SNO'
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SU_NO'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'EL_NO'
        PickList.Strings = (
          '1'
          '2')
        Title.Alignment = taCenter
        Title.Caption = #26009#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EL_UNIT'
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EL_PRICE'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SU_NOTE'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object Edit3: TEdit [16]
    Left = 385
    Top = 60
    Width = 106
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 2
  end
  object Edit4: TEdit [17]
    Left = 311
    Top = 106
    Width = 66
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 3
    OnDblClick = Edit4DblClick
    OnExit = Edit4Exit
  end
  object Edit5: TEdit [18]
    Left = 383
    Top = 106
    Width = 146
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 4
  end
  object Edit6: TEdit [19]
    Left = 103
    Top = 146
    Width = 106
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 5
    OnDblClick = Edit6DblClick
    OnExit = Edit6Exit
  end
  object Edit7: TEdit [20]
    Left = 215
    Top = 147
    Width = 98
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 7
  end
  object DTP1: TDateTimePicker [21]
    Left = 103
    Top = 106
    Width = 105
    Height = 28
    Date = 38463.683102592600000000
    Time = 38463.683102592600000000
    Color = cl3DLight
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    ParentFont = False
    TabOrder = 9
  end
  object DTP2: TDateTimePicker [22]
    Left = 103
    Top = 186
    Width = 105
    Height = 28
    Date = 38463.683102592600000000
    Time = 38463.683102592600000000
    Color = cl3DLight
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    ParentFont = False
    TabOrder = 10
  end
  object Edit9: TEdit [23]
    Left = 423
    Top = 187
    Width = 98
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 6
  end
  object Edit8: TEdit [24]
    Left = 311
    Top = 186
    Width = 106
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 8
    OnExit = Edit8Exit
  end
  inherited PopM1: TPopupMenu
    Left = 0
    Top = 8
  end
  object ADOQ_DsSu01: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsSu01 Order By Su_Id')
    Left = 296
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOQ_DsSu01
    Left = 384
    Top = 88
  end
  object ADOQ_DsSu00: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsSu00 Order By Su_no')
    Left = 336
    Top = 64
  end
  object ADOQ_DsSu02: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    AfterPost = ADOQ_DsSu02AfterPost
    Parameters = <
      item
        Name = 'Edit1.text'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'Select * From DsSu02   where DsSu02.Su_ID=Edit1.text Order By Su' +
        '_Id,Su_Sno')
    Left = 352
    Top = 144
  end
  object DataSource2: TDataSource
    DataSet = ADOQ_DsSu02
    Left = 408
    Top = 144
  end
  object ADOQ_DsODID: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsODID Order By Fid')
    Left = 336
    Top = 104
  end
  object ADOQ_DsUser01: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsUser01 Order By Fuserid')
    Left = 152
    Top = 144
  end
  object ADOQ_DelDsSu02: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    AfterPost = ADOQ_DsSu02AfterPost
    Parameters = <
      item
        Name = 'Edit1.text'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'Select * From DsSu02   where DsSu02.Su_ID=Edit1.text Order By Su' +
        '_Id,Su_Sno')
    Left = 184
    Top = 256
  end
  object ADOQ_DsTableLog: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    AfterPost = ADOQ_DsSu02AfterPost
    Parameters = <
      item
        Name = 'Edit1.text'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'Select * From DsTableLog    Order By Fid')
    Left = 344
    Top = 280
  end
end