kmgl.pas

凭证管理系统的制作

unit kmgl;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel3: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
    uses DataModal4;
{$R *.dfm}

procedure TForm4.FormShow(Sender: TObject);
begin
  with Da.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 会计科目表');
    Open;
  end;
  if Da.ADOQuery1.RecordCount>0 then
    DataSource1.DataSet := Da.ADOQuery1
  else
  begin
    DataSource1.DataSet := Nil;
    BitBtn2.Enabled := False;
  end;
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'') and(Trim(Edit2.Text)<>'') then
  begin
    Try
      with Da.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Insert 会计科目表 values (:a,:b)');
        Parameters.ParamByName('a').Value := Trim(Edit2.Text);
        Parameters.ParamByName('b').Value := Trim(Edit1.Text);
        ExecSQL;
      end;
      Application.MessageBox('添加成功。','提示',64);
      BitBtn2.Enabled := True;
      BitBtn5.OnClick(Sender);
      Self.OnShow(Sender);
    Except
      Application.MessageBox('系统出错。','提示',64);
      Close;
    end;
  end
  else
    Application.MessageBox('请添加摘要编号或摘要名称。','提示',64);
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
  if (Da.ADOQuery1.Active = True)and(Da.ADOQuery1.RecordCount>0) then
    if Application.MessageBox(Pchar('确实要删除摘要编号为' + Trim(Da.ADOQuery1.FieldByName('科目编号').Value)+'的摘要吗？'),'提示',MB_YesNo)= ID_Yes then
    begin
      Da.ADOQuery1.Delete;
      self.OnShow(Sender);
    end;
end;

procedure TForm4.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    if Trim(Edit1.Text)<>'' then
      BitBtn4.SetFocus;
end;

procedure TForm4.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm4.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TForm4.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    Edit1.SetFocus;
end;

end.