|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите исправить ошибку!
Здравствуйте, прошу помочь я вот тут делаю программу для проверки в универ и у меня возникла проблема: программа отказывается запускаться в чем причина вот код (Красным я выделил то что он мне Делфи выделяет) и на всякий случай положил программу для более наглядного примера! Прошу помочь! Зарание благодарю всех кто мне поможет в моём нелегком начинании! )))
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Buttons; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; ADOTable8: TADOTable; DataSource1: TDataSource; DataSource2: TDataSource; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5: TDataSource; DataSource6: TDataSource; DataSource7: TDataSource; DataSource8: TDataSource; ComboBox1: TComboBox; DBGrid1: TDBGrid; Button2: TButton; Button3: TButton; Button1: TButton; SBCheckRecord: TSpeedButton; SBCheckSelectedRows: TSpeedButton; SBCheckAll: TSpeedButton; SBUnCheckRecord: TSpeedButton; SBUnCheckSelectedRows: TSpeedButton; SpeedButton3: TSpeedButton; CBcyHSB: TCheckBox; CBcyVSB: TCheckBox; CBcyBoxes: TCheckBox; procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure CBcyHSBClick(Sender: TObject); procedure CBcyVSBClick(Sender: TObject); procedure CBcyBoxesClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure SBCheckRecordClick(Sender: TObject); procedure SBUnCheckRecordClick(Sender: TObject); procedure SBUnCheckSelectedRowsClick(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure SBCheckSelectedRowsClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin Close; end; procedure TForm1.Button2Click(Sender: TObject); begin Form2.Show; end; procedure TForm1.CBcyHSBClick(Sender: TObject); begin DBGrid1.HorizontalScrollBar:= CBcyHSB.Checked; end; procedure TForm1.CBcyVSBClick(Sender: TObject); begin DBGrid1.VerticalScrollBar:= CBcyVSB.Checked; end; procedure TForm1.CBcyBoxesClick(Sender: TObject); begin DBGrid1.CheckBoxes.Visible:= CBcyBoxes.Checked; end; procedure TForm1.SBCheckRecordClick(Sender: TObject); begin if not DBGrid1.CheckBoxes.Visible then DBGrid1.CheckBoxes.Visible := true; DBGrid1.CheckedList.CurrentRecordBookmarked := Sender = SBCheckRecord; end; procedure TForm1.SBCheckSelectedRowsClick(Sender: TObject); begin if not DBGrid1.CheckBoxes.Visible then DBGrid1.CheckBoxes.Visible := true; DBGrid1.CheckSelectedRows(Sender = SBCheckSelectedRows); end; procedure TForm1.SBCheckAllClick(Sender: TObject); begin if not DBGrid1.CheckBoxes.Visible then DBGrid1.CheckBoxes.Visible := true; Screen.Cursor := crHourGlass; Table1.First; while not Table1.Eof do begin DBGrid1.CheckedList.CurrentRecordBookmarked := Sender = SBCheckAll; Table1.Next; end; Screen.Cursor := crDefault; end; end. Последний раз редактировалось GReddy, 17.11.2008 в 21:12. |
#2
|
||||
|
||||
Эммм... не помешало бы еслиб ты ещё базу саму залил, а то исходник не запускается без нее))
|
#3
|
|||
|
|||
а ты уверен, что у DBGrid есть такое свойство.
Я у себя на семерке не нашел... |
#4
|
|||
|
|||
Это расширенная версия DBGrid! С помощью этого компанента можно DBGrid можно галочку ставить в списке и выбирать по отдльности! Если так неполучается как тогда зделать что бы выбраный компанент из списка в DBGrid на Form1 копировать его в DBGrid на Form2??? И как зделать так что бы при перекидывании на флешку Access файла у меня программа бы невежяла что неможет найти его???
|