Thực đơn
trang chủTrò chơi

Bài tập thực hành delphi 7. Tính các giá trị tổng cuối cùng của chuỗi. Tạo một hình ảnh động

Danh sáchchương trình con

thủ tục TForm1. RadioButton1Click(Người gửi: TObject);

var i: Số nguyên;

ComboBox1.Clear;

ComboBox1.Tag:= (Người gửi là TRadioButton).Tag;

vì tôi:= 0 ĐẾN 5 làm

ComboBox1.Items. Thêm (ListBox1.Items);

ComboBox1.ItemIndex:= 0;

Hình ảnh1.Hình ảnh. LoadFromFile(ListBox2.Items);

thủ tục TForm1.FormCreate(Người gửi: TObject);

RadioButton1Click(RadioButton1);

thủ tục TForm1.ComboBox1Change(Người gửi: TObject);

Hình ảnh1.Hình ảnh. LoadFromFile(ListBox2.Items);

Công việc thực tế № 17

"Tính lãi"

Mục đích của công việc là để Tạo một chương trình thực hiện các công việc sau:

Sau khi khởi động chương trình, cửa sổ hiển thị 3 Trường văn bản.
Nhấp vào nút Xóa sẽ xóa các giá trị trường. Tiếp theo, các giá trị mới được nhập vào các trường. Để thoát khỏi chương trình, nhấp vào nút đóng trên thanh tiêu đề.

1. Mở một dự án mới.

2. Đặt các thể hiện của các thành phần trên biểu mẫu: nút lệnh Cái nút, dòng chữ Nhãn, trương Văn bản Biên tập.

Bảng 19.

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

Đặt tên biểu mẫu "Tính lãi"

Nhập tiêu đề “Tính tỷ lệ phần trăm!”

Xóa giá trị tài sản

Xóa giá trị tài sản

Xóa giá trị tài sản

Mô tả số địa phương, phần trăm, Prn

Tiếp tục bảng 19.

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

Nhập tên "Xóa"

Miếngchương trình

Số, Phần Trăm, Prn: Thực tế;

thủ tục TForm1.Button1Click(Người gửi: TObject);

Số:=StrToFloat(Edit1.Text);

Phần trăm:= StrToFloat(Edit2.Text);

PrN:=0,01*Procent*Số;

Edit3.Text:=FloatToStr(PrN);

thủ tục TForm1.Button2Click(Người gửi: TObject);

Bài thực hành số 18

"Câu đố số 1"

MsoTableGrid" width="657 " style="width:492.85pt;border-collapse:collapse;border:none">

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

Đặt tên cho biểu mẫu "Puzzle"

Đặt giá trị thành bsSingle

Danh sách kiểm traBox1

(Thẻ bổ sung)

Chúng tôi thiết lập thành phần của danh sách. Bấm vào nút xây dựng. Cửa sổ soạn thảo Danh sách Chuỗi sẽ mở ra. Nhập vào danh sách số đã cho thông qua Enter. Bấm vào đồng ý.

Chọn một giá trị sao cho tất cả các số đều vừa với danh sách (không có thanh cuộn).

Mô tả việc dọn dẹp một danh sách. Kiểm tra xem hộp kiểm có được chọn hay không. Sau khi cập nhật danh sách, bạn cần tính tổng các số đã chọn. Các mục danh sách trông giống như số nhưng chuỗi văn bản(sử dụng hàm StrToInt).


Tiếp tục bảng 20.

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

Danh sáchBox1

(Tab tiêu chuẩn)

Chọn một giá trị sao cho tất cả các số đều vừa với danh sách (không có thanh cuộn). Ban đầu danh sách trống. Nó sẽ được điền vào trong khi chương trình đang chạy.

(Tab tiêu chuẩn)

Nhập nội dung: "Số tiền: 0"

Đặt thành sai

Đặt giá trị taCenter

4. Lưu dự án, chạy và kiểm tra nó.

Danh sáchchương trình con

thủ tục TForm1.CheckListBox1ClickCheck(Người gửi: TObject);

var i, s: Số nguyên;

vì tôi:=0 ĐẾN CheckListBox1.Items. Đếm-1 LÀM

nếu như CheckListBox1.Checked[i] sau đó

ListBox1.Items. Thêm(CheckListBox1.Items[i]);

vì tôi:= 0 ĐẾN ListBox1.Items. Đếm -1 LÀM

s:= s + StrToInt(ListBox1.Items[i]);

Label1.Caption:= ‘Số tiền: ’ + IntToStr(s);

nếu như s = 50 sau đó

Label1.Caption:= ‘Số tiền:’ + IntToStr(s);

CheckListBox1.Enabled:= Sai;

ListBox1.Enabled:= Sai;

Bài thực hành số 19

"Câu đố số 2"

Mục tiêu của công việc - tạo nên phiên bản máy tính câu đố: đặt tất cả năm lá cờ đã xóa được hiển thị. Nhưng khi bạn chọn một hộp kiểm, trạng thái của hai hộp kiểm tiếp theo sẽ thay đổi.

Tạo một chương trình thực hiện các công việc sau:

