load.~pas

伤残金发放管理系统软件源码,个人作品,现在工作中用到它.

unit Load;

interface

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

type
  TLoadForm = class(TForm)
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ADOQuery: TADOQuery;
    ToolBar1: TToolBar;
    ToolButton9: TToolButton;
    newButton: TToolButton;
    DeleteButton: TToolButton;
    QueDinButton: TToolButton;
    SaveButton: TToolButton;
    ToolButton3: TToolButton;
    QuXiaoButton: TToolButton;
    ImageList1: TImageList;
    procedure QueDinButtonClick(Sender: TObject);
    procedure QuXiaoButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure newButtonClick(Sender: TObject);
    procedure DeleteButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    QueDin:Boolean;
  end;

var
  LoadForm: TLoadForm;

implementation

{$R *.dfm}

procedure TLoadForm.QueDinButtonClick(Sender: TObject);
begin
  QueDin:=true;
  LoadForm.Close;
end;

procedure TLoadForm.QuXiaoButtonClick(Sender: TObject);
begin
  LoadForm.Close;
end;

procedure TLoadForm.FormShow(Sender: TObject);
var Path,Str:String;
begin
  Path:=ExtractFileDir(Application.ExeName);
  if pchar(Path)[Length(Path)-1]<>'\' then Path := Path + '\';
  Path:=Path+'SCJ.mdb;';
  Str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Path+'Persist Security Info=False';
  if ADOQuery.Active then ADOQuery.Close;
  ADOQuery.ConnectionString:=Str;
  ADOQuery.SQL.Text :='SELECT * FROM money1';
  ADOQuery.Open; 

  QueDin:=false;
end;

procedure TLoadForm.newButtonClick(Sender: TObject);
begin
  DataSource.DataSet.Insert;
end;

procedure TLoadForm.DeleteButtonClick(Sender: TObject);
begin
  DataSource.DataSet.Delete; 
end;

procedure TLoadForm.SaveButtonClick(Sender: TObject);
begin
  try
    DataSource.DataSet.Post;
  except
  end;  
end;

end.