car_type.pas

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

unit Car_Type;

interface

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

type
  Tfrm_Car_Type = class(TForm)
    Panel6: TPanel;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Panel5: TPanel;
    ToolBar2: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    DBGrid1: TDBGrid;
    Edit_ID: TEdit;
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_RushClick(Sender: TObject);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Car_Type: Tfrm_Car_Type;

implementation

uses Data;

{$R *.dfm}

procedure Tfrm_Car_Type.Cmd_AddClick(Sender: TObject);
begin
    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:='';
    Edit_Id.Text:='';
end;

procedure Tfrm_Car_Type.Cmd_RushClick(Sender: TObject);
begin
    with frm_data.ADOQuery_Type do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Type]');
        Prepared;
        Open;
        if frm_data.ADOQuery_Type.RecordCount>0 then
        begin
            Last;
            Edit1.Text:=frm_data.ADOQuery_Type.FieldByName('T_ID').AsString;
            Edit2.Text:=frm_data.ADOQuery_Type.FieldByName('Type').AsString;
            Edit3.Text:=frm_data.ADOQuery_Type.FieldByName('Note').AsString;
            Edit_ID.Text:=frm_data.ADOQuery_Type.FieldByName('ID').AsString;
        end
        else
        begin
            Edit1.Text:=''; Edit2.Text:='';Edit3.Text:='';Edit_ID.Text:='';
        end;
    end;
    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;
end;

procedure Tfrm_Car_Type.Cmd_SaveClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型编号】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型名称】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit2.SetFocus;
        Exit;
    end;
    with frm_data.ADOQuery_Type do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Type] where T_ID='''+Trim(Edit1.Text)+''' and Type='''+Trim(Edit2.Text)+'''');
        Prepared;
        Open;
        if frm_data.ADOQuery_Type.RecordCount>0 then    
        begin
            Application.MessageBox('操作错误，该车型信息已经存在，请确认！',Pchar(Application.Title),MB_ICONWARNING);
            Exit;
        end
        else
        begin
            with frm_data.ADOQuery_Type do
            begin
                Close;
                Sql.Clear;
                Sql.Add('insert into [Type] (T_ID,Type,Note) values (:T_ID,:Type,:Note)');
                frm_data.ADOQuery_Type.Parameters[0].Value:=Trim(Edit1.Text);
                frm_data.ADOQuery_Type.Parameters[1].Value:=Trim(Edit2.Text);
                frm_data.ADOQuery_Type.Parameters[2].Value:=Trim(Edit3.Text);
                Prepared;
                ExecSql;
                Application.MessageBox('车型设置【增加】操作成功，请确认！',Pchar(Application.Title),MB_ICONWARNING);
                Cmd_Rush.Click;//调用刷新数据库的过程
            end;
        end;
    end;
end;

procedure Tfrm_Car_Type.Cmd_EditClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型编号】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型名称】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit2.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要修改该【车型】的信息吗？请确认！',Pchar(Application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ADOQuery_Type do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Update [Type] set T_ID='''+Trim(Edit1.Text)+''',Type='''+Trim(Edit2.Text)+''',Note='''+Trim(Edit3.Text)+'''');
            Sql.Add(' where ID='''+Trim(Edit_ID.Text)+'''');
            Prepared;
            ExecSql;
            Application.MessageBox('车型设置【修改】操作成功，请确认！',Pchar(Application.Title),MB_ICONWARNING);
            Cmd_Rush.Click;//调用刷新数据库的过程
        end;
    end;
end;

procedure Tfrm_Car_Type.Cmd_DeleteClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型编号】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作错误，【车型名称】不能为空，请确认！',Pchar(Application.Title),MB_ICONWARNING);
        Edit2.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要删除该【车型】的信息吗？请确认！',Pchar(Application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ADOQuery_Type do
        begin
            Close;
            Sql.Clear;
            Sql.Add('delete [Type] where T_ID='''+Trim(Edit1.Text)+'''');
            Prepared;
            ExecSql;
            Application.MessageBox('车型设置【删除】操作成功，请确认！',Pchar(Application.Title),MB_ICONWARNING);
            Cmd_Rush.Click;//调用刷新数据库的过程
        end;
    end;
end;

procedure Tfrm_Car_Type.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.ADOQuery_Type.FieldByName('T_ID').AsString;
    Edit2.Text:=frm_data.ADOQuery_Type.FieldByName('Type').AsString;
    Edit3.Text:=frm_data.ADOQuery_Type.FieldByName('Note').AsString;
    Edit_ID.Text:=frm_data.ADOQuery_Type.FieldByName('ID').AsString;
end;

procedure Tfrm_Car_Type.FormShow(Sender: TObject);
begin
    Cmd_RushClick(sender);
end;

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

end.