-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathim58archive.cpp
125 lines (116 loc) · 5.1 KB
/
im58archive.cpp
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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "im58archive.h"
#include "im58results.h"
#include "im58auto.h"
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
int idx;
AnsiString datestring;
extern int globalID;
char progpath[254];
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button1Click(TObject *Sender)
{ //"+Edit1->Text+"
//insert into every(DateTime,pressure,force,speed,turns,coef_stable,coef_fric,middle_moment,max_moment,brakeID) values('24.03.2015 20:01','1,06240437904749','85,0861862194844','0','0','0,073785803237858','0,0402052229968878','91,4130457677902','146','10')
//this->ADOCommand1->CommandText=("INSERT INTO after10 (Jh(ôìê), ÔÈÎ) VALUES ('23,23', 'asdf')");
// ADOCommand1->Execute();
EndOfTest();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBGrid1CellClick(TColumn *Column)
{
//DBGrid1->DataSource->DataSet->RecNo;
datestring=DBGrid1->Fields[1]->AsString;
globalID=ADODataSet1->FieldByName("id")->Value;
Form6->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::FormCreate(TObject *Sender)
{
AnsiString ppath=ExtractFilePath(ParamStr(0));
sprintf(progpath,"%s",ppath.c_str());
//ADOConnection1->ConnectionString="Provider=Microsoft.ACE.OLEDB.15.0;User ID=Admin;Data Source="+ExtractFilePath (ParamStr(0))+"archive.accdb;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False;";
ADOConnection1->ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ExtractFilePath(ParamStr(0))+"archive.mdb;Persist Security Info=False";
try
{
ADOConnection1->Connected=true;
ADOConnection1->Open();
ADODataSet1->Active=true;
}
catch (Exception &e)
{
AnsiString errstr=e.Message;
MessageBox(NULL,errstr.c_str(),NULL,MB_ICONERROR|MB_OK);
Application->Terminate();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBGrid1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key==VK_DELETE)
{
switch(MessageBox(NULL,"Âû äåéñòâèòåëüíî õîòèòå óäàëèòü ýòó çàïèñü? Ýòó îïåðàöèþ íåëüçÿ îòìåíèòü!","Ïîäòâåðäèòå óäàëåíèå",MB_ICONQUESTION|MB_YESNO))
{
case ID_YES:DelRecord();break;
case ID_NO:break;
default:break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBGrid1DblClick(TObject *Sender)
{
//DBGrid1->DataSource->DataSet->RecNo;
datestring=DBGrid1->Fields[1]->AsString;
globalID=ADODataSet1->FieldByName("id")->Value;
Form6->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::N1Click(TObject *Sender)
{
//DBGrid1->DataSource->DataSet->RecNo;
datestring=DBGrid1->Fields[1]->AsString;
globalID=ADODataSet1->FieldByName("id")->Value;
Form6->Show();
}
//---------------------------------------------------------------------------
void TForm10::DelRecord(void)
{
globalID=ADODataSet1->FieldByName("id")->Value;
this->ADOCommand1->CommandText="DELETE FROM after10 WHERE id="+IntToStr(globalID);//+" && every.id="+IntToStr(globalID);
ADOCommand1->Execute();
this->ADOCommand1->CommandText="DELETE FROM every WHERE id="+IntToStr(globalID);//+" && every.id="+IntToStr(globalID);
ADOCommand1->Execute();
this->ADODataSet1->Active=false;
this->ADODataSet1->Active=true;
this->DBGrid1->Enabled=false;
this->DBGrid1->Enabled=true;
}
void __fastcall TForm10::N2Click(TObject *Sender)
{
switch(MessageBox(NULL,"Âû äåéñòâèòåëüíî õîòèòå óäàëèòü ýòó çàïèñü? Ýòó îïåðàöèþ íåëüçÿ îòìåíèòü!","Ïîäòâåðäèòå óäàëåíèå",MB_ICONQUESTION|MB_YESNO))
{
case ID_YES:DelRecord();break;
case ID_NO:break;
default:break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm10::FormShow(TObject *Sender)
{
this->ADODataSet1->Active=false;
this->ADODataSet1->Active=true;
this->DBGrid1->Enabled=false;
this->DBGrid1->Enabled=true;
}
//---------------------------------------------------------------------------