ufrm_workstation.dfm

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

inherited frm_workstation: Tfrm_workstation
  Left = 193
  Top = 107
  Width = 655
  Height = 455
  Caption = 'frm_workstation'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 257
    Width = 647
  end
  inherited CoolBar1: TCoolBar
    Width = 647
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 643
      end>
    inherited ToolBar1: TToolBar
      Width = 630
      inherited tbPrint: TToolButton
        Visible = False
      end
      inherited tbHelp: TToolButton
        Visible = False
      end
    end
  end
  inherited Page01: TPageControl
    Width = 647
    Height = 224
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 639
        Height = 193
        inherited l_RecordCount: TLabel
          Left = 478
          Top = 2
          Width = 84
          AutoSize = False
          Caption = #35352#37636#25976#65109
        end
        object Label1: TLabel
          Left = 32
          Top = 24
          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 Label3: TLabel
          Left = 32
          Top = 61
          Width = 60
          Height = 13
          Caption = #24037#27573#21517#31281#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 = 351
          Top = 61
          Width = 60
          Height = 13
          Caption = #33521#25991#21517#31281#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 = 32
          Top = 99
          Width = 84
          Height = 13
          Caption = #27161#20934#24037#26178#25104#26412#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 209
          Top = 99
          Width = 84
          Height = 13
          Caption = #23565#20839#24037#26178#25104#26412#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 395
          Top = 99
          Width = 84
          Height = 13
          Caption = #23565#22806#24037#26178#25104#26412#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 32
          Top = 172
          Width = 60
          Height = 13
          Caption = #24314#31435#26085#26399#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 = 32
          Top = 135
          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 Label10: TLabel
          Left = 444
          Top = 172
          Width = 48
          Height = 13
          Caption = #30906#35469#21542#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object acti: TDBText
          Left = 499
          Top = 170
          Width = 65
          Height = 17
          DataField = 'ACTI'
          DataSource = ds_master
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object f01: TDBEdit
          Left = 118
          Top = 19
          Width = 99
          Height = 21
          DataField = 'F01'
          DataSource = ds_master
          TabOrder = 0
        end
        object f03: TDBEdit
          Left = 118
          Top = 57
          Width = 140
          Height = 21
          DataField = 'F03'
          DataSource = ds_master
          TabOrder = 1
        end
        object f04: TDBEdit
          Left = 424
          Top = 57
          Width = 140
          Height = 21
          DataField = 'F04'
          DataSource = ds_master
          TabOrder = 2
        end
        object f05: TDBRadioGroup
          Left = 397
          Top = 14
          Width = 167
          Height = 37
          Caption = #35336#20729#26041#24335#65109
          Columns = 2
          DataField = 'F05'
          DataSource = ds_master
          Items.Strings = (
            '1.'#26178#38291'(HR.)'
            '2.'#37325#37327'(KG.)')
          TabOrder = 8
          Values.Strings = (
            '1'
            '2')
        end
        object f06: TDBEdit
          Left = 118
          Top = 95
          Width = 82
          Height = 21
          DataField = 'F06'
          DataSource = ds_master
          TabOrder = 3
        end
        object f07: TDBEdit
          Left = 294
          Top = 95
          Width = 82
          Height = 21
          DataField = 'F07'
          DataSource = ds_master
          TabOrder = 4
        end
        object f08: TDBEdit
          Left = 481
          Top = 95
          Width = 82
          Height = 21
          DataField = 'F08'
          DataSource = ds_master
          TabOrder = 5
        end
        object cret: TDBEdit
          Tag = 2
          Left = 118
          Top = 168
          Width = 121
          Height = 21
          DataField = 'CRET'
          DataSource = ds_master
          ReadOnly = True
          TabOrder = 7
        end
        object memo: TDBEdit
          Left = 118
          Top = 128
          Width = 445
          Height = 21
          DataField = 'MEMO'
          DataSource = ds_master
          TabOrder = 6
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 260
    Width = 647
    Height = 168
    inherited dbGrid: TdxDBGrid
      Width = 643
      Height = 164
      KeyField = 'F01'
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartReload, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #38917
        Width = 28
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
        SummaryFooterType = cstCount
      end
      object dbc_f02: TdxDBGridColumn
        Caption = #29677#21029#20195#34399
        Width = 54
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F02'
      end
      object dbc_begintime: TdxDBGridColumn
        Caption = #36215#22987#26178#38291
        Width = 137
        BandIndex = 0
        RowIndex = 0
        FieldName = 'begintime'
      end
      object dbc_endtime: TdxDBGridColumn
        Caption = #32080#26463#26178#38291
        Width = 134
        BandIndex = 0
        RowIndex = 0
        FieldName = 'endtime'
      end
      object dbc_f05: TdxDBGridColumn
        Caption = #26178#38263
        Width = 73
        BandIndex = 0
        RowIndex = 0
        FieldName = 'F05'
      end
      object dbc_memo: TdxDBGridColumn
        Caption = #20633#27880
        Width = 326
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MEMO'
      end
    end
  end
  inherited Query1: TQuery
    Left = 168
    Top = 32
  end
  inherited qy_master: TQuery
    SQL.Strings = (
      'SELECT * FROM T_WORKSECTION')
    Left = 200
    Top = 32
  end
  inherited ds_master: TDataSource
    Left = 232
    Top = 32
  end
  inherited qy_detail: TQuery
    OnCalcFields = qy_detailCalcFields
    SQL.Strings = (
      'SELECT * FROM T_WORKSECTIME WHERE F01=:F01')
    Left = 296
    Top = 32
    ParamData = <
      item
        DataType = ftString
        Name = 'F01'
        ParamType = ptUnknown
        Size = 11
      end>
    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 = 328
    Top = 32
  end
end