bmunit.pas

一个票据管理系统

unit BmUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls, Buttons;

type
  TBmForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Bitadd: TBitBtn;
    Bitedit: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Bitdel: TBitBtn;
    procedure BmNewll;
    procedure BitaddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridCeClick(Column: TColumn);
    procedure Formshow(Sender: TObject);
    procedure BiteditClick(Sender: TObject);
    procedure BitdelClick(Sender: TObject);
    procedure edit1keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edit2keydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure formclose(Sender: TObject; var Action: TCloseAction);
    procedure edit1keypress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BmForm: TBmForm;

implementation
uses dm;
{$R *.dfm}
procedure Tbmform.BmNewll;
begin
 with dmdata.BmADOQuery do
 begin
   close;
   sql.Clear;
   sql.Add('select * from t_bm');
   open;
 end;
end;
procedure TBmForm.BitaddClick(Sender: TObject);
begin
  if edit1.Text = '' then
  begin
    showmessage('部门不能为空');
    exit;
  end;
  if edit2.Text = '' then
  begin
    showmessage('科目不能为空');
    exit;
  end;
  with dmdata.BmADOQuery do
  begin
   close;
   sql.Clear;
   sql.Add('select * from t_bm where km=:a');
   parameters.ParamByName('a').Value := trim(edit1.Text);
   open;
   if RecordCount > 0 then
   begin
     showmessage('该科目已经存在');
     exit;
   end
   else
   begin
   with dmdata.BmADOQuery do
   begin
     close;
     sql.Clear;
     sql.Add('insert into t_bm(km,DWbm) values(:a,:b)');
     parameters.ParamByName('a').Value:=trim(edit1.Text);
     parameters.ParamByName('b').Value:=trim(edit2.Text);
     execsql;
   end;
   bmnewll;
   edit1.SetFocus;
   edit1.Text:='';
   edit2.Text:='';
 end;
 end; 
end;
procedure TBmForm.FormCreate(Sender: TObject);
begin
    BmNewll;
end;

procedure TBmForm.DBGridCeClick(Column: TColumn);
begin
 with dmdata.BmADOQuery do
 begin
   if RecordCount > 0 then
   begin
     //label3.Caption:=inttostr(fieldbyname('ID').AsInteger);
     edit2.Text:=fieldbyname('dwbm').AsString;
     edit1.Text:=fieldbyname('km').AsString;
   end;
 end;
 //showmessage(label3.Caption);
end;

procedure TBmForm.Formshow(Sender: TObject);
begin
   edit1.SetFocus;
end;

procedure TBmForm.BiteditClick(Sender: TObject);
begin
  if (edit1.Text='') and (edit2.Text='') then
  begin
    showmessage('请选择修改记录！');
    exit;
  end;
  with dmdata.BmADOQuery do
  begin
   close;
   sql.Clear;
   sql.Add('select * from t_bm where km=:a');
   parameters.ParamByName('a').Value := trim(edit1.Text);
   open;
   if RecordCount > 0 then
   begin
    with dmdata.BmADOQuery do
    begin
     close;
     sql.Clear;
     sql.Add('update t_bm set dwbm =:b where (km =:a)' );
     //parameters.ParamByName('a').Value:=strtoint(label3.Caption);
     parameters.ParamByName('a').Value:=trim(edit1.Text);
     parameters.ParamByName('b').Value:=trim(edit2.Text);
     execsql;
    end;
    end
    else
    begin
         bmnewll;
        showmessage('该科目不存在,不能修改');
        exit;
    end;
  end;
  bmnewll;
  edit1.SetFocus;
   edit1.Text:='';
   edit2.Text:='';
end;

procedure TBmForm.BitdelClick(Sender: TObject);
begin
 if (edit1.Text='') and (edit2.Text='') then
  begin
    showmessage('请选择要删除的记录！');
    exit;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from T_ms_jl where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from T_kqb where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该票部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from T_Grb where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from T_Lyb where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from T_XHb where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.ShowADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from t_th where ql_id = :a');
    parameters.ParamByName('a').Value := trim(edit1.Text);
    open;
    if RecordCount > 0 then
    begin
     showmessage('该部门已经使用,不能删除!');
     exit;
    end;
  end;
  with dmdata.BmADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('delete from t_bm  where (km =:a)' );
    parameters.ParamByName('a').Value:=trim(edit1.Text);
    execsql;
  end;
  bmnewll;
  edit1.SetFocus;
   edit1.Text:='';
   edit2.Text:='';
end;

procedure TBmForm.edit1keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key=vk_return) or (key = vk_down) then
 begin
    edit2.SetFocus;
 end;   
end;

procedure TBmForm.edit2keydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_return) or (key = vk_down) then
  begin
    bitadd.SetFocus;
  end;
  if key = vk_up then
  begin
    edit1.SetFocus;
  end;
end;

procedure TBmForm.formclose(Sender: TObject; var Action: TCloseAction);
begin
  dmdata.BmADOQuery.Close;
end;

procedure TBmForm.edit1keypress(Sender: TObject; var Key: Char);
var
  m:boolean;
begin
  m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
  if m then key := #0;
end;

end.