car_select.pas

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

unit Car_Select;

interface

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

type
  Tfrm_Car_Select = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    EditC_NO: TLabeledEdit;
    EditC_ID: TLabeledEdit;
    Cmd_Select: TSpeedButton;
    Cmd_Exit: TSpeedButton;
    Editman: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_ExitClick(Sender: TObject);
    procedure Cmd_SelectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Car_Select: Tfrm_Car_Select;

implementation

uses Data, func;

{$R *.dfm}

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

procedure Tfrm_Car_Select.FormShow(Sender: TObject);
begin
    with frm_data.StoredProc_Pro_Car do //运用存储过程
    begin
        frm_data.StoredProc_Pro_Car.Close;
        frm_data.StoredProc_Pro_Car.ProcedureName:='Pro_Car';//动态加载存储过程名称；
        frm_data.StoredProc_Pro_Car.Active:=True;
    end;
end;

procedure Tfrm_Car_Select.DBGrid1CellClick(Column: TColumn);
begin
    EditC_NO.Text:=frm_data.StoredProc_Pro_Car.FieldByName('C_NO').AsString;
    EditC_ID.Text:=frm_data.StoredProc_Pro_Car.FieldByName('C_ID').AsString;
    EditMan.Text:=frm_data.StoredProc_Pro_Car.FieldByName('man').AsString;
end;

procedure Tfrm_Car_Select.Cmd_ExitClick(Sender: TObject);
begin
    Close;
end;

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

    end;
    //--------------------------------------------------------------------------
    //如果选择的是车牌号
    //**************************************************************************
    if func.Car_Select='Car_ID' then
    begin
        if Trim(EditC_ID.Text)='' then
        begin
            Application.MessageBox('操作错误！【车牌号】不能为空！请确认！',Pchar(application.Title),MB_ICONWARNing);
            EditC_ID.SetFocus;
            Exit;
        end;
        func.Car_Select_Result:='';
        func.Car_Select_Result:=Trim(EditC_ID.Text);
        Close;
    end;
    //**************************************************************************
    //如果选择的是车主姓名
    //-----------********************************-------------------------------
    if func.Car_Select='Car_Man' then
    begin
        if Trim(EditMan.Text)='' then
        begin
            Application.MessageBox('操作错误！【车主姓名】不能为空！请确认！',Pchar(application.Title),MB_ICONWARNing);
            EditMan.SetFocus;
            Exit;
        end;
        func.Car_Select_Result:='';
        func.Car_Select_Result:=Trim(EditMan.Text);
        Close;

    end;
    //-----------********************************-------------------------------
end;

end.