frmdsrightp.dfm

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

inherited FrmDsRight: TFrmDsRight
  Left = 107
  Top = 148
  Caption = #29992#25143#26435#38480#35774#23450#20316#19994
  ClientHeight = 381
  ClientWidth = 586
  ParentFont = False
  Font.Height = -16
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 20
  object Img1: TImage [0]
    Left = -37
    Top = -48
    Width = 622
    Height = 425
    PopupMenu = FrmBaseForm.PopM1
    Stretch = True
  end
  object Label1: TLabel [1]
    Left = 16
    Top = 10
    Width = 241
    Height = 27
    AutoSize = False
    Caption = #29992#25143#26435#38480#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 = 256
    Height = 27
    AutoSize = False
    Caption = #29992#25143#26435#38480#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 = -21
    Top = 41
    Width = 605
    Height = 2
    Pen.Width = 2
  end
  object Shape2: TShape [4]
    Left = -18
    Top = 44
    Width = 601
    Height = 1
    Pen.Color = clWindow
  end
  object Label3: TLabel [5]
    Left = 16
    Top = 66
    Width = 73
    Height = 25
    AutoSize = False
    Caption = #29992'  '#25142'  '#21517
    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 = #30011#38754#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 Label6: TLabel [7]
    Left = 16
    Top = 145
    Width = 81
    Height = 24
    AutoSize = False
    Caption = #26435#38480#20998#37197
    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 = 119
    Top = 145
    Width = 90
    Height = 20
    AutoSize = False
    Caption = #25152#26377#26435#38480
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    PopupMenu = FrmBaseForm.PopM1
    Transparent = True
  end
  object Label7: TLabel [9]
    Left = 119
    Top = 171
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #26597#30475
    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 = 239
    Top = 171
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #26032#22686
    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 = 359
    Top = 171
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #20462#25913
    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 = 479
    Top = 171
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #21024#38500
    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 Label11: TLabel [13]
    Left = 119
    Top = 199
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #25554#20837
    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 Label12: TLabel [14]
    Left = 239
    Top = 199
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #21015#21360
    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 Label13: TLabel [15]
    Left = 359
    Top = 199
    Width = 73
    Height = 24
    AutoSize = False
    Caption = #23457#26680
    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 [16]
    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 [17]
    Left = 224
    Top = 61
    Width = 137
    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 Edit3: TEdit [18]
    Left = 103
    Top = 101
    Width = 114
    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
    OnExit = Edit3Exit
  end
  object Edit4: TEdit [19]
    Left = 230
    Top = 101
    Width = 242
    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
  end
  object Chk1: TCheckBox [20]
    Left = 102
    Top = 146
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 4
    OnClick = Chk1Click
  end
  object Chk2: TCheckBox [21]
    Left = 102
    Top = 172
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 5
  end
  object Chk3: TCheckBox [22]
    Left = 222
    Top = 172
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 6
  end
  object Chk4: TCheckBox [23]
    Left = 342
    Top = 172
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 7
  end
  object Chk5: TCheckBox [24]
    Left = 462
    Top = 172
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 8
  end
  object Chk6: TCheckBox [25]
    Left = 102
    Top = 200
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 9
  end
  object Chk7: TCheckBox [26]
    Left = 222
    Top = 200
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 10
  end
  object Chk8: TCheckBox [27]
    Left = 342
    Top = 200
    Width = 12
    Height = 15
    Enabled = False
    TabOrder = 11
  end
  object dg1: TDBGrid [28]
    Left = 4
    Top = 224
    Width = 573
    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 = 12
    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 = #29992#25143#20195#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fname'
        Title.Alignment = taCenter
        Title.Caption = #30011#38754#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fall'
        Title.Alignment = taCenter
        Title.Caption = #25152#26377#26435#38480
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fopen'
        Title.Alignment = taCenter
        Title.Caption = #26597#30475
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fnew'
        Title.Alignment = taCenter
        Title.Caption = #26032#22686
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fedit'
        Title.Alignment = taCenter
        Title.Caption = #20462#25913
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fdel'
        Title.Alignment = taCenter
        Title.Caption = #21024#38500
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'finsert'
        Title.Alignment = taCenter
        Title.Caption = #25554#20837
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fprint'
        Title.Alignment = taCenter
        Title.Caption = #25171#21360
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fok'
        Title.Alignment = taCenter
        Title.Caption = #23457#26680
        Visible = True
      end>
  end
  inherited PopM1: TPopupMenu
    Left = 536
    Top = 144
  end
  object ADOQ_DsRight: TADOQuery
    Connection = DataM1.Adoc
    Parameters = <>
    SQL.Strings = (
      'Select * From DsRight Order By FuserId')
    Left = 400
    Top = 56
    object ADOQ_DsRightfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object ADOQ_DsRightfname: TWideStringField
      FieldName = 'fname'
    end
    object ADOQ_DsRightfuserid: TWideStringField
      FieldName = 'fuserid'
      Size = 5
    end
    object ADOQ_DsRightfall: TBooleanField
      FieldName = 'fall'
    end
    object ADOQ_DsRightfopen: TBooleanField
      FieldName = 'fopen'
    end
    object ADOQ_DsRightfnew: TBooleanField
      FieldName = 'fnew'
    end
    object ADOQ_DsRightfedit: TBooleanField
      FieldName = 'fedit'
    end
    object ADOQ_DsRightfdel: TBooleanField
      FieldName = 'fdel'
    end
    object ADOQ_DsRightfinsert: TBooleanField
      FieldName = 'finsert'
    end
    object ADOQ_DsRightfprint: TBooleanField
      FieldName = 'fprint'
    end
    object ADOQ_DsRightfok: TBooleanField
      FieldName = 'fok'
    end
  end
  object ADOQ_DsUser: TADOQuery
    Connection = DataM1.Adoc
    Parameters = <>
    SQL.Strings = (
      'Select * From DsUser Order By FuserID')
    Left = 416
    Top = 136
  end
  object ADOQ_DsDbfTag: TADOQuery
    Connection = DataM1.Adoc
    Parameters = <>
    SQL.Strings = (
      'Select * From DsDbfTag order By Fid')
    Left = 432
    Top = 184
    object ADOQ_DsDbfTagfid: TWideStringField
      FieldName = 'fid'
    end
    object ADOQ_DsDbfTagfname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object ADOQ_DsDbfTagfnote: TWideStringField
      FieldName = 'fnote'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQ_DsRight
    Left = 456
    Top = 72
  end
end