📄 car~1.~pa
字号:
if Trim(Edit13.Text)='- -' then
begin
Application.MessageBox('操作错误，［登记日期］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
Edit13.SetFocus;
Exit;
end;
if Trim(Edit14.Text)='- -' then
begin
Application.MessageBox('操作错误，［发证日期］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
Edit14.SetFocus;
Exit;
end;
if Trim(Edit10.Text)='- -' then
begin
Application.MessageBox('操作错误，［总质量］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
Edit10.SetFocus;
Exit;
end;
if Application.MessageBox('确定需要修改该车辆的信息吗？请确认！','［GPS定位车辆管理系统］,'mb_okcancel)=idok then
begin
with frm_data.ADOQuery_Car do
begin
Close;
Sql.Clear;
Sql.Add('Update [Car] set C_NO=:u1,C_ID=:u2,C_Telphon=:u3,Man=:u4,Address=:u5,Type=:u6,Facaty_type=:u7,Fdjh=:u8,Cjh=:u9,Total_mm=:u10,H_mm=:u11,H_Man=:u12,Q_Man=:u13,D_Date=:u14,F_Date=:u15,Drive_ID=:u16 where Id=:u16');
frm_data.ADOQuery_Car.Parameters[0].Value:=Trim(Edit1.Text);
frm_data.ADOQuery_Car.Parameters[1].Value:=Trim(Edit2.Text);
frm_data.ADOQuery_Car.Parameters[2].Value:=Trim(Edit3.Text);
frm_data.ADOQuery_Car.Parameters[3].Value:=Trim(Edit4.Text);
frm_data.ADOQuery_Car.Parameters[4].Value:=Trim(Edit5.Text);
frm_data.ADOQuery_Car.Parameters[5].Value:=Trim(Edit6.Text);
frm_data.ADOQuery_Car.Parameters[6].Value:=Trim(Edit7.Text);
frm_data.ADOQuery_Car.Parameters[7].Value:=Trim(Edit8.Text);
frm_data.ADOQuery_Car.Parameters[8].Value:=Trim(Edit9.Text);
frm_data.ADOQuery_Car.Parameters[9].Value:=Trim(Edit10.Text);
frm_data.ADOQuery_Car.Parameters[10].Value:=Trim(Edit11.Text);
frm_data.ADOQuery_Car.Parameters[11].Value:=Trim(Edit12.Text);
frm_data.ADOQuery_Car.Parameters[12].Value:=Trim(Edit13.Text);
frm_data.ADOQuery_Car.Parameters[13].Value:=Trim(Edit14.Text);
frm_data.ADOQuery_Car.Parameters[14].Value:=Trim(Edit15.Text);
frm_data.ADOQuery_Car.Parameters[15].Value:=Trim(Edit16.Text);
frm_data.ADOQuery_Car.Parameters[16].Value:=Trim(Edit_ID.Text);
Prepared;
ExecSql;
Application.MessageBox('车辆信息录入［确定］操作成功，请确认！','［GPS定位车辆管理系统］,'mb_ok);
Cmd_RushClick(Sender);
Cmd_CJClick(Sender);
end;
end;
end;
procedure Tfrm_Car.Cmd_CJClick(Sender: TObject);
var
tempComp:String;
begin
f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\DWXX.ini');
tempComp:=f.ReadString('NetSetting','GSMC','');
f.Free;
TreeView1.Items.Clear;
with TreeView1.Items do
begin
Node1:=Add(nil,tempComp);
Node1.ImageIndex:=0;
with frm_Data.ADOQuery2 do
begin
Close;
Sql.Clear;
Sql.Add('select distinct Type from [Type]');
Prepared;
Open;
First;
While Not Eof do
begin
NodeText1:=frm_Data.ADOQuery2.FieldByname('Type').AsString;
TType:=frm_Data.ADOQuery2.FieldByname('Type').AsString;
Node2:=AddChild(Node1,NodeText1);
Node2.ImageIndex:=1;
with frm_Data.ADOQuery3 do
begin
Close;
Sql.Clear;
Sql.Add('select distinct C_ID from [Car] where Type='''+TType+'''');
Prepared;
Open;
First;
While Not Eof do
begin
if TType=frm_Data.ADOQuery2.FieldByname('Type').AsString then
begin
NodeText2:=frm_Data.ADOQuery3.FieldByname('C_ID').AsString;
TNo:=frm_Data.ADOQuery3.FieldByname('C_ID').AsString;
Node3:=AddChild(Node2,NodeText2);
Node3.ImageIndex:=2;
end;
Next;
end;
end;
Next;
end;
end;
end;
frm_Data.ADOQuery3.Close;
frm_Data.ADOQuery2.Close;
end;
procedure Tfrm_Car.FormCreate(Sender: TObject);
begin
Cmd_CJ.Click;
end;
procedure Tfrm_Car.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Selected.Level<>0 then
begin
if TreeView1.Selected.Level=1 then
begin
Edit6.Text:=Treeview1.Selected.Text;
with frm_data.ADOQuery_Car do
begin
Close;
Sql.Clear;
Sql.Add('Select * from [Car] where Type='''+Trim(Edit6.Text)+'''');
Prepared;
Open;
if frm_data.ADOQuery_Car.RecordCount>0 then
begin
First;
Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('D_Date').AsDateTime);
Edit15.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('F_Date').AsDateTime);
Edit_ID.Text:=frm_data.ADOQuery_Car.FieldByName('ID').AsString;
end
else
begin
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:='';Edit4.Text:='';
Edit5.Text:=''; {Edit6.Text:='';} Edit7.Text:='';Edit8.Text:='';
Edit9.Text:=''; Edit10.Text:='';Edit11.Text:='';Edit12.Text:='';
Edit13.Text:=''; Edit14.Text:='';Edit15.Text:='';Edit_ID.Text:='';
Image1.Picture:=Nil;
end;
end;
end;
if TreeView1.Selected.Level=2 then
begin
Edit2.Text:=Treeview1.Selected.Text;
Edit6.Text:=Treeview1.Selected.Parent.Text;
with frm_data.ADOQuery_Car do
begin
Close;
Sql.Clear;
Sql.Add('Select * from [Car] where Type='''+Trim(Edit6.Text)+''' and C_ID='''+Trim(Edit2.Text)+'''');
Prepared;
Open;
Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('D_Date').AsDateTime);
Edit15.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('F_Date').AsDateTime);
Edit_ID.Text:=frm_data.ADOQuery_Car.FieldByName('ID').AsString;
end;
end;
end;
end;
procedure Tfrm_Car.FormShow(Sender: TObject);
begin
Edit6.Clear;
with frm_data.ADOQuery_Type do
begin
Close;
Sql.Clear;
Sql.Add('Select Distinct Type from [Type]');
Prepared;
Open;
while not eof do
begin
Edit6.Items.Add(frm_data.ADOQuery_Type.FieldByName('Type').AsString);
Next;
end;
end;
Cmd_RushClick(Sender);
end;
procedure Tfrm_Car.Button1Click(Sender: TObject);
begin
with frm_data.ADOQuery2 do
begin
Close;
Sql.Clear;
Sql.Add('select * from [photo] where C_no='''+Trim(Edit1.Text)+'''');
Open;
showmessage(frm_data.ADOQuery2.FieldByName('photo').AsString);
end;
end;
procedure Tfrm_Car.DBGrid1CellClick(Column: TColumn);
begin
inherited;
Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('D_Date').AsDateTime);
Edit15.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ADOQuery_Car.FieldByName('F_Date').AsDateTime);
Edit_ID.Text:=frm_data.ADOQuery_Car.FieldByName('ID').AsString;
image1.Picture:=Nil;
with frm_data.ADOQuery_Photo do
begin
Close;
SQL.Clear;
SQL.Add('select photo from [photo] where C_no=:C_no');
frm_data.ADOQuery_Photo.Parameters[0].Value:=trim(edit1.Text);
frm_data.ADOQuery_Photo.open;
if frm_data.ADOQuery_Photo.RecordCount>0 then
try
tempstream:=TStringStream.Create('');
TBlobField(frm_data.ADOQuery_Photo.FieldByName('photo')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
Image1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end
else
begin
Image1.Picture:=Nil;
end;
end;
end;
procedure Tfrm_Car.Cmd_ReportClick(Sender: TObject);
begin
inherited;
frm_Car_Report:=Tfrm_Car_Report.Create(self);
frm_Car_Report.ShowModal;
frm_Car_Report.Free;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -