Crearea aplicației vba în salariul de acces pe locuri de muncă

Cu ajutorul acestui cod, puteți crea o histogramă salarială pentru diferite poziții. Această histogramă va fi salvată ca imagine și exportată în Picturebox. Codul pentru aceste operațiuni este afișat în listare 2.6. Rezultatul este prezentat în figura 2.3.

Fig.2.3 Rezultatul listei 2.5

Datele introduse și histograma au apărut pe formular.

Concluzia. Ca rezultat, putem spune că macrocomenzile facilitează efectuarea operațiilor în Excel. De asemenea, utilizând codul VB.Net fără a crea o foaie Excel, puteți să creați o histogramă pe o coală sau să introduceți date pe ea. Pe alte platforme cunoscute, de exemplu, ca acces, este imposibil să creați o histogramă pentru baza de date. Histograma prezintă salariul angajaților în poziții. Proiectul se află în dosarul Yusupova Z_den2.

3. CREAREA ȘI PROCESAREA TABELELOR ELECTRONICE MS EXCEL

3.1 Obiecte complexe din VBA MS Excel

În Excel, a fost creat un registru de lucru. Datele au fost introduse pe foaie în funcție de zona subiectului (HR). Se creează salarizarea angajaților. De asemenea, în modul a fost creat un formular cu care puteți introduce date în acest card de raport. Codul acestei operațiuni este prezentat în listare 3.1.

Listing 3.1. Codul formularului de introducere a datelor

Private Sub CommandButton1_Click ()

Dim r ca intreg

r = Cerere.CountA (ActiveSheet.Columns (1)) + 1

Codul de mai sus vă permite să introduceți date în coloane individuale.

Listing 3.12 Atribuirea valorilor câmpurilor de text

ActiveSheet.Cells (r, 1) .Value = TextBox1.Text

ActiveSheet.Cells (r, 2) .Value = TextBox2.Text

ActiveSheet.Cells (r, 3) .Value = TextBox3.Text

Puteți introduce datele în câmpurile de text

Acest formular este prezentat în Figura 3.1.

Fig.3.1 Formular pentru introducerea datelor

Datele acestui angajat au intrat în tabel.

De asemenea, puteți proteja foaia pentru păstrarea informațiilor din fila "Revizuire", fila "Protecția foilor". De asemenea, permiteți modificări pe foaie. Toate acestea se pot face cu o parolă sau fără o parolă. De asemenea, a fost setată o parolă pentru a ascunde codul din modul.

3.2 Crearea de rapoarte și documente oficiale

În mediul VBA MS Excel, puteți crea funcții personalizate pentru prelucrarea datelor, în cazul nostru pentru calcularea salariului pe locuri de muncă. Codul este afișat în lista 3.2.

Listing 3.2 Codul de calcul al salariilor

Funcția zp (chasi As Double, ch_plata ca dublu) Ca dublu

zp = chasi * ch_plata

Pentru a calcula mai întâi trebuie să găsiți numărul de ore de lucru ale angajaților, apoi într-un tabel separat, introduceți o taxă orară pentru fiecare loc de muncă. Rezultatul este prezentat în Figura 3.2.

Fig.3.2 Rezultatul listei 3.1

După cum puteți vedea din imagine, salariul se calculează din două tabele pentru poziții diferite. Pe baza datelor salariale ale angajaților care utilizează o macrocomandă, a fost creată o histogramă. De asemenea, pe proiect există funcții care să calculeze impozitul pe venit și numărul de ore de lucru.

Concluzia. Scopul lucrării este acela că puteți aplica aceste funcții atunci când creați o tabelă de salarii. Pentru a nu introduce aceleași date de fiecare dată, puteți utiliza șablonul acestei foi și puneți protecția în câmpurile necesare. Și, de asemenea, pentru a face o evaluare a angajaților cu ajutorul histograme.

4. MODELUL OBIECTULUI VBA MS ACCESS

4.1 Limba de programare VBA MS Access

Programarea pe VBA în Access DBMS este folosit în principal de către dezvoltatori (programatori) în procesul de creare a aplicațiilor (diverse baze de date, baze de date) cu care lucrează utilizatorii.

Module software în VBA MS Access

În primul rând, din fila Proiecte. "Adăugați o legătură" conectați mediul Microsoft ActiveX Data Objects. După aceasta, puteți lucra cu doamna Access. Acum, puteți utiliza codul pentru a crea tabele în MS Access și specificați și legăturile dintre acestea. Au fost create cinci mese și legături între ele. Codul este afișat în Lista 4.1.

