📄 car~1.~pa
字号:
unit Car;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, DBCtrls, Buttons, ToolWin, StdCtrls, ImgList,
Mask, Grids, Jpeg, ExtDlgs,DB,ChildFrm, IniFiles,
DBGrids;
type
Tfrm_Car = class(TChildForm)//class(TForm)
P1: TPanel;
Panel3: TPanel;
Splitter1: TSplitter;
TreeView1: TTreeView;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
ToolBar2: TToolBar;
Cmd_Add: TSpeedButton;
Cmd_Delete: TSpeedButton;
Cmd_Edit: TSpeedButton;
Cmd_Save: TSpeedButton;
Cmd_Next: TDBNavigator;
Cmd_Rush: TSpeedButton;
Panel8: TPanel;
Edit2: TLabeledEdit;
Edit1: TLabeledEdit;
Edit3: TLabeledEdit;
Edit5: TLabeledEdit;
Edit4: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
Edit8: TLabeledEdit;
Edit10: TLabeledEdit;
Edit12: TLabeledEdit;
LabeledEdit13: TLabeledEdit;
Edit9: TLabeledEdit;
Edit11: TLabeledEdit;
Edit13: TLabeledEdit;
LabeledEdit14: TLabeledEdit;
Panel9: TPanel;
ImageList1: TImageList;
Image1: TImage;
Edit6: TComboBox;
Edit14: TMaskEdit;
Edit15: TMaskEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Splitter2: TSplitter;
OpenPictureDialog1: TOpenPictureDialog;
Edit7: TLabeledEdit;
Edit_ID: TEdit;
Cmd_CJ: TSpeedButton;
Pa1: TPanel;
DBGrid1: TDBGrid;
Edit16: TLabeledEdit;
Cmd_Report: TSpeedButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Cmd_AddClick(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure DateTimePicker2Change(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure Cmd_RushClick(Sender: TObject);
procedure Cmd_SaveClick(Sender: TObject);
procedure Cmd_DeleteClick(Sender: TObject);
procedure Cmd_EditClick(Sender: TObject);
procedure Cmd_CJClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure Cmd_ReportClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_Car: Tfrm_Car;
MyJPEG : TJPEGImage;
fl:TFileStream;
tempstream:TStringStream;
tempjpeg:TJPEGImage;
Node1,Node2,Node3:TTreeNode;
NodeText1,NodeText2,NodeText3:String;
TType,TNo:String;
PictureName,ExtName:string;
f:TIniFile;
implementation
uses Data, Car_Report;
{$R *.dfm}
procedure Tfrm_Car.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;
procedure Tfrm_Car.Cmd_AddClick(Sender: TObject);
begin
Cmd_Add.Enabled:=False;
Cmd_Delete.Enabled:=False;
Cmd_Edit.Enabled:=False;
Cmd_Save.Enabled:=True;
Cmd_Rush.Caption:='取消';
Image1.Picture:=Nil;
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:='';Edit4.Text:='';
Edit5.Text:=''; Edit7.Text:='';Edit8.Text:='';
Edit9.Text:=''; Edit10.Text:='';Edit11.Text:='';Edit12.Text:='';
Edit13.Text:=''; Edit14.Text:='';Edit15.Text:=''; Edit16.Text:='';
Edit_ID.Text:='';
end;
procedure Tfrm_Car.DateTimePicker1Change(Sender: TObject);
begin
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker1.Time);
end;
procedure Tfrm_Car.DateTimePicker2Change(Sender: TObject);
begin
Edit15.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker2.DateTime);
end;
procedure Tfrm_Car.Image1DblClick(Sender: TObject);
begin
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('操作错误，［车辆编号］不能为空，请确认！','［GPS定位车辆管理系统］,'mb_ok);
Edit1.SetFocus;
Exit;
end;
with frm_Data.ADOQuery_Photo do
begin
Close;
Sql.Clear;
Sql.Add('Select * from [Photo] where C_No='''+Trim(Edit1.Text)+'''');
Prepared;
Open;
if frm_Data.ADOQuery_Photo.RecordCount>0 then
begin
if Application.MessageBox('该职员的照片已经被保存了，确定需要修改照片吗？请确认！','［GPS定位车辆管理系统］',mb_okcancel)=idok then
begin
with frm_Data.ADOQuery_Photo do
begin
Close;
Sql.Clear;
Sql.Add('delete [photo] where C_NO='''+Trim(Edit1.Text)+'''');
Prepared;
ExecSql;
//保存图片
openpicturedialog1.Execute;
if openpicturedialog1.FileName<>'' then
begin
image1.Picture.LoadFromFile(Openpicturedialog1.FileName);
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image1.Picture.Graphic);
fl:=TFileStream.Create(openpicturedialog1.FileName,fmOpenRead);
with frm_data.ADOQuery_Photo do
begin
Sql.Clear;
Sql.Add('insert into [Photo] (C_No,Photo) values(:e,:p)');
Parameters[0].Value:=trim(edit1.Text);
Parameters[1].LoadFromStream(fl,ftBlob);
Prepared;
ExecSql;
messagebox(getactivewindow(),'照片修改保存完毕！','［GPS定位车辆管理系统］',mb_ok);
image1.Picture.CleanupInstance;
end;
fl.Free;
end;
finally
MyJPEG.Free;
end;
end;
end;
end;
end
else
begin
//保存图片
openpicturedialog1.Execute;
if openpicturedialog1.FileName<>'' then
begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image1.Picture.Graphic);
fl:=TFileStream.Create(openpicturedialog1.FileName,fmOpenRead);
with frm_data.ADOQuery1 do
begin
Sql.Clear;
Sql.Add('insert into [Photo] (C_No,Photo) values(:e,:p)');
frm_data.ADOQuery1.Parameters[0].Value:=trim(edit1.Text);
frm_data.ADOQuery1.Parameters[1].LoadFromStream(fl,ftBlob);
Prepared;
ExecSql;
messagebox(getactivewindow(),'照片加载保存完毕！','［GPS定位车辆管理系统］',mb_ok);
image1.Picture.CleanupInstance;
end;
fl.Free;
end;
finally
MyJPEG.Free;
end;
end;
end;
end;
end;
procedure Tfrm_Car.Cmd_RushClick(Sender: TObject);
begin
if Cmd_Rush.Caption='取消' then
begin
Cmd_Add.Enabled:=True;
Cmd_Delete.Enabled:=True;
Cmd_Edit.Enabled:=True;
Cmd_Save.Enabled:=False;
Cmd_Rush.Caption:='刷新';
with frm_data.ADOQuery_Car do
begin
Close;
sql.Clear;
Sql.Add('Select * from [Car]');
Prepared;
Open;
if frm_data.ADOQuery_Car.RecordCount>0 then
begin
Last;
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);
Edit16.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
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:=''; Edit16.Text:='';
Edit_ID.Text:='';
Image1.Picture:=Nil;
end;
end;
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);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -