usld.dfm

这是一个Delphi--仓库管理信息系统代码

object frmSLD: TfrmSLD
  Left = 148
  Top = 148
  BorderStyle = bsDialog
  Caption = #25910#26009#21333
  ClientHeight = 510
  ClientWidth = 815
  Color = 4013343
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #20223#23435'_GB2312'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object btnCancel: TSpeedButton
    Left = 704
    Top = 465
    Width = 89
    Height = 33
    Caption = #36864' '#20986
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnCancelClick
  end
  object btnAppend: TSpeedButton
    Left = 32
    Top = 465
    Width = 89
    Height = 33
    Caption = #28155' '#21152
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnAppendClick
  end
  object btnDelete: TSpeedButton
    Left = 128
    Top = 465
    Width = 89
    Height = 33
    Caption = #21024' '#38500
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnDeleteClick
  end
  object btnEdit: TSpeedButton
    Left = 224
    Top = 465
    Width = 89
    Height = 33
    Caption = #32534' '#36753
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnEditClick
  end
  object btnUndo: TSpeedButton
    Left = 320
    Top = 465
    Width = 89
    Height = 33
    Caption = #24674' '#22797
    Enabled = False
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnUndoClick
  end
  object btnSave: TSpeedButton
    Left = 416
    Top = 465
    Width = 89
    Height = 33
    Caption = #20445' '#23384
    Enabled = False
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnSaveClick
  end
  object btnSH: TSpeedButton
    Left = 512
    Top = 465
    Width = 89
    Height = 33
    Caption = #23457' '#26680
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnSHClick
  end
  object btnRefresh: TSpeedButton
    Left = 608
    Top = 465
    Width = 89
    Height = 33
    Caption = #21047' '#26032
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnRefreshClick
  end
  object Label16: TLabel
    Left = 22
    Top = 11
    Width = 114
    Height = 24
    Caption = #25910#26009#21333'...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 993
    Height = 417
    BevelInner = bvLowered
    TabOrder = 0
    object pnl_Main: TPanel
      Left = 2
      Top = 2
      Width = 989
      Height = 137
      Align = alTop
      BevelInner = bvLowered
      Enabled = False
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 77
        Height = 15
        Caption = #20179#24211#21517#31216':'
      end
      object Label2: TLabel
        Left = 600
        Top = 16
        Width = 77
        Height = 15
        Caption = #25910#26009#23383#21495':'
        FocusControl = edtSlzh
      end
      object Label3: TLabel
        Left = 325
        Top = 16
        Width = 68
        Height = 15
        Caption = #21046#21333#26085#26399
        FocusControl = edtZdrq
      end
      object Label4: TLabel
        Left = 8
        Top = 48
        Width = 77
        Height = 15
        Caption = #20379#24212#21378#23478':'
        FocusControl = edtGycj
      end
      object Label5: TLabel
        Left = 321
        Top = 48
        Width = 77
        Height = 15
        Caption = #29289#36164#26469#28304':'
        FocusControl = edtWzly
      end
      object Label6: TLabel
        Left = 616
        Top = 48
        Width = 60
        Height = 15
        Caption = #37319#36141#20154':'
        FocusControl = edtCgr
      end
      object Label7: TLabel
        Left = 8
        Top = 81
        Width = 77
        Height = 15
        Caption = #21512#21516#32534#21495':'
        FocusControl = edtHtbh
      end
      object Label10: TLabel
        Left = 251
        Top = 84
        Width = 60
        Height = 15
        Caption = #21457#31080#21495':'
        FocusControl = edtFph
      end
      object Label14: TLabel
        Left = 455
        Top = 81
        Width = 60
        Height = 15
        Caption = #23457#26680#20154':'
        FocusControl = edtShr
      end
      object Label15: TLabel
        Left = 8
        Top = 113
        Width = 77
        Height = 15
        Caption = #21333#25454#22791#27880':'
        FocusControl = edtDjbz
      end
      object Label39: TLabel
        Left = 675
        Top = 81
        Width = 68
        Height = 15
        Caption = #26159#21542#23457#26680
        FocusControl = edtShr
      end
      object Label8: TLabel
        Left = 296
        Top = 116
        Width = 112
        Height = 15
        Caption = #21457#31080#37329#39069'('#20803'):'
        FocusControl = edtFpje
      end
      object Label9: TLabel
        Left = 550
        Top = 116
        Width = 129
        Height = 15
        Caption = #20854#20013#36816#26434#36153'('#20803'):'
        FocusControl = edtQzyzf
      end
      object edtSlzh: TDBEdit
        Left = 680
        Top = 11
        Width = 89
        Height = 23
        DataField = 'InNo'
        DataSource = dsSLD
        TabOrder = 0
      end
      object edtZdrq: TDBEdit
        Left = 408
        Top = 13
        Width = 131
        Height = 23
        DataField = 'DrawDate'
        DataSource = dsSLD
        TabOrder = 1
      end
      object edtGycj: TDBEdit
        Left = 96
        Top = 44
        Width = 185
        Height = 23
        DataField = 'SupName'
        DataSource = dsSLD
        TabOrder = 2
      end
      object edtWzly: TDBEdit
        Left = 407
        Top = 44
        Width = 134
        Height = 23
        DataField = 'WSource'
        DataSource = dsSLD
        TabOrder = 3
      end
      object edtCgr: TDBEdit
        Left = 680
        Top = 44
        Width = 89
        Height = 23
        DataField = 'StockPerson'
        DataSource = dsSLD
        TabOrder = 4
      end
      object edtHtbh: TDBEdit
        Left = 96
        Top = 80
        Width = 121
        Height = 23
        DataField = 'BargainNo'
        DataSource = dsSLD
        TabOrder = 5
      end
      object edtFph: TDBEdit
        Left = 320
        Top = 80
        Width = 85
        Height = 23
        DataField = 'InvoiceID'
        DataSource = dsSLD
        TabOrder = 6
      end
      object edtShr: TDBEdit
        Left = 520
        Top = 79
        Width = 110
        Height = 23
        DataField = 'AuditingPerson'
        DataSource = dsSLD
        Enabled = False
        TabOrder = 7
      end