salemanage.~dfm

delphi制作的图书管理系统

object SaleManageFrm: TSaleManageFrm
  Left = 271
  Top = 164
  Width = 812
  Height = 566
  BorderIcons = []
  Caption = #38144#21806#31649#29702
  Color = clCream
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object LblPurchaseID: TLabel
    Left = 85
    Top = 57
    Width = 56
    Height = 14
    Caption = #38144#21806#32534#21495
  end
  object LblPurchaseDate: TLabel
    Left = 387
    Top = 56
    Width = 56
    Height = 14
    Caption = #38144#21806#26085#26399
  end
  object LblPurchaser: TLabel
    Left = 99
    Top = 80
    Width = 42
    Height = 14
    Caption = #38144#21806#21592
  end
  object LblFrmTitle: TLabel
    Left = 397
    Top = 8
    Width = 80
    Height = 19
    Caption = #38144#21806#25805#20316
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LblTatolText: TLabel
    Left = 520
    Top = 394
    Width = 42
    Height = 14
    Caption = #21512#35745#65306
  end
  object LblTotal: TLabel
    Left = 680
    Top = 392
    Width = 81
    Height = 17
    AutoSize = False
    Caption = '0.0'
  end
  object LblNum: TLabel
    Left = 567
    Top = 393
    Width = 57
    Height = 15
    AutoSize = False
    Caption = '0'
  end
  object DBGridBookInfo: TDBGrid
    Left = 28
    Top = 130
    Width = 749
    Height = 255
    DataSource = DM.SaleManageDSource
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = DBGridBookInfoKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'BookID1'
        Title.Caption = #20070#21495
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName1'
        Title.Caption = #20070#21517
        Width = 153
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Author'
        Title.Caption = #20316#32773
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Press'
        Title.Caption = #20986#29256#21830
        Width = 115
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Price'
        Title.Caption = #21333#20215
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SaleQuantity1'
        Title.Caption = #38144#21806#25968#37327
        Width = 116
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SaleAmount1'
        Title.Caption = #38144#21806#37329#39069
        Width = 93
        Visible = True
      end>
  end
  object BtbOK: TButton
    Left = 269
    Top = 448
    Width = 81
    Height = 25
    Caption = #30830' '#23450
    Default = True
    TabOrder = 1
    OnClick = BtbOKClick
  end
  object BtnClose: TButton
    Left = 437
    Top = 448
    Width = 81
    Height = 25
    Caption = #20851' '#38381
    TabOrder = 2
    OnClick = BtnCloseClick
  end
  object EdtPurchaseID: TEdit
    Left = 157
    Top = 53
    Width = 121
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 3
  end
  object DtpPurchaseDate: TDateTimePicker
    Left = 453
    Top = 53
    Width = 113
    Height = 22
    BevelInner = bvNone
    BevelOuter = bvNone
    Date = 38561.000000000000000000
    Time = 38561.000000000000000000
    ImeMode = imDisable
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 4
  end
  object DBNavigator1: TDBNavigator
    Left = 26
    Top = 385
    Width = 234
    Height = 25
    DataSource = DM.SaleManageDSource
    VisibleButtons = [nbFirst, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    TabOrder = 5
  end
  object CBoxpurhcaser: TComboBox
    Left = 157
    Top = 79
    Width = 124
    Height = 22
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 14
    TabOrder = 6
  end
end