ufrm_workstation_d.dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

inherited frm_workstation_d: Tfrm_workstation_d
  Left = 192
  Width = 585
  Height = 463
  Caption = 'frm_workstation_d'
  Position = poDesktopCenter
  WindowState = wsNormal
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 201
    Width = 577
  end
  inherited CoolBar1: TCoolBar
    Width = 577
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 573
      end>
    inherited ToolBar1: TToolBar
      Width = 560
      inherited tbother: TToolButton [1]
        Left = 30
      end
      inherited ToolButton12: TToolButton [2]
        Left = 60
      end
      inherited tbAdd: TToolButton [3]
        Left = 68
      end
      inherited tbEdit: TToolButton [4]
        Left = 98
      end
      inherited tbDelete: TToolButton [5]
        Left = 128
      end
      inherited ToolButton17: TToolButton [6]
        Left = 158
      end
      inherited tbFirst: TToolButton [7]
        Left = 166
      end
      inherited tbPrior: TToolButton [8]
        Left = 196
      end
      inherited tbNext: TToolButton [9]
        Left = 226
      end
      inherited tbLast: TToolButton [10]
        Left = 256
      end
      inherited tbRefresh: TToolButton [11]
        Left = 286
      end
      inherited tbFilter: TToolButton [12]
        Left = 316
      end
      inherited tbQuery: TToolButton [13]
        Left = 346
      end
      inherited ToolButton18: TToolButton [14]
        Left = 0
        Wrap = True
      end
      inherited tbSave: TToolButton [15]
        Left = 0
        Top = 38
      end
      inherited tbUnsave: TToolButton [16]
        Left = 30
        Top = 38
      end
      inherited ToolButton19: TToolButton [17]
        Left = 60
        Top = 38
      end
      inherited tbConfirm: TToolButton [18]
        Left = 67
        Top = 38
      end
      inherited tbUnconfirm: TToolButton [19]
        Left = 97
        Top = 38
      end
      inherited ToolButton20: TToolButton [20]
        Left = 127
        Top = 38
        Visible = False
      end
      inherited tbPrint: TToolButton [21]
        Left = 140
        Top = 38
      end
      inherited tbExcel: TToolButton [22]
        Left = 170
        Top = 38
      end
      inherited tbHelp: TToolButton [23]
        Left = 200
        Top = 38
        Visible = False
      end
    end
  end
  inherited Page01: TPageControl
    Width = 577
    Height = 168
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 569
        Height = 140
        inherited Bevel1: TBevel
          Width = 565
          Height = 22
        end
        inherited l_RecordCount: TLabel
          Left = 476
        end
        object f01: TDBText
          Left = 119
          Top = 6
          Width = 65
          Height = 17
          DataField = 'F01'
          DataSource = ds_detail
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 41
          Top = 7
          Width = 60
          Height = 13
          Caption = #24037#27573#20195#30908#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 41
          Top = 44
          Width = 60
          Height = 13
          Caption = #29677#21029#20195#34399#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 41
          Top = 81
          Width = 60
          Height = 13
          Caption = #36215#22987#26178#38291#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 326
          Top = 81
          Width = 60
          Height = 13
          Caption = #32080#26463#26178#38291#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 340
          Top = 44
          Width = 36
          Height = 13
          Caption = #26178#38263#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 41
          Top = 115
          Width = 36
          Height = 13
          Caption = #20633#27880#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object f05: TDBText
          Left = 390
          Top = 42
          Width = 65
          Height = 17
          DataField = 'F05'
          DataSource = ds_detail
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object f02: TDBEdit
          Tag = 2
          Left = 119
          Top = 42
          Width = 146
          Height = 21
          DataField = 'F02'
          DataSource = ds_detail
          ReadOnly = True
          TabOrder = 0
        end
        object memo: TDBEdit
          Left = 119
          Top = 111
          Width = 419
          Height = 21
          DataField = 'MEMO'
          DataSource = ds_detail
          TabOrder = 3
        end
        object f03_1: TDBEdit
          Left = 119
          Top = 77
          Width = 119
          Height = 21
          DataField = 'begintime'
          DataSource = ds_detail
          TabOrder = 4
        end
        object f04_1: TDBEdit
          Left = 392
          Top = 80
          Width = 119
          Height = 21
          DataField = 'endtime'
          DataSource = ds_detail
          TabOrder = 5
        end
        object f03_2: TdxTimeEdit
          Left = 119
          Top = 77
          Width = 119
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          Visible = False
          StoredValues = 4
        end
        object f04_2: TdxTimeEdit
          Left = 392
          Top = 80
          Width = 119
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          Visible = False
          StoredValues = 4
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 204
    Width = 577
    Height = 232
    inherited dbGrid: TdxDBGrid
      Width = 573
      Height = 228
      KeyField = 'F01'
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartReload, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #38917
        Width = 25
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
        SummaryFooterType = cstCount
      end
      object dbc_f02: TdxDBGridColumn
        Caption = #29677#21029#20195#34399
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F02'
      end
      object dbc_begintime: TdxDBGridTimeColumn
        Caption = #36215#22987#26178#38291
        Width = 117
        BandIndex = 0
        RowIndex = 0
        FieldName = 'begintime'
      end
      object dbc_endtime: TdxDBGridTimeColumn
        Caption = #32080#26463#26178#38291
        Width = 123
        BandIndex = 0
        RowIndex = 0
        FieldName = 'endtime'
      end
      object dbc_f05: TdxDBGridColumn
        Caption = #26178#38263
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F05'
      end
      object dbc_memo: TdxDBGridColumn
        Caption = #20633#27880
        Width = 190
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MEMO'
      end
    end
  end
  inherited qy_master: TQuery
    DatabaseName = 'DT2_MPSS_0304'
    Left = 168
    Top = 32
  end
  inherited qy_detail: TQuery
    BeforePost = qy_detailBeforePost
    AfterPost = qy_detailAfterPost
    AfterCancel = qy_detailAfterCancel
    OnCalcFields = qy_detailCalcFields
    DatabaseName = 'DT2_MPSS_0304'
    SQL.Strings = (
      'SELECT * FROM T_WORKSECTIME')
    Left = 200
    Top = 32
    object qy_detailF01: TStringField
      FieldName = 'F01'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F01'
      Size = 10
    end
    object qy_detailF02: TFloatField
      FieldName = 'F02'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F02'
    end
    object qy_detailF03: TFloatField
      FieldName = 'F03'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F03'
    end
    object qy_detailF04: TFloatField
      FieldName = 'F04'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F04'
    end
    object qy_detailF05: TFloatField
      FieldName = 'F05'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F05'
    end
    object qy_detailMEMO: TStringField
      FieldName = 'MEMO'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MEMO'
      Size = 4
    end
    object qy_detailACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.ACTI'
      Size = 1
    end
    object qy_detailOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.OWUS'
      Size = 10
    end
    object qy_detailGRUP: TStringField
      FieldName = 'GRUP'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.GRUP'
      Size = 10
    end
    object qy_detailCRET: TDateTimeField
      FieldName = 'CRET'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.CRET'
    end
    object qy_detailMODU: TStringField
      FieldName = 'MODU'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MODU'
      Size = 10
    end
    object qy_detailMODT: TDateTimeField
      FieldName = 'MODT'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MODT'
    end
    object qy_detailbegintime: TStringField
      FieldKind = fkCalculated
      FieldName = 'begintime'
      Size = 10
      Calculated = True
    end
    object qy_detailendtime: TStringField
      FieldKind = fkCalculated
      FieldName = 'endtime'
      Size = 10
      Calculated = True
    end
    object qy_detailD_SN: TFloatField
      FieldName = 'D_SN'
      Origin = 'DT2_MPSS_0304.T_WORKSECTIME.D_SN'
    end
  end
  inherited ds_detail: TDataSource
    Left = 232
    Top = 32
  end
end