mrcpckth.~dfm

这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理

object cpckth: Tcpckth
  Left = 211
  Top = 345
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #36864#36135#20449#24687
  ClientHeight = 258
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 4
    Top = 2
    Width = 499
    Height = 247
    Caption = #20986#36135#20449#24687#19968#35272
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 7
      Top = 14
      Width = 490
      Height = 227
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = BitBtn3Click
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cpbh'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#32534#21495
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cpmc'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21517#31216
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cpxh'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#22411#21495
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cpbs'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#26631#35782
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'rdate'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21806#20986#26085#26399
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'jsr'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21806#36135#20154
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'dan'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'shuliang'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21806#20986#25968#37327
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cx'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #36710#22411
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cd'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #20135#22320
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'khbh'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#32534#21495
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'khqc'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#20840#31216
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'lxdh'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ling'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #38646#21806#20215
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'je'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #37329#39069
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ying'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #24212#25910#27454
          Width = 100
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 510
    Top = 81
    Width = 127
    Height = 168
    Caption = #31995#32479#25805#20316#26639
    TabOrder = 1
    OnDblClick = BitBtn3Click
    object BitBtn1: TBitBtn
      Left = 18
      Top = 13
      Width = 92
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 18
      Top = 52
      Width = 92
      Height = 25
      Caption = #21047'  '#26032
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 18
      Top = 90
      Width = 92
      Height = 25
      Caption = #36864'  '#36135
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 18
      Top = 129
      Width = 92
      Height = 25
      Caption = #36864'  '#20986
      TabOrder = 3
      OnClick = BitBtn4Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 510
    Top = 3
    Width = 127
    Height = 78
    Caption = #20449#24687#26597#35810#26639
    TabOrder = 2
    object Label1: TLabel
      Left = 58
      Top = 34
      Width = 8
      Height = 14
      Caption = '='
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 12
      Top = 15
      Width = 105
      Height = 18
      Style = csOwnerDrawVariable
      ItemHeight = 12
      TabOrder = 0
      OnClick = ComboBox1Click
      Items.Strings = (
        #20135#21697#32534#21495
        #20135#21697#21517#31216
        #20135#21697#22411#21495
        #23458#25143#32534#21495
        #23458#25143#20840#31216
        #25910#36135#20154)
    end
    object Edit1: TEdit
      Left = 13
      Top = 48
      Width = 105
      Height = 20
      TabOrder = 1
      Text = 'Edit1'
      OnKeyPress = Edit1KeyPress
    end
  end
  object Table1: TTable
    DatabaseName = 'user'
    TableName = 'chanck'
    Left = 136
    Top = 72
    object Table1id: TAutoIncField
      FieldName = 'id'
    end
    object Table1cpbh: TStringField
      FieldName = 'cpbh'
    end
    object Table1cpmc: TStringField
      FieldName = 'cpmc'
      Size = 60
    end
    object Table1cpxh: TStringField
      FieldName = 'cpxh'
      Size = 40
    end
    object Table1cpbs: TStringField
      FieldName = 'cpbs'
      Size = 40
    end
    object Table1rdate: TDateTimeField
      FieldName = 'rdate'
    end
    object Table1jsr: TStringField
      FieldName = 'jsr'
      Size = 40
    end
    object Table1dan: TStringField
      FieldName = 'dan'
      Size = 8
    end
    object Table1shuliang: TStringField
      FieldName = 'shuliang'
    end
    object Table1cx: TStringField
      FieldName = 'cx'
      Size = 40
    end
    object Table1cd: TStringField
      FieldName = 'cd'
      Size = 40
    end
    object Table1khbh: TStringField
      FieldName = 'khbh'
    end
    object Table1khqc: TStringField
      FieldName = 'khqc'
      Size = 80
    end
    object Table1lxdh: TStringField
      FieldName = 'lxdh'
      Size = 30
    end
    object Table1ling: TFloatField
      FieldName = 'ling'
    end
    object Table1je: TFloatField
      FieldName = 'je'
    end
    object Table1ying: TFloatField
      FieldName = 'ying'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 72
  end
  object DataSource2: TDataSource
    Left = 96
    Top = 136
  end
  object Table2: TTable
    DatabaseName = 'user'
    TableName = 'chanth'
    Left = 163
    Top = 71
    object Table2cpbh: TStringField
      FieldName = 'cpbh'
    end
    object Table2cpmc: TStringField
      FieldName = 'cpmc'
      Size = 60
    end
    object Table2cpxh: TStringField
      FieldName = 'cpxh'
      Size = 40
    end
    object Table2cpbs: TStringField
      FieldName = 'cpbs'
      Size = 40
    end
    object Table2rdate: TDateTimeField
      FieldName = 'rdate'
    end
    object Table2jsr: TStringField
      FieldName = 'jsr'
      Size = 40
    end
    object Table2tdate: TDateTimeField
      FieldName = 'tdate'
    end
    object Table2tui: TStringField
      FieldName = 'tui'
      Size = 40
    end
    object Table2dan: TStringField
      FieldName = 'dan'
      Size = 8
    end
    object Table2shuliang: TStringField
      FieldName = 'shuliang'
    end
    object Table2cx: TStringField
      FieldName = 'cx'
      Size = 40
    end
    object Table2cd: TStringField
      FieldName = 'cd'
      Size = 40
    end
    object Table2khbh: TStringField
      FieldName = 'khbh'
    end
    object Table2khqc: TStringField
      FieldName = 'khqc'
      Size = 80
    end
    object Table2lxdh: TStringField
      FieldName = 'lxdh'
      Size = 30
    end
    object Table2ling: TFloatField
      FieldName = 'ling'
    end
    object Table2je: TFloatField
      FieldName = 'je'
    end
    object Table2ying: TFloatField
      FieldName = 'ying'
    end
  end
end