user_type.pas

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

unit User_Type;

interface

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

type
  Tfrm_User_Type = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Exit: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    Edit2: TLabeledEdit;
    Edit1: TLabeledEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure Cmd_AddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_User_Type: Tfrm_User_Type;

implementation

uses Data;

{$R *.dfm}

procedure Tfrm_User_Type.Cmd_SaveClick(Sender: TObject);
begin
    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;
    with frm_data.Query_User_Type do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [User_Type] where User_ID='''+Trim(Edit1.Text)+''' and User_Type='''+Trim(Edit2.Text)+''' ');
        prepared;
        Open;
        if frm_data.Query_User_Type.RecordCount>0 then
        begin
            APPlication.MessageBox('操作失败【拥护类型在数据库中已经存在了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Edit1.SetFocus;
            Exit;
        end
        else
        begin
            with frm_data.Query_User_Type do
            begin
                Close;
                Sql.Clear;
                Sql.Add('INSERT INTO [User_Type](User_ID,User_Type) values (:u1,:u2)');
                frm_data.Query_User_Type.Parameters[0].Value:=Trim(Edit1.Text);
                frm_data.Query_User_Type.Parameters[1].Value:=Trim(Edit2.Text);
                try
                    Prepared;
                    Execsql;
                    Cmd_Add.Enabled:=True;
                    Cmd_Delete.Enabled:=True;
                    Cmd_Edit.Enabled:=True;
                    Cmd_Save.Enabled:=False;
                    Cmd_Exit.Caption:='刷新';
                    Cmd_Exit.Click; //调用刷新数据库的过程
                    APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Except
                    APPlication.MessageBox('系统错误！【系统在保存数据时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                    Exit;
                end;
            end;
        end;
    end;
end;

procedure Tfrm_User_Type.Cmd_EditClick(Sender: TObject);
begin
    if APPlication.MessageBox('确定需要修改该【用户类型信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_User_Type do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [User_Type] SET User_Type=:u1 WHERE User_ID=:u2');
            frm_data.Query_User_Type.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_User_Type.Parameters[1].Value:=Trim(Edit2.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_Exit.Click; //调用刷新数据库的过程
            Except
                APPlication.MessageBox('系统错误！【系统在保存数据时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_User_Type.FormShow(Sender: TObject);
begin
    if Cmd_Exit.Caption='刷新' then
    begin
        with frm_data.Query_User_Type do
        begin
            Close;
            SQl.Clear;
            SQl.Add('SELECT * FROM [User_Type]');
            try
                Prepared;
                Open;
                if frm_data.Query_User_Type.RecordCount>0 then
                begin
                    First;
                    Edit1.Text:=frm_data.Query_User_Type.FieldByName('User_ID').AsString;
                    Edit2.Text:=frm_data.Query_User_Type.FieldByname('User_Type').AsString
                end
                else
                begin
                    Edit1.Text:='';
                    Edit2.Text:='';
                end;
            Except
                APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
    if Cmd_Exit.Caption='取消' then
    begin
        with frm_data.Query_User_Type do
        begin
            Close;
            SQl.Clear;
            SQl.Add('SELECT * FROM [User_Type]');
            try
                Prepared;
                Open;
                if frm_data.Query_User_Type.RecordCount>0 then
                begin
                    First;
                    Edit1.Text:=frm_data.Query_User_Type.FieldByName('User_ID').AsString;
                    Edit2.Text:=frm_data.Query_User_Type.FieldByname('User_Type').AsString
                end
                else
                begin
                    Edit1.Text:='';
                    Edit2.Text:='';
                end;
                Cmd_Add.Enabled:=True;
                Cmd_Delete.Enabled:=True;
                Cmd_Edit.Enabled:=True;
                Cmd_Save.Enabled:=False;
                Cmd_Exit.Caption:='刷新';
            Except
                APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_User_Type.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.Query_User_Type.FieldByName('User_ID').AsString;
    Edit2.Text:=frm_data.Query_User_Type.FieldByname('User_Type').AsString
end;

procedure Tfrm_User_Type.Cmd_DeleteClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要删除该【用户类型信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_User_Type do
        begin
            Close;
            Sql.Clear;
            Sql.Add('DELETE [User_Type] WHERE User_ID='''+Trim(Edit1.Text)+''' ');
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_Exit.Click; //调用刷新数据库的过程
            Except
                APPlication.MessageBox('系统错误！【系统在保存数据时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_User_Type.Cmd_CancelClick(Sender: TObject);
begin
    CloSe;
end;

procedure Tfrm_User_Type.Cmd_AddClick(Sender: TObject);
begin
    Cmd_Add.Enabled:=False;
    Cmd_Delete.Enabled:=False;
    Cmd_Edit.Enabled:=False;
    Cmd_Save.Enabled:=True;
    Cmd_Exit.Caption:='取消';
    Edit2.Text:='';
    Edit1.Text:='';
end;

end.