目次 様々な言語のおさらい 柴田望洋『明解Ｃ言語 入門編』 Steve Oualline『Ｃ実践プログラミング』 Steve Oualline『Ｃ＋＋実践プログラミング』 スクリプト言語 の 勉強 Perl PHP Ruby JScript VBScript さまざまな言語で「ソフトウェア作法」 Perl PHP R…

Windows 上での、業務ソフトウェアの開発を請け負っています。 業務経歴 業種 業務 システム形態 OS 言語 DB 小売 販売管理システム スタンドアロン Windows 3.1 VB2 小売 発注・仕入管理システム スタンドアロン Windows 3.1 VB4 Excel5 VBA Access 2 小売 …

「入金検索」

「支払検索」

「仕入検索」

「発注検索」

「売上検索」

「受注検索」

「見積検索」

「支払入力」

「入金入力」

「仕入入力」

「発注入力」

「売上入力」

「受注入力」

「見積入力」

「見積入力」 画面サンプル 実際の処理を作るのに飽きてしまったので、全画面のサンプルだけ、先に作ってしまおう。 各商品の原価を表示し、合計の粗利額・粗利率も表示したい。

「見積一覧」 検索結果表示例 [新規][変更][複写][削除][照会]ボタンで、「見積入力」画面へ。 [受注]ボタンで、「受注入力」画面へ。 各「見積」が受注済みかどうかの表示を追加したい。

「見積一覧」 検索結果表示処理 ■ frmList 00635 '一覧表示 00636 Private Sub cmdSearch_Click() 00637 If Not InputCheck(cmdSearch) Then Exit Sub 00638 00639 '明細部 クリア 00640 ClearDetail 00641 00642 'クエリー文字列を編集 00643 Dim Sql As St…

「見積一覧」 入力チェック ■ frmList 00408 '入力値が妥当か？ 00409 Private Function InputCheck(aControl As MSForms.Control) As Boolean 00410 InputCheck = False 00411 00412 If aControl Is txtDateMin Then 00413 InputCheck = InputCheckDate(txt…

「見積一覧」 フォーカス制御 ■ frmList 00302 '[Enter] による フォーカス制御 00303 Private Sub txtDateMin_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 00304 Call TextKeyDown(KeyCode, Shift) 00305 End Sub 00306 Priv…

「見積一覧」 入力画面 表示 ■ frmList 00284 '入力画面を表示 00285 Private Sub cmdAppend_Click() 00286 modMain.Mode = "新規" 00287 modMain.Main 00288 End Sub 00289 Private Sub cmdUpdate_Click() 00290 modMain.Mode = "変更" 00291 modMain.Main …

「見積一覧」 終了処理 ■ frmList 00277 '終了 00278 Private Sub cmdExit_Click() 00279 If MsgBox("終了します。", vbOKCancel Or vbInformation, "確認") = vbOK Then 00280 Unload Me 00281 End If 00282 End Sub

「見積一覧」 画面クリア ■ frmList 00135 '表示 00136 Private Sub UserForm_Activate() 00137 '画面 初期化 00138 ClearScreen 00139 00140 '選択状態にならないので... 00141 txtDateMin.SelStart = 0 00142 txtDateMin.SelLength = txtDateMin.TextLengt…

「見積一覧」 変数定義 ■ frmList 00001 Option Explicit 00002 00003 Private Const ROW_NUM As Integer = 12 00004 00005 Public WithEvents txtDateMin As MSForms.TextBox 00006 Public WithEvents txtDateMax As MSForms.TextBox 00007 Public WithEven…

「見積一覧」 ボタン部 初期化 ■ modList 00448 'ボタン部 初期化 00449 Private Sub CreateButton(objForm As frmList, ByRef iTop As Integer) 00450 iTop = iTop + MARGIN 00451 00452 Const BUTTON_WIDTH As Integer = 66 '適当に調整する 00453 Const B…

「見積一覧」 明細部 初期化 ■ modList 00207 '明細部 初期化 00208 Private Sub CreateDetail(objForm As frmList, ByRef iTop As Integer) 00209 00210 'パネル 00211 Dim pnlDetail As MSForms.Label 00212 Set pnlDetail = objForm.Controls.Add("Forms.…

「見積一覧」 ヘッダ部 初期化 ■ modList 00035 'ヘッダ部 初期化 00036 Private Sub CreateHeader(objForm As frmList, ByRef iTop As Integer) 00037 00038 'パネル 00039 Dim pnlHeader As MSForms.Label 00040 Set pnlHeader = objForm.Controls.Add("Fo…

「見積一覧」の主処理 ■ modList 00001 Option Explicit 00002 00003 Private Const ROW_NUM As Integer = 13 00004 00005 Public Sub Main() 00006 Dim objForm As frmList: Set objForm = frmList 00007 With objForm 00008 .Caption = "見積検索" 00009 .…

「見積一覧」「見積入力」 定数の定義 一覧画面と入力画面の共通部分を、共通モジュール「modCommon」を作成し、移動。 ■ modCommon 00001 Option Explicit 00002 00003 'Public Const DEBUG_MODE As Boolean = True 00004 Public Const DEBUG_MODE As Boole…