manual_lxunit.pas

使用delphi语言

unit manual_lxunit;

interface

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

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

var
  manual_lxform: Tmanual_lxform;

implementation
uses dmunit,lxunit;
{$R *.dfm}

procedure Tmanual_lxform.FormCreate(Sender: TObject);
begin
  keypreview:=true;
  dm.bm.Open ;
  dm.bm.First ;
  while not dm.bm.Eof  do
  begin
    combobox1.Items.Add(dm.bm.FieldValues['部门名称']) ;
    dm.bm.Next ;
  end;
  combobox1.Items.Add('<ALL>');
  //在插入语句前先判断是否存在这个月的利息结算
  dm.detail.Close;
  dm.detail.CommandText:='select * from 明细表 where 摘要=''利息结算'' and 年=:y and 月=:m';
  dm.detail.Parameters.ParamByName('y').Value:=lxform.SpinEdit1.Text ;
  dm.detail.Parameters.ParamByName('m').Value:=lxform.SpinEdit2.Text ;
  dm.detail.Open ;
  if dm.detail.RecordCount>0 then
    exit;   //如果存在数据则退出这个过程,不执行下面的语句
  c.CommandText:='insert 明细表(职工编号,账号,职工姓名,部门编号) '+
                  'select 职工编号,账号,职工姓名,部门编号 from 系数表 where 类型=''1''or 类型=''0'' ';  //用 insert 语句向明细表插入多行数据
  c.Execute ;
  c.CommandText:='update 明细表 set 摘要=''利息结算'',类别=''3'',年=:year,月=:month where 摘要='''''; //用update set 语句修改多行数据
  c.Parameters.ParamByName('year').Value:=lxform.SpinEdit1.Text  ;
  c.Parameters.ParamByName('month').Value:=lxform.SpinEdit2.Text  ;
  c.Execute ;
  dm.detail.Close;
  dm.detail.CommandText:='select * from 明细表 where 摘要=''利息结算'' and 年=:y and 月=:m';
  dm.detail.Parameters.ParamByName('y').Value:=lxform.SpinEdit1.Text ;
  dm.detail.Parameters.ParamByName('m').Value:=lxform.SpinEdit2.Text ;
  dm.detail.Open ;
end;

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

procedure Tmanual_lxform.ComboBox1Change(Sender: TObject);
begin
 if combobox1.Text<>'<ALL>' then     //当组合框内容发生变化时，下面的表格的内容也发生变化
 begin
   dm.detail.Close;
   dm.detail.CommandText:='select * from 明细表 where 摘要=''利息结算'' and 年=:y and 月=:m '+
                            'and 部门编号 in(select 部门编号 from 部门 where 部门名称 ='''+combobox1.Text+''')';
   dm.detail.Parameters.ParamByName('y').Value:=lxform.SpinEdit1.Text ;
   dm.detail.Parameters.ParamByName('m').Value:=lxform.SpinEdit2.Text ;
   dm.detail.Open ;
 end
 else
 begin
   dm.detail.Close;
   dm.detail.CommandText:='select * from 明细表 where 摘要=''利息结算'' and 年=:y and 月=:m';
   dm.detail.Parameters.ParamByName('y').Value:=lxform.SpinEdit1.Text ;
   dm.detail.Parameters.ParamByName('m').Value:=lxform.SpinEdit2.Text ;
   dm.detail.Open ;
 end;
end;

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

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

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

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

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

end.