Question : Du BCD à l'AGITATION

Les chers experts, le

I ont un exemple de BCD et je veux le convertir en ADO.
It contient 1 TDatabase composant et 6 TQuery-components.
I ne peuvent pas figurer dehors avec le code et le designcode du the
example ce qui est la structure de la base de données ! Le
1. combien de tables sont là et comment sont eux ont appelé ?
2. Quels sont les noms de colonne de chaque table ?
2. Comment les tables sont-elles reliées à l'eachother ?
3. Et y a-t-il des clefs primaires et étrangères ? le
Can quelqu'un figurent dehors ce que la structure de l'is
so de base de données je peut créer une base de données prédéfinie de MS-Access ? le

Who est disposé à m'aider ? le
I ont mis une partie des procédures et du designcode qui le
comes avec le composant et les 6 TQuery-components
in de TDatabase le code-section.

Peter Kiers class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
148 :
149 :
150 :
151 :
152 :
153 :
154 :
155 :
156 :
157 :
158 :
159 :
160 :
161 :
162 :
163 :
164 :
165 :
166 :
167 :
168 :
169 :
170 :
171 :
172 :
173 :
174 :
175 :
176 :
177 :
178 :
179 :
180 :
181 :
182 :
183 :
184 :
185 :
186 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
225 :
226 :
227 :
228 :
229 :
230 :
231 :
232 :
233 :
234 :
235 :
236 :
237 :
238 :
239 :
240 :
241 :
>object " de l'id= " codeSnippet842405 de 
= de StartDate : D1) et (<= d'EndDate : D2))")
    Gauche = 392
    Dessus = 560
    ParamData = <
      article
        DataType = ftString
        Nom = « SchedName »
        ParamType = ptUnknown
      extrémité
      article
        DataType = ftDate
        Nom = « D1 »
        ParamType = ptUnknown
      extrémité
      article
        DataType = ftDate
        Nom = « D2 »
        ParamType = ptUnknown
      end>
  extrémité
  objet ApptSchedulesQuery : TQuery
    DatabaseName = « UTF »
    RequestLive = rectifient
    SQL.Strings = (
      « Choisir * à partir de GroupLink »
      « Où ApptID = : ApptID ")
    Gauche = 424
    Dessus = 560
    ParamData = <
      article
        DataType = ftString
        Nom = « ApptID »
        ParamType = ptUnknown
      end>
  extrémité
  objet GetApptQuery : TQuery
    DatabaseName = « UTF »
    RequestLive = rectifient
    SQL.Strings = (
      « Choisir * à partir de GroupAppt »
      « Où ApptID = : ApptID ")
    Gauche = 456
    Dessus = 560
    ParamData = <
      article
        DataType = ftString
        Nom = « ApptID »
        ParamType = ptUnknown
      end>
  extrémité
  objet DeleteApptLinkQuery : TQuery
    DatabaseName = « UTF »
    SQL.Strings = (
      « Suppression de GroupLink »
      « Où ApptID = : ApptID ")
    Gauche = 488
    Dessus = 560
    ParamData = <
      article
        DataType = ftString
        Nom = « ApptID »
        ParamType = ptUnknown
      end>
  extrémité
  objet DeleteApptQuery : TQuery
    DatabaseName = « UTF »
    SQL.Strings = (
      « Suppression de GroupAppt »
      « Où ApptID = : ApptID ")
    Gauche = 520
    Dessus = 560
    ParamData = <
      article
        DataType = ftString
        Nom = « ApptID »
        ParamType = ptUnknown
      end>
  extrémité
  objet SchedulesQuery : TQuery
    DatabaseName = « UTF »
    SQL.Strings = (
      « Distinct choisi (SchedName) de GroupLink ")
    Gauche = 552
    Dessus = 560
  extrémité
  dbUTF d'objet : TDatabase
    DatabaseName = « UTF »
    DriverName = « NORME »
    LoginPrompt = faux
    Params.Strings = (
      « DÉFAUT DRIVER=PARADOX »
      « PERMETTRE BCD=FALSE ")
    SessionName = « défaut »
    Gauche = 448
    Dessus = 528
  extrémité
extrémité
(*---------------------------------------------------*)
procédé TMainForm.utfSchedMgrDeleteAppt (expéditeur : TObject ; Appt : TJvTFAppt) ;
commencer
  Avec DeleteApptQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      ExecSQL ;
    Extrémité ;
  Avec DeleteApptLinkQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      ExecSQL ;
    Extrémité ;
extrémité ;
(*---------------------------------------------------*)
procédé TMainForm.utfSchedMgrLoadBatch (expéditeur : TObject ; BatchName : corde ;
  BatchStartDate, BatchEndDate : TDate) ;
variété
  Appt : TJvTFAppt ;
  NewAppt : Booléen ;
commencer
  Avec NeedApptsQuery faire
    Commencer
      ParamByName (« D1 ») .AsDate : = BatchStartDate ;
      ParamByName (« D2 ») .AsDate : = BatchEndDate ;
      ParamByName (« SchedName ").AsString : = BatchName ;
      Ouvert ;
      D'abord ;
      Tandis que pas l'EOF font
        Commencer
          utfSchedMgr.RequestAppt (FieldByName (« ApptID ").AsString,
            Appt, NewAppt) ;
          Si NewAppt alors
            Commencer
              Appt.SetStartEnd (FieldByName (« StartDate ").AsDateTime,
                               FieldByName (« StartTime ").AsDateTime,
                               FieldByName (« EndDate ").AsDateTime,
                               FieldByName (« EndTime ").AsDateTime) ;
              Appt.Description : = FieldByName (« description ").AsString ;
              Appt.AlarmEnabled : = FieldByName (« AlarmEnabled ").AsBoolean ;
              Appt.AlarmAdvance : = FieldByName (« AlarmAdvance ").AsInteger ;
              Avec ApptSchedulesQuery faire
                Commencer
                  ParamByName (« ApptID ").AsString : = Appt.ID ;
                  Ouvert ;
                  D'abord ;
                  Tandis que pas l'EOF font
                    Commencer
                      Appt.AddSchedule (FieldByName (« SchedName ").AsString) ;
                      Après ;
                    Extrémité ;
                  Fin ;
                Extrémité ;
            Extrémité ;
          Après ;
        Extrémité ;
      Fin ;
    Extrémité ;
extrémité ;
(*---------------------------------------------------*)
procédé TMainForm.utfSchedMgrPostAppt (expéditeur : TObject ; Appt : TJvTFAppt) ;
variété
  I : Nombre entier ;
commencer
  Avec GetApptQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      Ouvert ;
      Si RecordCount > 0 puis
        Éditer
      Autrement
        Commencer
          Insérer ;
          FieldByName (« ApptID ").AsString : = Appt.ID ;
        Extrémité ;
      FieldByName (« StartDate ").AsDateTime : = Appt.StartDate ;
      FieldByName (« StartTime ").AsDateTime : = Appt.StartTime ;
      FieldByName (« EndDate ").AsDateTime : = Appt.EndDate ;
      FieldByName (« EndTime ").AsDateTime : = Appt.EndTime ;
      FieldByName (« description ").AsString : = Appt.Description ;
      FieldByName (« AlarmEnabled ").AsBoolean : = Appt.AlarmEnabled ;
      FieldByName (« AlarmAdvance ").AsInteger : = Appt.AlarmAdvance ;
      Poteau ;
      Fin ;
    Extrémité ;
  Avec DeleteApptLinkQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      ExecSQL ;
    Extrémité ;
  Avec ApptSchedulesQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      Ouvert ;
      Pour I : = 0 à Appt.ScheduleCount - 1 font
        Commencer
          Insérer ;
          FieldByName (« ApptID ").AsString : = Appt.ID ;
          FieldByName (« SchedName ").AsString : = Appt.Schedules [I] ;
          Poteau ;
        Extrémité ;
      Fin ;
    Extrémité ;
extrémité ;
(*---------------------------------------------------*)
procédé TMainForm.utfSchedMgrRefreshAppt (expéditeur : TObject ; Appt : TJvTFAppt) ;
commencer
  Avec GetApptQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      Ouvert ;
      Si RecordCount = 1 puis
        Commencer
          Appt.SetStartEnd (FieldByName (« StartDate ").AsDateTime,
                           FieldByName (« StartTime ").AsDateTime,
                           FieldByName (« EndDate ").AsDateTime,
                           FieldByName (« EndTime ").AsDateTime) ;
          Appt.Description : = FieldByName (« description ").AsString ;
          Appt.AlarmEnabled : = FieldByName (« AlarmEnabled ").AsBoolean ;
          Appt.AlarmAdvance : = FieldByName (« AlarmAdvance ").AsInteger ;
        Extrémité ;
      Fin ;
    Extrémité ;
  Appt.ClearSchedules ;
  Avec ApptSchedulesQuery faire
    Commencer
      ParamByName (« ApptID ").AsString : = Appt.ID ;
      Ouvert ;
      D'abord ;
      Tandis que pas l'EOF font
        Commencer
          Appt.AddSchedule (FieldByName (« SchedName ").AsString) ;
          Après ;
        Extrémité ;
      Fin ;
    Extrémité ;
extrémité ;
(*---------------------------------------------------*)
class= de

Réponse : Du BCD à l'AGITATION

Picoseconde.   comment employer des questions avec l'AGITATION voir le http://delphi.about.com/od/database/l/aa050101a.htm

si vous voulez employer par exemple le MS ACCESS et laissez votre utilisation de programme les composants http://zeos.firmos.at/portal.php de base de données de ZEOS

, la grande milliseconde ACCESSS d'avantage non seulement, mais vous peut utiliser alors également le serveur de la milliseconde SQL, MON SQL, ..... - > la plus grande flexibilité pour l'appui de plus de systemes de base de données

 
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us