lcbaseunit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit LCBASEUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, DBCtrls, DBCtrlsEh, Mask, Buttons, Tabenter,
  Grids, DBGridEh, ComCtrls, ToolWin, ExtCtrls,db, TFlatButtonUnit,
  TFlatPanelUnit;

type
  TLCBASE_Form = class(TForm)
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    tbbtnPrint: TToolButton;
    ToolButton3: TToolButton;
    tbbtnNewBill: TToolButton;
    tbbtnDeleteBill: TToolButton;
    tbbtnCommit: TToolButton;
    tbbtnRollback: TToolButton;
    ToolButton11: TToolButton;
    tbbtnPrior: TToolButton;
    ToolButton4: TToolButton;
    tbbtnNext: TToolButton;
    tbbtnLast: TToolButton;
    ToolButton5: TToolButton;
    tbbtnFirst: TToolButton;
    ToolButton23: TToolButton;
    tbbtnSearch: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGridEh1: TDBGridEh;
    PageControl2: TPageControl;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    kEnterAsTab1: TkEnterAsTab;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    DBMemo1: TDBMemo;
    ilSmall: TImageList;
    DBEditEh3: TDBEditEh;
    FlatPanel1: TFlatPanel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tbbtnNewBillClick(Sender: TObject);
    procedure tbbtnDeleteBillClick(Sender: TObject);
    procedure tbbtnCommitClick(Sender: TObject);
    procedure tbbtnRollbackClick(Sender: TObject);
    procedure tbbtnSearchClick(Sender: TObject);
    procedure tbbtnPriorClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure tbbtnNextClick(Sender: TObject);
    procedure tbbtnLastClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure tbbtnFirstClick(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure tbbtnPrintClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    function BS(M:integer):integer;
    { Public declarations }
  end;

var
  LCBASE_Form: TLCBASE_Form;

implementation

uses DMUnit, RPTUnit, U_CheckRights;

{$R *.dfm}

procedure TLCBASE_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TLCBASE_Form.FormDestroy(Sender: TObject);
begin
  LCBASE_FORM:=nil;
end;

procedure TLCBASE_Form.FormCreate(Sender: TObject);
begin
  with DM.LCBASE_ADOQ do
  begin
    Close;
    OPen;
  end;
end;

procedure TLCBASE_Form.tbbtnNewBillClick(Sender: TObject);
begin
  DM.LCBASE_ADOQ.First;
end;

procedure TLCBASE_Form.tbbtnDeleteBillClick(Sender: TObject);
begin
  DM.LCBASE_ADOQ.Prior;
end;

procedure TLCBASE_Form.tbbtnCommitClick(Sender: TObject);
begin
  DM.LCBASE_ADOQ.Next;
end;

procedure TLCBASE_Form.tbbtnRollbackClick(Sender: TObject);
begin
  DM.LCBASE_ADOQ.Last;
end;

procedure TLCBASE_Form.tbbtnSearchClick(Sender: TObject);
begin
  Close;
end;

procedure TLCBASE_Form.tbbtnPriorClick(Sender: TObject);
begin
  if DM.LCBASE_ADOQ.State in [DSBROWSE] then
     DM.LCBASE_ADOQ.Append;
     BS(0);
     DBEditEh1.SetFocus;
end;

function TLCBASE_Form.BS(M: integer): integer;
begin
  if M=0 then
  begin
    DBEditEh1.Enabled:=True;
    DBEditEh2.Enabled:=True;
    DBMemo1.Enabled:=True;
    DBEditEh3.Enabled:=True;
  end;
  if M=1 then
  begin
    DBEditEh1.Enabled:=false;
    DBEditEh2.Enabled:=false;
    DBMemo1.Enabled:=false;
    DBEditEh3.Enabled:=false;
  end;
end;

procedure TLCBASE_Form.ToolButton4Click(Sender: TObject);
begin
  if DM.LCBASE_ADOQ.RecordCount<=0 then Exit;
  if DM.LCBASE_ADOQ.State in [DSBROWSE] then
     DM.LCBASE_ADOQ.Edit;
     BS(0);
     DBEditEh1.SetFocus;
end;

procedure TLCBASE_Form.tbbtnNextClick(Sender: TObject);
begin
  if DM.LCBASE_ADOQ.RecordCount<=0 then Exit;
  if Application.MessageBox('是否确认删除该列车信息？', '提示',
     MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES then
     DM.LCBASE_ADOQ.Delete;
end;

procedure TLCBASE_Form.tbbtnLastClick(Sender: TObject);
begin
  if (Trim(DBEditEh1.Text)='') or (Trim(DBEditEh2.Text)='') Then Exit;
  if DM.LCBASE_ADOQ.State in [DSINSERT,DSeDIT] Then
  dm.LCBASE_ADOQ.Post;
  bs(1);
end;

procedure TLCBASE_Form.ToolButton5Click(Sender: TObject);
begin
  DM.LCBASE_ADOQ.Cancel;
  BS(1);
end;

procedure TLCBASE_Form.tbbtnFirstClick(Sender: TObject);
begin
  with DM.LCBASE_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM LCBASE');
    Open;
  end;
end;

procedure TLCBASE_Form.FlatButton1Click(Sender: TObject);
var
  S:String;           //查询
begin
  S:='SELECT * FROM LCBASE WHERE 2>1';
  if Trim(Edit1.Text)<>'' then
    S:=S+' AND LC_NO='''+Edit1.Text+'''';
  if Trim(Edit2.Text)<>'' then
    S:=S+' AND LC_CARNO='''+Edit2.Text+'''';
  if Trim(Edit3.Text)<>'' then
    S:=S+' AND LC_NAME='''+Edit3.Text+'''';
  with DM.LCBASE_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add(S);
    Open;
  end;

end;

procedure TLCBASE_Form.FlatButton2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

procedure TLCBASE_Form.tbbtnPrintClick(Sender: TObject);
begin
  RPTDM.LCBASE_Rpt.LoadFromFile(ExtractFilePath(ParamStr(0)) +   'RPT/列车信息.frf');
  RPTDM.LCBASE_Rpt.ShowReport;
end;

procedure TLCBASE_Form.FormShow(Sender: TObject);
begin
  tbbtnPrint.Enabled:=CheckRights('列车基础信息','打印');
  tbbtnNewBill.Enabled:=CheckRights('列车基础信息','最头');
  tbbtnDeleteBill.Enabled:=CheckRights('列车基础信息','上一条');
  tbbtnCommit.Enabled:=CheckRights('列车基础信息','下一条');
  tbbtnRollback.Enabled:=CheckRights('列车基础信息','最后');
  tbbtnPrior.Enabled:=CheckRights('列车基础信息','新建');
  ToolButton4.Enabled:=CheckRights('列车基础信息','修改');
  tbbtnNext.Enabled:=CheckRights('列车基础信息','删除');
  tbbtnLast.Enabled:=CheckRights('列车基础信息','保存');
  ToolButton5.Enabled:=CheckRights('列车基础信息','撤消');
  tbbtnFirst.Enabled:=CheckRights('列车基础信息','刷新');
end;

end.