ufrm_programmaintain.dfm

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

inherited frm_program_maintain: Tfrm_program_maintain
  Left = 139
  Top = 106
  Height = 466
  Caption = #31243#24207#32173#35703
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 185
  end
  inherited Page01: TPageControl
    Height = 152
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Height = 121
        inherited l_RecordCount: TLabel
          Left = 536
          AutoSize = False
        end
        object Label1: TLabel
          Left = 338
          Top = 14
          Width = 36
          Height = 13
          Caption = #24207#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 = 64
          Top = 53
          Width = 36
          Height = 13
          Caption = #29238#38542#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 = 40
          Top = 16
          Width = 60
          Height = 13
          Caption = #31243#24207#20195#30908#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 = 314
          Top = 58
          Width = 60
          Height = 13
          Caption = #31243#24207#39006#22411#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 = 326
          Top = 96
          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 = 386
          Top = 92
          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 Label4: TLabel
          Left = 40
          Top = 94
          Width = 60
          Height = 13
          Caption = #31243#24207#35498#26126#65109
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lb_zb02_desc: TLabel
          Left = 158
          Top = 50
          Width = 3
          Height = 13
        end
        object za01: TDBEdit
          Tag = 1
          Left = 386
          Top = 10
          Width = 120
          Height = 21
          DataField = 'ZA01'
          DataSource = ds_master
          TabOrder = 1
        end
        object za03: TDBEdit
          Tag = 1
          Left = 112
          Top = 10
          Width = 138
          Height = 21
          DataField = 'ZA03'
          DataSource = ds_master
          TabOrder = 0
        end
        object za04: TDBEdit
          Left = 112
          Top = 90
          Width = 138
          Height = 21
          DataField = 'ZA04'
          DataSource = ds_master
          TabOrder = 4
        end
        object za02: TdxDBButtonEdit
          Tag = 1
          Left = 112
          Top = 48
          Width = 43
          TabOrder = 2
          DataField = 'ZA02'
          DataSource = ds_master
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = za02ButtonClick
          ExistButtons = True
        end
        object za05: TDBRadioGroup
          Left = 386
          Top = 41
          Width = 120
          Height = 41
          Columns = 2
          DataField = 'ZA05'
          DataSource = ds_master
          Items.Strings = (
            #31243#24207
            #26694#26550)
          TabOrder = 3
          Values.Strings = (
            '1'
            '2')
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 188
    Height = 251
    inherited dbGrid: TdxDBGrid
      Height = 247
      KeyField = 'D_SN'
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dbc_d_sn: TdxDBGridColumn
        Caption = #24207#34399
        Width = 30
        BandIndex = 0
        RowIndex = 0
        FieldName = 'D_SN'
        SummaryFooterType = cstCount
      end
      object dbc_zb01: TdxDBGridColumn
        Caption = #31243#24207#21517#31281
        Visible = False
        Width = 248
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB01'
      end
      object dbc_zb02: TdxDBGridColumn
        Caption = #21151#33021#20195#30908
        Width = 92
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB02'
      end
      object dbc_zb03: TdxDBGridColumn
        Caption = #21151#33021#35498#26126
        Width = 143
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ZB03'
      end
    end
  end
  inherited Query1: TQuery
    Left = 272
    Top = 200
  end
  inherited qy_master: TQuery
    AfterScroll = qy_masterAfterScroll
    SQL.Strings = (
      'SELECT * FROM ZA_FILE'
      '')
    Left = 304
    Top = 200
  end
  inherited ds_master: TDataSource
    Left = 336
    Top = 200
  end
  inherited qy_detail: TQuery
    SQL.Strings = (
      'SELECT * FROM ZB_FILE')
    Left = 304
    Top = 230
  end
  inherited ds_detail: TDataSource
    Left = 336
    Top = 230
  end
end