done.pas

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

unit Done;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids,ChildFrm, Buttons, ToolWin,
  ComCtrls, XPMenu;

type
  Tfrm_Done = class(TChildForm)//class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    Panel2: TPanel;
    XPMenu1: TXPMenu;
    Panel4: TPanel;
    Edit1: TLabeledEdit;
    Cmd_Get_NO: TSpeedButton;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit6: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit4: TLabeledEdit;
    Edit7: TMemo;
    Edit8: TMemo;
    Edit9: TLabeledEdit;
    Edit10: TLabeledEdit;
    Edit11: TLabeledEdit;
    Edit12: TLabeledEdit;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    Cmd_Report: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label3: TLabel;
    Cmd_Get_Drive: TSpeedButton;
    Cmd_Mond: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    Edit_ID: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_RushClick(Sender: TObject);
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Cmd_Get_DriveClick(Sender: TObject);
    procedure Cmd_Get_NOClick(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure Cmd_MondClick(Sender: TObject);
    procedure Cmd_ReportClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Done: Tfrm_Done;

implementation

uses Data, Drive_Card_Select, Car_Select, func, Mond_Select, Done_Report;

{$R *.dfm}

procedure Tfrm_Done.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    action:=cafree;
end;

procedure Tfrm_Done.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:='刷新';
    end;
    with frm_data.StoredProc_Pro_Back_Role do
    begin
        Close;
        frm_data.StoredProc_Pro_Back_Role.ProcedureName:='Pro_Back_Role';
        Try
            Prepared;
            frm_data.StoredProc_Pro_Back_Role.Active:=True;
            if frm_data.StoredProc_Pro_Back_Role.RecordCount>0 then
            begin
                First;
                Edit1.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('C_ID').AsString;
                Edit2.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Man').AsString;
                Edit3.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Drive_Man').AsString;
                Edit4.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Drive_ID').AsString;
                Edit5.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Back_Date').AsDateTime);
                Edit6.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Date').AsDateTime);
                Edit7.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Back_Reasone').AsString;
                Edit8.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Result').AsString;
                Edit9.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Mond').AsString;
                Edit10.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Done_Man').AsString;
                Edit11.Text:=frm_data.StoredProc_Pro_Back_Role.FieldByName('Record_Man').AsString;
                Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Back_Role.FieldByName('Record_Date').AsDateTime);
                Edit_ID.Text:=frm_data.StoredProc_Pro_Back_Role.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:='';
                Edit_ID.Text:='';
            end;
        Except
            APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Done.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:='';
    Edit_ID.Text:='';Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',now);
    Edit11.Text:=func.Login_Name;
end;

procedure Tfrm_Done.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(Edit2.Text)='' then
    begin
        Edit2.SetFocus;
        APPlication.MessageBox('操作失败【车主姓名】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit3.Text)='' then
    begin
        Edit3.SetFocus;
        APPlication.MessageBox('操作失败【驾驶人员】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit4.Text)='' then
    begin
        Edit4.SetFocus;
        APPlication.MessageBox('操作失败【驾驶证号】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit5.Text)='' then
    begin
        Edit5.SetFocus;
        APPlication.MessageBox('操作失败【违章日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit6.Text)='' then
    begin
        Edit6.SetFocus;
        APPlication.MessageBox('操作失败【处理日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit7.Text)='' then
    begin
        Edit7.SetFocus;
        APPlication.MessageBox('操作失败【违章原因】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit8.Text)='' then
    begin
        Edit8.SetFocus;
        APPlication.MessageBox('操作失败【处理结果】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    with frm_data.Query_Back_Role do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Back_Role] where Back_Date='''+Trim(Edit5.Text)+''' and C_ID='''+Trim(Edit1.Text)+''' ');
        Try
            prepared;
            Open;
            if frm_data.Query_Back_Role.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败【该车辆该名称的审查已经审查了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit1.SetFocus;