wzcx.dfm

库房管理程序,希望能给大家一点启发.这个小程序现在已经用在我们这里的工段,反应良好.

object Form10: TForm10
  Left = 90
  Top = 90
  Width = 829
  Height = 636
  Caption = 'Form10'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 825
    Height = 569
    ActivePage = TabSheet7
    Align = alCustom
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20837#24211#26102#38388#26597#35810#65288#20837#24211#65289
      object Label1: TLabel
        Left = 40
        Top = 32
        Width = 54
        Height = 13
        Caption = #36215#22987#26102#38388'  '
        OnClick = Label1Click
      end
      object Label2: TLabel
        Left = 208
        Top = 32
        Width = 54
        Height = 13
        Caption = #25130#27490#26102#38388'  '
      end
      object Label6: TLabel
        Left = 368
        Top = 32
        Width = 84
        Height = 13
        Caption = #35268#26684#22411#21495#36755#20837'    '
        OnClick = Label6Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 96
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6241290509
        Time = 37792.6241290509
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker2: TDateTimePicker
        Left = 264
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6243928935
        Time = 37792.6243928935
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 648
        Top = 16
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 2
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 736
        Top = 16
        Width = 75
        Height = 25
        Caption = #23548#20986
        TabOrder = 3
        OnClick = BitBtn2Click
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 48
        Width = 793
        Height = 433
        Color = clSkyBlue
        DataSource = DataSource1
        FixedColor = clTeal
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Edit1: TEdit
        Left = 464
        Top = 24
        Width = 129
        Height = 21
        TabOrder = 5
        OnChange = Edit1Change
      end
    end
    object TabSheet3: TTabSheet
      Caption = #35268#26684#22411#21495#26597#35810#65288#24211#23384#65289
      ImageIndex = 2
      object Label4: TLabel
        Left = 368
        Top = 32
        Width = 84
        Height = 13
        Caption = #35268#26684#22411#21495#36755#20837'    '
        OnClick = Label4Click
      end
      object Label3: TLabel
        Left = 40
        Top = 32
        Width = 54
        Height = 13
        Caption = #36215#22987#26102#38388'  '
        OnClick = Label3Click
      end
      object Label5: TLabel
        Left = 208
        Top = 32
        Width = 54
        Height = 13
        Caption = #25130#27490#26102#38388'  '
      end
      object Edit2: TEdit
        Left = 464
        Top = 24
        Width = 121
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
        OnChange = Edit2Change
      end
      object BitBtn6: TBitBtn
        Left = 736
        Top = 16
        Width = 75
        Height = 25
        Caption = #23548#20986'  '
        TabOrder = 1
        OnClick = BitBtn6Click
      end
      object DBGrid3: TDBGrid
        Left = -1
        Top = 48
        Width = 793
        Height = 433
        Color = clSkyBlue
        DataSource = DataSource2
        FixedColor = clTeal
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DateTimePicker3: TDateTimePicker
        Left = 96
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6241290509
        Time = 37792.6241290509
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
      end
      object DateTimePicker4: TDateTimePicker
        Left = 264
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6243928935
        Time = 37792.6243928935
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
      end
      object Button1: TButton
        Left = 648
        Top = 16
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 5
        OnClick = Button1Click
      end
    end
    object TabSheet7: TTabSheet
      Caption = #32508#21512#26597#35810#65288#20986#24211#65289
      ImageIndex = 6
      object Label13: TLabel
        Left = 0
        Top = 32
        Width = 54
        Height = 13
        Caption = #36215#22987#26102#38388'  '
        OnClick = Label13Click
      end
      object Label14: TLabel
        Left = 152
        Top = 32
        Width = 54
        Height = 13
        Caption = #25130#27490#26102#38388'  '
      end
      object Label15: TLabel
        Left = 356
        Top = 5
        Width = 84
        Height = 13
        Caption = #35268#26684#22411#21495#36755#20837'    '
        OnClick = Label15Click
      end
      object Label20: TLabel
        Left = 308
        Top = 32
        Width = 33
        Height = 13
        Caption = #26597#35810'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label20Click
      end
      object DateTimePicker7: TDateTimePicker
        Left = 56
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6241290509
        Time = 37792.6241290509
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker8: TDateTimePicker
        Left = 208
        Top = 24
        Width = 81
        Height = 21
        CalAlignment = dtaLeft
        Date = 37792.6243928935
        Time = 37792.6243928935
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object Edit4: TEdit
        Left = 352
        Top = 24
        Width = 89
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 2
        OnChange = Edit4Change
      end
      object BitBtn12: TBitBtn
        Left = 704
        Top = 16
        Width = 75
        Height = 25
        Caption = #23548#20986
        TabOrder = 3
        OnClick = BitBtn12Click
      end
      object DBGrid6: TDBGrid
        Left = -1
        Top = 48
        Width = 793
        Height = 433
        Color = clSkyBlue
        DataSource = DataSource3
        FixedColor = clTeal
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=snqt;Use Procedu' +
      're for Prepare=1;Auto Translate=True;Packet Size=4096;Workstatio' +
      'n ID=GB;Use Encryption for Data=False;Tag with column collation ' +
      'when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 4
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24037#27573#20837#24211#24635#34920)
    Left = 56
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 108
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 108
    Top = 56
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24037#27573#24211#23384#24635#34920)
    Left = 60
    Top = 56
  end
  object ADOConnection2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=snqt;Use Procedu' +
      're for Prepare=1;Auto Translate=True;Packet Size=4096;Workstatio' +
      'n ID=GB;Use Encryption for Data=False;Tag with column collation ' +
      'when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 4
    Top = 56
  end
  object ADOConnection3: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=snqt3005;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=qtbkfcx;Data Source=snqt;Use Procedu' +
      're for Prepare=1;Auto Translate=True;Packet Size=4096;Workstatio' +
      'n ID=GB;Use Encryption for Data=False;Tag with column collation ' +
      'when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 4
    Top = 96
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection3
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24037#27573#20986#24211#24635#34920)
    Left = 60
    Top = 96
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 108
    Top = 96
  end
end