cha_dan_jia.dfm

采购管理系统：delphi+sql实现了企业采购自动化作业流程

object cha_dan_ji: Tcha_dan_ji
  Left = 17
  Top = 86
  Width = 794
  Height = 459
  Caption = #29289#26009#25505#36092#27511#21490#21934#20215#26597#35426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    786
    432)
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 6
    Width = 769
    Height = 377
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25353#29289#26009#26597#35426
      DesignSize = (
        761
        349)
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 63
        Height = 13
        AutoSize = False
        Caption = #29289#26009#32232#34399
      end
      object Label2: TLabel
        Left = 192
        Top = 24
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #29289#26009#21517#31281
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 54
        Width = 759
        Height = 295
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clMoneyGreen
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ding_gou_no'
            Title.Caption = #35330#36092#21934#32232#34399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'chang_shang_name'
            Title.Caption = #20379#25033#21830#21517#31281
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_no'
            Title.Caption = #29289#26009#32232#34399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_name'
            Title.Caption = #29289#26009#21517#31281
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_gui'
            Title.Caption = #35215#26684
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dan_wei'
            Title.Caption = #21934#20301
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ding_shu_liang'
            Title.Caption = #35330#36092#25976#37327
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ding_gou_date'
            Title.Caption = #35330#36092#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ren_jia'
            Title.Caption = #21934#20215#25240#20154#27665#24163
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fo_bi_kind'
            Title.Caption = #36008#24163
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fu_kuan_kind'
            Title.Caption = #20184#27454#26041#24335
            Visible = True
          end>
      end
      object Edit1: TEdit
        Left = 78
        Top = 21
        Width = 105
        Height = 21
        TabOrder = 1
        Text = 'Edit1'
        OnKeyPress = Edit1KeyPress
      end
      object Edit2: TEdit
        Left = 251
        Top = 20
        Width = 94
        Height = 21
        TabOrder = 2
        Text = 'Edit2'
        OnKeyPress = Edit2KeyPress
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25353#20379#25033#21830#26597#35426
      ImageIndex = 1
      DesignSize = (
        761
        349)
      object Label4: TLabel
        Left = 8
        Top = 24
        Width = 76
        Height = 13
        AutoSize = False
        Caption = #20379#25033#21830#21517#31281
      end
      object Edit3: TEdit
        Left = 83
        Top = 20
        Width = 102
        Height = 21
        TabOrder = 0
        Text = 'Edit3'
        OnKeyPress = Edit3KeyPress
      end
      object DBGrid2: TDBGrid
        Left = -1
        Top = 45
        Width = 760
        Height = 307
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clYellow
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'chang_shang_name'
            Title.Caption = #20379#25033#21830#21517#31281
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ding_gou_no'
            Title.Caption = #35330#36092#21934#32232#34399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_no'
            Title.Caption = #29289#26009#32232#34399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_name'
            Title.Caption = #29289#26009#21517#31281
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wu_gui'
            Title.Caption = #35215#26684
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dan_wei'
            Title.Caption = #21934#20301
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ding_shu_liang'
            Title.Caption = #35330#36092#25976#37327
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ding_gou_date'
            Title.Caption = #35330#36092#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ren_jia'
            Title.Caption = #21934#20729#25240#20154#27665#24163
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fo_bi_kind'
            Title.Caption = #36008#24163
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fu_kuan_kind'
            Title.Caption = #20184#27454#26041#24335
            Visible = True
          end>
      end
    end
  end
  object Button1: TButton
    Left = 546
    Top = 391
    Width = 65
    Height = 25
    Anchors = [akBottom]
    Caption = #21462#28040
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 312
    Top = 391
    Width = 71
    Height = 25
    Anchors = [akBottom]
    Caption = #26597#35426
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 429
    Top = 391
    Width = 71
    Height = 25
    Caption = 'EXCEL'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 207
    Top = 391
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 4
    OnClick = Button4Click
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 248
    Top = 120
  end
  object Query1: TQuery
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from dan_jia')
    Left = 168
    Top = 176
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppBDEPipeline1
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.Orientation = poLandscape
    PrinterSetup.PaperName = 'A4 210 x 297 '#20844#37328
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 210079
    PrinterSetup.mmPaperWidth = 296863
    PrinterSetup.PaperSize = 9
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 260
    Top = 203
    Version = '7.03'
    mmColumnWidth = 0
    DataPipelineName = 'ppBDEPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 20638
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #37319#36092#27511#21490#21934#20729#26597#35426'         '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 20
        Font.Style = []
        Transparent = True
        mmHeight = 8467
        mmLeft = 111125
        mmTop = 3175
        mmWidth = 61648
        BandType = 0
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Weight = 0.75
        mmHeight = 265
        mmLeft = 265
        mmTop = 20373
        mmWidth = 283898
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = #20379#25033#21830#21517#31281