Sau khi khởi động chương trình, cửa sổ hiển thị năm cờ đã được xóa. Chỉ được phép nhấp vào các hộp kiểm đã xóa. Việc nhấp vào hộp kiểm đã chọn không có tác dụng. Khi bạn chọn một hộp kiểm, trạng thái của hai hộp kiểm tiếp theo sẽ thay đổi. Trong trường hợp này, các cờ đã xóa sẽ được kiểm tra và các cờ đã chọn sẽ được đặt lại. Để thoát khỏi chương trình, nhấp vào nút đóng trên thanh tiêu đề.

Mô tả kế hoạch phát triển chương trình

1. Mở một dự án mới.

2. Đặt các thể hiện thành phần trên biểu mẫu: danh sách các hộp kiểm Hộp kiểm, dòng chữ Nhãn.

3. Hoàn thành các bước sau:

Bảng 21.

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

Đặt tên biểu mẫu thành "All Five"

Tạo một biến boolean toàn cục s. Trong thời gian khi đang xử lý sự kiện, biến là True.

Hộp kiểm1

(Tab tiêu chuẩn)

Đặt giá trị thành "1".

Bạn cần làm việc với các hộp kiểm giống như một mảng. Biểu mẫu là nơi chứa các hộp kiểm. Các đối tượng vùng chứa có thuộc tính Controls - một mảng các điều khiển nằm trong vùng chứa này: Controls [i] dưới dạng TCheckBox.

Bạn có thể sử dụng phương pháp sao chép clipboard để tạo thêm năm hộp kiểm.

Hộp kiểm2

Đặt giá trị thành "2".

Hộp kiểm3

Đặt giá trị thành "3".

Hộp kiểm4

Đặt giá trị thành "4".

Hộp kiểm5

Đặt giá trị thành "5".

Tiếp tục bảng 21.

Đối tượng đã chọn

Thẻ cửa sổ

Thanh tra đối tượng

Tên tài sản/

tên sự kiện

Hoạt động

(Tab tiêu chuẩn)

Nhập nội dung: "Số tiền: 0"

Đặt thành sai

Đặt giá trị taCenter

4. Lưu dự án, chạy và kiểm tra nó.

Danh sáchchương trình con

thủ tục TForm1.FormCreate(Người gửi: TObject);

thủ tục TForm1.CheckBox1Click(Người gửi: TObject);

var Chỉ số, i, num: Số nguyên;

nếu như S sau đó Lối ra; (Nếu chương trình gọi lại thủ tục xử lý thì câu lệnh Exit sẽ được thực thi - thoát ngay thủ tục đó)

vì Chỉ số: = 0 ĐẾN 4 LÀM {tuyên bố phá vỡ làm gián đoạn vòng lặp)

nếu như Người gửi = Điều khiển[i] sau đó phá vỡ; (Phát hiện hộp kiểm nào đã được bật)

(Khi vòng lặp hoàn thành, giá trị của biến Index tương ứng với cờ bật tắt)

(Nếu giá trị thuộc tính Checked là Sai thì hộp kiểm sẽ bị xóa và nếu Đúng thì hộp kiểm sẽ được chọn. Số lượng hộp kiểm trong mảng được xác định bởi biến Index)

nếu như không(Điều khiển BẰNG TCheckBox).Đã kiểm tra

sau đó(Điều khiển BẰNG TCheckBox).Checked:= True (Điều kiện được thỏa mãn nếu hộp kiểm hiện đã bị xóa, tức là nó đã được chọn trước khi nhấp chuột)

khác(Lập trình thay đổi trạng thái của "cờ bổ sung". Cờ hiện tại đã được bật)

num:= Chỉ số + 1; (Chuyển đổi hai hộp kiểm tiếp theo)

nếu như Chỉ số = 4 sau đó số:= 0; (Thay đổi trạng thái của cờ số 0)

(Trạng thái hộp kiểm phải được thay đổi thành ngược lại)

(Điều khiển BẰNG TCheckBox).Đã kiểm tra:= không

(Thực hiện kiểm tra ngoài giới hạn mảng)

số:= số + 1; nếu như Chỉ số = 3 sau đó số:= 0;

(Điều khiển dưới dạng TCheckBox).Đã kiểm tra:= không(Điều khiển dưới dạng CheckBox).Đã kiểm tra;

đ:= Đúng; (Câu đố sẽ được giải nếu cả năm hộp kiểm được chọn)

vì tôi:= 0 ĐẾN 4 LÀM

e:= e và (Controls[i] as TCheckBox).Checked;

(Sau vòng lặp, giá trị sẽ giữ nguyên True nếu tất cả các hộp kiểm được chọn)

nếu như e sau đó(Câu đố đã được giải)

Mục tiêu của bài học.

Giáo dục: nghiên cứu công nghệ tạo ứng dụng hiện đại bằng cách sử dụng các thành phần môi trường Delphi; nghiên cứu công nghệ ADO cung cấp kết nối tới cơ sở dữ liệu Dữ liệu của Microsoft Truy cập; dạy cách thiết kế một ứng dụng và cung cấp quyền truy cập vào cơ sở dữ liệu MS Access “Phòng khám trẻ em”.

Phát triển: phát triển khả năng phân tích, rút ​​ra kết luận độc lập của học sinh, đồng thời phát triển khả năng tự chủ và kiểm soát lẫn nhau.

Giáo dục: thúc đẩy việc hình thành những phẩm chất nhân cách như thái độ có trách nhiệm với công việc được giao; sự cẩn thận, khả năng thể hiện bản thân.

