worktype.pas

来自「这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限」· PAS 代码 · 共 85 行

unit WorkType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB, StdCtrls,
  Buttons, ComCtrls, ToolWin;

type
  TfrmWorkType = class(TForm)
    dxDBGrid1: TdxDBGrid;
    dsWorktype: TDataSource;
    dxDBGrid1WorkID: TdxDBGridMaskColumn;
    dxDBGrid1WorkName: TdxDBGridMaskColumn;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmWorkType: TfrmWorkType;

implementation

{$R *.dfm}

uses
  DataCenter,Main;

procedure TfrmWorkType.FormShow(Sender: TObject);
begin
  dmData.atblWorkType.Close;
  dmData.atblWorkType.Open;
end;

procedure TfrmWorkType.ToolButton1Click(Sender: TObject);
begin
  dmData.atblWorkType.Append;
end;

procedure TfrmWorkType.ToolButton2Click(Sender: TObject);
begin
  dmData.atblWorkType.UpdateBatch();
  showmessage('保存成功!');

end;

procedure TfrmWorkType.ToolButton3Click(Sender: TObject);
begin
  dmData.atblWorkType.CancelBatch();

end;

procedure TfrmWorkType.ToolButton4Click(Sender: TObject);
begin
  if MessageDlg('确定删除此工种代码吗?',mtConfirmation,[mbOk,mbCancel],0)=mrOk then
    dmData.atblWorkType.Delete;
  dmData.atblWorkType.UpdateBatch;  

end;

procedure TfrmWorkType.ToolButton5Click(Sender: TObject);
begin
  close;
end;

end.