qcyeunit.pas

使用delphi语言

unit qcyeunit;

interface

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

type
  Tqcyeform = class(TForm)
    ToolBar1: TToolBar;
    sb_edit: TSpeedButton;
    sb_save: TSpeedButton;
    sb_cancel: TSpeedButton;
    sb_close: TSpeedButton;
    q: TADOCommand;
    ComboBox1: TComboBox;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    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
  qcyeform: Tqcyeform;

implementation
  uses dmunit;
{$R *.dfm}

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

procedure Tqcyeform.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语句插入多行数据.
  dm.qcye.Open ;
  keypreview:=true;
end;

procedure Tqcyeform.sb_editClick(Sender: TObject);
var i:integer;
begin
  try
  dm.gjjconn.BeginTrans;
  dm.qcye.Edit;
  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;
  except
  dm.gjjconn.RollbackTrans;
  end;
end;

procedure Tqcyeform.sb_saveClick(Sender: TObject);
begin
  try
  if not (dm.qcye.State = dsEdit )  then
    dm.qcye.Edit;
  dm.qcye.Post;
  dm.gjjconn.CommitTrans;
  dbgrid1.ReadOnly:=true;
  sb_save.Enabled :=false;
  sb_cancel.Enabled :=false;
  sb_edit.Enabled :=true;
  except
    dm.gjjconn.RollbackTrans;
  end;
end;

procedure Tqcyeform.sb_cancelClick(Sender: TObject);
begin
  try
    dm.qcye.Cancel;
    dm.gjjconn.RollbackTrans;
    dbgrid1.ReadOnly:=true;
    sb_save.Enabled :=false; sb_cancel.Enabled :=false;
    sb_edit.Enabled :=true;
  except
    dm.gjjconn.RollbackTrans;
  end;
end;

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

procedure Tqcyeform.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 Tqcyeform.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text<>'<ALL>' then
  begin
    dm.qcye.Close;
    dm.qcye.CommandText:='select * from 期初余额 where 部门编号 in(select 部门编号 from 部门 where 部门名称 ='''+combobox1.Text+''')';
    dm.qcye.Open ;
  end
  else
  begin
    dm.qcye.Close;
    dm.qcye.CommandText:='select * from 期初余额';
    dm.qcye.Open;
  end;
end;

end.