vprinter.dfm

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 236 行

object Form1: TForm1
  Left = 42
  Top = 107
  Width = 216
  Height = 85
  Hint = #25171#21360#26426#25511#21046#21488
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25171#21360#26426#25511#21046#21488
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poMainFormCenter
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 4
    Width = 141
    Height = 16
    AutoSize = False
    Caption = #24037#20316#20013#65292#35831#21247#21160#65281#65281
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 128
    Top = 29
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 2
    Visible = False
    OnClick = Button3Click
  end
  object selport: TADOQuery
    Connection = rjsado
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from dcddy '
      'where djh = :cs1')
    Left = 32
    Top = 32
    object selportID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object selportdjh: TIntegerField
      FieldName = 'djh'
    end
    object selportyhh: TStringField
      FieldName = 'yhh'
      Size = 10
    end
    object selporttwbh: TStringField
      FieldName = 'twbh'
      Size = 10
    end
    object selportrq: TDateTimeField
      FieldName = 'rq'
    end
    object selportmc: TStringField
      FieldName = 'mc'
      Size = 50
    end
    object selportgg: TStringField
      FieldName = 'gg'
      Size = 50
    end
    object selportdj: TBCDField
      FieldName = 'dj'
      Precision = 19
    end
    object selportsl: TBCDField
      FieldName = 'sl'
      Precision = 18
      Size = 2
    end
    object selportje: TBCDField
      FieldName = 'je'
      Precision = 19
    end
    object selportfkbz: TBooleanField
      FieldName = 'fkbz'
    end
    object selportzfbz: TBooleanField
      FieldName = 'zfbz'
    end
    object selportzsbz: TBooleanField
      FieldName = 'zsbz'
    end
    object selportcfdyjhm: TStringField
      FieldName = 'cfdyjhm'
      Size = 2
    end
    object selportccjdyjhm: TStringField
      FieldName = 'ccjdyjhm'
      Size = 2
    end
    object selporttype: TStringField
      FieldName = 'type'
      Size = 2
    end
    object selportmemo: TStringField
      FieldName = 'memo'
      Size = 50
    end
  end
  object rjsado: TADOConnection
    ConnectionString = 'FILE NAME=E:\ztpos\rjscygl.udl'
    LoginPrompt = False
    Provider = 'E:\ztpos\rjscygl.udl'
    Left = 88
    Top = 32
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 152
    Top = 72
  end
  object prtsetQ: TADOQuery
    Connection = rjsado
    Parameters = <
      item
        Name = 'cs1'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from prtset where type=:cs1')
    Left = 208
    Top = 16
  end
  object prtQ: TADOQuery
    Connection = rjsado
    Parameters = <
      item
        Name = 'djh'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select djh,cfdyjhm'
      'from dcd'
      'where djh=:djh and cfdyjhm<>'#39#39' and cfdyjhm is not null')
    Left = 200
    Top = 72
  end
  object ADOQuery1: TADOQuery
    Connection = rjsado
    Parameters = <>
    SQL.Strings = (
      'select djh'
      'from dcddy'
      'group by djh')
    Left = 144
    Top = 32
  end
  object ADOQuery2: TADOQuery
    Connection = rjsado
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from prtset'
      'where port like :cs1')
    Left = 96
    Top = 66
  end
  object ADOQuery3: TADOQuery
    Connection = rjsado
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT GS_OFFICE, ID, LOCK_FLAG, User_flag'
      'FROM GS gs')
    Left = 128
  end
end