base06.pas

家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來

unit Base06;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, ComCtrls, DBCtrls, ExtCtrls, Db,
  DBTables, Mask, RXDBCtrl, ImgList,  Menus, ToolWin, DBActns, ActnList,
  DBGridEh, XPMenu, RxCalc, ADODB;

type
  TFmBase06 = class(TForm)
    Panel2: TPanel;
    DSBase06: TDataSource;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    PopNew: TMenuItem;
    PopEdit: TMenuItem;
    PopDel: TMenuItem;
    PopFind: TMenuItem;
    PopFilter: TMenuItem;
    PopSave: TMenuItem;
    PopUndo: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ActionList1: TActionList;
    DataSetFirst: TDataSetFirst;
    DataSetPrior: TDataSetPrior;
    DataSetNext: TDataSetNext;
    DataSetLast: TDataSetLast;
    act_add: TAction;
    act_edit: TAction;
    act_dele: TAction;
    act_save: TAction;
    act_cancel: TAction;
    act_check: TAction;
    act_filter: TAction;
    act_brow: TAction;
    act_calu: TAction;
    act_prn: TAction;
    act_close: TAction;
    act_help: TAction;
    ImageListTable: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton16: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton17: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton18: TToolButton;
    ToolButton13: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton15: TToolButton;
    ToolButton14: TToolButton;
    Panelloc: TPanel;
    DBGrid1: TDBGridEh;
    XPMenu1: TXPMenu;
    RxCalculator1: TRxCalculator;
    act_nocheck: TAction;
    ToolButton21: TToolButton;
    N81: TMenuItem;
    v_ins: TADOQuery;
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DSBase06StateChange(Sender: TObject);
    procedure act_addExecute(Sender: TObject);
    procedure act_editExecute(Sender: TObject);
    procedure act_deleExecute(Sender: TObject);
    procedure act_saveExecute(Sender: TObject);
    procedure act_cancelExecute(Sender: TObject);
    procedure act_closeExecute(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid1Exit(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure act_caluExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    addenable,editenable,deleenable,prnenable,checkenable,browenable,locaenable,otherenable,amtenable : boolean;
  end;

var
  FmBase06: TFmBase06;

implementation
USES sysdata,main;
{$R *.DFM}

procedure TFmBase06.BtnNewClick(Sender: TObject);
begin
//  DSbase06.DataSet.Insert;
end;

procedure TFmBase06.BtnEditClick(Sender: TObject);
begin

//  DSbase06.DataSet.Refresh;
//  DSbase06.DataSet.Edit;
end;

procedure TFmBase06.BtnSaveClick(Sender: TObject);
begin
//  DSbase06.DataSet.Post;

end;

procedure TFmBase06.FormCreate(Sender: TObject);
//VAR
//  screenheight,screenwidth : longint;
begin
//  screenwidth:=800;
//  screenheight:=600;
  Top := 0;
  Left := 0;
//  HEIGHT :=510;
//  WIDTH :=780;
  height:=682;
  width:=1006;
  addenable:=true;
  editenable:=true;
  deleenable:=true;
  prnenable:=true;
  checkenable:=true;
  browenable:=true;
  locaenable:=true;
  otherenable:=true;
  amtenable:=true;
  act_check.Enabled:=checkenable;
  act_nocheck.Enabled:=checkenable;
  act_prn.Enabled:=prnenable;
end;

procedure TFmBase06.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    key := #0;
    SelectNext(ActiveControl,true,true);
  end;
end;


procedure TFmBase06.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;


procedure TFmBase06.DSBase06StateChange(Sender: TObject);
begin
  if DSBase06.DataSet.State in [dsEdit, dsInsert] then
    begin
      act_Save.Enabled := True;
      act_cancel.Enabled := True;
      act_add.Enabled := False and addenable ;
      act_Edit.Enabled := False and editenable;
      act_Dele.enabled := false and deleenable;
      act_filter.Enabled := False and browenable;
      act_brow.Enabled := False and locaenable;
      act_prn.Enabled:= false and prnenable;
    end
  else
    begin
      act_Save.Enabled := False;
      act_cancel.Enabled := False;
      act_add.Enabled := True and addenable;
      act_edit.Enabled := True and editenable;
      act_dele.Enabled := True and deleenable;
      act_filter.Enabled := True and browenable;
      act_brow.enabled := true and locaenable;
      act_prn.Enabled:= true and prnenable;      
    end;
end;


procedure TFmBase06.act_addExecute(Sender: TObject);
begin
  DBGrid1.ReadOnly:=false;
  activecontrol:=panelloc;
end;

procedure TFmBase06.act_editExecute(Sender: TObject);
begin
  DBGrid1.ReadOnly:=false;
end;

procedure TFmBase06.act_deleExecute(Sender: TObject);
begin
  DBGrid1.ReadOnly:=false;
//  DSbase06.DataSet.Refresh;
  if DSBASE06.DataSet.IsEmpty then
    begin
      MessageDlg('癘魁栋