unit5.dfm

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· DFM 代码 · 共 356 行

object Formke: TFormke
  Left = -4
  Top = -4
  Align = alCustom
  BorderStyle = bsNone
  Caption = #23458#25143#20449#24687
  ClientHeight = 553
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 800
    Top = 360
    Width = 42
    Height = 13
    Caption = 'Label8'
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 14
    Width = 777
    Height = 561
    Caption = #23458#25143#20449#24687#24405#20837#32500#25252
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object Panel2: TPanel
      Left = 26
      Top = 41
      Width = 729
      Height = 49
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object Label1: TLabel
        Left = 18
        Top = 18
        Width = 55
        Height = 13
        AutoSize = False
        Caption = #23458#25143#32534#21495
      end
      object Label2: TLabel
        Left = 198
        Top = 20
        Width = 57
        Height = 14
        AutoSize = False
        Caption = #23458#25143#21517#31216
      end
      object Label3: TLabel
        Left = 374
        Top = 20
        Width = 59
        Height = 14
        AutoSize = False
        Caption = #23458#25143#31867#22411
      end
      object Label4: TLabel
        Left = 552
        Top = 19
        Width = 57
        Height = 14
        AutoSize = False
        Caption = #30331#35760#26102#38388
      end
      object DBEdit1: TDBEdit
        Left = 77
        Top = 16
        Width = 90
        Height = 19
        DataField = #23458#25143#32534#21495
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit3: TDBEdit
        Left = 613
        Top = 17
        Width = 97
        Height = 19
        DataField = #24405#20837#26102#38388
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBComboBox1: TDBComboBox
        Left = 435
        Top = 16
        Width = 90
        Height = 21
        DataField = #23458#25143#31867#22411
        DataSource = DataSource1
        ItemHeight = 13
        Items.Strings = (
          #22823#23458#25143
          #26222#36890#23458#25143)
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 261
        Top = 17
        Width = 90
        Height = 19
        DataField = #23458#25143#21517#31216
        DataSource = DataSource1
        TabOrder = 3
      end
    end
    object Panel1: TPanel
      Left = 26
      Top = 96
      Width = 729
      Height = 49
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 1
      object Label5: TLabel
        Left = 18
        Top = 16
        Width = 55
        Height = 15
        AutoSize = False
        Caption = #32852#31995#30005#35805
      end
      object Label6: TLabel
        Left = 220
        Top = 16
        Width = 54
        Height = 15
        AutoSize = False
        Caption = #23458#25143#22320#22336
      end
      object Label7: TLabel
        Left = 441
        Top = 16
        Width = 57
        Height = 17
        AutoSize = False
        Caption = #20449#24687#22791#27880
      end
      object DBEdit4: TDBEdit
        Left = 77
        Top = 14
        Width = 125
        Height = 19
        DataField = #32852#31995#30005#35805
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit5: TDBEdit
        Left = 278
        Top = 14
        Width = 147
        Height = 19
        DataField = #23458#25143#22320#22336
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBMemo1: TDBMemo
        Left = 501
        Top = 14
        Width = 210
        Height = 19
        DataField = #20449#24687#22791#27880
        DataSource = DataSource1
        TabOrder = 2
      end
    end
    object DBGrid1: TDBGrid
      Left = 26
      Top = 160
      Width = 729
      Height = 321
      DataSource = DataSource1
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #23458#25143#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23458#25143#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23458#25143#31867#22411
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24405#20837#26102#38388
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32852#31995#30005#35805
          Width = 130
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23458#25143#22320#22336
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20449#24687#22791#27880
          Width = 90
          Visible = True
        end>
    end
    object Panel3: TPanel
      Left = 26
      Top = 496
      Width = 729
      Height = 49
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 3
      object SpeedButton1: TSpeedButton
        Left = 656
        Top = 16
        Width = 65
        Height = 23
        AllowAllUp = True
        Caption = #36864'    '#20986
        Flat = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 580
        Top = 16
        Width = 65
        Height = 23
        Caption = #21462#28040#25805#20316
        Flat = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 502
        Top = 16
        Width = 65
        Height = 23
        Caption = #30830#23450#25805#20316
        Flat = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 423
        Top = 16
        Width = 65
        Height = 23
        Caption = #26597'    '#35810
        Flat = True
        OnClick = SpeedButton4Click
      end
      object SpeedButton5: TSpeedButton
        Left = 343
        Top = 16
        Width = 65
        Height = 23
        Caption = #21024#38500#35760#24405
        Flat = True
        OnClick = SpeedButton5Click
      end
      object SpeedButton6: TSpeedButton
        Left = 264
        Top = 15
        Width = 65
        Height = 23
        Caption = #28155#21152#35760#24405
        Flat = True
        OnClick = SpeedButton6Click
      end
      object SpeedButton7: TSpeedButton
        Left = 186
        Top = 15
        Width = 65
        Height = 23
        Caption = #25171#21360#35760#24405
        Flat = True
        OnClick = SpeedButton7Click
      end
      object DBNavigator1: TDBNavigator
        Left = 5
        Top = 13
        Width = 170
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Table1: TTable
    AfterInsert = Table1AfterInsert
    AfterPost = Table1AfterPost
    DatabaseName = 'mydb'
    TableName = 'kehu.DB'
    Left = 40
    Top = 200
    object Table1BDEDesigner: TStringField
      FieldName = #23458#25143#32534#21495
      Size = 8
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #23458#25143#21517#31216
      Size = 10
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #23458#25143#31867#22411
      Size = 10
    end
    object Table1BDEDesigner4: TDateField
      FieldName = #24405#20837#26102#38388
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #32852#31995#30005#35805
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #23458#25143#22320#22336
      Size = 40
    end
    object Table1BDEDesigner7: TMemoField
      FieldName = #20449#24687#22791#27880
      BlobType = ftMemo
      Size = 60
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 72
    Top = 200
  end
end