Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.85.33] |
|
Данный раздел предназначается для обсуждения вопросов использования баз данных, за исключением составления запросов на SQL. Для этого выделен специальный раздел. Убедительная просьба - соблюдать "Правила форума" и не пренебрегать "Правильным оформлением своих тем". Прежде, чем создавать тему, имеет смысл заглянуть в раздел "Базы данных: FAQ", возможно там уже есть ответ. |
Сообщ.
#1
,
|
|
|
Есть компонент Ttable2
Надо вывести инфу с некоторых полей по всей базе. Rave Выдает тока два поля а на самом деле в таблице 4 Во как и в проекте не хочет выводить форму отчета.... Что делать подскажите ????? Delphi7!! |
Сообщ.
#2
,
|
|
|
Что такое Rave ?
Какие поля и по какому условию хочешь получить в отчете ? Отчет на принтер ? |
Сообщ.
#3
,
|
|
|
Homker
1. раз уже начал тему дак продолжай ее а не создавай новые -)) ..... вот .... мне то конечно по-барабану.........но все равно ... 2.давай код .... на слух тяжело восприять ... |
Сообщ.
#4
,
|
|
|
Цитата lamachok, 09.02.03, 18:36:55 Homker 1. раз уже начал тему дак продолжай ее а не создавай новые -)) ..... вот .... мне то конечно по-барабану.........но все равно ... 2.давай код .... на слух тяжело восприять ... ЛОвите unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ToolWin, ComCtrls, ImgList, DB, DBTables, StdCtrls, ExtCtrls, RpDefine, RpCon, RpConDS, RpRave, RpConBDE; type TForm1 = class(TForm) ImageList1: TImageList; ToolBar1: TToolBar; Table1: TTable; DBGrid1: TDBGrid; DataSource1: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label7: TLabel; Label6: TLabel; ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Label8: TLabel; Label9: TLabel; Timer1: TTimer; Label10: TLabel; Label11: TLabel; Timer2: TTimer; Table2: TTable; DBGrid2: TDBGrid; DataSource2: TDataSource; Table2ID: TAutoIncField; Table2BDEDesigner: TStringField; Table2BDEDesigner2: TCurrencyField; Label12: TLabel; Label13: TLabel; Label14: TLabel; Table2KOD: TIntegerField; Label15: TLabel; Button4: TButton; RvTableConnection1: TRvTableConnection; RvProject1: TRvProject; procedure FormShow(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); type lol=record num:integer; date:string[9]; end; var f:file of lol; dat:lol; inf:string[50]; begin label7.Caption:=timetostr(time); label3.Caption:=datetostr(now); assignfile(f,'C:\cafe\dat\num.inf'); reset(f); if not eof(f) then begin read(f,dat); closefile(f); inf:=inttostr(dat.num); showmessage('Последний заказ №'+inf+' '+'Было это:'+dat.date); if label3.Caption=dat.date then begin dat.num:=dat.num+1; label5.Caption:=inttostr(dat.num) end else label5.Caption:='1'; end else begin closefile(f); showmessage('Первый запуск'); label5.Caption:='1'; end; end; procedure TForm1.Button2Click(Sender: TObject); type chel=record kod:string[6]; name:string[20]; end; var f:file of chel; inf:chel; begin if edit1.Text='' then showmessage('Проверте код!!! Поле не должно быть пустым.') else begin assignfile(f,'C:\cafe\dat\chel.inf'); reset(f); read(f,inf); closefile(f); if edit1.Text=inf.kod then begin label8.Caption:=inf.name; label11.Caption:='00,00 руб.'; edit1.Text:=''; end else begin showmessage('Необходимо вводить правильные данные!!!'); edit1.Text:=''; end; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label8.Caption:='Введите персональный код'; label9.Caption:='Введите код карты'; end; procedure TForm1.Button3Click(Sender: TObject); type chel=record kod:string[6]; name:string[20]; skid:string[4]; end; var f:file of chel; inf:chel; begin if edit2.Text='' then showmessage('Проверте код!!! Поле не должно быть пустым.') else begin assignfile(f,'C:\cafe\dat\skidka.inf'); reset(f); read(f,inf); closefile(f); if edit2.Text=inf.kod then begin label9.Caption:=inf.name+' - '+inf.skid+'\%'; edit2.Text:=''; end else begin showmessage('Необходимо вводить правильные данные!!!'); edit2.Text:=''; end; end; end; procedure TForm1.Button1Click(Sender: TObject); type lol=record num:integer; date:string[9]; kod:integer; stol:1..50; end; var f:file of lol; inf:lol; begin inf.stol:=strtoint(combobox1.Text); inf.kod:=Dbgrid2.Fields[3].AsInteger; inf.date:=label3.Caption; inf.num:=strtoint(label5.Caption); label11.Caption:=label13.Caption+'р.'; assignfile(f,'C:\Cafe\dat\num.inf'); reset(f); write(f,inf); closefile(f); if label3.Caption=inf.date then begin inf.num:=inf.num+1; label5.Caption:=inttostr(inf.num); end else label5.Caption:='1'; end; procedure TForm1.Timer2Timer(Sender: TObject); begin label7.Caption:=timetostr(time); end; procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=107) then begin if (dbgrid1.Fields[2].AsString<>'') and (dbgrid1.Fields[3].AsCurrency<>0) then begin Table2.Insert; table2.Fields[1].AsString:=dbgrid1.Fields[2].AsString; table2.Fields[2].AsCurrency:=dbgrid1.Fields[3].AsCurrency; table2.Fields[3].AsInteger:=dbgrid1.Fields[1].AsInteger; table2.post; label12.Caption:=currtostr(strtocurr(label13.Caption)+dbgrid1.Fields[3].AsCurrency); label13.Caption:=label12.Caption; end else showmessage('Попросите установить Меню ВАШЕГО Кафе'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin table1.Active:=true; table2.Active:=true; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin table1.Active:=false; table2.Active:=false; end; procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=109) then begin label12.Caption:=currtostr(dbgrid2.Fields[2].AsCurrency); label13.Caption:=currtostr(strtocurr(label13.Caption) - strtocurr(label12.Caption)); table2.Delete; end; end; procedure TForm1.Button4Click(Sender: TObject); begin rvproject1.ExecuteReport('Project1'); end; end надо короче из второй табл вывести на принтер инфу... |
Сообщ.
#5
,
|
|
|
Homker
блин ... а я думал тебе чета заумное надо ...... (удаляй код а то он большой очень ....) ... а на ответ на свой вопрос можно поглядеть тута ...... чего там только нет .... |
Сообщ.
#6
,
|
|
|
lamchok ляпнул.... и стрелки перевел.... ;-)
2homker: Цепляй QuickReport какой-нибудь, да выводи... В чем проблема ? Какие поля не выводятся ? Если проблема в Rave - ничем помочь не смогу... У меня D5... |
Сообщ.
#7
,
|
|
|
repairman
как в десятку попал ..... только стрелки не переводил ... просто зачем чета объяснять если уже кто-то объяснил :-/... да и вообще так был вопрос задан .... ты вчитайся там нет даже намека на принтер не считая Цитата вот я и думал что он даст код 10X10 ... а он ... ;D Надо вывести инфу с некоторых полей по всей базе |
Сообщ.
#8
,
|
|
|
Всем биг сенкс все работает РАЗОБРАЛСЯ ,,,,,,,,,,,,,,,,,,,,,,УХ.......
|