frmdsuser01p.dfm

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

inherited FrmDsUser01: TFrmDsUser01
  Left = 204
  Top = 163
  Caption = #32463#21150#20154#21592#35774#23450#20316#19994
  ClientWidth = 541
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Img1: TImage [0]
    Left = -73
    Top = -72
    Width = 615
    Height = 425
    PopupMenu = FrmBaseForm.PopM1
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 16
    Top = 10
    Width = 273
    Height = 27
    AutoSize = False
    Caption = #32463#21150#20154#21592#35774#23450#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 = 272
    Height = 27
    AutoSize = False
    Caption = #32463#21150#20154#21592#35774#23450#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 = #29992#25143#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 Label4: TLabel [6]
    Left = 224
    Top = 67
    Width = 81
    Height = 26
    AutoSize = False
    Caption = #29992#25143#21517#31216
    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 [7]
    Left = 16
    Top = 110
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #37096#38376#20195#21495
    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 [8]
    Left = 16
    Top = 158
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #22791'          '#27880
    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 [9]
    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
    OnExit = Edit1Exit
  end
  object Edit2: TEdit [10]
    Left = 311
    Top = 61
    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 = 1
  end
  object dg1: TDBGrid [11]
    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 = 'fuserid'
        Title.Alignment = taCenter
        Title.Caption = #32463#21150#20154#20195#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fusername'
        Title.Alignment = taCenter
        Title.Caption = #32463#21150#20154#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fdeptno'
        Title.Alignment = taCenter
        Title.Caption = #32463#21150#20154#37096#38376
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fnote'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object Edit3: TEdit [12]
    Left = 103
    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
    OnExit = Edit3Exit
  end
  object Edit4: TEdit [13]
    Left = 175
    Top = 106
    Width = 138
    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 Edit5: TEdit [14]
    Left = 103
    Top = 154
    Width = 354
    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 ADOQ_DsUser01: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsUser01 Order By FuserId')
    Left = 400
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADOQ_DsUser01
    Left = 456
    Top = 72
  end
  object ADOQ_DsDept: TADOQuery
    Connection = DataM1.Adoc
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DsDept Order By Fid')
    Left = 408
    Top = 112
  end
end