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 …