purchasein.dfm

图书销售管理小系统 本系统没有用到任何第三方控件,你只要安装了Delphi7,并且在把QuickReport(Bindclqrt70.bpl)添加进去就可以了. 系统使用方法: 1

object FramePurchase: TFramePurchase
  Left = 0
  Top = 0
  Width = 804
  Height = 484
  Color = clCream
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  ParentColor = False
  ParentCtl3D = False
  ParentFont = False
  TabOrder = 0
  object LblPurchaseID: TLabel
    Left = 32
    Top = 57
    Width = 56
    Height = 14
    Caption = #37319#36141#21333#21495
  end
  object LblPurchaseDate: TLabel
    Left = 334
    Top = 56
    Width = 56
    Height = 14
    Caption = #37319#36141#26085#26399
  end
  object LblPurchaser: TLabel
    Left = 46
    Top = 80
    Width = 42
    Height = 14
    Caption = #37319#36141#21592
  end
  object LblFrmTitle: TLabel
    Left = 344
    Top = 8
    Width = 81
    Height = 19
    Caption = #36827#20070#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 32
    Top = 130
    Width = 761
    Height = 287
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object BtbOK: TButton
    Left = 304
    Top = 432
    Width = 81
    Height = 25
    Caption = #30830' '#23450
    Default = True
    TabOrder = 1
  end
  object BtnClose: TButton
    Left = 496
    Top = 432
    Width = 81
    Height = 25
    Caption = #20851' '#38381
    TabOrder = 2
    OnClick = BtnCloseClick
  end
  object EdtPurchaseID: TEdit
    Left = 104
    Top = 53
    Width = 121
    Height = 20
    TabOrder = 3
  end
  object DtpPurchaseDate: TDateTimePicker
    Left = 400
    Top = 53
    Width = 113
    Height = 22
    BevelInner = bvNone
    BevelOuter = bvNone
    Date = 38561.000000000000000000
    Time = 38561.000000000000000000
    ImeMode = imDisable
    TabOrder = 4
  end
  object Edtpurhcaser: TEdit
    Left = 104
    Top = 80
    Width = 121
    Height = 20
    TabOrder = 5
  end
end