тхэнк ю мистерИспользуй свойство ItemIndex у комбобокса. укажи индекс этого значения по-умолчанию из Items. И будет тебе счастье.
![:)](http://vse.kz/public/style_emoticons/default/smoke.gif)
я сделал вот такможете использовать компоненту DBGridEh из библиотеки компонент EhLib. А лучше в sql использовать "order by".
With Table1 do begin IndexName:='IndKatR'; SetRangeStart; FieldByName('Kat_Rashodov').AsString:='А'; SetRangeEnd; FieldByName('Kat_Rashodov').AsString:='Я'; ApplyRange; end;но после того как данные упорядочиваются, я не могу в этот ДБГрид больше ничего добавить...ругается типа данные только для чтения...
Сообщение отредактировал and1: 11.12.2006, 18:43:24
с sql можно добавлять записи запросом типа insert into бла-бла-бла и т.д.я сделал вот так
можете использовать компоненту DBGridEh из библиотеки компонент EhLib. А лучше в sql использовать "order by".With Table1 do begin IndexName:='IndKatR'; SetRangeStart; FieldByName('Kat_Rashodov').AsString:='А'; SetRangeEnd; FieldByName('Kat_Rashodov').AsString:='Я'; ApplyRange; end;но после того как данные упорядочиваются, я не могу в этот ДБГрид больше ничего добавить...ругается типа данные только для чтения...
и вот вопрос...можно ли через эту компоненту упорядочивать и добавлять новые записи?
и тоже самое с sql можно ли будет добавлять записи??
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TImage3 = class(TImage); TForm1 = class(TForm) Image2: TImage; Image1: TImage; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Image2Click(Sender: TObject); procedure Image3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Image3: TImage3; implementation {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Image3.Free; end; procedure TForm1.Image2Click(Sender: TObject); begin Image3:=TImage3.Create(Image2); Image3.Parent:=Form1; Image3.Picture.LoadFromFile('TerranTank1.bmp'); Image3.Left:=Image2.Left+90; Image3.top:=Image2.Top+90; Image3.Transparent:=true; end; procedure TForm1.Image3Click(Sender: TObject); begin Image3.Picture.LoadFromFile('TerranTank2.bmp'); end; end.
пользователей: 0, неизвестных прохожих: 0, скрытых пользователей: 0
Размещение рекламы на сайте Предложения о сотрудничестве Служба поддержки пользователей
© 2011-2022 vse.kz. При любом использовании материалов Форума ссылка на vse.kz обязательна.