Listarea 4.1 Crearea tabelului și codul de comunicare

Dim cn = New OleDbConnection ( "Provider = microsoft.ACE.oledb.12.0; Sursa de date = E: \ sotrudniki.accdb")

sql Dim Ca New OleDbCommand ( „CREATE sotrudniki TABLE (id_sotr char (6), fio char (55), staj char (6), data_roj char (10), char id_sotr_dolzhn (6), char id_kafed (6), id_otpuska char ( 6), cheia primară (id_sotr), cheie externă (id_sotr_dolzhn) referințe dolzhnosti (id_dolzhn), cheie externă (id_kafed) referințe kafedri (id_kaf), cheie externă (id_otpuska) referințe otpusk (id_otp) ON DELETE CASCADE ON UPDATE CASCADE)“, cn)

Pentru aceasta, am folosit un dirijor și am indicat sursa - baza de date existentă. Folosind instruciunea Try Catch, a fost verificată o eroare la executarea codului.

Listing 4.2 Cod de eroare de verificare

Prinde ex Ca Excepție

MsgBox ("Ne pare rău, tabela nu a fost creată")

Folosind comenzile de mai sus, au fost create patru tabele suplimentare. Schema de date din Access este prezentată în Figura 4.1.

Fig.4.1 Schema de date a bazei de date "Resurse umane".

Concluzia. Din operațiile de mai sus, puteți concluziona că, cu ajutorul codului, puteți să creați tabele, să le adăugați și să creați conexiuni în ele. Acest lucru este necesar în special pentru dezvoltatori pentru a crea diferite baze de date cu care lucrează utilizatorii. Proiectul se află în dosarul Yusupova Z_den_4

5. CREAREA BUNEI DE DATE DE ACCES LA MS: MODELUL ADO.NET

5.1 Utilizarea ADO cu MS Access Data

Un obiect - un reprezentant al clasei Connection reprezintă o conexiune la sursa de date (baza de date) și oferă o conexiune la baza de date. Visual Studio .NET acceptă clasa OleDbConnection (oferă conexiune la alte opțiuni de bază de date). În cadrul acestei clase, trebuie să specificați furnizorul adecvat și sursa bazei de date dorite.

Obiectul Recordset reprezintă orice set de înregistrări. Acest set de înregistrări poate fi considerat ca un tabel temporar obișnuit cu rânduri și coloane. Cu acest obiect puteți manipula datele primite de la furnizorul instalat. Fiecare obiect Recordset este caracterizat de un tip specific de cursor, adică de tipul obiectului care servește setului dat.

5.2 Gestionarea bazei de date MS Access

Pentru a prelua datele din tabel utilizând obiectul OleDbConnection din listare 5.1, se afișează codul.

Listarea 5.1 Probele din tabel

Dim cn = OleDbConnection nou ("Provider = microsoft.ace.oledb.12.0; Sursa de date = E: \ sotrudniki.accdb")

Dim sql ca nou OleDbCommand ("SELECT * FROM dolzhnosti", cn)

Dim rs Ca OleDbDataReader = sql.ExecuteReader

Dim tabl As New DataTable

După cum puteți vedea din cod, furnizorul și sursa bazei de date sunt specificate în interiorul obiectului OleDbConnection. Apoi citiți fluxul de informații.

Apoi trebuie să selectați câmpurile și liniile necesare pentru a citi tabelul din formular. Codul este afișat în Lista 5.2.

Listă 5.1 Selectarea câmpurilor și rândurilor pentru citire

În timp ce rs.Read = Adevărat

După introducerea acestui cod în formular, este afișat un tabel cu "posturi", prezentat în Figura 5.2.

Figura 5.2. Citirea tabelului "Poziții"

Concluzia. Adesea, pentru a crea baze de date comerciale, programatorii creează tabele și utilizează comenzile Select pe platformele VB Net. Și cu ajutorul codului este posibil să se efectueze operațiile care se efectuează în MS Access. Proiectul se află în dosarul Yusupova Z_den_4

6. LUCRAREA CU TABELE DE ACCES LA MS: OBIECTUL DATASETULUI

6.1 Accesarea datelor din tabel

Obiectul DataSet este un tampon pentru stocarea datelor din baza de date. Acest tampon este proiectat pentru a stoca informațiile structurate reprezentate ca tabele, astfel încât primul obiect cel mai evident, embedded DataSet este DataTable. Într-un singur set de date, mai multe tabele descarcate pot fi stocate dintr-o bază de date plasată în obiectele corespunzătoare DataTable. Folosind obiectele DataTable, a fost efectuată o operație de citire a tabelei (Capitolul 5).