QUA: Microsoft truy cập, Borland Delphi7, cơ sở dữ liệu làm việc sẵn có “Phòng khám trẻ em”.

Bài tập

Bài tập: Tạo một dự án trong Borland Delphi 7 và cung cấp quyền truy cập vào cơ sở dữ liệu Microsoft Access đã tạo trước đó “Phòng khám trẻ em”, sử dụng các thành phần môi trường Delphi, lấy thông tin từ cơ sở dữ liệu và trình bày dưới dạng bảng.

Cơ sở dữ liệu “Phòng khám trẻ em” được tạo trong Microsoft Access và chứa đầy thông tin (ứng dụng).

Hệ thống thông tin “Phòng khám nhi” lưu trữ các thông tin về bác sĩ, bệnh nhân, bệnh tật, cơ sở chăm sóc trẻ và cung cấp các dữ liệu sau:

  • thông tin về bác sĩ (họ, chuyên môn, thời gian làm việc, tiền lương, công việc bán thời gian);
  • thông tin về bệnh nhân (họ, tuổi, địa chỉ, cơ sở chăm sóc trẻ em, nơi làm việc của cha mẹ, bệnh mãn tính, tiêm chủng, lần khám bác sĩ lần cuối);
  • thông tin về cơ sở chăm sóc trẻ em (tên, địa chỉ, số lượng trẻ em, sự hiện diện của cơ sở cách ly, được xác định bệnh truyền nhiễm, ngày khám phòng ngừa lần cuối).
  • danh sách các cơ sở chăm sóc trẻ em đã ghi nhận bệnh truyền nhiễm.

Môi trường phát triển dự án ở Delphi

Delphi là một môi trường phát triển nhanh chóng sử dụng Delphi làm ngôn ngữ lập trình. Ngôn ngữ Delphi là ngôn ngữ hướng đối tượng được định kiểu mạnh mẽ dựa trên Object Pascal. Môi trường tích hợp cho phép bạn tạo, biên dịch, kiểm tra và chỉnh sửa dự án trong một môi trường lập trình duy nhất.

Làm việc trên một dự án mới ,

Hình thức ( Hình thức)– cơ sở phát triển được đặt trong đó thành phần cần thiết, tạo giao diện chương trình. Các thuộc tính của biểu mẫu xác định hình thức của nó: kích thước, vị trí trên màn hình, văn bản tiêu đề, v.v.

Để xem và thay đổi giá trị thuộc tính của biểu mẫu và các thành phần của nó, hãy sử dụng cửa sổ Thanh tra đối tượng(Thanh tra đối tượng) . Ở đầu cửa sổ Thanh tra đối tượng cho biết tên của đối tượng có giá trị thuộc tính được hiển thị trong khoảnh khắc này. Ở cột bên trái của tab Của cải(Thuộc tính) liệt kê các thuộc tính của đối tượng và ở bên phải - giá trị của chúng được chỉ định (Hình 1). Thanh tra đối tượng là người thiết kế biểu mẫu.

Văn bản nguồn của mô-đun phát triển được chứa trong Cửa sổ soạn thảo và có tiêu đề gốc Đơn vị1.pas(Hình 1). Code Explorer hiển thị các đối tượng mô-đun biểu mẫu (* pa), cho phép bạn truy cập nhanh các đối tượng và tạo các lớp mới.

Cơm. 1. Các yếu tố cơ bản của môi trường phát triển Delphi

Tệp mô-đun biểu mẫu Đơn vị1.pas(Hình 1) chứa mô tả về lớp biểu mẫu (vị trí, hành vi của các thành phần và hoạt động của trình xử lý sự kiện) và được tạo tự động.

Bất kỳ dự án nào cũng có ít nhất sáu tệp (Bảng 1).

Bảng 1

Các tập tin dự án chính

Mục đích
Tệp dự án chính (mã dự án) – PROGECT.DPR Cái chính là một chương trình trong Pascal.
Mô-đun chương trình đầu tiên (mô-đun biểu mẫu) UNIT.PAS Nó tự động xuất hiện khi bắt đầu tác phẩm và có thể được gọi bằng bất kỳ tên nào khác. Chứa văn bản của chương trình trong Pascal.
Tài liệu hình thức chính(mô tả biểu mẫu) – UNIT.DFM Dùng để lưu thông tin về vẻ bề ngoài hình thức chính.
Tệp mô tả tài nguyên – PROGECT.RES Chứa biểu tượng cho dự án, được tạo tự động.
Tệp tham số dự án – PROGECT.OPT Tệp văn bản để lưu cài đặt liên quan đến dự án này.
Mô-đun - *.PAS Mô-đun bổ sung. Chứa văn bản chương trình trong Pascal.

Phát triển ứng dụng bao gồm hai giai đoạn:

1. Tạo giao diện ứng dụng.

2. Xác định chức năng của ứng dụng.

Để tạo giao diện, bạn cần xác định hình thức của dự án, chọn các thành phần cần thiết theo chức năng và đặt nó vào mẫu.

Để đảm bảo chức năng của ứng dụng, bạn cần đặt giá trị thuộc tính và thủ tục của đối tượng sự kiện trong Object Inspector, viết Mã chương trình xử lý sự kiện.

