pas_area.~pas

比较详细的功能

unit pas_area;

interface

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

type
  TForm_area = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit_no: TEdit;
    Edit_name: TEdit;
    ToolBar1: TToolBar;
    ToolButton5: TToolButton;
    select: TSpeedButton;
    ToolButton3: TToolButton;
    add: TSpeedButton;
    ToolButton7: TToolButton;
    del: TSpeedButton;
    DBGrid: TDBGrid;
    procedure selectClick(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure DBGridCellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_area: TForm_area;

implementation
    uses pas_dm;
{$R *.dfm}

procedure TForm_area.selectClick(Sender: TObject);
begin
  with pas_dm.DM.query_area do
  begin
    close;
    sql.Clear;
    sql.Add('select a_no 区域编号,a_name 区域 from area');
    open;
  end;
end;

procedure TForm_area.addClick(Sender: TObject);
var
  s:string;
begin
    if (edit_no.Text='') or (edit_name.Text='') then
    begin
     exit;
    end;
      try
          with pas_dm.DM.query_area  do
          begin
          Close;
          SQL.Clear;
          s:='insert into area(a_no,a_name) values('''+trim(edit_no.Text)+''','''+trim(edit_name.text)+''')';
          SQL.Add(s);
          ExecSQL;
          showmessage('添加 '+edit_name.Text+' 成功！');
          select.Click;
          end;
          except
          showmessage('添加'+edit_name.Text+'失败！');
        end;
end;

procedure TForm_area.delClick(Sender: TObject);
var
  s:string;
begin
   if IDCancel=messagebox(handle,pchar('编号为 '+dbgrid.Fields[0].AsString+' 的将被删除'),'警告', MB_OKCANCEL)
   then
   begin
   exit;
   end;

   try
          with pas_dm.DM.query_area do
          begin
          Close;
          SQL.Clear;
          s:='delete from area where a_no='''+edit_no.Text+'''';
          SQL.Add(s);
          ExecSQL;
          showmessage('删除 '+edit_name.Text+' 成功！');
          select.Click;
          end;
          except
          showmessage('删除'+edit_name.Text+'失败！');
        end;
end;
procedure TForm_area.DBGridCellClick(Column: TColumn);
begin
with pas_dm.DM.Query_area do
   begin
   if dbgrid.FieldCount=0 then
   begin
    showmessage('没有打开数据库');
    exit;
   end;
    if dbgrid.Fields[0].AsString='' then
    begin
    showmessage('数据库没有数据');
    exit;
    end;
    edit_no.Text:=Fields.Fields[0].AsString;
    edit_name.Text:=Fields.Fields[1].AsString;
    end;
 end;

procedure TForm_area.FormShow(Sender: TObject);
begin
  select.Click;
end;

procedure TForm_area.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    
    if   Key   =   VK_F4   then
      begin
          add.Click;
          Key   :=   0;
          exit;
      end;
end;

end.