6.2 Gestionarea datelor din tabel prin interfață

Prin interfața formularului, puteți gestiona datele din tabele. Puteți adăuga, șterge sau actualiza informații. Codul pentru adăugarea la tabelul principal este prezentat în Lista 6.1.

Listing 6.1 Codul pentru adăugarea de informații prin formulare

Dim darhost, id_sotr, fio, staj, data_roj Ca șir

Dim cn = New OleDbConnection ( "Provider = MicroSoft.ACE.OLEDB.12.0; Sursa de date = E: \ sotrudniki.accdb")

Dim sql2 Ca nou OleDbCommand ("SELECT max (id_sotr) +1 ca max_id_sotr FROM sotrudniki", cn)

Dim rs Ca OleDbDataReader = sql2.ExecuteReader

Pentru a introduce Id-ul, codul de mai sus este scris acolo unde este specificat că acesta este introdus automat în ordine după cel existent din tabel. Apoi, trebuie să atribuiți valori câmpurilor de text și să adăugați valori în comanda Insert. Codul este afișat în Lista 6.2.

Listing 6.2. Adăugarea datelor în tabelul Angajați

darhost = "INSERT INTO sotrudniki (id_sotr, fio, staj, data_roj) VALUES („" id_sotr '', '' FIO '', '' staj '', '' data_roj "„)"

Dim sql ca nou OleDbCommand (darhost)

Acum puteți rula formularul și introduceți datele într-o singură masă. Forma este prezentată în Figura 6.1.

Fig.6.1 Formularul de introducere a informațiilor

Datele pe care le introduceți apar automat în tabelul din Access.

De asemenea, puteți actualiza (schimba) datele din tabele. Un exemplu este prezentat în lista 6.3.

Listing 6.3. Codul de modificare a datelor din tabel

sqlupdate = "actualizare otpusk set nazv_otp = @nazv_otp, data_uh = @ data_uh, data_vih = @data_vih unde id_otp = '" Val (Trim (Txtidotp.Text)) „„“

Ca urmare a acestei înregistrări, puteți introduce date noi în locul datelor existente.

Acum trebuie să ștergeți datele din tabel. Codul este afișat în lista 6.4.

Listing 6.4. Codul de ștergere a datelor din tabel

"șterge * din otpusk unde id_otp = '" Val (Trim (Txtidotp.Text)) „„“

Ca urmare a acestui cod, puteți șterge o linie specifică din tabel.

Concluzia. Prin urmare, utilizând aceeași inserare, actualizați, ștergeți comenzi, puteți gestiona datele din tabele. Fără deschiderea accesului, puteți utiliza codul pentru a modifica datele din tabele. Acestea sunt caracteristici suplimentare în mediul VB Net. Proiectul se află în dosarul Yusupova Z_den_6

7. PROCESAREA DATELOR ACCESULUI MS: OBIECTUL DATABILITĂȚII

7.1 Gestionarea datelor de tabel

Clasa DbDataAdapter are patru proprietăți care servesc pentru a primi date de la o sursă de date și să actualizeze datele despre acesta: SelectCommand proprietate returnează datele de la sursa de date, precum și proprietățile și DeleteCommand InsertCommand UpdateComman utilizate pentru a controla schimbările în sursa de date. proprietate SelectCommand trebuie să fie stabilite înainte de a apela Umple DataAdapter obiect. Proprietăți InsertCommand, UpdateCommand sau DeleteCommand ar trebui să fie setat pentru a actualiza obiect DataAdapter metoda de apel, în funcție de ceea ce au fost efectuate modificări de date în DataTable. Dacă metoda de actualizare procesează rândul inserat, actualizat sau șters, DataAdapter utilizează proprietatea respectiva comandă pentru a procesa acțiunea. Datele actuale privind șirul modificat este trecut la un obiect de comandă printr-o colecție de parametri.

7.2 Selecția și prezentarea datelor

aplicați acest tabel de raport

Pentru a efectua ștergerea, adăugarea sau modificarea datelor din tabele, așa cum se arată deja în Capitolul 6, Insert, Update și Delete au fost utilizate. Aceste comenzi pot fi folosite pentru a selecta din mai multe tabele și pentru a le prezenta folosind comanda Combobox. Un exemplu este prezentat în Lista 7.1.

Listarea 7.1 Un exemplu de cod din mai multe tabele

Dim sql4 Ca nou OleDbCommand ("SELECT * FROM fakulteti nazv_fak", cn)

