u_kcpd_child.dfm

物资管理三层源代码,包含的更能比较多,窗口也多,比较适合参考用

object Form65: TForm65
  Left = 208
  Top = 74
  Width = 586
  Height = 390
  Caption = '库存盘点管理'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 578
    Height = 320
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 574
      Height = 316
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = '仓库名称'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = '盘点编号'
          Title.Alignment = taCenter
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = '盘点日期'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = '盘点人'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = '备注'
          Title.Alignment = taCenter
          Visible = True
        end>
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 320
    Width = 578
    Height = 24
    Align = alBottom
    AutoSize = True
    ButtonWidth = 75
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop]
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Images = ImageList1
    List = True
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = '新盘点'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 67
      Top = 0
      AutoSize = True
      Caption = '删  除'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 134
      Top = 0
      AutoSize = True
      Caption = '编  辑'
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 201
      Top = 0
      AutoSize = True
      Caption = '查  询'
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 268
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = '过滤'
      DropdownMenu = PopupMenu1
      ImageIndex = 4
      Style = tbsDropDown
    end
    object ToolButton6: TToolButton
      Left = 336
      Top = 0
      AutoSize = True
      Caption = '刷新单据'
      ImageIndex = 5
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 415
      Top = 0
      AutoSize = True
      Caption = '打印单据'
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 494
      Top = 0
      AutoSize = True
      Caption = '审  核'
      ImageIndex = 7
      OnClick = ToolButton8Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 344
    Width = 578
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Text = '灰色：已审核；黑色：未审核'
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'P_KCPD'
    RemoteServer = Form1.SocketConnection1
    Left = 360
    Top = 35
    object ClientDataSet1ID: TIntegerField
      FieldName = 'ID'
    end
    object ClientDataSet1CDSDesigner: TStringField
      FieldName = '仓库名称'
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner2: TStringField
      FieldName = '盘点编号'
      EditMask = '99-99-999;1;_'
      FixedChar = True
      Size = 9
    end
    object ClientDataSet1CDSDesigner3: TDateTimeField
      FieldName = '盘点日期'
      EditMask = '9999-99-99;1;_'
    end
    object ClientDataSet1CDSDesigner4: TStringField
      FieldName = '盘点人'
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner5: TStringField
      FieldName = '备注'
      Size = 100
    end
    object ClientDataSet1Q_KCPD_CHILD: TDataSetField
      FieldName = 'Q_KCPD_CHILD'
      IncludeObjectField = False
    end
    object ClientDataSet1CDSDesigner6: TBooleanField
      FieldName = '是否审核'
    end
    object ClientDataSet1CDSDesigner7: TStringField
      FieldName = '审核人'
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner8: TDateTimeField
      FieldName = '审核日期'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 400
    Top = 35
  end