borroworder.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 342 行

object BrwOrdFrm: TBrwOrdFrm
  Left = 194
  Top = 91
  Width = 369
  Height = 401
  Caption = #26597#35810#12289#20511#38405#12289#39044#32422#22270#20070
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 358
    Height = 226
    ActivePage = TabSheet1
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25353#20070#21517#26597#35810
      object Label1: TLabel
        Left = 8
        Top = 15
        Width = 122
        Height = 13
        AutoSize = False
        Caption = #35831#36755#20837#26597#35810#30340#20070#21517#65306
      end
      object Edit1: TEdit
        Left = 130
        Top = 11
        Width = 109
        Height = 21
        TabOrder = 0
      end
      object BitBtn1: TBitBtn
        Left = 249
        Top = 8
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 1
        OnClick = BitBtn1Click
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 40
        Width = 350
        Height = 153
        DataSource = DataSource1
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'BookNO'
            Title.Caption = #20070#21495
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BookName'
            Title.Caption = #20070#21517
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Author'
            Title.Caption = #20316#32773
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Publishment'
            Title.Caption = #20986#29256#31038
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BuyTime'
            Title.Caption = #36141#20080#26102#38388
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25353#20316#32773#26597#35810
      ImageIndex = 1
      object Label2: TLabel
        Left = 10
        Top = 18
        Width = 136
        Height = 14
        AutoSize = False
        Caption = #35831#36755#20837#26597#35810#30340#20316#32773#21517#65306
      end
      object Edit2: TEdit
        Left = 146
        Top = 13
        Width = 102
        Height = 21
        TabOrder = 0
      end
      object BitBtn2: TBitBtn
        Left = 260
        Top = 11
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 1
        OnClick = BitBtn2Click
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 40
        Width = 350
        Height = 153
        DataSource = DataSource1
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'BookNO'
            Title.Caption = #20070#21495
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BookName'
            Title.Caption = #20070#21517
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Author'
            Title.Caption = #20316#32773
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Publishment'
            Title.Caption = #20986#29256#31038
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BuyTime'
            Title.Caption = #36141#20080#26102#38388
            Width = 70
            Visible = True
          end>
      end
    end
  end
  object Panel1: TPanel
    Left = 2
    Top = 227
    Width = 353
    Height = 142
    BevelOuter = bvLowered
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 149
      Height = 13
      AutoSize = False
      Caption = #24744#35201#20511#38405#25110#39044#32422#30340#20070#21495#65306
    end
    object Label4: TLabel
      Left = 40
      Top = 110
      Width = 113
      Height = 13
      AutoSize = False
      Caption = #35831#36755#20837#24744#30340#23398#21495#65306
    end
    object DBEdit1: TDBEdit
      Left = 159
      Top = 69
      Width = 82
      Height = 21
      DataField = 'BookNO'
      DataSource = DataSource1
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 160
      Top = 110
      Width = 82
      Height = 21
      TabOrder = 1
    end
    object BitBtn3: TBitBtn
      Left = 256
      Top = 49
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = BitBtn3Click
      Kind = bkYes
    end
    object BitBtn4: TBitBtn
      Left = 256
      Top = 80
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = BitBtn4Click
      Kind = bkCancel
    end
    object BitBtn5: TBitBtn
      Left = 256
      Top = 109
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 4
      OnClick = BitBtn5Click
      Kind = bkRetry
    end
    object DBCheckBox1: TDBCheckBox
      Left = 258
      Top = 28
      Width = 72
      Height = 18
      Caption = #24050#34987#39044#32422
      DataField = 'Ordered'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 5
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object GroupBox1: TGroupBox
      Left = 41
      Top = 5
      Width = 195
      Height = 44
      Caption = #20511#38405#12289#39044#32422
      TabOrder = 6
      object RadioButton1: TRadioButton
        Left = 17
        Top = 19
        Width = 113
        Height = 17
        Caption = #20511#38405#22270#20070
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 105
        Top = 19
        Width = 73
        Height = 17
        Caption = #39044#32422#22270#20070
        TabOrder = 1
      end
    end
    object DBCheckBox2: TDBCheckBox
      Left = 258
      Top = 7
      Width = 72
      Height = 17
      Caption = #24050#34987#20511#38405
      DataField = 'Borrowed'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 7
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
  end
  object Database1: TDatabase
    AliasName = 'Library'
    Connected = True
    DatabaseName = 'LibStuBook'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 196
    Top = 131
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'LibStuBook'
    TableName = 'Book'
    Left = 252
    Top = 131
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 300
    Top = 131
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'LibStuBook'
    TableName = 'Student'
    Left = 260
    Top = 171
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'LibStuBook'
    TableName = 'Record'
    Left = 308
    Top = 171
  end
  object Query1: TQuery
    DatabaseName = 'LibStuBook'
    Left = 202
    Top = 219
  end
end