baseunit.pas

使用delphi语言

unit baseunit;

interface

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

type
  Tbaseform = class(TForm)
    ToolBar1: TToolBar;
    sb_edit: TSpeedButton;
    sb_save: TSpeedButton;
    sb_cancel: TSpeedButton;
    sb_close: TSpeedButton;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Label1: TLabel;
    q: TADOCommand;
    procedure sb_closeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sb_editClick(Sender: TObject);
    procedure sb_saveClick(Sender: TObject);
    procedure sb_cancelClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  baseform: Tbaseform;

implementation
 uses dmunit;
{$R *.dfm}

procedure Tbaseform.sb_closeClick(Sender: TObject);
begin
  if sb_save.Enabled =true then
  begin
    messagebox(self.Handle,'请确定是保存还是取消','提示信息',mb_iconinformation);
    exit;
  end;
  dm.bm.Active:=false;
  dm.base.Active:=false; 
  close;
end;

procedure Tbaseform.FormCreate(Sender: TObject);
var i:integer;
begin
  dm.bm.Open ;
  dm.bm.First ;
  for i:=0 to dm.bm.RecordCount -1 do
  begin
    combobox1.Items.Add(dm.bm.FieldValues['部门名称']);
    dm.bm.Next;
  end;
  combobox1.Items.Add('<ALL>');
  q.CommandText:='insert 系数表 (部门编号,职工编号,账号,职工姓名)'+
                         'select 部门编号,职工编号,账号,职工姓名 from 职工 z where not '+
                         'exists(select * from 系数表 x where  z.职工编号=x.职工编号)';
  q.Execute ;//用insert语句插入多行数据.
  keypreview:=true;
  dm.base.Open ;
end;

procedure Tbaseform.sb_editClick(Sender: TObject);
var i:integer;
begin
  dbgrid1.ReadOnly:=false;
  for i:=0 to 3 do
  begin
  dbgrid1.Columns[i].ReadOnly:=true;
  end;
  sb_save.Enabled :=true; sb_cancel.Enabled :=true;
  sb_edit.Enabled :=false;
  dm.base.Edit ;
end;

procedure Tbaseform.sb_saveClick(Sender: TObject);
begin
  dm.base.Edit;
  dm.base.Post;
  dbgrid1.ReadOnly:=true;
  sb_save.Enabled :=false; sb_cancel.Enabled :=false;
  sb_edit.Enabled :=true;
end;

procedure Tbaseform.sb_cancelClick(Sender: TObject);
begin
  dm.base.Cancel ;
  dbgrid1.ReadOnly:=true;
  sb_save.Enabled :=false; sb_cancel.Enabled :=false;
  sb_edit.Enabled :=true;
end;

procedure Tbaseform.DBGrid1TitleClick(Column: TColumn);
begin
  dm.base.Sort:=column.FieldName;
end;

procedure Tbaseform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=114 then
    if sb_edit.Enabled =true then
      sb_edit.Click ;
  if key=116 then
    if sb_save.Enabled =true then
      sb_save.Click ;
  if key=117 then
    if sb_cancel.Enabled =true then
      sb_cancel.Click ;
  if key=119 then
    sb_close.Click ;
end;

procedure Tbaseform.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text<>'<ALL>' then
  begin
    dm.base.Close;
    dm.base.CommandText:='select * from 系数表 where 部门编号 in(select 部门编号 from 部门 where 部门名称 ='''+combobox1.Text+''')';
    dm.base.Open ;
  end
  else
  begin
    dm.base.Close;
    dm.base.CommandText:='select * from 系数表';
    dm.base.Open;
  end;
end;

end.