Mouse Events in VB

Mouse Events

Screen Design






Source Code


Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
ImgSun.Height = 900
ImgSun.Width = 1200

ImgWinter.Height = 900
ImgWinter.Width = 1200


End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Option1 = True Then
ImgSun.Move X, Y
Else
ImgWinter.Move X, Y
End If



End Sub

Key Board Events in VB

Key Board Events

Source Code and Screen Design


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
MsgBox ("The UP Arrow was Pressed")
End If
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
MsgBox ("The DOWN Arrow was Pressed")
ElseIf KeyCode = 37 Then
MsgBox ("The LEFT Arrow was Pressed")
ElseIf KeyCode = 39 Then
MsgBox ("The RIGHT Arrow was Pressed")
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Mychar As String
Mychar = Text1.Text
Text1.Text = Mychar

MsgBox "You Have Pressed " & Mychar & Asc(Mychar)
Text1.Text = ""

End Sub

DCL Commands

DATA CONTROL COMMANDS

CREATE TABLE

SYNTAX

CREATE TABLE (column definition1, column definition2);

Example

SQL> create table gemployee(name varchar2(10),id varchar2(10),address varchar2(19),post varchar2(20),salary number(6,2));
Table created.

SQL> DESC GEMPLOYEE;

Name Null? Type
----------------------------------------- -------- ----------------------------
NAME VARCHAR2(10)
ID VARCHAR2(10)
ADDRESS VARCHAR2(19)
POST VARCHAR2(20)
SALARY NUMBER(5)

INSERT VALUES

SYNTAX

INSERT INTO table_name(column1,column2….)VALUES (value1,value2..);

Example

SQL> insert into gemployee values('&name','&id','&address','&post','&salary');
Enter value for name: siva
Enter value for id: 5
Enter value for address: mainroad
Enter value for post: manager
Enter value for salary: 2000
old 1: insert into gemployee values('&name','&id','&address','&post','&salary')
new 1: insert into gemployee values('siva','5','mainroad','manager','2000')
1 row created.

SQL> insert into gemployee values('&name','&id','&address','&post','&salary');
Enter value for name: rose
Enter value for id: 67
Enter value for address: weststreet
Enter value for post: clerk
Enter value for salary: 500
old 1: insert into gemployee values('&name','&id','&address','&post','&salary')
new 1: insert into gemployee values('rose','67','weststreet','clerk','500')
1 row created.

SQL> insert into gemployee values('&name','&id','&address','&post','&salary');
Enter value for name: anvitha
Enter value for id: 56
Enter value for address: eaststreet
Enter value for post: assistant
Enter value for salary: 200
old 1: insert into gemployee values('&name','&id','&address','&post','&salary')
new 1: insert into gemployee values('anvitha','56','eaststreet','assistant','200')
1 row created.

SQL> SELECT * FROM GEMPLOYEE;

NAME ID ADDRESS POST SALARY
--------- - ---------- ------------------- -------------------- ---------- ----------
siva 5 mainroad manager 2000
rose 67 weststreet clerk 500
anvitha 56 eaststreet assistant 200

GRANT

SYNTAX
GRANT privilege_name ON object_name TO {user_namepublicrole_name};

Example

SQL> grant all on gemployee to system;
Grant succeeded.

REVOKE

SYNTAX

REVOKE privilege_name ON object_name FROM {user_namepublicrole_name};

Example

SQL> revoke select on gemployee from system;
Revoke succeeded.

TRIGGERS

ORACLE OR SQL SERVER TRIGGERS

CREATE TABLE

SYNTAX

CREATE TABLE (column definition1, column definition2);

Example

SQL> create table it_file(itemcode number(6),qty_hand number(5));
Table created.

INSERT VALUES

SYNTAX

INSERT INTO table_name(column1,column2….)VALUES (value1,value2..);

Example

SQL> insert into it_file values(1201,200);
1 row created.

CREATE TRIGGER

SYNTAX

CREATE OR REPLACE trigger
[befor/after][insert/update/delete]on
{referencing/old [as] old/new}
[for each statement/for each row][when ]
PI/SQL_block

Example

SQL> create trigger fff
2 before update on it_file for each row
3 begin
4 if:new.qty_hand<:old.qty_hand then
5 raise_application_error(-20001,'quantity on hand is less');
6 end if;
7 end;
8 /
Trigger created.

UPDATE

SQL> update it_file set qty_hand=qty_hand+200 where itemcode='1201';
1 row updated.

SQL> update it_file set qty_hand=qty_hand-200 where itemcode='1201';
update it_file set qty_hand=qty_hand-200 where itemcode='1201'
*
ERROR at line 1:
ORA-20001: quantity on hand is less
ORA-06512: at "SCOTT.FFF", line 3
ORA-04088: error during execution of trigger 'SCOTT.FFF'