Bạn phải đặt các tham số dự án đã thay đổi bằng lệnh menu Dự án/Xây dựng dự án. Nếu bạn cần kết hợp nhiều biểu mẫu dưới một khởi đầu duy nhất, hãy chạy lệnh Dự án/Tùy chọn.

Biên dịch là một quá trình bắt buộc - quá trình dịch toàn bộ chương trình và sau đó thực thi nó. Quá trình này có thể được thực hiện ở bất kỳ giai đoạn nào của quá trình phát triển dự án. Quá trình biên dịch tạo ra:

Tệp sẵn sàng để thực thi (*exe),

Thư viện được tải động (*DLL).

Bạn có thể chạy dự án từ môi trường Delphi bằng lệnh Chạy/Chạy từ môi trường Windows (Tên ứng dụng.exe).

Tạo một ứng dụng để làm việc với cơ sở dữ liệu Access

Làm việc trên một dự án mới , đây là tên mà ứng dụng đang được phát triển ở Delphi; nó bắt đầu bằng việc tạo biểu mẫu bắt đầu.

Tạo dấu trang trong trình thiết kế biểu mẫu.

1. Trong Object Inspector, thay đổi tham số của một số thuộc tính: Align -> alClient, color-> clMoneyGreen, caption-> Children's Clinic, font, name-> Form (Hình 1).

2. Tạo dấu trang trong trình thiết kế biểu mẫu bằng cách sử dụng thành phần PageControl trên tab Win32 (Bảng 2) (Win32->PageControl).

3. Trong cửa sổ Cây đối tượng, tạo một Trang (Menu ngữ cảnh->Trang mới). Trong Trình kiểm tra đối tượng, thay đổi các tham số tên (Chú thích->Bệnh nhân) (Hình 2).

Cơm. 2. Tạo dấu trang trong trình thiết kế biểu mẫu

4. Theo cách tương tự, tạo dấu trang có tên tương ứng với tên của các bảng trong lược đồ dữ liệu cơ sở dữ liệu MS Access (Hình 7).

5. Đặt thành phần ADOConnection trên biểu mẫu (tab ADO> ADOConnection) và định cấu hình nó (Bảng 2; Hình 3).

      ban 2

      Giá trị thuộc tính thành phần ADOConnection
    Tài sản Ghi chú
    Kiểm soát trang Đặt các bảng có dấu trang. Mỗi bảng có thể chứa tập hợp các thành phần giao diện riêng và có thể được truy cập bằng cách nhấp vào tab được liên kết với nó.
    tab Win32 Chứa các thành phần giao diện cho hệ điều hành 32 bit Hệ thống Windows 2000.
    Đăng nhậpPromt SAI
    Chuỗi kết nối Nhấp vào nút có ba dấu chấm (nằm trong trường giá trị thuộc tính). Bấm vào nút Xây dựng.

    Trên tab Nhà cung cấp dữ liệu, chọn Nhà cung cấp OLEDB Microsoft Jet 4.0.

    Trên tab Kết nối, chỉ định tệp cơ sở dữ liệu “Phòng khám trẻ em”.

    Ngoài ra, chỉ định quyền truy cập: ReadWtite.

Để bật chế độ không đồng bộ, bạn phải đặt thuộc tính ConnectOptions của thành phần TADOConnection thành coAsyncConnect. Trong trường hợp này, các yêu cầu mới sẽ được thực thi mà không cần chờ phản hồi từ các yêu cầu trước đó.

Hình 3. Thiết lập ADOConnection trong tham số Object Inspector

6. Đặt thành phần ADOTable(ADODB) trên biểu mẫu (tab ADO->ADOTable) và định cấu hình nó (Bảng 3; Hình 3).

    bàn số 3

    Giá trị thuộc tính thành phần ADOTable(ADODB)

    Tài sản Nghĩa Ghi chú
    Sự liên quan Tên của thành phần ADOConnection cung cấp kết nối tới cơ sở dữ liệu
    Tên bảng Nhóm cung cấp thông tin từ bảng cụ thể cơ sở dữ liệu Mở rộng danh sách nằm trong trường giá trị thuộc tính và chọn tên của bảng mong muốn
    Tích cực ĐÚNG VẬY
    công nghệ ADO Đây là việc thực hiện các hoạt động đồng bộ/không đồng bộ với kho dữ liệu. Sử dụng thuộc tính connectoptions, bạn có thể đặt chế độ kết nối cho kho dữ liệu
    TADODataSet TADOCoommand Thành phần chungđể làm việc với công nghệ ADO, chúng cho phép bạn thực thi các lệnh bằng ngôn ngữ của nhà cung cấp dữ liệu.
    Đối tượng nguồn dữ liệu Kho dữ liệu.

7. Đặt thành phần DataSource trên biểu mẫu (Truy cập dữ liệu -> tab DataSource) và định cấu hình nó (Bảng 4; Hình 3)

    Bảng 4

    Giá trị thuộc tính của thành phần DataSource

8. Đặt thành phần DBGrid trên biểu mẫu (Điều khiển dữ liệu->tab DBGrid) và định cấu hình nó (Bảng 5; Hình 3)

    Bảng 5

    Các giá trị thuộc tính thành phần DBGrid, Chỉnh sửa, Nút
