Q&A
- EDBEngineError 'Invalid Parameter' 에러 아시는 분?
procedure TF_tax3.Btn_SAVEClick(Sender: TObject);
Var MyDBError: TDBError;
i : Integer;
begin
if MaskEdit1.Text = '' then
begin
Application.MessageBox('필수항목인 월분란을 입력하십시요.', '알림', mb_OK+mb_ICONINFORMATION);
MaskEdit1.SetFocus;
Exit;
end;
if Application.MessageBox(MsgInput, '등록', mb_YesNO+ mb_ICONQUESTION) = IDYES then
begin
GridClear2;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * From TTT');
Sql.Add('Where PK='''+ed_PK.Text+'''');
Open;
if RecordCount <> 0 Then
begin
sg_List2.RowCount := RecordCount + 2;
for i := 1 to RecordCount do
begin
sg_List2.cells[0,i] := intTostr(i);
sg_List2.cells[1,i] := FieldByName('자동문서번호').AsString;
sg_List2.cells[2,i] := FieldByName('날짜').AsString;
Next;
end;
Application.MessageBox(MsgSame, '등록 실패', mb_OK+mb_ICONSTOP);
Exit;
end;
end;
Try
AutoPK;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT3(PK,날짜,sg0000,sg0100,sg0200,sg0300,sg0400,sg0500,sg0600,sg0700,sg0800,sg0900,sg1000,sg1100,');
Sql.Add('sg1200,sg0001,sg0101,sg0201,sg0301,sg0401,sg0501,sg0601,sg0701,sg0801,sg0901,sg1001,sg1101,sg1201,sg0002, ');
Sql.Add('sg0102,sg0202,sg0302,sg0402,sg0502,sg0602,sg0702,sg0802,sg0902,sg1002,sg1102,sg1202,sg0003,sg0103,sg0203, ');
Sql.Add('sg0303,sg0403,sg0503,sg0603,sg0703,sg0803,sg0903,sg1003,sg1103,sg1203,sg0004,sg0104,sg0204,sg0304,sg0404, ');
Sql.Add('sg0504,sg0604,sg0704,sg0804,sg0904,sg1004,sg1104,sg1204,sg0005,sg0105,sg0205,sg0305,sg0405,sg0505,sg0605, ');
Sql.Add('sg0705,sg0805,sg0905,sg1005,sg1105,sg1205,sg0006,sg0106,sg0206,sg0306,sg0406,sg0506,sg0606,sg0706,sg0806, ');
Sql.Add('sg0906,sg1006,sg1106,sg1206,sg0007,sg0107,sg0207,sg0307,sg0407,sg0507,sg0607,sg0707,sg0807,sg0907,sg1007, ');
Sql.Add('sg1107,sg1207,sg0008,sg0108,sg0208,sg0308,sg0408,sg0508,sg0608,sg0708,sg0808,sg0908,sg1008,sg1108,sg1208, ');
Sql.Add('sg0009,sg0109,sg0209,sg0309,sg0409,sg0509,sg0609,sg0709,sg0809,sg0909,sg1009,sg1109,sg1209,sg0010,sg0110, ');
Sql.Add('sg0210,sg0310,sg0410,sg0510,sg0610,sg0710,sg0810,sg0910,sg1010,sg1110,sg1210,sg0011,sg0111,sg0211,sg0311, ');
Sql.Add('sg0411,sg0511,sg0611,sg0711,sg0811,sg0911,sg1011,sg1111,sg1211 )');
Sql.Add('Values('''+ed_PK.Text+''','''+MaskEdit1.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 0]+''','''+Cells[1, 0]+''','''+Cells[2, 0]+''','''+Cells[3, 0]+''','''+Cells[4, 0]+''', ');
Sql.Add(''''+Cells[5, 0]+''','''+Cells[6, 0]+''','''+Cells[7, 0]+''','''+Cells[8, 0]+''','''+Cells[9, 0]+''','''+Cells[10,0]+''', ');
Sql.Add(''''+Cells[11,0]+''','''+Cells[12,0]+''','''+Cells[0, 1]+''','''+Cells[1, 1]+''','''+Cells[2, 1]+''','''+Cells[3, 1]+''', ');
Sql.Add(''''+Cells[4, 1]+''','''+Cells[5, 1]+''','''+Cells[6, 1]+''','''+Cells[7, 1]+''','''+Cells[8, 1]+''','''+Cells[9, 1]+''', ');
Sql.Add(''''+Cells[10,1]+''','''+Cells[11,1]+''','''+Cells[12,1]+''','''+Cells[0, 2]+''','''+Cells[1, 2]+''','''+Cells[2, 2]+''', ');
Sql.Add(''''+Cells[3, 2]+''','''+Cells[4, 2]+''','''+Cells[5, 2]+''','''+Cells[6, 2]+''','''+Cells[7, 2]+''','''+Cells[8, 2]+''', ');
Sql.Add(''''+Cells[9, 2]+''','''+Cells[10,2]+''','''+Cells[11,2]+''','''+Cells[12,2]+''','''+Cells[0, 3]+''','''+Cells[1, 3]+''', ');
Sql.Add(''''+Cells[2, 3]+''','''+Cells[3, 3]+''','''+Cells[4, 3]+''','''+Cells[5, 3]+''','''+Cells[6, 3]+''','''+Cells[7, 3]+''', ');
Sql.Add(''''+Cells[8, 3]+''','''+Cells[9, 3]+''','''+Cells[10,3]+''','''+Cells[11,3]+''','''+Cells[12,3]+''','''+Cells[0, 4]+''', ');
Sql.Add(''''+Cells[1, 4]+''','''+Cells[2, 4]+''','''+Cells[3, 4]+''','''+Cells[4, 4]+''','''+Cells[5, 4]+''','''+Cells[6, 4]+''', ');
Sql.Add(''''+Cells[7, 4]+''','''+Cells[8, 4]+''','''+Cells[9, 4]+''','''+Cells[10,4]+''','''+Cells[11,4]+''','''+Cells[12,4]+''', ');
Sql.Add(''''+Cells[0, 5]+''','''+Cells[1, 5]+''','''+Cells[2, 5]+''','''+Cells[3, 5]+''','''+Cells[4, 5]+''','''+Cells[5, 5]+''', ');
Sql.Add(''''+Cells[6, 5]+''','''+Cells[7, 5]+''','''+Cells[8, 5]+''','''+Cells[9, 5]+''','''+Cells[10,5]+''','''+Cells[11,5]+''', ');
Sql.Add(''''+Cells[12,5]+''','''+Cells[0, 6]+''','''+Cells[1, 6]+''','''+Cells[2, 6]+''','''+Cells[3, 6]+''','''+Cells[4, 6]+''', ');
Sql.Add(''''+Cells[5, 6]+''','''+Cells[6, 6]+''','''+Cells[7, 6]+''','''+Cells[8, 6]+''','''+Cells[9, 6]+''','''+Cells[10,6]+''', ');
Sql.Add(''''+Cells[11,6]+''','''+Cells[12,6]+''','''+Cells[0, 7]+''','''+Cells[1, 7]+''','''+Cells[2, 7]+''','''+Cells[3, 7]+''', ');
Sql.Add(''''+Cells[4, 7]+''','''+Cells[5, 7]+''','''+Cells[6, 7]+''','''+Cells[7, 7]+''','''+Cells[8, 7]+''','''+Cells[9, 7]+''', ');
Sql.Add(''''+Cells[10,7]+''','''+Cells[11,7]+''','''+Cells[12,7]+''','''+Cells[0, 8]+''','''+Cells[1, 8]+''','''+Cells[2, 8]+''', ');
Sql.Add(''''+Cells[3, 8]+''','''+Cells[4, 8]+''','''+Cells[5, 8]+''','''+Cells[6, 8]+''','''+Cells[7, 8]+''','''+Cells[8, 8]+''', ');
Sql.Add(''''+Cells[9, 8]+''','''+Cells[10,8]+''','''+Cells[11,8]+''','''+Cells[12,8]+''','''+Cells[0, 9]+''','''+Cells[1, 9]+''', ');
Sql.Add(''''+Cells[2, 9]+''','''+Cells[3, 9]+''','''+Cells[4, 9]+''','''+Cells[5, 9]+''','''+Cells[6, 9]+''','''+Cells[7, 9]+''', ');
Sql.Add(''''+Cells[8, 9]+''','''+Cells[9, 9]+''','''+Cells[10,9]+''','''+Cells[11,9]+''','''+Cells[12,9]+''','''+Cells[0, 10]+''', ');
Sql.Add(''''+Cells[1, 10]+''','''+Cells[2, 10]+''','''+Cells[3, 10]+''','''+Cells[4, 10]+''','''+Cells[5, 10]+''','''+Cells[6, 10]+''',');
Sql.Add(''''+Cells[7, 10]+''','''+Cells[8, 10]+''','''+Cells[9, 10]+''','''+Cells[10,10]+''','''+Cells[11,10]+''','''+Cells[12,10]+''',');
Sql.Add(''''+Cells[0, 11]+''','''+Cells[1, 11]+''','''+Cells[2, 11]+''','''+Cells[3, 11]+''','''+Cells[4, 11]+''','''+Cells[5, 11]+''',');
Sql.Add(''''+Cells[6, 11]+''','''+Cells[7, 11]+''','''+Cells[8, 11]+''','''+Cells[9, 11]+''','''+Cells[10,11]+''','''+Cells[11,11]+''',');
Sql.Add(''''+Cells[12,11]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT31(PK,sg0012,sg0112,sg0212,sg0312,sg0412,sg0512,sg0612,sg0712,sg0812,sg0912,sg1012,sg1112,sg1212,sg0013,');
Sql.Add('sg0113,sg0213,sg0313,sg0413,sg0513,sg0613,sg0713,sg0813,sg0913,sg1013,sg1113,sg1213,sg0014,sg0114,sg0214,sg0314,sg0414, ');
Sql.Add('sg0514,sg0614,sg0714,sg0814,sg0914,sg1014,sg1114,sg1214,sg0015,sg0115,sg0215,sg0315,sg0415,sg0515,sg0615,sg0715,sg0815, ');
Sql.Add('sg0915,sg1015,sg1115,sg1215,sg0016,sg0116,sg0216,sg0316,sg0416,sg0516,sg0616,sg0716,sg0816,sg0916,sg1016,sg1116,sg1216, ');
Sql.Add('sg0017,sg0117,sg0217,sg0317,sg0417,sg0517,sg0617,sg0717,sg0817,sg0917,sg1017,sg1117,sg1217,sg0018,sg0118,sg0218,sg0318, ');
Sql.Add('sg0418,sg0518,sg0618,sg0718,sg0818,sg0918,sg1018,sg1118,sg1218,sg0019,sg0119,sg0219,sg0319,sg0419sg0519,sg0619,sg0719, ');
Sql.Add('sg0819,sg0919,sg1019,sg1119,sg1219,sg0020,sg0120,sg0220,sg0320,sg0420,sg0520,sg0620,sg0720,sg0820,sg0920,sg1020,sg1120, ');
Sql.Add('sg1220,sg0021,sg0121,sg0221,sg0321,sg0421,sg0521,sg0621,sg0721,sg0821,sg0921,sg1021,sg1121,sg1221 )');
Sql.Add('Values('''+ed_PK.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 12]+''','''+Cells[1, 12]+''','''+Cells[2, 12]+''','''+Cells[3, 12]+''','''+Cells[4, 12]+''', ');
Sql.Add(''''+Cells[5, 12]+''','''+Cells[6, 12]+''','''+Cells[7, 12]+''','''+Cells[8, 12]+''','''+Cells[9, 12]+''','''+Cells[10,12]+''', ');
Sql.Add(''''+Cells[11,12]+''','''+Cells[12,12]+''','''+Cells[0, 13]+''','''+Cells[1, 13]+''','''+Cells[2, 13]+''','''+Cells[3, 13]+''', ');
Sql.Add(''''+Cells[4, 13]+''','''+Cells[5, 13]+''','''+Cells[6, 13]+''','''+Cells[7, 13]+''','''+Cells[8, 13]+''','''+Cells[9, 13]+''', ');
Sql.Add(''''+Cells[10,13]+''','''+Cells[11,13]+''','''+Cells[12,13]+''','''+Cells[0, 14]+''','''+Cells[1, 14]+''','''+Cells[2, 14]+''', ');
Sql.Add(''''+Cells[3, 14]+''','''+Cells[4, 14]+''','''+Cells[5, 14]+''','''+Cells[6, 14]+''','''+Cells[7, 14]+''','''+Cells[8, 14]+''', ');
Sql.Add(''''+Cells[9, 14]+''','''+Cells[10,14]+''','''+Cells[11,14]+''','''+Cells[12,14]+''','''+Cells[0, 15]+''','''+Cells[1, 15]+''', ');
Sql.Add(''''+Cells[2, 15]+''','''+Cells[3, 15]+''','''+Cells[4, 15]+''','''+Cells[5, 15]+''','''+Cells[6, 15]+''','''+Cells[7, 15]+''', ');
Sql.Add(''''+Cells[8, 15]+''','''+Cells[9, 15]+''','''+Cells[10,15]+''','''+Cells[11,15]+''','''+Cells[12,15]+''','''+Cells[0, 16]+''', ');
Sql.Add(''''+Cells[1, 16]+''','''+Cells[2, 16]+''','''+Cells[3, 16]+''','''+Cells[4, 16]+''','''+Cells[5, 16]+''','''+Cells[6, 16]+''', ');
Sql.Add(''''+Cells[7, 16]+''','''+Cells[8, 16]+''','''+Cells[9, 16]+''','''+Cells[10,16]+''','''+Cells[11,16]+''','''+Cells[12,16]+''', ');
Sql.Add(''''+Cells[0, 17]+''','''+Cells[1, 17]+''','''+Cells[2, 17]+''','''+Cells[3, 17]+''','''+Cells[4, 17]+''','''+Cells[5, 17]+''', ');
Sql.Add(''''+Cells[6, 17]+''','''+Cells[7, 17]+''','''+Cells[8, 17]+''','''+Cells[9, 17]+''','''+Cells[10,17]+''','''+Cells[11,17]+''', ');
Sql.Add(''''+Cells[12,17]+''','''+Cells[0, 18]+''','''+Cells[1, 18]+''','''+Cells[2, 18]+''','''+Cells[3, 18]+''','''+Cells[4, 18]+''', ');
Sql.Add(''''+Cells[5, 18]+''','''+Cells[6, 18]+''','''+Cells[7, 18]+''','''+Cells[8, 18]+''','''+Cells[9, 18]+''','''+Cells[10,18]+''', ');
Sql.Add(''''+Cells[11,18]+''','''+Cells[12,18]+''','''+Cells[0, 19]+''','''+Cells[1, 19]+''','''+Cells[2, 19]+''','''+Cells[3, 19]+''', ');
Sql.Add(''''+Cells[4, 19]+''','''+Cells[5, 19]+''','''+Cells[6, 19]+''','''+Cells[7, 19]+''','''+Cells[8, 19]+''','''+Cells[9, 19]+''', ');
Sql.Add(''''+Cells[10,19]+''','''+Cells[11,19]+''','''+Cells[12,19]+''','''+Cells[0, 20]+''','''+Cells[1, 20]+''','''+Cells[2, 20]+''', ');
Sql.Add(''''+Cells[3, 20]+''','''+Cells[4, 20]+''','''+Cells[5, 20]+''','''+Cells[6, 20]+''','''+Cells[7, 20]+''','''+Cells[8, 20]+''', ');
Sql.Add(''''+Cells[9, 20]+''','''+Cells[10,20]+''','''+Cells[11,20]+''','''+Cells[12,20]+''','''+Cells[0, 21]+''','''+Cells[1, 21]+''', ');
Sql.Add(''''+Cells[2, 21]+''','''+Cells[3, 21]+''','''+Cells[4, 21]+''','''+Cells[5, 21]+''','''+Cells[6, 21]+''','''+Cells[7, 21]+''', ');
Sql.Add(''''+Cells[8, 21]+''','''+Cells[9, 21]+''','''+Cells[10,21]+''','''+Cells[11,21]+''','''+Cells[12,21]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
{ With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT32(PK,sg0022,sg0122,sg0222,sg0322,sg0422,sg0522,sg0622,sg0722,sg0822,sg0922,sg1022,sg1122,sg1222,sg0023, ');
Sql.Add('sg0123,sg0223,sg0323,sg0423,sg0523,sg0623,sg0723,sg0823,sg0923,sg1023,sg1123,sg1223,sg0024,sg0124,sg0224,sg0324,sg0424,sg0524,');
Sql.Add('sg0624,sg0724,sg0824,sg0924,sg1024,sg1124,sg1224,sg0025sg0125,sg0225,sg0325,sg0425,sg0525,sg0625,sg0725,sg0825,sg0925,sg1025, ');
Sql.Add('sg1125,sg1225,sg0026,sg0126,sg0226,sg0326,sg0426,sg0526,sg0626,sg0726,sg0826,sg0926,sg1026,sg1126,sg1226,sg0027,sg0127,sg0227,');
Sql.Add('sg0327,sg0427,sg0527,sg0627,sg0727,sg0827,sg0927,sg1027,sg1127,sg1227,sg0028,sg0128,sg0228,sg0328,sg0428,sg0528,sg0628,sg0728,');
Sql.Add('sg0828,sg0928,sg1028,sg1128,sg1228,sg0029,sg0129,sg0229,sg0329,sg0429,sg0529,sg0629,sg0729,sg0829,sg0929,sg1029,sg1129,sg1229,');
Sql.Add('sg0030,sg0130,sg0230,sg0330,sg0430,sg0530,sg0630,sg0730,sg0830,sg0930,sg1030,sg1130,sg1230,sg0031,sg0131,sg0231,sg0331,sg0431,');
Sql.Add('sg0531,sg0631,sg0731,sg0831,sg0931,sg1031,sg1131,sg1231,sg0032,sg0132,sg0232,sg0332,sg0432,sg0532,sg0632,sg0732,sg0832,sg0932,');
Sql.Add('sg1032,sg1132,sg1232,sg0033,sg0133,sg0233,sg0333,sg0433,sg0533,sg0633,sg0733,sg0833,sg0933,sg1033,sg1133,sg1233,sg0034,sg0134,');
Sql.Add('sg0234,sg0334,sg0434,sg0534,sg0634,sg0734,sg0834,sg0934,sg1034,sg1134,sg1234,sg0035,sg0135,sg0235,sg0335,sg0435,sg0535,sg0635,');
Sql.Add('sg0735,sg0835,sg0935,sg1035,sg1135,sg1235,sg0036,sg0136,sg0236,sg0336,sg0436,sg0536,sg0636,sg0736,sg0836,sg0936,sg1036,sg1136,');
Sql.Add('sg1236,sg0037,sg0137,sg0237,sg0337,sg0437,sg0537,sg0637,sg0737,sg0837,sg0937,sg1037,sg1137,sg1237,sg0038,sg0138,sg0238,sg0338,');
Sql.Add('sg0438,sg0538,sg0638,sg0738,sg0838,sg0938,sg1038,sg1138,sg1238 )');
Sql.Add('Values('''+ed_PK.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 22]+''','''+Cells[1, 22]+''','''+Cells[2, 22]+''','''+Cells[3, 22]+''','''+Cells[4, 22]+''', ');
Sql.Add(''''+Cells[5, 22]+''','''+Cells[6, 22]+''','''+Cells[7, 22]+''','''+Cells[8, 22]+''','''+Cells[9, 22]+''','''+Cells[10,22]+''', ');
Sql.Add(''''+Cells[11,22]+''','''+Cells[12,22]+''','''+Cells[0, 23]+''','''+Cells[1, 23]+''','''+Cells[2, 23]+''','''+Cells[3, 23]+''', ');
Sql.Add(''''+Cells[4, 23]+''','''+Cells[5, 23]+''','''+Cells[6, 23]+''','''+Cells[7, 23]+''','''+Cells[8, 23]+''','''+Cells[9, 23]+''', ');
Sql.Add(''''+Cells[10,23]+''','''+Cells[11,23]+''','''+Cells[12,23]+''','''+Cells[0, 24]+''','''+Cells[1, 24]+''','''+Cells[2, 24]+''', ');
Sql.Add(''''+Cells[3, 24]+''','''+Cells[4, 24]+''','''+Cells[5, 24]+''','''+Cells[6, 24]+''','''+Cells[7, 24]+''','''+Cells[8, 24]+''', ');
Sql.Add(''''+Cells[9, 24]+''','''+Cells[10,24]+''','''+Cells[11,24]+''','''+Cells[12,24]+''','''+Cells[0, 25]+''','''+Cells[1, 25]+''', ');
Sql.Add(''''+Cells[2, 25]+''','''+Cells[3, 25]+''','''+Cells[4, 25]+''','''+Cells[5, 25]+''','''+Cells[6, 25]+''','''+Cells[7, 25]+''', ');
Sql.Add(''''+Cells[8, 25]+''','''+Cells[9, 25]+''','''+Cells[10,25]+''','''+Cells[11,25]+''','''+Cells[12,25]+''','''+Cells[0, 26]+''', ');
Sql.Add(''''+Cells[1, 26]+''','''+Cells[2, 26]+''','''+Cells[3, 26]+''','''+Cells[4, 26]+''','''+Cells[5, 26]+''','''+Cells[6, 26]+''', ');
Sql.Add(''''+Cells[7, 26]+''','''+Cells[8, 26]+''','''+Cells[9, 26]+''','''+Cells[10,26]+''','''+Cells[11,26]+''','''+Cells[12,26]+''', ');
Sql.Add(''''+Cells[0, 27]+''','''+Cells[1, 27]+''','''+Cells[2, 27]+''','''+Cells[3, 27]+''','''+Cells[4, 27]+''','''+Cells[5, 27]+''', ');
Sql.Add(''''+Cells[6, 27]+''','''+Cells[7, 27]+''','''+Cells[8, 27]+''','''+Cells[9, 27]+''','''+Cells[10,27]+''','''+Cells[11,27]+''', ');
Sql.Add(''''+Cells[12,27]+''','''+Cells[0, 28]+''','''+Cells[1, 28]+''','''+Cells[2, 28]+''','''+Cells[3, 28]+''','''+Cells[4, 28]+''', ');
Sql.Add(''''+Cells[5, 28]+''','''+Cells[6, 28]+''','''+Cells[7, 28]+''','''+Cells[8, 28]+''','''+Cells[9, 28]+''','''+Cells[10,28]+''', ');
Sql.Add(''''+Cells[11,28]+''','''+Cells[12,28]+''','''+Cells[0, 29]+''','''+Cells[1, 29]+''','''+Cells[2, 29]+''','''+Cells[3, 29]+''', ');
Sql.Add(''''+Cells[4, 29]+''','''+Cells[5, 29]+''','''+Cells[6, 29]+''','''+Cells[7, 29]+''','''+Cells[8, 29]+''','''+Cells[9, 29]+''', ');
Sql.Add(''''+Cells[10,29]+''','''+Cells[11,29]+''','''+Cells[12,29]+''','''+Cells[0, 30]+''','''+Cells[1, 30]+''','''+Cells[2, 30]+''', ');
Sql.Add(''''+Cells[3, 30]+''','''+Cells[4, 30]+''','''+Cells[5, 30]+''','''+Cells[6, 30]+''','''+Cells[7, 30]+''','''+Cells[8, 30]+''', ');
Sql.Add(''''+Cells[9, 30]+''','''+Cells[10,30]+''','''+Cells[11,30]+''','''+Cells[12,30]+''','''+Cells[0, 31]+''','''+Cells[1, 31]+''', ');
Sql.Add(''''+Cells[2, 31]+''','''+Cells[3, 31]+''','''+Cells[4, 31]+''','''+Cells[5, 31]+''','''+Cells[6, 31]+''','''+Cells[7, 31]+''', ');
Sql.Add(''''+Cells[8, 31]+''','''+Cells[9, 31]+''','''+Cells[10,31]+''','''+Cells[11,31]+''','''+Cells[12,31]+''','''+Cells[0, 32]+''', ');
Sql.Add(''''+Cells[1, 32]+''','''+Cells[2, 32]+''','''+Cells[3, 32]+''','''+Cells[4, 32]+''','''+Cells[5, 32]+''','''+Cells[6, 32]+''', ');
Sql.Add(''''+Cells[7, 32]+''','''+Cells[8, 32]+''','''+Cells[9, 32]+''','''+Cells[10,32]+''','''+Cells[11,32]+''','''+Cells[12,32]+''', ');
Sql.Add(''''+Cells[0, 33]+''','''+Cells[1, 33]+''','''+Cells[2, 33]+''','''+Cells[3, 33]+''','''+Cells[4, 33]+''','''+Cells[5, 33]+''', ');
Sql.Add(''''+Cells[6, 33]+''','''+Cells[7, 33]+''','''+Cells[8, 33]+''','''+Cells[9, 33]+''','''+Cells[10,33]+''','''+Cells[11,33]+''', ');
Sql.Add(''''+Cells[12,33]+''','''+Cells[0, 34]+''','''+Cells[1, 34]+''','''+Cells[2, 34]+''','''+Cells[3, 34]+''','''+Cells[4, 34]+''', ');
Sql.Add(''''+Cells[5, 34]+''','''+Cells[6, 34]+''','''+Cells[7, 34]+''','''+Cells[8, 34]+''','''+Cells[9, 34]+''','''+Cells[10,34]+''', ');
Sql.Add(''''+Cells[11,34]+''','''+Cells[12,34]+''','''+Cells[0, 35]+''','''+Cells[1, 35]+''','''+Cells[2, 35]+''','''+Cells[3, 35]+''', ');
Sql.Add(''''+Cells[4, 35]+''','''+Cells[5, 35]+''','''+Cells[6, 35]+''','''+Cells[7, 35]+''','''+Cells[8, 35]+''','''+Cells[9, 35]+''', ');
Sql.Add(''''+Cells[10,35]+''','''+Cells[11,35]+''','''+Cells[12,35]+''','''+Cells[0, 36]+''','''+Cells[1, 36]+''','''+Cells[2, 36]+''', ');
Sql.Add(''''+Cells[3, 36]+''','''+Cells[4, 36]+''','''+Cells[5, 36]+''','''+Cells[6, 36]+''','''+Cells[7, 36]+''','''+Cells[8, 36]+''', ');
Sql.Add(''''+Cells[9, 36]+''','''+Cells[10,36]+''','''+Cells[11,36]+''','''+Cells[12,36]+''','''+Cells[0, 37]+''','''+Cells[1, 37]+''', ');
Sql.Add(''''+Cells[2, 37]+''','''+Cells[3, 37]+''','''+Cells[4, 37]+''','''+Cells[5, 37]+''','''+Cells[6, 37]+''','''+Cells[7, 37]+''', ');
Sql.Add(''''+Cells[8, 37]+''','''+Cells[9, 37]+''','''+Cells[10,37]+''','''+Cells[11,37]+''','''+Cells[12,37]+''','''+Cells[0, 38]+''', ');
Sql.Add(''''+Cells[1, 38]+''','''+Cells[2, 38]+''','''+Cells[3, 38]+''','''+Cells[4, 38]+''','''+Cells[5, 38]+''','''+Cells[6, 38]+''', ');
Sql.Add(''''+Cells[7, 38]+''','''+Cells[8, 38]+''','''+Cells[9, 38]+''','''+Cells[10,38]+''','''+Cells[11,38]+''','''+Cells[12,38]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
AllQuery1;
Application.MessageBox(MsgInputYes, '등록', mb_OK+mb_ICONINFORMATION);
EXCEPT ON E:EDBEngineError do
begin
MyDBError := E.Errors[1]; Application.MessageBoxPCharMyDBError.message),MsgInputError,mb_OK+mb_DefButton1);
exit;
end;
end;
end;
end;
//소스 복사를 했는데 복잡하여 죄송합니다.
Var MyDBError: TDBError;
i : Integer;
begin
if MaskEdit1.Text = '' then
begin
Application.MessageBox('필수항목인 월분란을 입력하십시요.', '알림', mb_OK+mb_ICONINFORMATION);
MaskEdit1.SetFocus;
Exit;
end;
if Application.MessageBox(MsgInput, '등록', mb_YesNO+ mb_ICONQUESTION) = IDYES then
begin
GridClear2;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * From TTT');
Sql.Add('Where PK='''+ed_PK.Text+'''');
Open;
if RecordCount <> 0 Then
begin
sg_List2.RowCount := RecordCount + 2;
for i := 1 to RecordCount do
begin
sg_List2.cells[0,i] := intTostr(i);
sg_List2.cells[1,i] := FieldByName('자동문서번호').AsString;
sg_List2.cells[2,i] := FieldByName('날짜').AsString;
Next;
end;
Application.MessageBox(MsgSame, '등록 실패', mb_OK+mb_ICONSTOP);
Exit;
end;
end;
Try
AutoPK;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT3(PK,날짜,sg0000,sg0100,sg0200,sg0300,sg0400,sg0500,sg0600,sg0700,sg0800,sg0900,sg1000,sg1100,');
Sql.Add('sg1200,sg0001,sg0101,sg0201,sg0301,sg0401,sg0501,sg0601,sg0701,sg0801,sg0901,sg1001,sg1101,sg1201,sg0002, ');
Sql.Add('sg0102,sg0202,sg0302,sg0402,sg0502,sg0602,sg0702,sg0802,sg0902,sg1002,sg1102,sg1202,sg0003,sg0103,sg0203, ');
Sql.Add('sg0303,sg0403,sg0503,sg0603,sg0703,sg0803,sg0903,sg1003,sg1103,sg1203,sg0004,sg0104,sg0204,sg0304,sg0404, ');
Sql.Add('sg0504,sg0604,sg0704,sg0804,sg0904,sg1004,sg1104,sg1204,sg0005,sg0105,sg0205,sg0305,sg0405,sg0505,sg0605, ');
Sql.Add('sg0705,sg0805,sg0905,sg1005,sg1105,sg1205,sg0006,sg0106,sg0206,sg0306,sg0406,sg0506,sg0606,sg0706,sg0806, ');
Sql.Add('sg0906,sg1006,sg1106,sg1206,sg0007,sg0107,sg0207,sg0307,sg0407,sg0507,sg0607,sg0707,sg0807,sg0907,sg1007, ');
Sql.Add('sg1107,sg1207,sg0008,sg0108,sg0208,sg0308,sg0408,sg0508,sg0608,sg0708,sg0808,sg0908,sg1008,sg1108,sg1208, ');
Sql.Add('sg0009,sg0109,sg0209,sg0309,sg0409,sg0509,sg0609,sg0709,sg0809,sg0909,sg1009,sg1109,sg1209,sg0010,sg0110, ');
Sql.Add('sg0210,sg0310,sg0410,sg0510,sg0610,sg0710,sg0810,sg0910,sg1010,sg1110,sg1210,sg0011,sg0111,sg0211,sg0311, ');
Sql.Add('sg0411,sg0511,sg0611,sg0711,sg0811,sg0911,sg1011,sg1111,sg1211 )');
Sql.Add('Values('''+ed_PK.Text+''','''+MaskEdit1.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 0]+''','''+Cells[1, 0]+''','''+Cells[2, 0]+''','''+Cells[3, 0]+''','''+Cells[4, 0]+''', ');
Sql.Add(''''+Cells[5, 0]+''','''+Cells[6, 0]+''','''+Cells[7, 0]+''','''+Cells[8, 0]+''','''+Cells[9, 0]+''','''+Cells[10,0]+''', ');
Sql.Add(''''+Cells[11,0]+''','''+Cells[12,0]+''','''+Cells[0, 1]+''','''+Cells[1, 1]+''','''+Cells[2, 1]+''','''+Cells[3, 1]+''', ');
Sql.Add(''''+Cells[4, 1]+''','''+Cells[5, 1]+''','''+Cells[6, 1]+''','''+Cells[7, 1]+''','''+Cells[8, 1]+''','''+Cells[9, 1]+''', ');
Sql.Add(''''+Cells[10,1]+''','''+Cells[11,1]+''','''+Cells[12,1]+''','''+Cells[0, 2]+''','''+Cells[1, 2]+''','''+Cells[2, 2]+''', ');
Sql.Add(''''+Cells[3, 2]+''','''+Cells[4, 2]+''','''+Cells[5, 2]+''','''+Cells[6, 2]+''','''+Cells[7, 2]+''','''+Cells[8, 2]+''', ');
Sql.Add(''''+Cells[9, 2]+''','''+Cells[10,2]+''','''+Cells[11,2]+''','''+Cells[12,2]+''','''+Cells[0, 3]+''','''+Cells[1, 3]+''', ');
Sql.Add(''''+Cells[2, 3]+''','''+Cells[3, 3]+''','''+Cells[4, 3]+''','''+Cells[5, 3]+''','''+Cells[6, 3]+''','''+Cells[7, 3]+''', ');
Sql.Add(''''+Cells[8, 3]+''','''+Cells[9, 3]+''','''+Cells[10,3]+''','''+Cells[11,3]+''','''+Cells[12,3]+''','''+Cells[0, 4]+''', ');
Sql.Add(''''+Cells[1, 4]+''','''+Cells[2, 4]+''','''+Cells[3, 4]+''','''+Cells[4, 4]+''','''+Cells[5, 4]+''','''+Cells[6, 4]+''', ');
Sql.Add(''''+Cells[7, 4]+''','''+Cells[8, 4]+''','''+Cells[9, 4]+''','''+Cells[10,4]+''','''+Cells[11,4]+''','''+Cells[12,4]+''', ');
Sql.Add(''''+Cells[0, 5]+''','''+Cells[1, 5]+''','''+Cells[2, 5]+''','''+Cells[3, 5]+''','''+Cells[4, 5]+''','''+Cells[5, 5]+''', ');
Sql.Add(''''+Cells[6, 5]+''','''+Cells[7, 5]+''','''+Cells[8, 5]+''','''+Cells[9, 5]+''','''+Cells[10,5]+''','''+Cells[11,5]+''', ');
Sql.Add(''''+Cells[12,5]+''','''+Cells[0, 6]+''','''+Cells[1, 6]+''','''+Cells[2, 6]+''','''+Cells[3, 6]+''','''+Cells[4, 6]+''', ');
Sql.Add(''''+Cells[5, 6]+''','''+Cells[6, 6]+''','''+Cells[7, 6]+''','''+Cells[8, 6]+''','''+Cells[9, 6]+''','''+Cells[10,6]+''', ');
Sql.Add(''''+Cells[11,6]+''','''+Cells[12,6]+''','''+Cells[0, 7]+''','''+Cells[1, 7]+''','''+Cells[2, 7]+''','''+Cells[3, 7]+''', ');
Sql.Add(''''+Cells[4, 7]+''','''+Cells[5, 7]+''','''+Cells[6, 7]+''','''+Cells[7, 7]+''','''+Cells[8, 7]+''','''+Cells[9, 7]+''', ');
Sql.Add(''''+Cells[10,7]+''','''+Cells[11,7]+''','''+Cells[12,7]+''','''+Cells[0, 8]+''','''+Cells[1, 8]+''','''+Cells[2, 8]+''', ');
Sql.Add(''''+Cells[3, 8]+''','''+Cells[4, 8]+''','''+Cells[5, 8]+''','''+Cells[6, 8]+''','''+Cells[7, 8]+''','''+Cells[8, 8]+''', ');
Sql.Add(''''+Cells[9, 8]+''','''+Cells[10,8]+''','''+Cells[11,8]+''','''+Cells[12,8]+''','''+Cells[0, 9]+''','''+Cells[1, 9]+''', ');
Sql.Add(''''+Cells[2, 9]+''','''+Cells[3, 9]+''','''+Cells[4, 9]+''','''+Cells[5, 9]+''','''+Cells[6, 9]+''','''+Cells[7, 9]+''', ');
Sql.Add(''''+Cells[8, 9]+''','''+Cells[9, 9]+''','''+Cells[10,9]+''','''+Cells[11,9]+''','''+Cells[12,9]+''','''+Cells[0, 10]+''', ');
Sql.Add(''''+Cells[1, 10]+''','''+Cells[2, 10]+''','''+Cells[3, 10]+''','''+Cells[4, 10]+''','''+Cells[5, 10]+''','''+Cells[6, 10]+''',');
Sql.Add(''''+Cells[7, 10]+''','''+Cells[8, 10]+''','''+Cells[9, 10]+''','''+Cells[10,10]+''','''+Cells[11,10]+''','''+Cells[12,10]+''',');
Sql.Add(''''+Cells[0, 11]+''','''+Cells[1, 11]+''','''+Cells[2, 11]+''','''+Cells[3, 11]+''','''+Cells[4, 11]+''','''+Cells[5, 11]+''',');
Sql.Add(''''+Cells[6, 11]+''','''+Cells[7, 11]+''','''+Cells[8, 11]+''','''+Cells[9, 11]+''','''+Cells[10,11]+''','''+Cells[11,11]+''',');
Sql.Add(''''+Cells[12,11]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT31(PK,sg0012,sg0112,sg0212,sg0312,sg0412,sg0512,sg0612,sg0712,sg0812,sg0912,sg1012,sg1112,sg1212,sg0013,');
Sql.Add('sg0113,sg0213,sg0313,sg0413,sg0513,sg0613,sg0713,sg0813,sg0913,sg1013,sg1113,sg1213,sg0014,sg0114,sg0214,sg0314,sg0414, ');
Sql.Add('sg0514,sg0614,sg0714,sg0814,sg0914,sg1014,sg1114,sg1214,sg0015,sg0115,sg0215,sg0315,sg0415,sg0515,sg0615,sg0715,sg0815, ');
Sql.Add('sg0915,sg1015,sg1115,sg1215,sg0016,sg0116,sg0216,sg0316,sg0416,sg0516,sg0616,sg0716,sg0816,sg0916,sg1016,sg1116,sg1216, ');
Sql.Add('sg0017,sg0117,sg0217,sg0317,sg0417,sg0517,sg0617,sg0717,sg0817,sg0917,sg1017,sg1117,sg1217,sg0018,sg0118,sg0218,sg0318, ');
Sql.Add('sg0418,sg0518,sg0618,sg0718,sg0818,sg0918,sg1018,sg1118,sg1218,sg0019,sg0119,sg0219,sg0319,sg0419sg0519,sg0619,sg0719, ');
Sql.Add('sg0819,sg0919,sg1019,sg1119,sg1219,sg0020,sg0120,sg0220,sg0320,sg0420,sg0520,sg0620,sg0720,sg0820,sg0920,sg1020,sg1120, ');
Sql.Add('sg1220,sg0021,sg0121,sg0221,sg0321,sg0421,sg0521,sg0621,sg0721,sg0821,sg0921,sg1021,sg1121,sg1221 )');
Sql.Add('Values('''+ed_PK.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 12]+''','''+Cells[1, 12]+''','''+Cells[2, 12]+''','''+Cells[3, 12]+''','''+Cells[4, 12]+''', ');
Sql.Add(''''+Cells[5, 12]+''','''+Cells[6, 12]+''','''+Cells[7, 12]+''','''+Cells[8, 12]+''','''+Cells[9, 12]+''','''+Cells[10,12]+''', ');
Sql.Add(''''+Cells[11,12]+''','''+Cells[12,12]+''','''+Cells[0, 13]+''','''+Cells[1, 13]+''','''+Cells[2, 13]+''','''+Cells[3, 13]+''', ');
Sql.Add(''''+Cells[4, 13]+''','''+Cells[5, 13]+''','''+Cells[6, 13]+''','''+Cells[7, 13]+''','''+Cells[8, 13]+''','''+Cells[9, 13]+''', ');
Sql.Add(''''+Cells[10,13]+''','''+Cells[11,13]+''','''+Cells[12,13]+''','''+Cells[0, 14]+''','''+Cells[1, 14]+''','''+Cells[2, 14]+''', ');
Sql.Add(''''+Cells[3, 14]+''','''+Cells[4, 14]+''','''+Cells[5, 14]+''','''+Cells[6, 14]+''','''+Cells[7, 14]+''','''+Cells[8, 14]+''', ');
Sql.Add(''''+Cells[9, 14]+''','''+Cells[10,14]+''','''+Cells[11,14]+''','''+Cells[12,14]+''','''+Cells[0, 15]+''','''+Cells[1, 15]+''', ');
Sql.Add(''''+Cells[2, 15]+''','''+Cells[3, 15]+''','''+Cells[4, 15]+''','''+Cells[5, 15]+''','''+Cells[6, 15]+''','''+Cells[7, 15]+''', ');
Sql.Add(''''+Cells[8, 15]+''','''+Cells[9, 15]+''','''+Cells[10,15]+''','''+Cells[11,15]+''','''+Cells[12,15]+''','''+Cells[0, 16]+''', ');
Sql.Add(''''+Cells[1, 16]+''','''+Cells[2, 16]+''','''+Cells[3, 16]+''','''+Cells[4, 16]+''','''+Cells[5, 16]+''','''+Cells[6, 16]+''', ');
Sql.Add(''''+Cells[7, 16]+''','''+Cells[8, 16]+''','''+Cells[9, 16]+''','''+Cells[10,16]+''','''+Cells[11,16]+''','''+Cells[12,16]+''', ');
Sql.Add(''''+Cells[0, 17]+''','''+Cells[1, 17]+''','''+Cells[2, 17]+''','''+Cells[3, 17]+''','''+Cells[4, 17]+''','''+Cells[5, 17]+''', ');
Sql.Add(''''+Cells[6, 17]+''','''+Cells[7, 17]+''','''+Cells[8, 17]+''','''+Cells[9, 17]+''','''+Cells[10,17]+''','''+Cells[11,17]+''', ');
Sql.Add(''''+Cells[12,17]+''','''+Cells[0, 18]+''','''+Cells[1, 18]+''','''+Cells[2, 18]+''','''+Cells[3, 18]+''','''+Cells[4, 18]+''', ');
Sql.Add(''''+Cells[5, 18]+''','''+Cells[6, 18]+''','''+Cells[7, 18]+''','''+Cells[8, 18]+''','''+Cells[9, 18]+''','''+Cells[10,18]+''', ');
Sql.Add(''''+Cells[11,18]+''','''+Cells[12,18]+''','''+Cells[0, 19]+''','''+Cells[1, 19]+''','''+Cells[2, 19]+''','''+Cells[3, 19]+''', ');
Sql.Add(''''+Cells[4, 19]+''','''+Cells[5, 19]+''','''+Cells[6, 19]+''','''+Cells[7, 19]+''','''+Cells[8, 19]+''','''+Cells[9, 19]+''', ');
Sql.Add(''''+Cells[10,19]+''','''+Cells[11,19]+''','''+Cells[12,19]+''','''+Cells[0, 20]+''','''+Cells[1, 20]+''','''+Cells[2, 20]+''', ');
Sql.Add(''''+Cells[3, 20]+''','''+Cells[4, 20]+''','''+Cells[5, 20]+''','''+Cells[6, 20]+''','''+Cells[7, 20]+''','''+Cells[8, 20]+''', ');
Sql.Add(''''+Cells[9, 20]+''','''+Cells[10,20]+''','''+Cells[11,20]+''','''+Cells[12,20]+''','''+Cells[0, 21]+''','''+Cells[1, 21]+''', ');
Sql.Add(''''+Cells[2, 21]+''','''+Cells[3, 21]+''','''+Cells[4, 21]+''','''+Cells[5, 21]+''','''+Cells[6, 21]+''','''+Cells[7, 21]+''', ');
Sql.Add(''''+Cells[8, 21]+''','''+Cells[9, 21]+''','''+Cells[10,21]+''','''+Cells[11,21]+''','''+Cells[12,21]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
{ With Query1 do
begin
Close;
Sql.Clear;
Sql.Add('Insert Into TTT32(PK,sg0022,sg0122,sg0222,sg0322,sg0422,sg0522,sg0622,sg0722,sg0822,sg0922,sg1022,sg1122,sg1222,sg0023, ');
Sql.Add('sg0123,sg0223,sg0323,sg0423,sg0523,sg0623,sg0723,sg0823,sg0923,sg1023,sg1123,sg1223,sg0024,sg0124,sg0224,sg0324,sg0424,sg0524,');
Sql.Add('sg0624,sg0724,sg0824,sg0924,sg1024,sg1124,sg1224,sg0025sg0125,sg0225,sg0325,sg0425,sg0525,sg0625,sg0725,sg0825,sg0925,sg1025, ');
Sql.Add('sg1125,sg1225,sg0026,sg0126,sg0226,sg0326,sg0426,sg0526,sg0626,sg0726,sg0826,sg0926,sg1026,sg1126,sg1226,sg0027,sg0127,sg0227,');
Sql.Add('sg0327,sg0427,sg0527,sg0627,sg0727,sg0827,sg0927,sg1027,sg1127,sg1227,sg0028,sg0128,sg0228,sg0328,sg0428,sg0528,sg0628,sg0728,');
Sql.Add('sg0828,sg0928,sg1028,sg1128,sg1228,sg0029,sg0129,sg0229,sg0329,sg0429,sg0529,sg0629,sg0729,sg0829,sg0929,sg1029,sg1129,sg1229,');
Sql.Add('sg0030,sg0130,sg0230,sg0330,sg0430,sg0530,sg0630,sg0730,sg0830,sg0930,sg1030,sg1130,sg1230,sg0031,sg0131,sg0231,sg0331,sg0431,');
Sql.Add('sg0531,sg0631,sg0731,sg0831,sg0931,sg1031,sg1131,sg1231,sg0032,sg0132,sg0232,sg0332,sg0432,sg0532,sg0632,sg0732,sg0832,sg0932,');
Sql.Add('sg1032,sg1132,sg1232,sg0033,sg0133,sg0233,sg0333,sg0433,sg0533,sg0633,sg0733,sg0833,sg0933,sg1033,sg1133,sg1233,sg0034,sg0134,');
Sql.Add('sg0234,sg0334,sg0434,sg0534,sg0634,sg0734,sg0834,sg0934,sg1034,sg1134,sg1234,sg0035,sg0135,sg0235,sg0335,sg0435,sg0535,sg0635,');
Sql.Add('sg0735,sg0835,sg0935,sg1035,sg1135,sg1235,sg0036,sg0136,sg0236,sg0336,sg0436,sg0536,sg0636,sg0736,sg0836,sg0936,sg1036,sg1136,');
Sql.Add('sg1236,sg0037,sg0137,sg0237,sg0337,sg0437,sg0537,sg0637,sg0737,sg0837,sg0937,sg1037,sg1137,sg1237,sg0038,sg0138,sg0238,sg0338,');
Sql.Add('sg0438,sg0538,sg0638,sg0738,sg0838,sg0938,sg1038,sg1138,sg1238 )');
Sql.Add('Values('''+ed_PK.Text+''',');
With sg_List1 do
begin
Sql.Add(''''+Cells[0, 22]+''','''+Cells[1, 22]+''','''+Cells[2, 22]+''','''+Cells[3, 22]+''','''+Cells[4, 22]+''', ');
Sql.Add(''''+Cells[5, 22]+''','''+Cells[6, 22]+''','''+Cells[7, 22]+''','''+Cells[8, 22]+''','''+Cells[9, 22]+''','''+Cells[10,22]+''', ');
Sql.Add(''''+Cells[11,22]+''','''+Cells[12,22]+''','''+Cells[0, 23]+''','''+Cells[1, 23]+''','''+Cells[2, 23]+''','''+Cells[3, 23]+''', ');
Sql.Add(''''+Cells[4, 23]+''','''+Cells[5, 23]+''','''+Cells[6, 23]+''','''+Cells[7, 23]+''','''+Cells[8, 23]+''','''+Cells[9, 23]+''', ');
Sql.Add(''''+Cells[10,23]+''','''+Cells[11,23]+''','''+Cells[12,23]+''','''+Cells[0, 24]+''','''+Cells[1, 24]+''','''+Cells[2, 24]+''', ');
Sql.Add(''''+Cells[3, 24]+''','''+Cells[4, 24]+''','''+Cells[5, 24]+''','''+Cells[6, 24]+''','''+Cells[7, 24]+''','''+Cells[8, 24]+''', ');
Sql.Add(''''+Cells[9, 24]+''','''+Cells[10,24]+''','''+Cells[11,24]+''','''+Cells[12,24]+''','''+Cells[0, 25]+''','''+Cells[1, 25]+''', ');
Sql.Add(''''+Cells[2, 25]+''','''+Cells[3, 25]+''','''+Cells[4, 25]+''','''+Cells[5, 25]+''','''+Cells[6, 25]+''','''+Cells[7, 25]+''', ');
Sql.Add(''''+Cells[8, 25]+''','''+Cells[9, 25]+''','''+Cells[10,25]+''','''+Cells[11,25]+''','''+Cells[12,25]+''','''+Cells[0, 26]+''', ');
Sql.Add(''''+Cells[1, 26]+''','''+Cells[2, 26]+''','''+Cells[3, 26]+''','''+Cells[4, 26]+''','''+Cells[5, 26]+''','''+Cells[6, 26]+''', ');
Sql.Add(''''+Cells[7, 26]+''','''+Cells[8, 26]+''','''+Cells[9, 26]+''','''+Cells[10,26]+''','''+Cells[11,26]+''','''+Cells[12,26]+''', ');
Sql.Add(''''+Cells[0, 27]+''','''+Cells[1, 27]+''','''+Cells[2, 27]+''','''+Cells[3, 27]+''','''+Cells[4, 27]+''','''+Cells[5, 27]+''', ');
Sql.Add(''''+Cells[6, 27]+''','''+Cells[7, 27]+''','''+Cells[8, 27]+''','''+Cells[9, 27]+''','''+Cells[10,27]+''','''+Cells[11,27]+''', ');
Sql.Add(''''+Cells[12,27]+''','''+Cells[0, 28]+''','''+Cells[1, 28]+''','''+Cells[2, 28]+''','''+Cells[3, 28]+''','''+Cells[4, 28]+''', ');
Sql.Add(''''+Cells[5, 28]+''','''+Cells[6, 28]+''','''+Cells[7, 28]+''','''+Cells[8, 28]+''','''+Cells[9, 28]+''','''+Cells[10,28]+''', ');
Sql.Add(''''+Cells[11,28]+''','''+Cells[12,28]+''','''+Cells[0, 29]+''','''+Cells[1, 29]+''','''+Cells[2, 29]+''','''+Cells[3, 29]+''', ');
Sql.Add(''''+Cells[4, 29]+''','''+Cells[5, 29]+''','''+Cells[6, 29]+''','''+Cells[7, 29]+''','''+Cells[8, 29]+''','''+Cells[9, 29]+''', ');
Sql.Add(''''+Cells[10,29]+''','''+Cells[11,29]+''','''+Cells[12,29]+''','''+Cells[0, 30]+''','''+Cells[1, 30]+''','''+Cells[2, 30]+''', ');
Sql.Add(''''+Cells[3, 30]+''','''+Cells[4, 30]+''','''+Cells[5, 30]+''','''+Cells[6, 30]+''','''+Cells[7, 30]+''','''+Cells[8, 30]+''', ');
Sql.Add(''''+Cells[9, 30]+''','''+Cells[10,30]+''','''+Cells[11,30]+''','''+Cells[12,30]+''','''+Cells[0, 31]+''','''+Cells[1, 31]+''', ');
Sql.Add(''''+Cells[2, 31]+''','''+Cells[3, 31]+''','''+Cells[4, 31]+''','''+Cells[5, 31]+''','''+Cells[6, 31]+''','''+Cells[7, 31]+''', ');
Sql.Add(''''+Cells[8, 31]+''','''+Cells[9, 31]+''','''+Cells[10,31]+''','''+Cells[11,31]+''','''+Cells[12,31]+''','''+Cells[0, 32]+''', ');
Sql.Add(''''+Cells[1, 32]+''','''+Cells[2, 32]+''','''+Cells[3, 32]+''','''+Cells[4, 32]+''','''+Cells[5, 32]+''','''+Cells[6, 32]+''', ');
Sql.Add(''''+Cells[7, 32]+''','''+Cells[8, 32]+''','''+Cells[9, 32]+''','''+Cells[10,32]+''','''+Cells[11,32]+''','''+Cells[12,32]+''', ');
Sql.Add(''''+Cells[0, 33]+''','''+Cells[1, 33]+''','''+Cells[2, 33]+''','''+Cells[3, 33]+''','''+Cells[4, 33]+''','''+Cells[5, 33]+''', ');
Sql.Add(''''+Cells[6, 33]+''','''+Cells[7, 33]+''','''+Cells[8, 33]+''','''+Cells[9, 33]+''','''+Cells[10,33]+''','''+Cells[11,33]+''', ');
Sql.Add(''''+Cells[12,33]+''','''+Cells[0, 34]+''','''+Cells[1, 34]+''','''+Cells[2, 34]+''','''+Cells[3, 34]+''','''+Cells[4, 34]+''', ');
Sql.Add(''''+Cells[5, 34]+''','''+Cells[6, 34]+''','''+Cells[7, 34]+''','''+Cells[8, 34]+''','''+Cells[9, 34]+''','''+Cells[10,34]+''', ');
Sql.Add(''''+Cells[11,34]+''','''+Cells[12,34]+''','''+Cells[0, 35]+''','''+Cells[1, 35]+''','''+Cells[2, 35]+''','''+Cells[3, 35]+''', ');
Sql.Add(''''+Cells[4, 35]+''','''+Cells[5, 35]+''','''+Cells[6, 35]+''','''+Cells[7, 35]+''','''+Cells[8, 35]+''','''+Cells[9, 35]+''', ');
Sql.Add(''''+Cells[10,35]+''','''+Cells[11,35]+''','''+Cells[12,35]+''','''+Cells[0, 36]+''','''+Cells[1, 36]+''','''+Cells[2, 36]+''', ');
Sql.Add(''''+Cells[3, 36]+''','''+Cells[4, 36]+''','''+Cells[5, 36]+''','''+Cells[6, 36]+''','''+Cells[7, 36]+''','''+Cells[8, 36]+''', ');
Sql.Add(''''+Cells[9, 36]+''','''+Cells[10,36]+''','''+Cells[11,36]+''','''+Cells[12,36]+''','''+Cells[0, 37]+''','''+Cells[1, 37]+''', ');
Sql.Add(''''+Cells[2, 37]+''','''+Cells[3, 37]+''','''+Cells[4, 37]+''','''+Cells[5, 37]+''','''+Cells[6, 37]+''','''+Cells[7, 37]+''', ');
Sql.Add(''''+Cells[8, 37]+''','''+Cells[9, 37]+''','''+Cells[10,37]+''','''+Cells[11,37]+''','''+Cells[12,37]+''','''+Cells[0, 38]+''', ');
Sql.Add(''''+Cells[1, 38]+''','''+Cells[2, 38]+''','''+Cells[3, 38]+''','''+Cells[4, 38]+''','''+Cells[5, 38]+''','''+Cells[6, 38]+''', ');
Sql.Add(''''+Cells[7, 38]+''','''+Cells[8, 38]+''','''+Cells[9, 38]+''','''+Cells[10,38]+''','''+Cells[11,38]+''','''+Cells[12,38]+''' )');
Memo.Lines.Add(Sql.Text);
end;
ExecSql;
end;
AllQuery1;
Application.MessageBox(MsgInputYes, '등록', mb_OK+mb_ICONINFORMATION);
EXCEPT ON E:EDBEngineError do
begin
MyDBError := E.Errors[1]; Application.MessageBoxPCharMyDBError.message),MsgInputError,mb_OK+mb_DefButton1);
exit;
end;
end;
end;
end;
//소스 복사를 했는데 복잡하여 죄송합니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 양용민
- 2000.12.08 03:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 강국일
- 2000.12.08 03:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이사랑
- •
- 2000.12.08 03:22
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.08 20:05델코에 답을 올렸습니다. 델코로 가보세요. 델파이사랑 wrote: > > 안녕하세요..전 충북대 다니는 ...
-
- 임상일
- 2000.12.08 02:48
- 0 COMMENTS
- /
- 0 LIKES
-
-
최은석•2000.12.08 02:50다이머컴포넌트를 사용하세요 타이머컴포넌트의 interval 을 1000 으로 놓고 OnTimer 이벤트에서 처리해...
-
-
- 델이랑파이랑
- •
- 2000.12.08 02:37
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.12.08 03:08델이랑파이랑 wrote: > 스트링그리드에서 특정 셀-아래소스에서 cells[5,row]의 값(숫자)이 마이너스일때...
-
- 초보대와
- 2000.12.08 02:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 석이
- •
- 2000.12.08 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.08 20:09그냥 테이블에서 입력하는 것과 같이 입력하셔도 됩니다... adoquery1.append; adoquery1.fieldbyname('f...
-
석이•2000.12.09 01:49그런 방법이 있었네요 !... 답변 정말 감사합니다. 그런데, 속도나 효율성에서도 괜찮은 지도 좀 궁금...
-
- 이문환
- •
- 2000.12.08 02:12
- 1 COMMENTS
- /
- 0 LIKES
procedure TF_tax3.Btn_SAVEClick(Sender: TObject); Var MyDBError: TDBError; i : Integer; begin if MaskEdit1.Text = '' then begin Application.MessageBox('필수항목인 월분란을 입력하십시요.', '알림', mb_OK+mb_ICONINFORMATION)...-
이영범•2001.02.07 02:27델파이 개발자 홈에 들어 와서 제가 올린 질문과 똑같은 질문을 하신걸 보았습니다. 그런데 답변이 없어서 ...
-
- 이창영
- •
- 2000.12.08 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2000.12.08 02:09TPrinter 를 사용해서 출력되는 위치를 지정해주면 됩니다요..... 이창영 wrote: > form1.print > ...
-
- 어린왕자
- •
- 2000.12.08 01:49
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.12.08 02:03어린왕자 wrote: > 안녕하세요..영원한 델초보 어린왕자입니다. > MDB 파일을 ADODataSet를 쿼리를 떤져 ...
-
- 초보대와
- 2000.12.08 01:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.12.08 01:36
- 2 COMMENTS
- /
- 0 LIKES
-
원령왕자•2000.12.08 01:46프로젝트 옵션에서 런타임팩키지를 빼고 컴파일을 하면 파일크기가 줄어듭니다... 실행할때 필요한 파...
-
최은석•2000.12.08 01:42컴파일할때 용량이 작게하려면.....실행파일이 디버깅정보를 가지고있지 않게하면되요...컴파일 옵션에서 ...
-
- 원령왕자
- 2000.12.08 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 서충희
- 2000.12.08 01:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이파이
- •
- 2000.12.08 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.12.08 03:10파이파이 wrote: > 질문 > 파일 이름 바꾸는 방법좀 부탁드립니다. > 안녕하세요. 까마귀입니...
-
-
- 성병규
- •
- 2000.12.08 00:46
- 1 COMMENTS
- /
- 0 LIKES
-
성병규•2000.12.09 03:40이벤트가 있었네요..지송합니다.^^. 데이타 받는부분등의 이벤트정보가 없어서리..없다고 생각만했더니.....
-
- 김범수
- 2000.12.08 00:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 히떼꾸리
- 2000.12.08 00:18
- 0 COMMENTS
- /
- 0 LIKES
대해서 해결을 하셨는지 궁금해서 멜 보냅니다..
해결하셨다면 게시판에 기재 좀 해 주십시오..