home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 January / VPR9701A.ISO / PROJ95 / EXAMPLES / TIMETRAK / OPTIONS.FRM < prev    next >
Text File  |  1996-08-21  |  12KB  |  366 lines
  1. VERSION 2.00
  2. Begin Form frmOptions 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "ｵﾌﾟｼｮﾝ"
  6.    ClientHeight    =   3660
  7.    ClientLeft      =   1185
  8.    ClientTop       =   2625
  9.    ClientWidth     =   4455
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "ＭＳ Ｐゴシック"
  13.    FontSize        =   9
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   4065
  17.    Icon            =   OPTIONS.FRX:0000
  18.    Left            =   1125
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3660
  23.    ScaleWidth      =   4455
  24.    Top             =   2280
  25.    Width           =   4575
  26.    Begin SSPanel pnlMain 
  27.       AutoSize        =   3  'AutoSize Child To Panel
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "ＭＳ Ｐゴシック"
  31.       FontSize        =   9
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       ForeColor       =   &H00000000&
  35.       Height          =   3660
  36.       Left            =   0
  37.       TabIndex        =   9
  38.       Top             =   0
  39.       Width           =   4455
  40.       Begin CommandButton cmdOK 
  41.          BackColor       =   &H00C0C0C0&
  42.          Caption         =   "OK"
  43.          Default         =   -1  'True
  44.          Enabled         =   0   'False
  45.          FontBold        =   0   'False
  46.          FontItalic      =   0   'False
  47.          FontName        =   "ＭＳ Ｐゴシック"
  48.          FontSize        =   9
  49.          FontStrikethru  =   0   'False
  50.          FontUnderline   =   0   'False
  51.          Height          =   330
  52.          Left            =   3195
  53.          TabIndex        =   7
  54.          Top             =   300
  55.          Width           =   1050
  56.       End
  57.       Begin CommandButton cmdCancel 
  58.          BackColor       =   &H00C0C0C0&
  59.          Cancel          =   -1  'True
  60.          Caption         =   "ｷｬﾝｾﾙ"
  61.          FontBold        =   0   'False
  62.          FontItalic      =   0   'False
  63.          FontName        =   "ＭＳ Ｐゴシック"
  64.          FontSize        =   9
  65.          FontStrikethru  =   0   'False
  66.          FontUnderline   =   0   'False
  67.          Height          =   330
  68.          Left            =   3195
  69.          TabIndex        =   8
  70.          Top             =   705
  71.          Width           =   1050
  72.       End
  73.       Begin SSFrame fraResource 
  74.          Caption         =   "作業時間の更新対象"
  75.          FontBold        =   0   'False
  76.          FontItalic      =   0   'False
  77.          FontName        =   "ＭＳ Ｐゴシック"
  78.          FontSize        =   9
  79.          FontStrikethru  =   0   'False
  80.          FontUnderline   =   0   'False
  81.          Height          =   1410
  82.          Left            =   180
  83.          TabIndex        =   13
  84.          Top             =   210
  85.          Width           =   2805
  86.          Begin SSOption optAllResources 
  87.             Caption         =   "すべてのﾘｿｰｽ(&A)"
  88.             FontBold        =   0   'False
  89.             FontItalic      =   0   'False
  90.             FontName        =   "ＭＳ Ｐゴシック"
  91.             FontSize        =   9
  92.             FontStrikethru  =   0   'False
  93.             FontUnderline   =   0   'False
  94.             Height          =   240
  95.             Left            =   180
  96.             TabIndex        =   0
  97.             Top             =   315
  98.             Value           =   -1  'True
  99.             Width           =   2235
  100.          End
  101.          Begin SSOption optOneResource 
  102.             Caption         =   "選択したﾘｿｰｽのみ(&O)"
  103.             FontBold        =   0   'False
  104.             FontItalic      =   0   'False
  105.             FontName        =   "ＭＳ Ｐゴシック"
  106.             FontSize        =   9
  107.             FontStrikethru  =   0   'False
  108.             FontUnderline   =   0   'False
  109.             Height          =   240
  110.             Left            =   180
  111.             TabIndex        =   1
  112.             TabStop         =   0   'False
  113.             Top             =   585
  114.             Width           =   2235
  115.          End
  116.          Begin SSPanel pnlResources 
  117.             AutoSize        =   3  'AutoSize Child To Panel
  118.             BevelOuter      =   1  'Inset
  119.             FontBold        =   -1  'True
  120.             FontItalic      =   0   'False
  121.             FontName        =   "ＭＳ Ｐゴシック"
  122.             FontSize        =   9
  123.             FontStrikethru  =   0   'False
  124.             FontUnderline   =   0   'False
  125.             ForeColor       =   &H00000000&
  126.             Height          =   330
  127.             Left            =   165
  128.             TabIndex        =   14
  129.             Top             =   945
  130.             Width           =   2520
  131.             Begin ComboBox cboResources 
  132.                Enabled         =   0   'False
  133.                FontBold        =   -1  'True
  134.                FontItalic      =   0   'False
  135.                FontName        =   "ＭＳ Ｐゴシック"
  136.                FontSize        =   9
  137.                FontStrikethru  =   0   'False
  138.                FontUnderline   =   0   'False
  139.                Height          =   300
  140.                Left            =   15
  141.                Style           =   2  'Dropdown List
  142.                TabIndex        =   2
  143.                Top             =   15
  144.                Width           =   2490
  145.             End
  146.          End
  147.       End
  148.       Begin SSFrame fraDateRange 
  149.          Caption         =   "日付の範囲内のﾀｽｸを更新"
  150.          FontBold        =   0   'False
  151.          FontItalic      =   0   'False
  152.          FontName        =   "ＭＳ Ｐゴシック"
  153.          FontSize        =   9
  154.          FontStrikethru  =   0   'False
  155.          FontUnderline   =   0   'False
  156.          Height          =   1590
  157.          Left            =   180
  158.          TabIndex        =   10
  159.          Top             =   1830
  160.          Width           =   4065
  161.          Begin SSPanel pnlFrom 
  162.             AutoSize        =   3  'AutoSize Child To Panel
  163.             BevelOuter      =   1  'Inset
  164.             Caption         =   "Panel3D1"
  165.             FontBold        =   -1  'True
  166.             FontItalic      =   0   'False
  167.             FontName        =   "ＭＳ Ｐゴシック"
  168.             FontSize        =   9
  169.             FontStrikethru  =   0   'False
  170.             FontUnderline   =   0   'False
  171.             ForeColor       =   &H00000000&
  172.             Height          =   335
  173.             Left            =   315
  174.             TabIndex        =   12
  175.             Top             =   495
  176.             Width           =   3110
  177.             Begin TextBox txtFrom 
  178.                FontBold        =   -1  'True
  179.                FontItalic      =   0   'False
  180.                FontName        =   "ＭＳ Ｐゴシック"
  181.                FontSize        =   9
  182.                FontStrikethru  =   0   'False
  183.                FontUnderline   =   0   'False
  184.                Height          =   300
  185.                Left            =   15
  186.                TabIndex        =   4
  187.                Top             =   15
  188.                Width           =   3075
  189.             End
  190.          End
  191.          Begin SSPanel pnlTo 
  192.             AutoSize        =   3  'AutoSize Child To Panel
  193.             BevelOuter      =   1  'Inset
  194.             Caption         =   "Panel3D2"
  195.             FontBold        =   -1  'True
  196.             FontItalic      =   0   'False
  197.             FontName        =   "ＭＳ Ｐゴシック"
  198.             FontSize        =   9
  199.             FontStrikethru  =   0   'False
  200.             FontUnderline   =   0   'False
  201.             ForeColor       =   &H00000000&
  202.             Height          =   335
  203.             Left            =   315
  204.             TabIndex        =   11
  205.             Top             =   1125
  206.             Width           =   3110
  207.             Begin TextBox txtTo 
  208.                FontBold        =   -1  'True
  209.                FontItalic      =   0   'False
  210.                FontName        =   "ＭＳ Ｐゴシック"
  211.                FontSize        =   9
  212.                FontStrikethru  =   0   'False
  213.                FontUnderline   =   0   'False
  214.                Height          =   300
  215.                Left            =   15
  216.                TabIndex        =   6
  217.                Top             =   15
  218.                Width           =   3075
  219.             End
  220.          End
  221.          Begin Label lblFrom 
  222.             BackColor       =   &H00C0C0C0&
  223.             Caption         =   "範囲の先頭(&F):"
  224.             FontBold        =   0   'False
  225.             FontItalic      =   0   'False
  226.             FontName        =   "ＭＳ Ｐゴシック"
  227.             FontSize        =   9
  228.             FontStrikethru  =   0   'False
  229.             FontUnderline   =   0   'False
  230.             Height          =   240
  231.             Left            =   315
  232.             TabIndex        =   3
  233.             Top             =   270
  234.             Width           =   1455
  235.          End
  236.          Begin Label lblTo 
  237.             BackColor       =   &H00C0C0C0&
  238.             Caption         =   "範囲の末尾(&T):"
  239.             FontBold        =   0   'False
  240.             FontItalic      =   0   'False
  241.             FontName        =   "ＭＳ Ｐゴシック"
  242.             FontSize        =   9
  243.             FontStrikethru  =   0   'False
  244.             FontUnderline   =   0   'False
  245.             Height          =   195
  246.             Left            =   315
  247.             TabIndex        =   5
  248.             Top             =   900
  249.             Width           =   1410
  250.          End
  251.       End
  252.    End
  253. End
  254. Option Explicit      '変数は明示的に宣言する必要があります。
  255.  
  256. Sub cmdCancel_Click ()
  257.  
  258.    TerminateApplication
  259.  
  260. End Sub
  261.  
  262. Sub cmdOK_Click ()
  263.  
  264.    Dim iResSelection As Integer, sFrom As String, sTo As String
  265.  
  266.    If optAllResources.Value = True Then
  267.       iResSelection = ALL_RESOURCES
  268.    ElseIf optOneResource.Value = True Then
  269.       If cboResources.Enabled = True Then
  270.          iResSelection = cboResources.ListIndex
  271.       End If
  272.    End If
  273.    sFrom = txtFrom.Text
  274.    sTo = txtTo.Text
  275.  
  276.    On Error GoTo cmdOk_ClickError
  277.  
  278.    SetParameters iResSelection, sFrom, sTo
  279.    gbDTIF = False
  280.    DisplayTInfoForm
  281.  
  282.    Exit Sub
  283.  
  284. cmdOk_ClickError:
  285.    Select Case Err
  286.       Case ERR_NO_RES_SELECTION
  287.          Beep
  288.          MsgBox MB_NO_RES_SELECTION, MB_ICONEXCLAMATION, MB_TIMESHEET
  289.       Case ERR_FROMDATE
  290.          Beep
  291.          MsgBox MB_FROMDATE, MB_ICONEXCLAMATION, MB_TIMESHEET
  292.          txtFrom.SelStart = 0
  293.          txtFrom.SelLength = 32000
  294.          txtFrom.SetFocus
  295.       Case ERR_TODATE
  296.          Beep
  297.          MsgBox MB_TODATE, MB_ICONEXCLAMATION, MB_TIMESHEET
  298.          txtTo.SelStart = 0
  299.          txtTo.SelLength = 32000
  300.          txtTo.SetFocus
  301.       Case ERR_BAD_DATE_ORDER
  302.          Beep
  303.          MsgBox MB_BAD_DATE_ORDER, MB_ICONEXCLAMATION, MB_TIMESHEET
  304.       Case ERR_BAD_DATE_RANGE
  305.          Beep
  306.          MsgBox MB_BAD_DATE_RANGE, MB_ICONEXCLAMATION, MB_TIMESHEET
  307.       Case ERR_BAD_PARAM
  308.          'この場合、既定で [すべてのリソース] が選択されます。
  309.          iResSelection = ALL_RESOURCES
  310.          Resume
  311.       Case Else
  312.          Beep
  313.          MsgBox MB_GENERIC_ERROR + " Err#" + Str$(Err), MB_ICONEXCLAMATION, MB_TIMESHEET
  314.          TerminateApplication
  315.    End Select
  316.    Exit Sub
  317. End Sub
  318.  
  319. Sub Form_Load ()
  320.  
  321. 'メインの 3D パネルのサイズと位置を設定します。
  322. pnlMain.Top = 0
  323. pnlMain.Left = 0
  324. pnlMain.Width = frmOptions.ScaleWidth
  325. pnlMain.Height = frmOptions.ScaleHeight
  326.  
  327.  
  328. 'フォームを画面の中央に配置します。
  329. frmOptions.Top = (Screen.Height - frmOptions.Height) / 2
  330. frmOptions.Left = (Screen.Width - frmOptions.Width) / 2
  331.  
  332. End Sub
  333.  
  334. Sub optAllResources_Click (Value As Integer)
  335.  
  336.    cboResources.ListIndex = -1
  337.    cboResources.Enabled = False
  338.  
  339. End Sub
  340.  
  341. Sub optOneResource_Click (Value As Integer)
  342.    
  343.    If LoadResourceCombo(Me!cboResources) Then
  344.       cboResources.Enabled = True
  345.  
  346.       '以前にユーザーがリソースの選択を行ったことがなければ、
  347.       '一覧の先頭にあるリソースを選択します。
  348.       If cboResources.ListIndex = -1 Then
  349.          cboResources.ListIndex = 0
  350.       End If
  351.  
  352.    End If
  353.  
  354. End Sub
  355.  
  356. Sub txtTo_Change ()
  357.  
  358. If Len(txtTo.Text) > 2 Then
  359.    cmdOK.Enabled = True
  360. Else
  361.    cmdOK.Enabled = False
  362. End If
  363.  
  364. End Sub
  365.  
  366.