Tài sản Nghĩa Ghi chú
Nguồn dữ liệu Tên thành phần Nguồn dữ liệu Mở rộng danh sách trong trường giá trị thuộc tính và chọn tên thành phần
Căn chỉnh alKhách hàng
DBGrid Thành phần này được thiết kế để hiển thị, nhập và chỉnh sửa dữ liệu.
Biên tập Dòng đầu vào. Được thiết kế để nhập, hiển thị hoặc chỉnh sửa một dòng văn bản.
Cái nút Nút lệnh. Trình xử lý sự kiện OnClick của thành phần này thường được sử dụng để triển khai một số lệnh.

9. Tương tự, tạo các cột khác của bảng (dành cho dự án “Phòng khám trẻ em”). Hình 4 hiển thị kết quả của các hành động nhiệm vụ được hoàn thành chính xác.

10. Trong cột “Các bệnh truyền nhiễm được ghi nhận” chúng tôi sẽ thực hiện yêu cầu về ngày khám.

Để thực hiện việc này, hãy thêm thành phần ADOQuery(ADODB). Các giá trị của thành phần này tương ứng với các giá trị thuộc tính của thành phần ADOTable(ADODB). Trong các tham số của Object Inspector, nhập lệnh SQL:

ADOQuery1.Clear:= Đúng;

ADOQuery1.Add("CHỌN DU.DU, DU_Adres.DU, DU.Inf_Zab, DU.Data_obs");

ADOQuery1.Add("TỪ DU");

