drive_card_select.pas

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

unit Drive_Card_Select;

interface

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

type
  Tfrm_Drive_Card_Select = class(TForm)
    Panel1: TPanel;
    Cmd_Select: TSpeedButton;
    Cmd_Exit: TSpeedButton;
    DBGrid1: TDBGrid;
    EditDrive_Id: TLabeledEdit;
    EditDrive_Man: TLabeledEdit;
    procedure FormShow(Sender: TObject);
    procedure Cmd_SelectClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Drive_Card_Select: Tfrm_Drive_Card_Select;

implementation

uses Data, func;

{$R *.dfm}

procedure Tfrm_Drive_Card_Select.FormShow(Sender: TObject);
begin
    with frm_data.Stored_Pro_Drive_Card do
    begin
        Close;
        frm_data.Stored_Pro_Drive_Card.ProcedureName:='Pro_Drive_Card';
        try
            Prepared;
            frm_data.Stored_Pro_Drive_Card.Open;
            First;
            EditDrive_Id.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_ID').AsString;
            EditDrive_Man.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Man').AsString;
        except
            Application.MessageBox('系统错误！系统在执行存储过程【Pro_Drive_Card】时出错！与远程服务器连接错误！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        end;
    end;
end;

procedure Tfrm_Drive_Card_Select.Cmd_SelectClick(Sender: TObject);
begin
    //如果选择的是车辆编号
    //--------------------------------------------------------------------------
    if func.Drive_Card_Select='Drive_ID' then
    begin
        if Trim(EditDrive_Id.Text)='' then
        begin
            Application.MessageBox('操作错误！【驾驶证号】不能为空！请确认！',Pchar(application.Title),MB_ICONWARNing);
            EditDrive_Id.SetFocus;
            Exit;
        end;
        func.Drive_Card_Select_Result:='';
        func.Drive_Card_Select_Result:=Trim(EditDrive_Id.Text);
        Close;

    end;
    //--------------------------------------------------------------------------
    //如果选择的是车牌号
    //**************************************************************************
    if func.Drive_Card_Select='Drive_Man' then
    begin
        if Trim(EditDrive_Man.Text)='' then
        begin
            Application.MessageBox('操作错误！【驾驶员名称】不能为空！请确认！',Pchar(application.Title),MB_ICONWARNing);
            EditDrive_Man.SetFocus;
            Exit;
        end;
        func.Drive_Card_Select_Result:='';
        func.Drive_Card_Select_Result:=Trim(EditDrive_Man.Text);
        Close;
    end;
    //**************************************************************************
end;

procedure Tfrm_Drive_Card_Select.DBGrid1CellClick(Column: TColumn);
begin
    EditDrive_Id.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_ID').AsString;
    EditDrive_Man.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Man').AsString;
end;

end.