![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Выполнение индивидуального задания
Вести список книг в библиотеке (номер, наименование, автор, число экземпляров, число выданных экземпляров), при выдаче и приеме книг корректировать соответствующие значения. Форма программы Код программы: type TForm1 = class(TForm) DBGrid1: TDBGrid; MainMenu1: TMainMenu; N1: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; XPManifest1: TXPManifest; PageControl1: TPageControl; TabSheet1: TTabSheet; Label1: TLabel; Label2: TLabel; DBEdit1: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; ToolBar1: TToolBar; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ImageList1: TImageList; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBEdit6: TDBEdit; Label6: TLabel; Label7: TLabel; DBEdit8: TDBEdit; DBEdit13: TDBEdit; Label13: TLabel; GroupBox1: TGroupBox; DBEdit7: TDBEdit; Label16: TLabel; DBEdit14: TDBEdit; TabSheet3: TTabSheet; Label9: TLabel; Label10: TLabel; DBEdit10: TDBEdit; DBEdit9: TDBEdit; Label11: TLabel; DBEdit11: TDBEdit; DBEdit12: TDBEdit; Label14: TLabel; DBGrid2: TDBGrid; Label12: TLabel; Label15: TLabel; OpenPictureDialog1: TOpenPictureDialog; DBEdit5: TDBEdit; DBMemo1: TDBMemo; ToolButton8: TToolButton; ToolButton9: TToolButton; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBEdit2: TDBEdit; Label8: TLabel; Query2: TQuery; Table2: TTable; Label19: TLabel; DBEdit16: TDBEdit; DBEdit17: TDBEdit; procedure N8Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure ToolButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; save, fileSave: boolean; fileName: String; stDay: array[1..7] of string[11] = ('воскресенье', 'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота'); stMonth: array[1..12] of string[8] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря'); implementation {$R *.dfm} procedure TForm1.N8Click(Sender: TObject); begin Form2.ShowModal; end; procedure TForm1.About1Click(Sender: TObject); begin Form3.ShowModal; end; procedure TForm1.N6Click(Sender: TObject); begin Close(); end; procedure TForm1.N10Click(Sender: TObject); begin Label5.Caption: ='Yo`nalish: '; Label7.Caption: ='Kurs: '; Label8.Caption: ='Nomer: '; Label1.Caption: ='Ismi: '; Label2.Caption: ='Familya: '; Label3.Caption: ='Otchestva: '; Label4.Caption: ='Tugilgan yili: '; Label13.Caption: ='Adres: '; Label16.Caption: ='Telefon: '; Label9.Caption: ='Kitob nomi: '; Label10.Caption: ='Kitob mualifi: '; Label12.Caption: ='Kitob kodi: '; Label11.Caption: ='Masul xodim: '; Label14.Caption: ='Talabaning kitob olgan vaqti: '; Label15.caption: ='Talabaning to`pshirgan vaqti: '; TabSheet1.Caption: ='Asosiy malumotlar'; TabSheet3.Caption: ='Kitoblar'; GroupBox1.Caption: ='Qo`shimcha malumot'; N1.Caption: ='Fayl'; n6.Caption: ='Chiqish'; n8.Caption: ='Qidirish'; Form2.RadioButton6.Caption: ='Yo`nalish'; Form2.RadioButton4.Caption: ='kurs'; Form2.RadioButton8.Caption: ='Guruh'; Form2.RadioButton1.Caption: ='Ism'; Form2.RadioButton2.Caption: ='Familya'; Form2.RadioButton5.Caption: ='Adres'; Form2.RadioButton7.Caption: ='Kitob'; n7.Caption: ='Tuzatish'; end; procedure TForm1.N11Click(Sender: TObject); begin Label5.Caption: ='Направления: '; Label7.Caption: ='Курс: '; Label8.Caption: ='Номер: '; Label1.Caption: ='Имя: '; Label2.Caption: ='Фамилия: '; Label3.Caption: ='Отчество: '; Label4.Caption: ='Дата рождения: '; Label13.Caption: ='Адрес: '; Label13.Caption: ='Телефон: '; Label9.Caption: ='Имя книги: '; Label10.Caption: ='Автор книги: '; Label12.Caption: ='Код книги: '; Label11.Caption: ='Ответсини литсо: '; Label14.Caption: ='Время получение книги студента: '; Label15.caption: ='Дата возврата книга студента: '; GroupBox1.Caption: ='Дополнительная информация'; N1.Caption: ='Файл'; n6.Caption: ='Выход'; n8.Caption: ='Поиск'; TabSheet1.Caption: ='Оснавная информация'; TabSheet3.Caption: =' Книги '; N7.Caption: ='Правка'; Form2.RadioButton6.Caption: ='Направления '; Form2.RadioButton4.Caption: ='Курс '; Form2.RadioButton8.Caption: ='Группы'; Form2.RadioButton1.Caption: ='Имя'; Form2.RadioButton2.Caption: ='Фамилия'; Form2.RadioButton5.Caption: ='Адрес'; Form2.RadioButton7.Caption: ='Книга'; end; procedure TForm1.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day: Word; begin with Session do begin ConfigMode: = cmSession; try AddStandardAlias('kollej', ExtractFilePath(ParamStr(0))+'DATA\', 'PARADOX'); Table2.Active: =True; finally ConfigMode: = cmAll; end; end; end; procedure TForm1.ToolButton8Click(Sender: TObject); begin DataSource1.DataSet: =Table2; end; end. Вывод: я приобрёл практические навыки разработки оконного программного интерфейса, закрепить навыки отладки и документирования программного обеспечения.
|