frmdsel01p.dfm

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

inherited FrmDsEL01: TFrmDsEL01
  Left = 207
  Top = 215
  Caption = #26009#21697#25253#20215#36164#26009#26597#30475#20316#19994
  ClientHeight = 366
  ClientWidth = 512
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Img1: TImage [0]
    Left = -40
    Top = -48
    Width = 633
    Height = 425
    PopupMenu = FrmBaseForm.PopM1
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 16
    Top = 10
    Width = 313
    Height = 27
    AutoSize = False
    Caption = #26009#21697#25253#20215#36164#26009#26597#30475#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 = 303
    Height = 27
    AutoSize = False
    Caption = #26009#21697#25253#20215#36164#26009#26597#30475#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 = -110
    Top = 41
    Width = 605
    Height = 2
    Pen.Width = 2
  end
  object Shape2: TShape [4]
    Left = -106
    Top = 44
    Width = 601
    Height = 1
    Pen.Color = clWindow
  end
  object PgC1: TPageControl [5]
    Left = 0
    Top = 49
    Width = 497
    Height = 305
    ActivePage = TabS2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = PgC1Change
    object TabS1: TTabSheet
      Caption = #26009#21495#26597#35810
      OnEnter = TabS1Enter
      OnShow = TabS1Show
      object Img2: TImage
        Left = -152
        Top = -164
        Width = 641
        Height = 425
        PopupMenu = FrmBaseForm.PopM1
        Stretch = True
      end
      object Label4: TLabel
        Left = 8
        Top = 18
        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 Label5: TLabel
        Left = 8
        Top = 62
        Width = 89
        Height = 24
        AutoSize = False
        Caption = #21382#21490#21333#20215
        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 Edit1: TEdit
        Left = 88
        Top = 14
        Width = 161
        Height = 28
        Hint = #21452#20987#25110#22238#36710#21518#26597#35810
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #33521#25976
        ParentFont = False
        ParentShowHint = False
        PopupMenu = FrmBaseForm.PopM1
        ShowHint = True
        TabOrder = 0
        OnDblClick = Edit1DblClick
        OnExit = Edit1Exit
      end
      object Edit2: TEdit
        Left = 256
        Top = 13
        Width = 225
        Height = 28
        AutoSize = False
        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
      end
      object Edit3: TEdit
        Left = 87
        Top = 58
        Width = 113
        Height = 28
        AutoSize = False
        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 DG1: TDBGrid
        Left = 8
        Top = 95
        Width = 481
        Height = 191
        DataSource = DataSource1
        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
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DG1DrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'SU_NO'
            Title.Alignment = taCenter
            Title.Caption = #21378#21830#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OD_ID'
            Title.Alignment = taCenter
            Title.Caption = #24065#21035#21517#31216' '
            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 = 'EL_DATE'
            Title.Caption = #25253#20215#29983#25928#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EL_NOTE'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Visible = True
          end>
      end
      object BitBtn2: TBitBtn
        Left = 256
        Top = 58
        Width = 145
        Height = 29
        Caption = #21047#26032#21382#21490#21333#20215
        TabOrder = 4
        OnClick = BitBtn2Click
        Kind = bkOK
      end
    end
    object TabS2: TTabSheet
      Caption = #21378#21830#26597#35810
      ImageIndex = 1
      OnEnter = TabS2Enter
      OnShow = TabS2Show
      object Img3: TImage
        Left = -152
        Top = -164
        Width = 641
        Height = 425
        PopupMenu = FrmBaseForm.PopM1
        Stretch = True
      end
      object Label7: TLabel
        Left = 8
        Top = 12
        Width = 89
        Height = 25
        AutoSize = False
        Caption = #21378#21830#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 Label8: TLabel
        Left = 8
        Top = 46
        Width = 89
        Height = 24
        AutoSize = False
        Caption = #21382#21490#21333#20215
        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 Edit4: TEdit
        Left = 88
        Top = 8
        Width = 161
        Height = 28
        Hint = #21452#20987#25110#22238#36710#21518#26597#35810
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #33521#25976
        ParentFont = False
        ParentShowHint = False
        PopupMenu = FrmBaseForm.PopM1
        ShowHint = True
        TabOrder = 0
        OnDblClick = Edit4DblClick
        OnExit = Edit4Exit
      end
      object Edit6: TEdit
        Left = 87
        Top = 42
        Width = 113
        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 Edit5: TEdit
        Left = 256
        Top = 7
        Width = 225
        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
      end
      object DG2: TDBGrid
        Left = 8
        Top = 79
        Width = 481
        Height = 191
        DataSource = DataSource1
        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
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DG2DrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'EL_NO'
            Title.Alignment = taCenter
            Title.Caption = #26009#21697#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OD_ID'
            Title.Alignment = taCenter
            Title.Caption = #24065#21035#21517#31216' '
            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 = 'EL_DATE'
            Title.Alignment = taCenter
            Title.Caption = #25253#20215#29983#25928#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EL_NOTE'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EL_PRICE'
            Title.Caption = #21382#21490#21333#20215
            Visible = True
          end>
      end
      object BitBtn1: TBitBtn
        Left = 256
        Top = 42
        Width = 145
        Height = 29
        Caption = #21047#26032#21382#21490#21333#20215
        TabOrder = 3
        Kind = bkOK
      end
    end
  end
  object ADOQ_DsEl01a: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsEL01 Order By El_No')
    Left = 224
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOQ_DsEl01Sub
    Left = 384
    Top = 8
  end
  object ADOQ_DsEl01Sub: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsEL01  Order By El_No')
    Left = 352
    Top = 8
  end
  object ADOQ_DsEl00: TADOQuery
    Connection = DataM1.Adoc
    Parameters = <>
    SQL.Strings = (
      'Select * From DsEl00 Order By EL_NO')
    Left = 472
    Top = 8
  end
  object ADOQ_DsSu00: TADOQuery
    Connection = DataM1.Adoc
    Parameters = <>
    SQL.Strings = (
      'Select * From DsSu00 Order By Su_No')
    Left = 432
    Top = 8
  end
  object ADOQ_DsEL01b: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsEL01 Order By Su_No')
    Left = 408
    Top = 136
  end
end