📄 car_bad.~pas
字号:
unit Car_Bad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, ToolWin, ComCtrls, Buttons
,ChildFrm, XPMenu;
type
Tfrm_Car_Bad = class(TChildForm)//class(TForm)
Panel3: TPanel;
Label2: TLabel;
Panel1: TPanel;
GroupBox1: TGroupBox;
Cmd_Select_Card: TSpeedButton;
Cmd_Select_Driver: TSpeedButton;
Cmd_Mond: TSpeedButton;
Edit1: TLabeledEdit;
Edit7: TLabeledEdit;
Edit3: TLabeledEdit;
Edit4: TLabeledEdit;
Edit10: TLabeledEdit;
Edit12: TLabeledEdit;
Edit8: TLabeledEdit;
Edit2: TLabeledEdit;
Edit6: TLabeledEdit;
Edit13: TLabeledEdit;
Edit14: TLabeledEdit;
Edit9: TLabeledEdit;
Edit11: TLabeledEdit;
Edit5: TLabeledEdit;
DateTimePicker1: TDateTimePicker;
ToolBar1: TToolBar;
Cmd_Add: TSpeedButton;
Cmd_Delete: TSpeedButton;
Cmd_Edit: TSpeedButton;
Cmd_Save: TSpeedButton;
Cmd_Rush: TSpeedButton;
Cmd_Update: TSpeedButton;
Cmd_Beforeupdate: TSpeedButton;
Cmd_Report: TSpeedButton;
Edit_ID: TEdit;
DBGrid1: TDBGrid;
Edit15: TMemo;
Label1: TLabel;
XPMenu1: TXPMenu;
procedure Cmd_AddClick(Sender: TObject);
procedure Cmd_RushClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure Cmd_SaveClick(Sender: TObject);
procedure Cmd_UpdateClick(Sender: TObject);
procedure Cmd_BeforeupdateClick(Sender: TObject);
procedure Cmd_EditClick(Sender: TObject);
procedure Cmd_DeleteClick(Sender: TObject);
procedure Cmd_Select_CardClick(Sender: TObject);
procedure Cmd_Select_DriverClick(Sender: TObject);
procedure Cmd_MondClick(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Cmd_ReportClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_Car_Bad: Tfrm_Car_Bad;
implementation
uses Data, func, Car_Select, Mond_Select, Car_Bad_Report;
{$R *.dfm}
procedure Tfrm_Car_Bad.Cmd_AddClick(Sender: TObject);
begin
inherited;
Cmd_Add.Enabled:=False;
Cmd_Delete.Enabled:=False;
Cmd_Edit.Enabled:=False;
Cmd_Save.Enabled:=True;
Cmd_Rush.Caption:='取消';
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:='';
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',now);
Edit13.Text:=Login_Name;
Edit_ID.Text:='';
end;
procedure Tfrm_Car_Bad.Cmd_RushClick(Sender: TObject);
begin
inherited;
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:='刷新';
end;
with frm_data.StoredProc_Pro_Car_Bad_View do
begin
Close;
frm_data.StoredProc_Pro_Car_Bad_View.ProcedureName:='Pro_Car_Bad_View';
Try
Prepared;
Open;
if frm_data.StoredProc_Pro_Car_Bad_View.RecordCount>0 then
begin
First;
Edit1.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('C_ID').AsString;
Edit2.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Man').AsString;
Edit3.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Drive_ID').AsString;
Edit4.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Type').AsString;
Edit5.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Facaty_type').AsString;
Edit6.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Fdjh').AsString;
Edit7.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Cjh').AsString;
Edit8.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('C_Telphon').AsString;
Edit9.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Address').AsString;
Edit10.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('MondName').AsString;
Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Bad_Date').AsDateTime);
Edit12.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Charager').AsString;
Edit13.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Recorder').AsString;
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Recorder_date').AsDateTime);
Edit15.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Reasone').AsString;
Edit_ID.Text:=frm_data.StoredProc_Pro_Car_Bad_View.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:=''; Edit_ID.Text:='';
end;
Except
APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
end;
end;
procedure Tfrm_Car_Bad.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('C_ID').AsString;
Edit2.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Man').AsString;
Edit3.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Drive_ID').AsString;
Edit4.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Type').AsString;
Edit5.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Facaty_type').AsString;
Edit6.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Fdjh').AsString;
Edit7.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Cjh').AsString;
Edit8.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('C_Telphon').AsString;
Edit9.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Address').AsString;
Edit10.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('MondName').AsString;
Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Bad_Date').AsDateTime);
Edit12.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Charager').AsString;
Edit13.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Recorder').AsString;
Edit14.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Recorder_date').AsDateTime);
Edit15.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('Reasone').AsString;
Edit_ID.Text:=frm_data.StoredProc_Pro_Car_Bad_View.FieldByName('ID').AsString;
end;
procedure Tfrm_Car_Bad.Cmd_SaveClick(Sender: TObject);
begin
inherited;
if Trim(Edit1.Text)='' then
begin
Edit1.SetFocus;
APPlication.MessageBox('操作失败【车牌号码】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
if Trim(Edit10.Text)='' then
begin
Edit10.SetFocus;
APPlication.MessageBox('操作失败【执行单位】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
if Trim(Edit11.Text)='' then
begin
Edit11.SetFocus;
APPlication.MessageBox('操作失败【报废日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
if Trim(Edit12.Text)='' then
begin
Edit12.SetFocus;
APPlication.MessageBox('操作失败【执行人员】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
if Trim(Edit15.Text)='' then
begin
Edit15.SetFocus;
APPlication.MessageBox('操作失败【报费原因】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
Exit;
end;
with frm_data.Query_Car_Bad do
begin
Close;
Sql.Clear;
Sql.Add('Select * from [Car_Bad] where C_ID='''+Trim(Edit1.Text)+''' and Bad_Date='''+Trim(Edit11.Text)+'''');
Try
prepared;
Open;
if frm_data.Query_Car_Bad.RecordCount>0 then
begin
APPlication.MessageBox('操作失败【该车辆该名称的审查已经审查了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
Edit1.SetFocus;
Exit;
end
else
begin
with frm_data.Query_Car_Bad do
begin
Close;
Sql.Clear;
Sql.Add('INSERT INTO [Car_Bad](C_ID,MondName,Bad_Date,Charager,Recorder,Recorder_date,Reasone) values (:u1,:u2,:u3,:u4,:u5,:u6,:u7)');
frm_data.Query_Car_Bad.Parameters[0].Value:=Trim(Edit1.Text);
frm_data.Query_Car_Bad.Parameters[1].Value:=Trim(Edit10.Text);
frm_data.Query_Car_Bad.Parameters[2].Value:=Trim(Edit11.Text);
frm_data.Query_Car_Bad.Parameters[3].Value:=Trim(Edit12.Text);
frm_data.Query_Car_Bad.Parameters[4].Value:=Trim(Edit13.Text);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -