main.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

          object BitBtn6: TBitBtn
            Left = 330
            Top = 142
            Width = 75
            Height = 25
            Caption = #36820#22238
            TabOrder = 4
            OnClick = BitBtn6Click
            Kind = bkRetry
          end
          object Edit19: TEdit
            Left = 283
            Top = 115
            Width = 120
            Height = 21
            TabOrder = 5
          end
          object Edit18: TEdit
            Left = 283
            Top = 79
            Width = 120
            Height = 21
            TabOrder = 6
          end
          object Edit20: TEdit
            Left = 283
            Top = 43
            Width = 120
            Height = 21
            ReadOnly = True
            TabOrder = 7
          end
        end
        object TabSheet16: TTabSheet
          Caption = #36164#20135#24402#36824
          ImageIndex = 1
          object Label32: TLabel
            Left = 351
            Top = 48
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #24402#36824#26102#38388
          end
          object Label34: TLabel
            Left = 256
            Top = 15
            Width = 57
            Height = 13
            AutoSize = False
            Caption = #36164#20135#21517#31216
          end
          object DBNavigator1: TDBNavigator
            Left = 2
            Top = 10
            Width = 244
            Height = 25
            DataSource = DataSource2
            VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
            Flat = True
            TabOrder = 0
          end
          object DBGrid1: TDBGrid
            Left = 2
            Top = 46
            Width = 319
            Height = 154
            DataSource = DataSource2
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'UseId'
                Title.Caption = #20351#29992#32534#21495
                Width = 70
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'AssetName'
                Title.Caption = #36164#20135#21517#31216
                Width = 70
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BorrowDate'
                Title.Caption = #20511#29992#26102#38388
                Width = 70
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BorrowMan'
                Title.Caption = #20511#29992#20154
                Width = 70
                Visible = True
              end>
          end
          object DateTimePicker3: TDateTimePicker
            Left = 326
            Top = 70
            Width = 100
            Height = 25
            Date = 37889.466488935190000000
            Time = 37889.466488935190000000
            TabOrder = 2
          end
          object DBEdit1: TDBEdit
            Left = 323
            Top = 10
            Width = 100
            Height = 21
            DataField = 'AssetName'
            DataSource = DataSource1
            TabOrder = 3
          end
          object BitBtn19: TBitBtn
            Left = 341
            Top = 122
            Width = 75
            Height = 25
            Caption = #24402#36824
            TabOrder = 4
            OnClick = BitBtn19Click
            Kind = bkOK
          end
          object BitBtn20: TBitBtn
            Left = 341
            Top = 165
            Width = 75
            Height = 25
            Caption = #36820#22238
            TabOrder = 5
            OnClick = BitBtn6Click
            Kind = bkRetry
          end
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'TabSheet7'
      ImageIndex = 6
      TabVisible = False
      object BitBtn7: TBitBtn
        Left = 355
        Top = 0
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = BitBtn6Click
        Kind = bkRetry
      end
      object DBNavigator3: TDBNavigator
        Left = 5
        Top = 0
        Width = 324
        Height = 25
        DataSource = DataSource3
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
        Flat = True
        TabOrder = 1
      end
      object DBGrid3: TDBGrid
        Left = 4
        Top = 32
        Width = 429
        Height = 207
        DataSource = DataSource3
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'EquID'
            Title.Caption = #35774#22791#32534#21495
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Name'
            Title.Caption = #35774#22791#21517#31216
            Width = 122
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Type'
            Title.Caption = #35774#22791#22411#21495
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Spec'
            Title.Caption = #35774#22791#35268#26684
            Width = 53
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Weight'
            Title.Caption = #37325#37327
            Width = 33
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Quantity'
            Title.Caption = #25968#37327
            Width = 33
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pruducer'
            Title.Caption = #29983#20135#21378#23478
            Width = 167
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PruductNo'
            Title.Caption = #20986#21378#32534#21495
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PutInDate'
            Title.Caption = #25237#20135#26102#38388
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'UseUnit'
            Title.Caption = #20351#29992#21333#20301
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Import'
            Title.Caption = #26159#21542#36827#21475
            Width = 53
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Digital'
            Title.Caption = #26159#21542#25968#25511
            Width = 50
            Visible = True
          end>
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'TabSheet8'
      ImageIndex = 7
      TabVisible = False
      object GroupBox1: TGroupBox
        Left = 9
        Top = 0
        Width = 419
        Height = 233
        Caption = #22686#21152#35774#22791
        TabOrder = 0
        object Label37: TLabel
          Left = 18
          Top = 16
          Width = 51
          Height = 13
          AutoSize = False
          Caption = #35774#22791#21517#31216
        end
        object Label38: TLabel
          Left = 18
          Top = 56
          Width = 51
          Height = 13
          AutoSize = False
          Caption = #35774#22791#35268#26684
        end
        object Label39: TLabel
          Left = 226
          Top = 53
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #25968#37327
        end
        object Label40: TLabel
          Left = 226
          Top = 16
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #35774#22791#22411#21495
        end
        object Label41: TLabel
          Left = 226
          Top = 129
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #20986#21378#32534#21495
        end
        object Label42: TLabel
          Left = 226
          Top = 91
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #21046#36896#21378#23478
        end
        object Label43: TLabel
          Left = 18
          Top = 130
          Width = 60
          Height = 13
          AutoSize = False
          Caption = #37325#37327
        end
        object Label44: TLabel
          Left = 18
          Top = 204
          Width = 51
          Height = 13
          AutoSize = False
          Caption = #26159#21542#25968#25511
        end
        object Label45: TLabel
          Left = 18
          Top = 93
          Width = 60
          Height = 21
          AutoSize = False
          Caption = #25237#20135#24180#26376
        end
        object Label46: TLabel
          Left = 18
          Top = 167
          Width = 51
          Height = 13
          AutoSize = False
          Caption = #26159#21542#36827#21475
        end
        object Label47: TLabel
          Left = 226
          Top = 167
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #20351#29992#21333#20301
        end
        object Edit21: TEdit
          Left = 72
          Top = 52
          Width = 120
          Height = 21
          TabOrder = 0
        end
        object Edit22: TEdit
          Left = 72
          Top = 16
          Width = 120
          Height = 21
          TabOrder = 1
        end
        object Edit23: TEdit
          Left = 280
          Top = 52
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit24: TEdit
          Left = 280
          Top = 16
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit25: TEdit
          Left = 280
          Top = 89
          Width = 121
          Height = 21
          TabOrder = 4
          OnClick = Edit4Click
        end
        object Edit26: TEdit
          Left = 280
          Top = 125
          Width = 121
          Height = 21
          TabOrder = 5
        end
        object DateTimePicker4: TDateTimePicker
          Left = 72
          Top = 88
          Width = 120
          Height = 25
          Date = 37889.466488935190000000
          Time = 37889.466488935190000000
          TabOrder = 6
        end
        object ComboBox6: TComboBox
          Left = 72
          Top = 162
          Width = 120
          Height = 21
          ItemHeight = 13
          TabOrder = 7
          Items.Strings = (
            #26159
            #21542)
        end
        object BitBtn4: TBitBtn
          Left = 227
          Top = 192
          Width = 75
          Height = 25
          Caption = #22686#21152
          TabOrder = 8
          OnClick = BitBtn4Click
          Kind = bkOK
        end
        object BitBtn21: TBitBtn
          Left = 326
          Top = 192
          Width = 75
          Height = 25
          Caption = #36820#22238
          TabOrder = 9
          OnClick = BitBtn3Click
          Kind = bkRetry
        end
        object Edit27: TEdit
          Left = 72
          Top = 124
          Width = 120
          Height = 21
          TabOrder = 10
        end
        object ComboBox5: TComboBox
          Left = 72
          Top = 196
          Width = 120
          Height = 21
          ItemHeight = 13
          TabOrder = 11
          Items.Strings = (
            #26159
            #21542)
        end
        object Edit28: TEdit
          Left = 280
          Top = 162
          Width = 121
          Height = 21
          TabOrder = 12
          OnClick = Edit4Click
        end
      end
    end