mond_select.pas

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

unit Mond_Select;

interface

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

type
  Tfrm_Mond_Select = class(TForm)
    GroupBox1: TGroupBox;
    EditMond_Name: TLabeledEdit;
    EditMond_Code: TLabeledEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Mond_Select: Tfrm_Mond_Select;

implementation

uses Data, func;

{$R *.dfm}

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

procedure Tfrm_Mond_Select.FormShow(Sender: TObject);
var
    tempstr:string;
begin
    tempstr:='';
    if func.Mond_Select='have' then
    begin
        tempstr:='SELECT * FROM [Mond_Information] where Mond_DownFlag=''有''';
    end;
    if func.Mond_Select='no' then
    begin
        tempstr:='SELECT * FROM [Mond_Information] ';
    end;
    with frm_data.Query_Mond_Information do
    begin
        Close;
        Sql.Clear;
        Sql.Add(tempstr);
        Try
            Prepared;
            Open;
            first;
            EditMond_Name.Text:=frm_data.Query_Mond_Information.FieldByName('Mond_Name').AsString;
            EditMond_Code.Text:=frm_data.Query_Mond_Information.FieldByName('Mond_Code').AsString;
        except
            Application.MessageBox('系统错误！系统在打开数据表时与远程服务器连接错误！',Pchar(Application.Title),MB_ICONWARNING);
            EXIT;
        end;
    end;
end;

procedure Tfrm_Mond_Select.DBGrid1CellClick(Column: TColumn);
begin
    EditMond_Name.Text:=frm_data.Query_Mond_Information.FieldByName('Mond_Name').AsString;
    EditMond_Code.Text:=frm_data.Query_Mond_Information.FieldByName('Mond_Code').AsString;
end;

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

end.