ADOQuery1.Add("WHERE ((DU.Data_Obs) GIỮA (DateValue(""" + Edit1.Text + """)) VÀ (DateValue(""" + Edit2.Text + """)));") ;

ADOQuery1.Active:= Đúng;

11. Đặt các thành phần Edit1 và Edit2 trên biểu mẫu. Trong tham số của các thành phần này chúng ta sẽ chỉ định ngày mặc định: Edit1->Text->01/01/2009; Chỉnh sửa2->Văn bản->31/12/2009.

12. Đặt thành phần Nút vào biểu mẫu (Hình 5).

13. Tạo quy trình xử lý sự kiện Click, cung cấp Thực thi SQL– các lệnh.Quy trình xử lý sự kiện Click trên nút “Cập nhật truy vấn” (Nút1):

thủ tục TF.OtClick(Người gửi: TObject);

      sqlfile:Tệp văn bản;

      ADOQuery1.SQL.Clear;

      ADOQuery1.SQL.Add("CHỌN DU.DU, DU.Adres_DU, DU.Inf_Zab, DU.Data_obs");

      ADOQuery1.SQL.Add("TỪ DU");

      ADOQuery1.SQL.Add("WHERE ((DU.Data_Obs) GIỮA (DateValue(""" + Edit1.Text +""")) VÀ (DateValue(""" + Edit2.Text + """))); ");

      ADOQuery1.Active:= Đúng;

      GánFile(sqlfile,"sql_instructions.txt");

      Viết lại (tệp sql);

      đối với i:= 0 tới ADOQuery1.SQL.Count-1 do Writeln(sqlfile, ADOQuery1.SQL.Strings[i]);

      CloseFile(tệp sql);

      Hình.5. Cửa sổ thiết kế biểu mẫu. Tab “Các bệnh truyền nhiễm được ghi nhận”

    1. 14. Giai đoạn cuối. Sự sáng tạo tập tin thực thi– Ứng dụng Project1.exe sử dụng quá trình biên dịch (Project/Compile ). Trình biên dịch tạo ra chương trình thực thi như một ứng dụng bảng điều khiển. Một ví dụ về cách chương trình hoạt động, tức là Khung cảnh cửa sổ chương trình sau khi thực hiện được hiển thị trong Hình 6.

Hình.6. Tệp thực thi – ứng dụng Project1.exe

Dự án đã hoàn thành - ứng dụng ở Delphi được trình bày trong ứng dụng.

Văn học

  1. Darakhvelidze P.G., Markov E.P. Lập trình ở Delphi 7. - St. Petersburg: BHV - Petersburg, 2003.
  2. Kultin N.B. Lập trình trong Turbo Pascal 7.0 và Delphi 7. – St. Petersburg: BHV – Petersburg, 2007.
  3. Petrov A. và cộng sự Công nghệ và lập trình máy tính. trường sau đại học, 2008.
  4. Internet: www.PowerBuilder.sbn

Delphi 8 cho Microsoft. Nền tảng NET là một môi trường phát triển tích hợp chạy trên nền tảng Microsoft .NET và hỗ trợ toàn bộ vòng đời phát triển ứng dụng. Giao diện của môi trường rất khác so với giao diện của các phiên bản trước, chẳng hạn như từ Delphi 7. Dưới đây chúng ta sẽ xem xét việc tạo nhiều loại khác nhau các ứng dụng sử dụng công cụ phát triển này.

Tạo một ứng dụng Windows Forms cơ bản

Sau khi nhấp vào nút “Xin chào thế giới!” bạn sẽ nhận được một biểu mẫu.

Khi tạo các ứng dụng cho Nền tảng Windows tùy chọn có thể được chọn Ứng dụng biểu mẫu VCL (Thư viện thành phần trực quan), được dành riêng để tương thích với những phiên bản trước Delphi. Như trong một ứng dụng như Ứng dụng Windows Forms, Trình thiết kế biểu mẫu sẽ xuất hiện trên màn hình IDE. Lưu ý rằng các thuộc tính và sự kiện khác nhau đối với các thể hiện của đối tượng lớp Hình thức 1 Và biểu mẫu đôi(trong tên này, chúng tôi thấy có sự khác biệt với các quy tắc được áp dụng ở Delphi - đây là cách các loại thường được chỉ định) như TForm1 Và System.Windows.Forms.Form biểu diễn chức năng tương tự. Khi tạo dự án mới, chúng tôi khuyên bạn nên sử dụng Ứng dụng Windows Forms, sao cho phù hợp hơn với nền tảng này. Môi trường phát triển sẽ tự động tải bảng công cụ và trình thiết kế biểu mẫu được yêu cầu tùy thuộc vào loại ứng dụng bạn chọn.

Tạo một ứng dụng biểu mẫu VCL cơ bản

Kịch bản tạo một loại ứng dụng Ứng dụng Windows VCL là:

Là kết quả của việc nhấp vào nút “Xin chào, thế giới!” một biểu mẫu sẽ được nhận.

Như bạn có thể thấy từ các mẫu đơn đăng ký ở trên, mặc dù có những khác biệt nhỏ nhưng chức năng tổng thể vẫn giống nhau. Cũng lưu ý rằng trong quá trình xây dựng ứng dụng, các bộ thành phần có sẵn để sử dụng cũng khác nhau. Ngoài ra, Delphi 8 có một số cấu trúc ngôn ngữ khác so với Delphi 7, được trình bày trong bảng.

Sự khác biệt chính trong cú pháp của Delphi 7 và Delphi 8

Delphi 7

Delphi 8
Real48 Gấp đôi
Tuyệt đối, Addr, @ Không được hỗ trợ
GetMem, FreeMem, ReAllocMem Mảng mới, Vứt bỏ hoặc động
Nhập đối tượng Loại lớp
Tệp thuộc bất kỳ loại nào, bao gồm cả hồ sơ Luồng, tuần tự hóa, cơ sở dữ liệu
Lắp ráp nội tuyến hoặc asm với từ khóa Không được hỗ trợ
ThoátProc Không được hỗ trợ
ĐiềnChar, Di chuyển Xác định lại các biến trong một vòng lặp
PChar String hoặc StringBuilder (Loại String trong .NET không hiệu quả cho các hoạt động nối. Hãy sử dụng loại StringBuilder)
Hỗ trợ ADO, WebBroker, InternetExpress, WebSnap và XML được liên kết với các thành phần TXMLTransform Không được hỗ trợ
Các thành phần từ tab Hệ thống: OLEContainer, DdeClientConv, DdeClientItem, DdeServerConv, DdeServerItem Không được hỗ trợ

Tạo ứng dụng bảng điều khiển

Điều đơn giản nhất ứng dụng giao diện điều khiểnđược tạo ra như sau:


Dưới đây là một ví dụ về ứng dụng bảng điều khiển, nhờ vào các lệnh ($IFDEF) sẽ hoạt động tốt như nhau khi được biên dịch trên Delphi cho .NET, Delphi 7 hoặc Kylix 3, tạo ra dòng thích hợp:

chương trìnhHelloWorld;

($BÀI VIẾT ỨNG DỤNG)

($IFDEF CLR) // Delphi cho .NET

writeln("Xin chào thế giới .NET!");

($IFDEF WIN32) // Delphi 7

writeln("Xin chào thế giới Win32!");

($IFDEF LINUX) // Kylix

writeln("Xin chào thế giới Linux!");

ĐọcLn; // để trì hoãn việc thực thi

Ví dụ sau đây là một ứng dụng bảng điều khiển hoạt động với các tệp:

1. Chọn một tùy chọn menu Tệp=>Mới=>Khác=>Delphi cho ứng dụng bảng điều khiển dự án .Net.

2. Trong phần triển khai của khung ứng dụng được tạo tự động, hãy dán mã.

WriteLn ("Trình diễn cách làm việc với tập tin!");

GánFile(FT, "file-text.txt");

WriteLn(FT, "Xin chào nhà phát triển!");

3. Sau khi lưu và thực hiện dự án, cửa sổ ứng dụng sẽ xuất hiện trên màn hình điều khiển.

Chúng ta hãy lưu ý hai điểm liên quan đến ứng dụng này.

Thứ nhất, mặc dù tài liệu không nói gì về việc không thể làm việc với các tệp chưa được gõ, nhưng FB: file of word; không biên dịch nhưng hiển thị lỗi “Tính năng ngôn ngữ không được hỗ trợ: tệp đã nhập hoặc chưa nhập”.

Thứ hai, câu lệnh writeln in thành công một chuỗi ra màn hình Ngôn ngữ Nga, nhưng với nỗ lực tương tự để xuất ra một tệp, trang mã của văn bản kết quả hóa ra lại khác. Khi làm việc với tập tin văn bản Không có vấn đề gì với các trang mã.

Tạo ứng dụng cơ sở dữ liệu

Kịch bản sau đây mô tả cách xây dựng một ứng dụng ADO.NET sử dụng mẫu Ứng dụng Windows Forms và công nghệ mới BDP.NET, bao gồm các thành phần cần thiết để xây dựng các ứng dụng cơ sở dữ liệu:


Khi di chuyển một ứng dụng sang một máy tính khác, điều quan trọng là cơ sở dữ liệu nhan viên.gdb phải được đặt ở một vị trí cụ thể (ví dụ: d:/data) - nếu không, bạn sẽ cần xác định lại phiên bản thành phần bdpConnection1.

Việc căn chỉnh bảng so với biểu mẫu có thể được thực hiện bằng cách sử dụng các thuộc tính Mỏ neo Và bến tàu.

Khi thêm liên kết vào dự án bằng lệnh Thêm tài liệu tham khảo… Không có khoảng trống được phép trong đường dẫn.

Tạo ứng dụng ASP .NET

Bình luận. Nếu bạn muốn cài đặt Delphi 8 để tạo các ứng dụng ASP .NET, Dịch vụ thông tin Internet phải được cài đặt sẵn trên máy tính của bạn. Nếu ISI được cài đặt sau Delphi 8 thì đối với hoạt động chính xác Các ứng dụng ASP .NET nên nhập lệnh:

aspnet_regiis.exe /i

Để tạo các ứng dụng ASP .NET:


Khi thiết kế ứng dụng này, có hai điều nổi lên. tính năng chức năng, đặc điểm của công nghệ ASP .NET, vốn không có trong các công nghệ phát triển ứng dụng Web trước Delphi 8. Đầu tiên - ASP .NET cho phép bạn chỉ tạo các ứng dụng DLL, nhưng trong trường hợp kết hợp gỡ lỗi thông qua IIS và gỡ lỗi trong môi trường phát triển, không đổi không cần gọi tới tiện ích iisreset.exe để cho phép dịch phiên bản tiếp theo của thư viện động.

Thứ hai là, đồng thời, trong trường hợp xác định một biến toàn cục, vì điều này đã được thực hiện trong dự án đang được xem xét, khi tài nguyên được gọi lại, giá trị trước đó của nó sẽ được lưu và việc đặt lại của nó chỉ có thể được thực hiện bằng cách sử dụng các tiện ích như iisreset.exe.

Để chuyển của dự án này trên một máy khác, bạn cần sao chép thư mục HelloWorld vào thư mục thích hợp, được mô tả trong IIS là thư mục ảo.

Bằng cách nhấn nút Tạo nên, bạn cần biến thư mục được đề cập thành thư mục ứng dụng (hình trên hiển thị cửa sổ các thuộc tính của thư mục HelloWolrd trong Windows 2000 Advanced Server). Sau khi hoàn thành các bước này, ứng dụng Web có thể được gọi máy địa phươngđội

1. Tính toán hàm xác định rõ ràng. LÀM chương trình và bảng điều khiển phiên bản của chương trình, tính toán giá trị của hàm. Thực hiện kiểm tra phạm vi cho chức năng này. Sử dụng các thành phần Label, Edit, Button, BitBtn, LabeledEdit. Vẽ một biểu tượng trong (ImageEditor) và sử dụng nó trong chương trình. Chọn hình ảnh Con trỏ thích hợp. Cho phép thay đổi độ trong suốt của biểu mẫu (AlphaBlend). Thay đổi loại đường viền biểu mẫu, cài đặt phông chữ và màu sắc của các điều khiển. Sử dụng gợi ý. Sử dụng ShowMessage để báo lỗi.

2. Xác định một điểm có thuộc diện đóng hay không.

Bài tập: Viết chương trình để xác định xem điểm đặt trong khu vực này.

Sử dụng các thành phần: Image, MainMenu, PopupMenu, Checkbox, RadioButton và ActionList.

Thực hiện kiểm tra phần mềm về tính chính xác của việc nhập dữ liệu.

3. Tính các giá trị của tổng cuối cùng của chuỗi.

Bài tập: Tính tổng của chuỗi lũy thừa. Sử dụng nhiều hình thức. Đặt các điều kiện trên biểu mẫu đầu tiên, dữ liệu và chức năng còn lại trên các biểu mẫu khác.

Sử dụng các thành phần: Shape, Bevel, Splitter.

Sử dụng các biểu mẫu trong chế độ phương thức và ở mức bình thường. Sử dụng mẫu biểu mẫu, đặt chúng vào bộ lưu trữ đối tượng.

4. Xử lý mảng một chiều.

Viết chương trình truy cập vào một vectơ dữ liệu.

Bài tập: Chia dữ liệu số của một vectơ cho trước cho tổng lớn nhất và nhỏ nhất. nhận được một vectơ số mới.

Sử dụng các thành phần: Memo, ListBox.

5. Xử lý mảng hai chiều (ma trận).

Sử dụng: PageControl, StringGrid, Bookmarks, thử...ngoại trừ khối.

Bài tập: Sắp xếp các hàng của ma trận số cho trước theo thứ tự giảm dần của các phần tử trong một cột nhất định.

6. Xử lý chuỗi.

Làm việc với dữ liệu chuỗi.

Sử dụng các thành phần: ImageList, RichEdit, ToolBar.

Nhiệm vụ: Tạo một dòng mới bằng cách thay đổi “từ” đầu tiên và cuối cùng. Sử dụng các hàm hoặc thủ tục cũng như các mô-đun.

7. Vẽ đồ thị của hàm số đã cho.

Sử dụng: OnResize, ClientHeight, ClientWidth, OLEContainer, TEdit, Chart.

8. Tạo hình ảnh động.

Yêu cầu của chương trình: Hai chuyển động bằng ở tốc độ khác nhau sự vật. Một quy trình bằng cách vẽ các cung, đường riêng lẻ bằng phương pháp điểm cơ sở. Đặt hình thứ hai được vẽ trong ImageEditor bằng cách thay đổi thuộc tính Left và Top trong thành phần Image. Sử dụng Bộ hẹn giờ. Thực hiện dừng và thay đổi hướng chuyển động.

Nhiệm vụ: Đối tượng "Thuyền" và "Du thuyền".

9. Làm việc với các tập tin đã gõ.

Sử dụng các thành phần: OpenDialog, SaveDialog. Tạo bộ lọc thích hợp cho các thành phần này.

Nhiệm vụ: Đưa ra một tập tin số thực. Tìm giá trị trung bình số học của các thành phần của nó và loại bỏ tất cả các thành phần vượt quá giá trị trung bình.

10. Làm việc với cơ sở địa phương dữ liệu.

Sử dụng: Paradox cho DB, công cụ truy cập dữ liệu BDE, DataSource, Table, DataModule, DBGrid, DBNavigator, DBEdit, DBText, Query và DBChart. Thực hiện thay đổi phần mềm Văn bản truy vấn SQL.

Nhiệm vụ: Tạo cơ sở dữ liệu “Trường học”, với các thông tin: họ, lớp, năm sinh của học sinh, địa chỉ, điện thoại. Tính số học sinh có điện thoại. Lập danh sách học sinh của một lớp nhất định.

Công việc thực tế số 1

Chủ đề: DỰ ÁN ĐẦU TIÊN

Mục đích của bài học: sử dụng các thành phần Nhãn và Nút của bảng thành phần Tiêu chuẩn, xử lý sự kiện OnClick - nhấn nút.

Nhiệm vụ số 1.

Tạo một chương trình thực hiện các công việc sau:

Sau khi bắt đầu chương trình bằng cách nhấp vào nút “Chào mừng”, thông báo “Thành công đầu tiên!” sẽ xuất hiện. Để thoát khỏi chương trình, nhấp vào nút “Thoát”.

Điểm mới trong tác phẩm này là:

Các giai đoạn phát triển chương trình

1. Mở một dự án mới.

2. Đặt các thể hiện thành phần trên biểu mẫu: một Nhãn và hai Nút

3. Chọn Button2, đi tới Trình kiểm tra đối tượng đến tab Thuộc tính, tìm thuộc tính Caption và thay đổi Button2 thành tiêu đề

"Lối ra". Đi tới trang Sự kiện của cửa sổ Trình kiểm tra đối tượng, tìm Sự kiện OnClick, ở bên phải của nó, hãy bấm đúp vào. Khi ở trong mã chương trình, chính xác hơn là trong quy trình mẫu TForm1.Button2Click, chỉ viết một lệnh Đóng; (đảm bảo bao gồm dấu chấm phẩy sau “Đóng”).

thủ tục TForm1.Button2Click(Người gửi: TObject);

bắt đầu

Đóng;

kết thúc;

4. Lưu mã chương trình và dự án dưới các tên như Unit2.pas và Pr2.dpr.

5. Chạy chương trình, sau đó đóng cửa sổ dự án bằng cách nhấp vào nút “Thoát”.

6. Chọn biểu mẫu và trong thuộc tính Chú thích của cửa sổ Thanh tra đối tượng, thay thế từ Form1 bằng “Dự án của tôi”. Đây sẽ là tiêu đề của cửa sổ chương trình chính.

7. Chọn nút Button1 và trong thuộc tính Caption của cửa sổ Object Inspector, thay thế từ Button1 bằng tên của nút “Chào mừng”. Nếu cần, hãy tăng chiều dài của nút.

8. Với Button1 vẫn được chọn, hãy đi tới trang Sự kiện của cửa sổ Trình kiểm tra đối tượng và tìm sự kiện OnClick, nhấp đúp vào bên phải của sự kiện đó

với con chuột. Nhập mã sau: Label1.Caption:= 'Thành công đầu tiên!';

9. Cuối cùng hãy lưu dự án, chạy và kiểm tra nó.

Nhiệm vụ số 2.

1. Tạo phông chữ cho bản sao “Những thành công đầu tiên!” khác với tiêu chuẩn về hình dáng, màu sắc và kích thước.

2. Thay thế giao diện của nút “Thoát” bằng giao diện hấp dẫn hơn.

3. Đảm bảo rằng sau khi nhấn nút “Chào mừng”, thông báo “Đầu tiên và không phải cuối cùng!” xuất hiện trên màn hình.

4. Chạy tệp thực thi Pr2.exe không có trong Môi trường Delphi, nhưng trên Windows.


Về chủ đề: phát triển phương pháp, thuyết trình và ghi chú

Bài học - khái quát kiến ​​thức về chủ đề “Cấu trúc máy tính”. Điểm nhấn chính là thiết bị nhập thông tin vào máy tính - bàn phím. Làm việc trong biên tập đồ họa Sơn được thiết kế thực tế...

Công việc độc lập về các công cụ định dạng văn bản và hai công việc thực tế trong MS Word 2007

Một công việc độc lập nhỏ để củng cố tài liệu. Hai công việc thực tế về tạo và xử lý bảng trong trình soạn thảo văn bản....