PC go! 1996 December/PC_GO.ISO/demo/docman/_setup.1/DOCMAN.exe/0/RCDATA/TFORMVORGANG/TFORMVORGANG.txt

Text File | 1996-09-17 | 17.0 KB | 754 lines

object FormVorgang: TFormVorgang
  Left = 30
  Top = 255
  Width = 640
  Height = 480
  Caption = 'Vorgang'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenuNUL
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object TLabel
    Left = 16
    Top = 272
    Width = 32
    Height = 14
    Caption = 'Label2'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 632
    Height = 319
    ActivePage = TabSheet2
    Align = alClient
    PopupMenu = PopupMenuPageControl
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '&Vorgang'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 624
        Height = 290
        Align = alClient
        DataSource = DataSourceProtokol
        PopupMenu = PopupMenuPageControl
        ReadOnly = True
        TabOrder = 0
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        OnColEnter = DBGridAllgemeinColEnter
        OnDblClick = DBGrid1DblClick
        OnEnter = DBGridAllgemeinEnter
      end
    end
    object TabSheet2: TTabSheet
      Caption = '&Dokument'
      object RichEditDokument: TRichEdit
        Left = 0
        Top = 0
        Width = 624
        Height = 290
        Align = alClient
        Lines.Strings = (
          'RichEditDokument')
        TabOrder = 0
      end
    end
  end
  object ToolBar: TPanel
    Left = 0
    Top = 395
    Width = 632
    Height = 38
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 1
    object FirstButton: TSpeedButton
      Left = 13
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Anfang'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FirstButtonClick
    end
    object PrevButton: TSpeedButton
      Left = 46
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Vorheriger Datensatz'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PrevButtonClick
    end
    object LastButton: TSpeedButton
      Left = 111
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Letzer Datensatz'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = LastButtonClick
    end
    object CancelButton: TSpeedButton
      Left = 273
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Verwerfen'
      Enabled = False
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = CancelButtonClick
    end
    object NewButton: TSpeedButton
      Left = 143
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Neu'
      AllowAllUp = True
      GroupIndex = 1
      Enabled = False
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = NewButtonClick
    end
    object PostButton: TSpeedButton
      Left = 241
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Speichern'
      Enabled = False
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PostButtonClick
    end
    object DelButton: TSpeedButton
      Left = 176
      Top = 6
      Width = 26
      Height = 26
      Hint = 'L�schen'
      AllowAllUp = True
      GroupIndex = 1
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DelButtonClick
    end
    object EditButton: TSpeedButton
      Left = 208
      Top = 6
      Width = 26
      Height = 26
      Hint = '�ndern'
      AllowAllUp = True
      GroupIndex = 1
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = EditButtonClick
    end
    object RefreshButton: TSpeedButton
      Left = 306
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Anzeige auffrischen'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = RefreshButtonClick
    end
    object SearchButton: TSpeedButton
      Left = 338
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Suchen'
      AllowAllUp = True
      GroupIndex = 1
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SearchButtonClick
    end
    object WVButton: TSpeedButton
      Left = 371
      Top = 6
      Width = 26
      Height = 26
      Hint = 'auf Wiederforlage legen'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = WVButtonClick
    end
    object GoButton: TSpeedButton
      Left = 403
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Gehe Zu'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = GoButtonClick
    end
    object SpeedButton14: TSpeedButton
      Left = 436
      Top = 6
      Width = 26
      Height = 26
      Hint = 'noch nicht belegt'
      Enabled = False
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
    end
    object HelpButton: TSpeedButton
      Left = 468
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Hilfe'
      AllowAllUp = True
      GroupIndex = 1
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = HelpButtonClick
    end
    object NextButton: TSpeedButton
      Left = 78
      Top = 6
      Width = 26
      Height = 26
      Hint = 'N�chster Datensatz'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = NextButtonClick
    end
    object CheckBox1: TCheckBox
      Left = 500
      Top = 9
      Width = 125
      Height = 17
      Cursor = crDrag
      Hint = 'Filter auf eigene WiederVorlagen an/aus'
      Caption = 'Nur eigene Vorg�nge'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = CheckBox1Click
    end
  end
  object PanelModal: TPanel
    Left = 0
    Top = 357
    Width = 632
    Height = 38
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 2
    Visible = False
    object SearchButtonPM: TSpeedButton
      Left = 466
      Top = 6
      Width = 26
      Height = 26
      Hint = 'Suchen'
      AllowAllUp = True
      GroupIndex = 1
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SearchButtonPMClick
    end
    object Label1: TLabel
      Left = 56
      Top = 12
      Width = 32
      Height = 14
      Caption = 'Label1'
      Visible = False
    end
    object BitBtnOK: TBitBtn
      Left = 208
      Top = 6
      Width = 81
      Height = 26
      Caption = 'OK'
      Default = True
      ModalResult = 1
      TabOrder = 0
      NumGlyphs = 2
    end
    object BitBtnAbbruch: TBitBtn
      Left = 312
      Top = 6
      Width = 81
      Height = 26
      Cancel = True
      Caption = 'Abbruch'
      ModalResult = 2
      TabOrder = 1
      NumGlyphs = 2
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 433
    Width = 632
    Height = 20
    Panels = <
      item
        Width = 160
      end
      item
        Alignment = taCenter
        Width = 300
      end
      item
        Width = 180
      end>
    SimplePanel = False
  end
  object PanelSuchen: TPanel
    Left = 0
    Top = 319
    Width = 632
    Height = 38
    Align = alBottom
    PopupMenu = PopupMenuSuchen
    TabOrder = 4
    Visible = False
    object BitBtnSuchen: TBitBtn
      Left = 280
      Top = 4
      Width = 26
      Height = 26
      Hint = 'Suchen ab Tabellenanfang/-ende'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtnSuchenClick
      NumGlyphs = 2
    end
    object BitBtnWeitersuchen: TBitBtn
      Left = 328
      Top = 4
      Width = 26
      Height = 26
      Hint = 'Weitersuchen ab aktuellem Datensatz'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitBtnWeitersuchenClick
      NumGlyphs = 2
    end
    object CheckBoxGrossKlein: TCheckBox
      Tag = 1
      Left = 472
      Top = 1
      Width = 73
      Height = 17
      Hint = 'Gro�-/Kleinschreibung beachten'
      Caption = '&Gro�/Klein'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
    end
    object CheckBoxTeilw: TCheckBox
      Left = 472
      Top = 18
      Width = 73
      Height = 17
      Hint = 'abgeschnittene Zeichenkette'
      Caption = '&Teilstring'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 7
    end
    object CheckBoxSQL: TCheckBox
      Left = 552
      Top = 18
      Width = 81
      Height = 17
      Hint = 'Suche �ber internen SQL-Aufruf'
      Caption = 'S&QL-Suche'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
    end
    object CheckBoxSuchrichtung: TCheckBox
      Left = 384
      Top = 1
      Width = 73
      Height = 17
      Hint = 'R�ckw�rtssuche'
      Caption = '&R�ckw�rts'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
    object CheckBoxWildcard: TCheckBox
      Tag = 1
      Left = 552
      Top = 1
      Width = 81
      Height = 17
      Hint = 'Wildcards * und ? verwenden'
      Caption = '&Wildcards'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 8
    end
    object ComboBoxFeld: TComboBox
      Left = 144
      Top = 8
      Width = 113
      Height = 22
      Hint = 'Suchfeld'
      Style = csDropDownList
      ItemHeight = 14
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 1
      OnChange = ComboBoxFeldChange
    end
    object EditWert: TMaskEdit
      Left = 16
      Top = 8
      Width = 113
      Height = 22
      Hint = 'gesuchter Wert'
      MaxLength = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = EditWertChange
    end
    object CheckBoxLive: TCheckBox
      Left = 384
      Top = 17
      Width = 81
      Height = 17
      Hint = 'Live-Positionierung auf Indexfeldern'
      Caption = '&Locate Live'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 5
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 476
    Top = 4
  end
  object PopupMenuSuchen: TPopupMenu
    Left = 544
    Top = 99
    object Suchen2: TMenuItem
      Caption = 'Suchen'
      ShortCut = 118
      OnClick = BitBtnSuchenClick
    end
    object Weitersuchen1: TMenuItem
      Caption = 'Weitersuchen'
      ShortCut = 114
      OnClick = BitBtnWeitersuchenClick
    end
    object Schliessen1: TMenuItem
      Caption = 'Suche beenden'
      ShortCut = 0
      OnClick = SearchButtonClick
    end
  end
  object PopupMenuPageControl: TPopupMenu
    OnPopup = PopupMenuPageControlPopup
    Left = 540
    Top = 51
    object NeuPMPC: TMenuItem
      Caption = '&Neu'
      ShortCut = 0
      OnClick = NeuPMPCClick
    end
    object LoeschenPMPC: TMenuItem
      Caption = '&L�schen'
      ShortCut = 0
      OnClick = LoeschenPMPCClick
    end
    object AendernPMPC: TMenuItem
      Caption = '&�ndern'
      ShortCut = 0
      OnClick = AendernPMPCClick
    end
    object MenuItem4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SuchenPMPC: TMenuItem
      Caption = '&Suchen'
      ShortCut = 0
      OnClick = SuchenPMPCClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SpeichernPMPC: TMenuItem
      Caption = 'Ansicht s&peichern'
      ShortCut = 0
      OnClick = SpeichernPMPCClick
    end
    object LadenPMPC: TMenuItem
      Caption = 'Ansicht &laden'
      ShortCut = 0
      OnClick = LadenPMPCClick
    end
    object VorgabePMPC: TMenuItem
      Caption = '&Vorgabewerte'
      ShortCut = 0
      OnClick = VorgabePMPCClick
    end
    object SpalteausPMPC: TMenuItem
      Caption = 'Spalte &ausblenden'
      ShortCut = 0
      OnClick = SpalteausPMPCClick
    end
  end
  object MainMenuNUL: TMainMenu
    Left = 540
    Top = 5
  end
  object TableProtokol: TTable
    DatabaseName = 'avsdvs'
    TableName = 'PROTOKOL'
    Left = 312
    Top = 60
    object TableProtokolNr: TAutoIncField
      DisplayWidth = 6
      FieldName = 'Nr'
    end
    object TableProtokolVorgang: TIntegerField
      FieldName = 'Vorgang'
      Visible = False
    end
    object TableProtokolVorgangArt: TStringField
      DisplayLabel = 'Art'
      DisplayWidth = 25
      FieldName = 'VorgangArt'
      Lookup = True
      LookupDataSet = TableVorgang
      LookupKeyFields = 'Nr'
      LookupResultField = 'VorgArtBez'
      KeyFields = 'Vorgang'
      Size = 40
    end
    object TableProtokolVorgangName: TStringField
      DisplayLabel = 'Vorlage'
      DisplayWidth = 25
      FieldName = 'VorgangName'
      Lookup = True
      LookupDataSet = TableVorgang
      LookupKeyFields = 'Nr'
      LookupResultField = 'Name'
      KeyFields = 'Vorgang'
      Size = 40
    end
    object TableProtokolBetreff: TStringField
      DisplayWidth = 30
      FieldName = 'Betreff'
      Size = 250
    end
    object TableProtokolDatum: TDateField
      DisplayWidth = 8
      FieldName = 'Datum'
    end
    object TableProtokolZeit: TTimeField
      DisplayWidth = 8
      FieldName = 'Zeit'
    end
    object TableProtokolEINAUS: TStringField
      FieldName = 'EINAUS'
      Size = 2
    end
    object TableProtokolMODUS: TStringField
      FieldName = 'MODUS'
      Size = 2
    end
    object TableProtokolAusgabeAuf: TStringField
      DisplayWidth = 40
      FieldName = 'AusgabeAuf'
      Size = 100
    end
    object TableProtokolUser: TIntegerField
      DisplayLabel = 'Benutzer'
      FieldName = 'User'
      Visible = False
    end
    object TableProtokolUserName: TStringField
      DisplayLabel = 'Benutzername'
      DisplayWidth = 20
      FieldName = 'UserName'
      Lookup = True
      LookupDataSet = DMStammdaten.TableBenutzer2
      LookupKeyFields = 'Nr'
      LookupResultField = 'NAME'
      KeyFields = 'User'
      Size = 40
    end
    object TableProtokolSelNr: TIntegerField
      FieldName = 'SelNr'
      Visible = False
    end
    object TableProtokolAspNr: TIntegerField
      FieldName = 'AspNr'
      Visible = False
    end
    object TableProtokolAdrNr: TIntegerField
      FieldName = 'AdrNr'
      Visible = False
    end
    object TableProtokolProjektNr: TIntegerField
      FieldName = 'ProjektNr'
      Visible = False
    end
    object TableProtokolAufgabeNr: TIntegerField
      FieldName = 'AufgabeNr'
      Visible = False
    end
    object TableProtokolErfasstAm: TDateField
      DisplayLabel = 'Erfasst am'
      DisplayWidth = 8
      FieldName = 'ErfasstAm'
    end
    object TableProtokolErfasstUm: TTimeField
      DisplayLabel = 'Erfasst um'
      DisplayWidth = 8
      FieldName = 'ErfasstUm'
    end
    object TableProtokolErfasstVon: TIntegerField
      FieldName = 'ErfasstVon'
      Visible = False
    end
    object TableProtokolErfasstVonName: TStringField
      DisplayLabel = 'Erfasst von'
      DisplayWidth = 20
      FieldName = 'ErfasstVonName'
      Lookup = True
      LookupDataSet = DMStammdaten.TableBenutzer2
      LookupKeyFields = 'Nr'
      LookupResultField = 'NAME'
      KeyFields = 'ErfasstVon'
      Size = 40
    end
    object TableProtokolGeaendertAm: TDateField
      DisplayLabel = 'Ge�ndert am'
      DisplayWidth = 8
      FieldName = 'GeaendertAm'
    end
    object TableProtokolGeaendertUm: TTimeField
      DisplayLabel = 'Ge�ndert um'
      DisplayWidth = 8
      FieldName = 'GeaendertUm'
      EditMask = '!90:00;1;_'
    end
    object TableProtokolGeaendertVon: TIntegerField
      FieldName = 'GeaendertVon'
      Visible = False
    end
    object TableProtokolGeaendertVonName: TStringField
      DisplayLabel = 'Ge�ndert von'
      DisplayWidth = 20
      FieldName = 'GeaendertVonName'
      Lookup = True
      LookupDataSet = DMStammdaten.TableBenutzer2
      LookupKeyFields = 'Nr'
      LookupResultField = 'NAME'
      KeyFields = 'GeaendertVon'
      Size = 40
    end
    object TableProtokolAktiv: TBooleanField
      FieldName = 'Aktiv'
      Visible = False
    end
  end
  object DataSourceProtokol: TDataSource
    AutoEdit = False
    DataSet = TableProtokol
    OnDataChange = DataSourceDataChange
    Left = 312
    Top = 112
  end
  object TableVorgang: TTable
    DatabaseName = 'avsdvs'
    TableName = 'VORGANG'
    Left = 172
    Top = 60
    object TableVorgangNr: TAutoIncField
      FieldName = 'Nr'
    end
    object TableVorgangName: TStringField
      FieldName = 'Name'
      Size = 40
    end
    object TableVorgangVorgArt: TIntegerField
      FieldName = 'VorgArt'
      Visible = False
    end
    object TableVorgangVorgArtBez: TStringField
      FieldName = 'VorgArtBez'
      Lookup = True
      LookupDataSet = DMStammdaten.TableVorgArt
      LookupKeyFields = 'Nr'
      LookupResultField = 'Bezeichnung'
      KeyFields = 'VorgArt'
      Size = 40
    end
  end
  object DataSourceVorgang: TDataSource
    AutoEdit = False
    DataSet = TableVorgang
    Left = 172
    Top = 112
  end
end