unit3.pas

一个大地科贸公司的公司管理系统

unit Unit3;

interface

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

type
  TFrm_worker = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Btn_Add: TBitBtn;
    Btn_Ims: TBitBtn;
    Btn_Del: TBitBtn;
    Btn_Exit: TBitBtn;
    Label3: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Label4: TLabel;
    Label5: TLabel;
    procedure Btn_ExitClick(Sender: TObject);
    procedure Btn_AddClick(Sender: TObject);
    procedure Btn_ImsClick(Sender: TObject);
    procedure Btn_DelClick(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_worker: TFrm_worker;

implementation

{$R *.dfm}

procedure TFrm_worker.Btn_ExitClick(Sender: TObject);
begin
Self.Close;
end;

procedure TFrm_worker.Btn_AddClick(Sender: TObject);

var
  id:integer;
begin
  with table1 do
  begin
     last;
     id:=fieldbyname('序号').asinteger;
     append;
     edit;
          fieldbyname('序号').asinteger:=id+1;
          post;
  end;
end;

procedure TFrm_worker.Btn_ImsClick(Sender: TObject);
begin
Table1.Insert;
Table1.Post;
end;

procedure TFrm_worker.Btn_DelClick(Sender: TObject);
begin
     if table1.RecordCount>0 then
begin
     if messagedlg('真的要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
        table1.Delete;
end
else
messagedlg('无记录可删除!',mtwarning,[mbyes],0);
end;

procedure TFrm_worker.DBComboBox1Change(Sender: TObject);
begin
Table1.post;
Table1.edit;

end;

end.