lscgcx.dfm

本系统前端界面采用WINDOWS 窗口风格

object frmlscgcx: Tfrmlscgcx
  Left = 2
  Top = 90
  Width = 781
  Height = 469
  Caption = '历史采购信息查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 11
    Width = 48
    Height = 12
    Caption = '物品编码'
  end
  object Label2: TLabel
    Left = 152
    Top = 11
    Width = 48
    Height = 12
    Caption = '物品名称'
  end
  object Label5: TLabel
    Left = 335
    Top = 13
    Width = 36
    Height = 12
    Caption = '供货商'
  end
  object SpeedButton3: TSpeedButton
    Left = 504
    Top = 7
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333FF3FF3333333333CC30003333333333773777333333333C33
      3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
      33003377333337F33377333333333C333300333F333337F33377339333333C33
      3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
      330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
      330077F377F337F33377993399333C33330077FF773337F33377399993333C33
      33333777733337F333FF333333333C33300033333333373FF7773333333333CC
      3000333333333377377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Shape1: TShape
    Left = 127
    Top = 414
    Width = 642
    Height = 25
  end
  object Label9: TLabel
    Left = 136
    Top = 420
    Width = 60
    Height = 12
    Caption = '金额合计：'
    Transparent = True
  end
  object lblHj: TLabel
    Left = 197
    Top = 420
    Width = 6
    Height = 12
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 773
    Height = 69
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label3: TLabel
      Left = 8
      Top = 43
      Width = 60
      Height = 12
      Caption = '物品编码：'
    end
    object Label4: TLabel
      Left = 152
      Top = 43
      Width = 60
      Height = 12
      Caption = '物品名称：'
    end
    object Label6: TLabel
      Left = 358
      Top = 44
      Width = 48
      Height = 12
      Caption = '供货商：'
    end
    object SpeedButton1: TSpeedButton
      Left = 571
      Top = 39
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Label7: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 12
      Caption = '时间段：'
    end
    object Label8: TLabel
      Left = 224
      Top = 16
      Width = 12
      Height = 12
      Caption = '至'
    end
    object wpbm_edit: TEdit
      Left = 64
      Top = 38
      Width = 81
      Height = 20
      TabOrder = 0
    end
    object pm_edit: TEdit
      Left = 209
      Top = 38
      Width = 144
      Height = 20
      TabOrder = 1
    end
    object BitBtn4: TBitBtn
      Left = 694
      Top = 37
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 2
      Kind = bkClose
    end
    object BitBtn6: TBitBtn
      Left = 614
      Top = 37
      Width = 75
      Height = 25
      Caption = '&S查询'
      TabOrder = 3
      OnClick = BitBtn6Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Edit_ghs: TEdit
      Left = 409
      Top = 39
      Width = 159
      Height = 20
      TabOrder = 4
    end
    object dtpFrom: TDateTimePicker
      Left = 64
      Top = 11
      Width = 145
      Height = 20
      CalAlignment = dtaLeft
      Date = 37337.440462963
      Time = 37337.440462963
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
      OnChange = ListBox1Click
    end
    object dtpTo: TDateTimePicker
      Left = 252
      Top = 12
      Width = 145
      Height = 20
      CalAlignment = dtaLeft
      Date = 37337.441166088
      Time = 37337.441166088
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
      OnChange = ListBox1Click
    end
    object BitBtn1: TBitBtn
      Left = 614
      Top = 8
      Width = 75
      Height = 25
      Caption = '打印'
      TabOrder = 7
      OnClick = BitBtn1Click
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDD00000000000DDDD000000DD0777777777070DDD000000D000
        000000000070DD000000D0777777FFF77000DD000000D077777799977070DD00
        0000D0000000000000770D000000D0777777777707070D000000DD0000000000
        70700D000000DDD0FFFFFFFF07070D000000DDDD0FCCCCCF0000DD000000DDDD
        0FFFFFFFF0DDDD000000DDDDD0FCCCCCF0DDDD000000DDDDD0FFFFFFFF0DDD00
        0000DDDDDD000000000DDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
    end
  end
  object DBGrid1: TDBGrid
    Left = 125
    Top = 79
    Width = 644
    Height = 332
    DataSource = DataSource_cg
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'pm'
        Title.Caption = '品名'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gg'
        Title.Caption = '规格'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dw'
        Title.Caption = '单位'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jj'
        Title.Caption = '进价'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ycs'
        Title.Caption = '进货数'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'je'
        Title.Caption = '金额'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jhrq'
        Title.Caption = '进货日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ph'
        Title.Caption = '批号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cd'
        Title.Caption = '产地'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ghs_mc'
        Title.Caption = '供货商'
        Visible = True
      end>
  end
  object ListBox1: TListBox
    Left = 5
    Top = 79
    Width = 113
    Height = 332
    ItemHeight = 12
    TabOrder = 1
    OnClick = ListBox1Click
  end
  object Query_cg1: TQuery
    OnCalcFields = Query_cg1CalcFields
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 232
    Top = 128
    object Query_cg1bh: TStringField
      FieldName = 'bh'
      Origin = 'YYGL.cka.bh'
      Size = 14
    end
    object Query_cg1pm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.cka.pm'
    end
    object Query_cg1gg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.cka.gg'
      Size = 10
    end
    object Query_cg1dw: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.cka.dw'
      Size = 4
    end
    object Query_cg1jj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.cka.jj'
    end
    object Query_cg1jhrq: TDateTimeField
      FieldName = 'jhrq'
      Origin = 'YYGL.cka.jhrq'
    end
    object Query_cg1ph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.cka.ph'
    end
    object Query_cg1cd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.cka.cd'
    end
    object Query_cg1ck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.cka.ck_bh'
      Size = 1
    end
    object Query_cg1wp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.cka.wp_bm'
      Size = 5
    end
    object Query_cg1ghs_mc: TStringField
      FieldName = 'ghs_mc'
      Origin = 'YYGL.cka.ghs_mc'
      Size = 40
    end
    object Query_cg1je: TFloatField
      FieldKind = fkCalculated
      FieldName = 'je'
      Calculated = True
    end
    object Query_cg1hsj: TFloatField
      FieldKind = fkCalculated
      FieldName = 'hsj'
      Calculated = True
    end
    object Query_cg1bz: TIntegerField
      FieldName = 'bz'
    end
    object Query_cg1sl: TFloatField
      FieldName = 'sl'
    end
  end
  object DataSource_cg: TDataSource
    Left = 288
    Top = 168
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 352
    Top = 152
  end
  object Query_zero: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 432
    Top = 128
  end
  object Database: TDatabase
    AliasName = 'yygl'
    DatabaseName = 'yygl'
    LoginPrompt = False
    Params.Strings = (
      'user name='
      'password=')
    SessionName = 'Default'
    TransIsolation = tiRepeatableRead
    Left = 328
    Top = 104
  end
  object Query_cg2: TQuery
    OnCalcFields = Query_cg2CalcFields
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 232
    Top = 192
    object Query_cg2bh: TStringField
      FieldName = 'bh'
      Origin = 'YYGL.cke.bh'
      Size = 14
    end
    object Query_cg2pm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.cke.pm'
    end
    object Query_cg2gg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.cke.gg'
      Size = 10
    end
    object Query_cg2dw: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.cke.dw'
      Size = 4
    end
    object Query_cg2jj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.cke.jj'
    end
    object Query_cg2jhrq: TDateTimeField
      FieldName = 'jhrq'
      Origin = 'YYGL.cke.jhrq'
    end
    object Query_cg2ph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.cke.ph'
    end
    object Query_cg2ck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.cke.ck_bh'
      Size = 1
    end
    object Query_cg2cd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.cke.cd'
    end
    object Query_cg2wp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.cke.wp_bm'
      Size = 5
    end
    object Query_cg2ghs_mc: TStringField
      FieldName = 'ghs_mc'
      Origin = 'YYGL.cke.ghs_mc'
      Size = 40
    end
    object Query_cg2je: TFloatField
      FieldKind = fkCalculated
      FieldName = 'je'
      Calculated = True
    end
    object Query_cg2hsj: TFloatField
      FieldKind = fkCalculated
      FieldName = 'hsj'
      Calculated = True
    end
    object Query_cg2sl: TFloatField
      FieldName = 'sl'
    end
  end
end