販売管理ソフトを作る - 「見積一覧」 画面クリア

「見積一覧」 画面クリア

■ frmList

00135 '表示

00136 Private Sub UserForm_Activate()

00137     '画面 初期化

00138     ClearScreen

00139 

00140     '選択状態にならないので...

00141     txtDateMin.SelStart = 0

00142     txtDateMin.SelLength = txtDateMin.TextLength

00143 End Sub

00144 '画面 初期化

00145 Private Sub ClearScreen()

00146     txtDateMin.Text = Format$(Now, "yyyy\/MM\/dd")

00147     txtDateMax.Text = txtDateMin.Text

00148 

00149     txtBusyo.Text = ""

00150     txtTanto.Text = ""

00151     txtTokui.Text = ""

00152 

00153     lblBusyoNM.Caption = ""

00154     lblTantoNM.Caption = ""

00155     lblTokuiNM.Caption = ""

00156 

00157     'No

00158     Set aryLblNo(0) = lblNo00

00159     Set aryLblNo(1) = lblNo01

00160     Set aryLblNo(2) = lblNo02

00161     Set aryLblNo(3) = lblNo03

00162     Set aryLblNo(4) = lblNo04

00163     Set aryLblNo(5) = lblNo05

00164     Set aryLblNo(6) = lblNo06

00165     Set aryLblNo(7) = lblNo07

00166     Set aryLblNo(8) = lblNo08

00167     Set aryLblNo(9) = lblNo09

00168     Set aryLblNo(10) = lblNo10

00169     Set aryLblNo(11) = lblNo11

00170     Set aryLblNo(12) = lblNo12

00171     '伝票番号

00172     Set aryLblDenpyoNo(0) = lblDenpyoNo00

00173     Set aryLblDenpyoNo(1) = lblDenpyoNo01

00174     Set aryLblDenpyoNo(2) = lblDenpyoNo02

00175     Set aryLblDenpyoNo(3) = lblDenpyoNo03

00176     Set aryLblDenpyoNo(4) = lblDenpyoNo04

00177     Set aryLblDenpyoNo(5) = lblDenpyoNo05

00178     Set aryLblDenpyoNo(6) = lblDenpyoNo06

00179     Set aryLblDenpyoNo(7) = lblDenpyoNo07

00180     Set aryLblDenpyoNo(8) = lblDenpyoNo08

00181     Set aryLblDenpyoNo(9) = lblDenpyoNo09

00182     Set aryLblDenpyoNo(10) = lblDenpyoNo10

00183     Set aryLblDenpyoNo(11) = lblDenpyoNo11

00184     Set aryLblDenpyoNo(12) = lblDenpyoNo12

00185     '日付

00186     Set aryLblDate(0) = lblDate00

00187     Set aryLblDate(1) = lblDate01

00188     Set aryLblDate(2) = lblDate02

00189     Set aryLblDate(3) = lblDate03

00190     Set aryLblDate(4) = lblDate04

00191     Set aryLblDate(5) = lblDate05

00192     Set aryLblDate(6) = lblDate06

00193     Set aryLblDate(7) = lblDate07

00194     Set aryLblDate(8) = lblDate08

00195     Set aryLblDate(9) = lblDate09

00196     Set aryLblDate(10) = lblDate10

00197     Set aryLblDate(11) = lblDate11

00198     Set aryLblDate(12) = lblDate12

00199     '部署

00200     Set aryLblBusyo(0) = lblBusyo00

00201     Set aryLblBusyo(1) = lblBusyo01

00202     Set aryLblBusyo(2) = lblBusyo02

00203     Set aryLblBusyo(3) = lblBusyo03

00204     Set aryLblBusyo(4) = lblBusyo04

00205     Set aryLblBusyo(5) = lblBusyo05

00206     Set aryLblBusyo(6) = lblBusyo06

00207     Set aryLblBusyo(7) = lblBusyo07

00208     Set aryLblBusyo(8) = lblBusyo08

00209     Set aryLblBusyo(9) = lblBusyo09

00210     Set aryLblBusyo(10) = lblBusyo10

00211     Set aryLblBusyo(11) = lblBusyo11

00212     Set aryLblBusyo(12) = lblBusyo12

00213     '担当者

00214     Set aryLblTanto(0) = lblTanto00

00215     Set aryLblTanto(1) = lblTanto01

00216     Set aryLblTanto(2) = lblTanto02

00217     Set aryLblTanto(3) = lblTanto03

00218     Set aryLblTanto(4) = lblTanto04

00219     Set aryLblTanto(5) = lblTanto05

00220     Set aryLblTanto(6) = lblTanto06

00221     Set aryLblTanto(7) = lblTanto07

00222     Set aryLblTanto(8) = lblTanto08

00223     Set aryLblTanto(9) = lblTanto09

00224     Set aryLblTanto(10) = lblTanto10

00225     Set aryLblTanto(11) = lblTanto11

00226     Set aryLblTanto(12) = lblTanto12

00227     '得意先

00228     Set aryLblTokui(0) = lblTokui00

00229     Set aryLblTokui(1) = lblTokui01

00230     Set aryLblTokui(2) = lblTokui02

00231     Set aryLblTokui(3) = lblTokui03

00232     Set aryLblTokui(4) = lblTokui04

00233     Set aryLblTokui(5) = lblTokui05

00234     Set aryLblTokui(6) = lblTokui06

00235     Set aryLblTokui(7) = lblTokui07

00236     Set aryLblTokui(8) = lblTokui08

00237     Set aryLblTokui(9) = lblTokui09

00238     Set aryLblTokui(10) = lblTokui10

00239     Set aryLblTokui(11) = lblTokui11

00240     Set aryLblTokui(12) = lblTokui12

00241 

00242     '明細部 クリア

00243     ClearDetail

00244 End Sub

00245 '明細部 クリア

00246 Private Sub ClearDetail()

00247     Dim i As Integer

00248     For i = 0 To ROW_NUM

00249         'No

00250         aryLblNo(i).Caption = ""

00251         '伝票番号

00252         aryLblDenpyoNo(i).Caption = ""

00253         '日付

00254         aryLblDate(i).Caption = ""

00255         '部署

00256         aryLblBusyo(i).Caption = ""

00257         '担当者

00258         aryLblTanto(i).Caption = ""

00259         '得意先

00260         aryLblTokui(i).Caption = ""

00261     Next

00262 

00263     cmdAppend.Enabled = False

00264     cmdUpdate.Enabled = False

00265     cmdCopy.Enabled = False

00266     cmdDelete.Enabled = False

00267 

00268     vsbDetail.Min = 0

00269     vsbDetail.Value = 0

00270     vsbDetail.Max = 0

00271     vsbDetail.SmallChange = 1

00272     vsbDetail.LargeChange = ROW_NUM + 1

00273 

00274     Erase recDetail

00275 End Sub