數(shù)據(jù)庫(kù)課程設(shè)計(jì)論文-資料下載頁(yè)
2025-01-16 16:08本頁(yè)面
【正文】 ate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst HTCAPTION = 2Const WM_NCLBUTTIONDOWN = amp。HA1Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTIONDOWN, HTCAPTION, 0) End IfEnd SubPrivate Sub Browse_Click() 1End SubPrivate Sub Exit_Click() Unload MeEnd SubPrivate Sub Reg_Click() 1 Unload MeEnd SubOption ExplicitPrivate Declare Function ReleaseCapture Lib user32 () As LongPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst HTCAPTION = 2Const WM_NCLBUTTIONDOWN = amp。HA1Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTIONDOWN, HTCAPTION, 0) End IfEnd SubPrivate Sub Room_Browse_Click() 1End SubPrivate Sub Room_Exit_Click() Unload MeEnd SubPrivate Sub Room_Reg_Click() 1 Unload MeEnd SubOption ExplicitPrivate Sub First_Click() End SubPrivate Sub Form_Load() Unload CheckRoomFormEnd SubPrivate Sub Last_Click() End SubPrivate Sub Next_Click() End SubPrivate Sub Previous_Click() End SubPrivate Sub Room_Find_Exit_Click() Unload MeEnd SubPrivate Sub Room_Find_Find_Click() 1End SubPrivate Sub Update_Click() (Sno) = Trim() (Rno) = Trim() (Bedno) = Trim() (Sno) = Trim() (Sname) = Trim() (Sdept) = Trim()(Sclass) = Trim() (Rno) = Trim() End SubOption ExplicitPrivate Sub CheckRoom_Reg_Exit_Click() Unload MeEnd SubPrivate Sub CheckRoom_Reg_Reg_Click() = = End SubPrivate Sub Form_Load() Unload CheckRoomForm = = = = = = = End SubOption ExplicitPrivate Sub OKButton_Click() Unload MeEnd Sub 24
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1