p_ffry.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_ffry;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, dxDotNetCtrls,
  SUIComboBox, Mask, SUIDBCtrls, Buttons;

type
  Tf_ffry = class(Tf_mc)
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    PAN: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ygh: TsuiDBEdit;
    suiDBEdit2: TsuiDBEdit;
    ygxm: TsuiDBEdit;
    bm: TsuiDBLookupComboBox;
    zw: TsuiDBLookupComboBox;
    suiDBComboBox1: TsuiDBComboBox;
    suiDBEdit4: TsuiDBEdit;
    suiDBEdit5: TsuiDBEdit;
    suiDBMemo1: TsuiDBMemo;
    b_add: TBitBtn;
    b_edit: TBitBtn;
    b_save: TBitBtn;
    b_del: TBitBtn;
    b_cancel: TBitBtn;
    b_exit: TBitBtn;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure b_addClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_ffry: Tf_ffry;

implementation

USES P_DM,db;
{$R *.dfm}

procedure Tf_ffry.FormCreate(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    t_ffry.Open;
    t_bm.Open;
    t_zw.Open;
    QUERY.SQL.Clear;
    QUERY.SQL.Add('select * from ffry_info,bm_info,zw_info where bm_info.bmh=ffry_info.bmh AND ffry_info.zwh=zw_info.zwh');
    Query.Open;
  end;
end;

procedure Tf_ffry.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.T_ffry.Cancel;
  dm.T_ffry.Close;
  dm.Query.Close;
  dm.T_BM.Close;
  dm.t_zw.Close;
end;

procedure Tf_ffry.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  with dm do
  begin
    b_cancel.OnClick(self);
    t_ffry.Filter:='ygh='''+query['ygh']+'''';
    t_ffry.Filtered:=true;
  //  t_ffry.Filtered:=false;
  end;
end;

procedure Tf_ffry.b_addClick(Sender: TObject);
var
 i,j:integer;
 s:string;
begin
  inherited;
  i:=0;
  dm.T_ffry.Requery;
  dm.T_ffry.Filtered:=false;
  if dm.T_ffry.RecordCount<>0 then
  begin
    dm.T_ffry.Last;
    i:=dm.T_ffry['ygh'];
  end;
  s:=inttostr(i+1);
  for j:=1 to 6-length(s) do
  begin
    s:='0'+s;
  end;
  dm.T_ffry.Append;
  dm.T_ffry['ygh']:=s;
  dm.T_ffry['sex']:='男';
  if dm.T_BM.RecordCount<>0 then
  begin
    dm.t_bm.First;
    dm.t_ffry['bmh']:=dm.t_bm['bmh'];
  end;
  if dm.T_zw.RecordCount<>0 then
  begin
    dm.T_zw.First;
    dm.t_ffry['zwh']:=dm.t_zw['zwh'];
  end;
  b_add.Enabled:=false;
  b_edit.Enabled:=false;
  b_del.Enabled:=false;
  b_save.Enabled:=true;
  b_cancel.Enabled:=true;
  pan.Enabled:=true;
  pan.Font.Color:=$00990000;
  ygxm.SetFocus;
end;

procedure Tf_ffry.b_editClick(Sender: TObject);
begin
  inherited;
  dm.T_ffry.edit;
  b_edit.Enabled:=false;
  b_add.Enabled:=false;
  b_del.Enabled:=false;
  b_save.Enabled:=true;
  b_cancel.Enabled:=true;
  pan.Enabled:=true;
  pan.Font.Color:=$00990000;
  ygxm.SetFocus;
end;

procedure Tf_ffry.b_saveClick(Sender: TObject);
begin
  inherited;
  if (trim(ygh.Text)='')or(trim(ygxm.Text)='')or(trim(bm.Text)='')or(trim(zw.Text)='') then
  begin
    application.MessageBox('员工编号、姓名、部门、职位必须输入！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  try
    dm.T_ffry.post;
  except
    application.MessageBox('数据库增加或修改不成功！','提交数据失败',mb_ok+mb_iconstop);
  end;
  b_add.Enabled:=true;
  b_edit.Enabled:=true;
  b_del.Enabled:=true;
  b_save.Enabled:=false;
  b_cancel.Enabled:=false;
  pan.Enabled:=false;
  pan.Font.Color:=clwindowtext;
  dm.Query.Close;
  dm.Query.Open;
  dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
end;

procedure Tf_ffry.b_cancelClick(Sender: TObject);
begin
  inherited;
  dm.T_ffry.cancel;
  b_add.Enabled:=true;
  b_edit.Enabled:=true;
  b_del.Enabled:=true;
  b_save.Enabled:=false;
  b_cancel.Enabled:=false;
  pan.Font.Color:=clwindowtext;
  pan.Enabled:=false;
end;

procedure Tf_ffry.b_exitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tf_ffry.b_delClick(Sender: TObject);
begin
  inherited;
  if application.MessageBox('您确认删除该记录吗？','提问',mb_yesno+mb_iconquestion)=idno then
  begin
    exit;
  end;
  try
    dm.T_ffry.Delete;
  except
    application.MessageBox('数据库删除不成功！','数据删除失败',mb_ok+mb_iconstop);
  end;
  dm.T_ffry.Filtered:=false;
  dm.Query.Close;
  dm.Query.Open;
  dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
end;

procedure Tf_ffry.Timer1Timer(Sender: TObject);
var
 book1,book2:tbookmark;
begin
  inherited;
  with dm do
  begin
    book1:=query.GetBookmark;
    book2:=t_ffry.GetBookmark;
    query.Close;
    query.Open;
    t_ffry.Requery;
    query.GotoBookmark(book1);
    t_ffry.GotoBookmark(book2);
    query.FreeBookmark(book1);
    t_ffry.FreeBookmark(book2);
  end;
end;

end.