charge_name.~pas

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

unit Charge_Name;

interface

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

type
  Tfrm_Charge_Name = class(TForm)
    GroupBox2: TGroupBox;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit_ID: TEdit;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    Cmd_Select: TSpeedButton;
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_RushClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_SelectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Charge_Name: Tfrm_Charge_Name;

implementation

uses Data, func;

{$R *.dfm}

procedure Tfrm_Charge_Name.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_Charge_Name.Cmd_DeleteClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要删除该【收费类别信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Charge_Name do
        begin
            Close;
            Sql.Clear;
            Sql.Add('DELETE [Charge_Name] WHERE ID='''+Trim(Edit_ID.Text)+''' ');
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('删除数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在删除数据表【Charge_Type】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Charge_Name.Cmd_EditClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要修改该【收费类别信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Charge_Name do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [Charge_Name] SET Charge_Name_ID=:u1,Charge_Name=:u2,Charge_Note=:u3 WHERE ID=:u4');
            frm_data.Query_Charge_Name.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Charge_Name.Parameters[1].Value:=Trim(Edit2.Text);
            frm_data.Query_Charge_Name.Parameters[2].Value:=Trim(Edit3.Text);
            frm_data.Query_Charge_Name.Parameters[3].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Drive_Card_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Charge_Name.Cmd_SaveClick(Sender: TObject);
begin
    inherited;
    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_Charge_Name do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Charge_Name] where Charge_Name_ID='''+Trim(Edit1.Text)+'''');
        Try
            prepared;
            Open;
            if frm_data.Query_Charge_Name.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败该【收费名称】已经存在了！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit1.SetFocus;
                Exit;
            end
            else
            begin
                with frm_data.Query_Charge_Name do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('INSERT INTO [Charge_Name](Charge_Name_ID,Charge_Name,Charge_Note) values (:u1,:u2,:u3)');
                    frm_data.Query_Charge_Name.Parameters[0].Value:=Trim(Edit1.Text);
                    frm_data.Query_Charge_Name.Parameters[1].Value:=Trim(Edit2.Text);
                    frm_data.Query_Charge_Name.Parameters[2].Value:=Trim(Edit3.Text);
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Cmd_RushClick(Sender);
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Charge_Name】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Exit;
                    end;
                end;
            end;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Charge_Name】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Charge_Name.Cmd_RushClick(Sender: TObject);
begin
    inherited;
    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;
    with frm_data.Query_Charge_Name do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Charge_Name]');
        Try
            Prepared;
            Open;
            if frm_data.Query_Charge_Name.RecordCount>0 then
            begin
                First;
                Edit1.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Name_ID').AsString;
                Edit2.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Name').AsString;
                Edit3.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Note').AsString;
                Edit_ID.Text:=frm_data.Query_Charge_Name.FieldByName('ID').AsString;
            end
            else
            begin
                Edit1.Text:='';  Edit2.Text:='';  Edit3.Text:='';  Edit_ID.Text:='';
            end;
        Except
            APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Charge_Name.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Name_ID').AsString;
    Edit2.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Name').AsString;
    Edit3.Text:=frm_data.Query_Charge_Name.FieldByName('Charge_Note').AsString;
    Edit_ID.Text:=frm_data.Query_Charge_Name.FieldByName('ID').AsString;
end;

procedure Tfrm_Charge_Name.FormShow(Sender: TObject);
begin
    Cmd_RushClick(Sender);
    if Charge_Type_Str='000001' then
    begin
        Cmd_Select.Enabled:=true;
    end
    else
    begin
        Cmd_Select.Enabled:=False;
    end;
end;

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

procedure Tfrm_Charge_Name.Cmd_SelectClick(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;
    if Charge_Name_Str='000001' then
    begin
        func.Charge_Name_result:=trim(Edit2.Text);
        Close;
    end;
end;

end.