frmdsmt00p.~dfm

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

inherited FrmDsMt00: TFrmDsMt00
  Left = 231
  Top = 136
  Caption = #24211#23384#36164#26009#24322#21160#26597#35810
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Img1: TImage [0]
    Left = -73
    Top = -72
    Width = 626
    Height = 425
    PopupMenu = FrmBaseForm.PopM1
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 16
    Top = 10
    Width = 273
    Height = 27
    AutoSize = False
    Caption = #24211#23384#36164#26009#24322#21160#26597#35810
    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 = 272
    Height = 27
    AutoSize = False
    Caption = #24211#23384#36164#26009#24322#21160#26597#35810
    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 = #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 Label4: TLabel [6]
    Left = 16
    Top = 103
    Width = 81
    Height = 26
    AutoSize = False
    Caption = #21697#21517#35268#26684
    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 = 149
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #24322#21160#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 = 312
    Top = 66
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #24211' '#23384' '#25968
    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 = 232
    Top = 149
    Width = 49
    Height = 24
    AutoSize = False
    Caption = #21040
    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 [10]
    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
    PopupMenu = FrmBaseForm.PopM1
    ReadOnly = True
    TabOrder = 0
    OnDblClick = Edit1DblClick
    OnExit = Edit1Exit
  end
  object Edit2: TEdit [11]
    Left = 103
    Top = 101
    Width = 290
    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 dg1: TDBGrid [12]
    Left = 8
    Top = 192
    Width = 523
    Height = 145
    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 = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = dg1CellClick
    OnDrawColumnCell = dg1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'MT_KIND'
        Title.Caption = #24322#21160#31867#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MT_ID'
        Title.Caption = #24322#21160#21333#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MT_IDQTY'
        Title.Caption = #24322#21160#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MT_DATE'
        Title.Caption = #24322#21160#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MT_CMAKER'
        Title.Caption = #24322#21160#20154
        Visible = True
      end>
  end
  object Edit3: TEdit [13]
    Left = 103
    Top = 145
    Width = 114
    Height = 28
    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
    TabOrder = 3
  end
  object Edit4: TEdit [14]
    Left = 279
    Top = 145
    Width = 114
    Height = 28
    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
    TabOrder = 4
  end
  object Edit5: TEdit [15]
    Left = 391
    Top = 64
    Width = 130
    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
  end
  object BitBtn1: TBitBtn [16]
    Left = 408
    Top = 144
    Width = 75
    Height = 33
    Caption = '&O'#26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = BitBtn1Click
  end
  object ADOQ_DsMt00: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsMt00 Order By El_No')
    Left = 400
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOQ_DsMt01
    Left = 456
    Top = 72
  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_DsMt01: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select * From DsMt01 Where El_No=Edit1.Text Order By El_No,Mt_Da' +
        'te')
    Left = 48
    Top = 224
  end
end