base01.pas

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

unit Base01;

interface

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

type
  Tfmbase01 = class(TForm)
    Panel2: TPanel;
    PageControl: TPageControl;
    TSBrow: TTabSheet;
    TSEdit: TTabSheet;
    DSBase01: TDataSource;
    PopMenu: TPopupMenu;
    PopNew: TMenuItem;
    PopEdit: TMenuItem;
    PopDel: TMenuItem;
    PopFind: TMenuItem;
    PopFilter: TMenuItem;
    PopSave: TMenuItem;
    PopUndo: TMenuItem;
    Panel3: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    Panelloc: TPanel;
    ImageListTable: TImageList;
    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;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    RxCalculator1: TRxCalculator;
    DBGrid1: TDBGridEh;
    act_help: TAction;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    XPMenu1: TXPMenu;
    act_nocheck: TAction;
    ToolButton23: TToolButton;
    N81: TMenuItem;
    V_MAIN: TADOQuery;
    v_ins: TADOQuery;
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure PageControlChange(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DSBase01StateChange(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure act_deleExecute(Sender: TObject);
    procedure act_closeExecute(Sender: TObject);
    procedure act_caluExecute(Sender: TObject);
    procedure act_cancelExecute(Sender: TObject);
    procedure act_addExecute(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    addenable,editenable,deleenable,prnenable,checkenable,browenable,locaenable,otherenable,amtenable : boolean;
  end;

var
  fmbase01: Tfmbase01;

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

procedure Tfmbase01.BtnNewClick(Sender: TObject);
begin
//  DSBase01.DataSet.Insert;
end;

procedure Tfmbase01.BtnEditClick(Sender: TObject);
begin
//  DSBase01.DataSet.Refresh;
//  DSBase01.DataSet.Edit;
end;

procedure Tfmbase01.PageControlChange(Sender: TObject);
begin
  if PageControl.ActivePage = TSBrow then
    if act_Save.Enabled then
      PageControl.ActivePage := TSEdit;
end;

procedure Tfmbase01.BtnSaveClick(Sender: TObject);
begin
//  DSBase01.DataSet.Post;
end;

procedure Tfmbase01.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;

{  scaled:=true;
  if (screen.width<>screenwidth) then
  begin
    height:=longint(height)*longint(screen.height-120) div screenheight;
    width :=longint(width)*longint(screen.width-215) div screenwidth;
    scaleby(screen.width,screenwidth);
  end;
  IF NOT Smallfonts then scaleby(96,120);}
end;

procedure Tfmbase01.BtnCloseClick(Sender: TObject);
begin
//  BtnUndo.OnClick(self);
  PageControl.ActivePage := TSBrow;
end;

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


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


procedure Tfmbase01.DSBase01StateChange(Sender: TObject);
begin
  if DSBase01.DataSet.State in [dsEdit, dsInsert] then
    begin
      pagecontrol.activepage := tsedit;
      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
      pagecontrol.activepage := tsbrow;
      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 Tfmbase01.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
//  changecol(dbgrid1,key);
end;

procedure Tfmbase01.act_deleExecute(Sender: TObject);
begin
//  if DSBase01.DataSet.BOF and DSBase01.DataSet.EOF then
   if dsbase01.DataSet.IsEmpty then
    begin
      MessageDlg('癘魁栋