?? ufrmchild.pas
字號:
iNO := iNO + 1;
mo.Lines.Add( ' 導(dǎo)入失敗(未知原因) >< '+ss );
qryA.Next;
continue;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~}
//導(dǎo)入信息
//== 基本信息 ==
sID := FieldByName('id').AsString;//本地的ID主鍵
sChildID := GetKeyID(FieldByName('childType').AsInteger , FieldByName('stationId').AsString);//生成兒童ID
qryInsert.ParamByName('id' ).AsString := sChildID;//兒童ID
qryInsert.ParamByName('stationId').AsString := FieldByName('stationId').AsString;
qryInsert.ParamByName('name' ).AsString := sName;
qryInsert.ParamByName('sex' ).AsInteger := FieldByName('sex').AsInteger;
qryInsert.ParamByName('birth' ).AsDateTime := FieldByName('birth').AsDateTime;
qryInsert.ParamByName('hkAddress').AsString := FieldByName('hkAddress').AsString;
qryInsert.ParamByName('state' ).AsInteger := FieldByName('state').AsInteger ;
qryInsert.ParamByName('father' ).AsString := sFather;
qryInsert.ParamByName('mather' ).AsString := sMather;
qryInsert.ParamByName('childType').AsInteger := FieldByName('childType').AsInteger;
qryInsert.ParamByName('buildDate').AsDateTime := FieldByName('buildDate').AsDateTime;
qryInsert.ParamByName('telephone').AsString := FieldByName('telephone').AsString;
qryInsert.ParamByName('handphone').AsString := FieldByName('handphone').AsString;
qryInsert.ParamByName('address' ).AsString := FieldByName('address').AsString;
qryInsert.ParamByName('HomeIllS' ).AsString := FieldByName('HomeIllS').AsString;
//== 補充信息 ==
qryInsert.ParamByName('birthPaperId').AsString := FieldByName('birthPaperId').AsString;
qryInsert.ParamByName('cfwork' ).AsString := FieldByName('cfwork').AsString;
qryInsert.ParamByName('cmwork' ).AsString := FieldByName('cmwork').AsString;
qryInsert.ParamByName('email' ).AsString := FieldByName('email').AsString;
qryInsert.ParamByName('change_address').AsString := FieldByName('change_address').AsString;
qryInsert.ParamByName('changeDate').AsDateTime := FieldByName('changeDate').AsDateTime;
qryInsert.ParamByName('changeType').AsInteger := FieldByName('changeType').AsInteger;
qryInsert.ParamByName('GuoMinS' ).AsString := FieldByName('GuoMinS').AsString;
qryInsert.ParamByName('c_mark' ).AsString := FieldByName('c_mark').AsString;
//Childill 暫時無用
qryInsert.ParamByName('Childill' ).AsString := '0';
qryInsert.ParamByName('cardid' ).AsString := '';
qryInsert.ParamByName('password' ).AsString := '';
qryInsert.ParamByName('cardstate' ).AsString := '0';
//~~~~~~~~~~~~~~~~~~~~~~~~~~~
try
//執(zhí)行導(dǎo)入
qryInsert.ExecSQL;
iOK := iOK + 1;
except
//導(dǎo)入失敗
iNO := iNO + 1;
mo.Lines.Add( ' 導(dǎo)入失敗(插入出錯) >< '+ss );
qryInsert.Next;
continue;
end;
//導(dǎo)入成功
mo.Lines.Add( ' 導(dǎo)入成功 -> '+ss );
//導(dǎo)入接種記錄
InsertInoculate(sID,sChildID);
//==========================================================================
//adoQry.Next;
qryA.Next;
end;// while not adoQry.Eof do
end;// with adoQry do
ss := ' 兒童信息導(dǎo)入完畢！( 成功: '+IntToStr(iOK)+' 條, 失敗: '+IntToStr(iNO)+' 條 )';
mo.Lines.Add( ' -------------------------------------------------------------- ' );
mo.Lines.Add( ' 結(jié)束時間: '+ DateTimeToStr( Now() ) );
mo.Lines.Add( ss );
//保存歷史記錄
spath := ExtractFilePath(application.ExeName);
sfile := FormatDateTime('yyyy-mm-dd hh-mm-ss',Now());
sfile := sfile + '.txt';
mo.Lines.SaveToFile(spath + sfile);
//showMessage( ss );
MessageBox( self.Handle,PChar(ss),' 提示 ',0 );
end;
//校驗總庫中的兒童信息是否已經(jīng)存在,0=不存在,1=查詢出錯,2=存在
function TfrmChild.CheckChildInfo(sName,sBirth,sMather,sFather,iSex: String):integer;
begin
with checkInfo do
begin
Close;
ParamByName('name').AsString := sName;
ParamByName('birth').AsString := sBirth;
ParamByName('mather').AsString := sMather;
ParamByName('father').AsString := sFather;
ParamByName('sex').AsString := iSex;
try
Open;
except
CheckChildInfo := 1;
exit;
end;
if IsEmpty = false then
begin
CheckChildInfo := 2;
exit;
end;
CheckChildInfo := 0;
end;
end;
function TfrmChild.GetKeyID( ichildType : integer ; sStationID : string):string;
var
ss,sid : string;
begin
//生成主鍵
try
GetKey.Close;
GetKey.ParamByName('c_table').AsString := 'cd';
GetKey.Open;
//主鍵規(guī)則 1=常住,2=流動
//站點號(6位)+類型(1位)+年(2位)+數(shù)字號(6位)
//sStationID := StationID[ cbxStation.ItemIndex ];
//ss := Copy(sStationID,1,6)+IntToStr(ichildType);//截取站點編號
ss := Copy( sStationID,1,6 )+IntToStr(ichildType);//截取站點編號
ss := ss + Copy( DateToStr( Date() ) , 3, 2); //加年
sid := GetKey.FieldByName('l_id').AsString ; //獲得數(shù)字
ss := ss + Copy('000000',1,6-length(sid))+sid;//組織編號
GetKeyID := ss;
KeyAdd.Close;
KeyAdd.ParamByName('c_table').AsString := 'cd';
KeyAdd.ExecSQL;
//mo.Lines.Add( GetKey.FieldByName('c_table').AsString );
//mo.Lines.Add( GetKey.FieldByName('l_id').AsString );
//mo.Lines.Add( GetKey.FieldByName('tableName').AsString );
except
GetKeyID := '';
exit;
end;
end;
function TfrmChild.InsertInoculate(sID,sChildID: String):integer;
var
sBacterinId,ss : string;
sBacterinName,sInoculateDate : string;
inum : integer;
dInoculateDate:TDateTime;
begin
sID := Trim(sID);
sChildID := Trim(sChildID);
with qryInoculateSel do
begin
close;
ParamByName('ChildId').AsString := sID;
try
open;
except
exit;
end;
inum := 0;
while not eof do
begin
dInoculateDate := qryInoculateSel.FieldByName('InoculateDate').AsDateTime;
sBacterinId := qryInoculateSel.FieldByName('BacterinId').AsString;
sBacterinName := qryInoculateSel.FieldByName('BacterinInfo').AsString;
sInoculateDate:= qryInoculateSel.FieldByName('InoculateDate').AsString;
ss := sBacterinName+' , 接種日期： '+sInoculateDate;
//不必校驗，因為兒童的編號每次都是新的，所以只校驗兒童就行了
//校驗總庫中的兒童接種記錄是否已經(jīng)存在,0=不存在,1=查詢出錯,2=存在
//if CheckInoculateInfo(sChildID,sBacterinId) = 0 then
//校驗總庫中的兒童應(yīng)種信息是否已經(jīng)存在,0=不存在,1=查詢出錯,2=存在
//if CheckShouldInfo(sChildID,sBacterinId) = 0 then
//導(dǎo)入接種記錄
{
id, stationId, childId, bacterinId, bacterinInfo, inoculateHuman,
inoculateDate, inoculateAddress, medicineCode, remark, typeId,
batchCode, madeArea, isNation, price, other, iflag
}
adoInoculateAdd.Close;
adoInoculateAdd.Parameters.ParamByName('id').Value := GetMainKey('il');
adoInoculateAdd.Parameters.ParamByName('ChildId').Value := sChildID;
adoInoculateAdd.Parameters.ParamByName('BacterinId').Value := sBacterinId;
adoInoculateAdd.Parameters.ParamByName('InoculateHuman').Value := adoInoculateSel.FieldByName('InoculateHuman').AsString;
adoInoculateAdd.Parameters.ParamByName('InoculateDate').Value := dInoculateDate;
adoInoculateAdd.Parameters.ParamByName('Remark').Value := adoInoculateSel.FieldByName('Remark').AsString;
adoInoculateAdd.Parameters.ParamByName('InoculateAddress').Value := frmMain.sStrtionID;
adoInoculateAdd.Parameters.ParamByName('stationId').Value := sStationID;//frmMain.sStrtionID;
//疫苗類別，1=計劃內(nèi)，2=計劃外
adoInoculateAdd.Parameters.ParamByName('typeId').Value := '1';
try
adoInoculateAdd.ExecSQL;
except
mo.Lines.Add( ' -- 接種記錄導(dǎo)入失敗 >< ' + ss );
next;
continue;
end;
mo.Lines.Add( ' -- 接種記錄導(dǎo)入成功 -> ' + ss );
//========================================================================
//導(dǎo)入應(yīng)種記錄
{
id, childId, BacterinId, shouldDate, isInoculate,
stationId, inoculateDate, willDate, typeId
}
adoShouldJZAdd.Close;
adoShouldJZAdd.Parameters.ParamByName('id' ).Value := GetMainKey('sd');
adoShouldJZAdd.Parameters.ParamByName('childId' ).Value := sChildID;
adoShouldJZAdd.Parameters.ParamByName('BacterinId' ).Value := sBacterinId;//adoInoculateSel.FieldByName('BacterinId').AsString;
adoShouldJZAdd.Parameters.ParamByName('shouldDate' ).Value := dInoculateDate;//adoInoculateSel.FieldByName('InoculateDate').AsDateTime;
adoShouldJZAdd.Parameters.ParamByName('stationId' ).Value := sStationID;//frmMain.sStrtionID;;
adoShouldJZAdd.Parameters.ParamByName('inoculateDate' ).Value := dInoculateDate;//adoInoculateSel.FieldByName('InoculateDate').AsDateTime;
adoShouldJZAdd.Parameters.ParamByName('willDate' ).Value := dInoculateDate;
//疫苗類別，1=計劃內(nèi)，2=計劃外
adoShouldJZAdd.Parameters.ParamByName('typeId' ).Value := '1';
try
adoShouldJZAdd.ExecSQL;
except
mo.Lines.Add( ' -- 應(yīng)種記錄導(dǎo)入失敗 >< ' + ss );
next;
continue;
end;
//mo.Lines.Add( ' -- 應(yīng)種記錄導(dǎo)入成功 -> ' + ss );
//========================================================================
inum := inum+1;
next;
end;
mo.Lines.Add( ' == 成功導(dǎo)入接種記錄數(shù)： ' + IntToStr(inum) );
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -