user_type.dfm

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

object frm_User_Type: Tfrm_User_Type
  Left = 258
  Top = 150
  Width = 279
  Height = 285
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#31867#22411
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 271
    Height = 258
    Align = alClient
    Caption = 'Panel1'
    ParentColor = True
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 5
      Width = 96
      Height = 16
      Caption = #29992#25143#31867#22411#31649#29702
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 87
      Width = 269
      Height = 29
      Align = alBottom
      Caption = 'ToolBar1'
      TabOrder = 0
      object Cmd_Add: TSpeedButton
        Left = 0
        Top = 2
        Width = 45
        Height = 22
        Caption = #22686#21152
        Flat = True
        OnClick = Cmd_AddClick
      end
      object Cmd_Delete: TSpeedButton
        Left = 45
        Top = 2
        Width = 45
        Height = 22
        Caption = #21024#38500
        Flat = True
        OnClick = Cmd_DeleteClick
      end
      object Cmd_Edit: TSpeedButton
        Left = 90
        Top = 2
        Width = 45
        Height = 22
        Caption = #20462#25913
        Flat = True
        OnClick = Cmd_EditClick
      end
      object Cmd_Save: TSpeedButton
        Left = 135
        Top = 2
        Width = 45
        Height = 22
        Caption = #20445#23384
        Flat = True
        OnClick = Cmd_SaveClick
      end
      object Cmd_Exit: TSpeedButton
        Left = 180
        Top = 2
        Width = 45
        Height = 22
        Caption = #21047#26032
        Flat = True
        OnClick = FormShow
      end
      object Cmd_Cancel: TSpeedButton
        Left = 225
        Top = 2
        Width = 45
        Height = 22
        Caption = #20851#38381
        Flat = True
        OnClick = Cmd_CancelClick
      end
    end
    object Edit2: TLabeledEdit
      Left = 139
      Top = 63
      Width = 121
      Height = 23
      EditLabel.Width = 75
      EditLabel.Height = 15
      EditLabel.Caption = #31867#22411#21517#31216#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 1
    end
    object Edit1: TLabeledEdit
      Left = 139
      Top = 38
      Width = 121
      Height = 23
      EditLabel.Width = 75
      EditLabel.Height = 15
      EditLabel.Caption = #31867#22411#32534#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 2
    end
    object GroupBox1: TGroupBox
      Left = 9
      Top = 25
      Width = 253
      Height = 9
      Color = clActiveCaption
      ParentColor = False
      TabOrder = 3
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 116
      Width = 269
      Height = 141
      Align = alBottom
      DataSource = frm_Data.Data_User_Type
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'User_ID'
          Title.Caption = #31867#22411#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'User_Type'
          Title.Caption = #31867#22411#21517#31216
          Visible = True
        end>
    end
  end
end