Dim rs4 Ca OleDbDataReader = sql4.ExecuteReader

În timp ce rs4.Read = Adevărat

rs1.Close (): cn.Close (): cn.Open ()

După cum puteți vedea din cod, o listă cu numele de facultate apare în Combobox.- trebuie să selectați una dintre ele pentru a adăuga la tabelul dorit. Următorul din Listing 7.2 este codul pentru adăugarea de la un alt tabel.

Listing 7.2 Selectarea datelor dintr-un tabel

Dim sql6 Ca nou OleDbCommand ("SELECT * FROM kafedri order by nazv_kaf, kol_rab", cn)

Dim rs6 Ca OleDbDataReader = sql6.ExecuteReader

În timp ce rs6.Read = Adevărat

ComboBox7.Items.Add (Trim (rs6.GetValue (0)) "--->" Trim (rs6.GetValue (1)) „“ Trim (rs6.GetValue (2)) „“ Trim (rs6.GetValue (3)))

Din acest tabel sunt selectate alte date. Rezultatul acestor coduri este prezentat în Figura 7.1.

Figura 7.1. O selecție din mai multe tabele

După cum puteți vedea, aceste date pot fi adăugate în tabel. În același mod, puteți obține și date din alte mese.

Concluzia. Aceste operațiuni permit dezvoltatorilor să adauge datele necesare din mai multe tabele către tabelul principal "Angajați" folosind un flux de cod unic. Acest lucru va face munca lor mult mai ușoară. Pentru a face acest lucru, puteți utiliza alte controale. Proiectul se află în dosarul Yusupova Z_den_6

LISTA LITERATURII UTILIZATE

Găzduit pe Allbest.ru

Documente similare

Esența și aplicarea Excel ca bază de date: crearea unui tabel, filtrarea și structurarea datelor, rezumarea, consolidarea, adăugarea unei diagrame și a unor hyperlink-uri. Aplicarea aplicației Access pentru rezolvarea problemelor din diverse domenii.

Scanneri, scopul lor. Software de rețea. Tabele în Microsoft Access și crearea legăturilor între mese. Un document dintr-un pachet Microsoft Excel care include un tabel cu date de intrare, formule de calcul, rezultate de calcul și un grafic.

Definiția (stabilirea structurii) datelor. Prelucrarea datelor. Gestionarea datelor. Microsoft Access este mai mult decât un DBMS. Proiectarea, crearea și gestionarea unei baze de date folosind exemplul unui atelier de legare în pachetul MS Access.

Creați programe care vă permit să creați baze de date. Creați o tabelă de baze de date. Creați o schemă de date. Creați formulare, rapoarte, interogări. Creșteți volumul și complexitatea structurală a datelor stocate. Caracteristicile sistemului de gestionare a bazelor de date Access.

Baze de date multi-table. Tipuri de relații între tabele. Creați interogări, formulare și rapoarte. Lucrați cu procesorul de text MS Excel, creați tabele și completați-le cu calculele corespunzătoare. Crearea în MS Access a unei baze de date a structurii date.

Sistem informatic: concept, sarcini. Crearea relațiilor între tabele. Lucrul cu datele folosind interogări. Includeți câmpuri în interogare. Formularea și aplicarea formularelor. Lucrați cu procesorul de text MS Excel, construirea diagramei. Lucrați cu MS Access.

Studiați activitatea cu DBMS relațională "Acces", principalele etape ale proiectării bazei de date: crearea unui tabel în modul de proiectare, umplerea acestuia cu date, proiectarea conexiunilor între ele. Creați formulare și interogări, selectați sortarea, completați rapoartele.

Proiectarea de baze de date pentru furnizarea de servicii turistice în diferite orașe și costurile acestora. Caracteristicile implementării bazei de date în aplicația Excel, gestionarea foilor de calcul și a programului de gestionare a bazelor de date Acces. Creați tabele, interogări și rapoarte.

Lansați MS Excel. Tehnologia de creare a unui registru de lucru. Introducerea și editarea datelor. Tehnologia de creare a unui șablon de tabel. Formatarea conținutului celulelor. Sistem de gestionare a bazelor de date DBMS MS Access. Tehnologia de creare a unei baze de date, formulare și rapoarte.

Limba de programare ca sistem de notare, folosit în descrierea algoritmilor pentru un calculator. Dezvoltarea programului în BASIC. Mastering metodele de lucru cu foi de calcul MS Excel. Crearea unei baze de date utilizând MS Access.

Articole similare