p_gh.pas

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

unit p_gh;

interface

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

type
  Tf_gh = class(Tf_mc)
    Bevel1: TBevel;
    PAN: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    khh: TsuiDBEdit;
    suiDBEdit2: TsuiDBEdit;
    khm: TsuiDBEdit;
    khyh: TsuiDBLookupComboBox;
    suiDBMemo1: TsuiDBMemo;
    suiDBEdit4: TsuiDBEdit;
    suiDBEdit5: TsuiDBEdit;
    DBGrid1: TDBGrid;
    b_add: TBitBtn;
    b_edit: TBitBtn;
    b_save: TBitBtn;
    b_del: TBitBtn;
    b_cancel: TBitBtn;
    b_exit: TBitBtn;
    Label11: TLabel;
    Label15: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    suiDBEdit1: TsuiDBEdit;
    suiDBEdit3: TsuiDBEdit;
    suiDBEdit6: TsuiDBEdit;
    tel: TsuiDBEdit;
    suiDBEdit8: TsuiDBEdit;
    suiDBEdit9: TsuiDBEdit;
    suiDBEdit10: TsuiDBEdit;
    suiDBEdit11: TsuiDBEdit;
    Bevel2: TBevel;
    cb_khm: TsuiCheckBox;
    cb_lxr: TsuiCheckBox;
    cb_tel: TsuiCheckBox;
    ekhm: TsuiEdit;
    etel: TsuiEdit;
    elxr: TsuiEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label16: TLabel;
    procedure b_addClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure cb_khmClick(Sender: TObject);
    procedure cb_lxrClick(Sender: TObject);
    procedure cb_telClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_gh: Tf_gh;

implementation

uses p_dm,p_gl;

{$R *.dfm}

procedure Tf_gh.b_addClick(Sender: TObject);
var
 i,j:integer;
 s:string;
begin
  inherited;
  i:=0;
  dm.T_KH.Requery;
  dm.T_KH.Filtered:=false;
  if dm.T_KH.RecordCount<>0 then
  begin
    dm.T_KH.Last;
    i:=dm.T_KH['khh'];
  end;
  s:=inttostr(i+1);
  for j:=1 to 10-length(s) do
  begin
    s:='0'+s;
  end;
  dm.T_kh.Append;
  dm.T_KH['khh']:=s;
  if dm.T_yh.RecordCount<>0 then
  begin
    dm.t_yh.First;
    dm.t_kh['khyh']:=dm.t_yh['yhm'];
  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;
  khm.SetFocus;
end;

procedure Tf_gh.b_editClick(Sender: TObject);
begin
  inherited;
  dm.T_kh.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;
  khm.SetFocus;
end;

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

end;

procedure Tf_gh.b_saveClick(Sender: TObject);
begin
  inherited;
  if (trim(khh.Text)='')or(trim(khm.Text)='')or(trim(tel.Text)='')or(trim(khyh.Text)='') then
  begin
    application.MessageBox('客户编号、名称、联系电话、开户银行必须输入！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  try
    dm.T_kh.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_gh.b_cancelClick(Sender: TObject);
begin
  inherited;
  dm.T_kh.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_gh.b_exitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tf_gh.FormCreate(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    t_kh.Open;
    t_yh.Open;
    QUERY.SQL.Clear;
    QUERY.SQL.Add('select * from kh_info');
    Query.Open;
  end;
end;

procedure Tf_gh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.T_KH.Cancel;
  if dm.query.RecordCount=0 then
  begin
    pkhh:='';
    pkhm:='';
  end else
  begin
    pkhh:=dm.query['khh'];
    pkhm:=dm.query['khm'];
  end;
  dm.Query.Close;
  dm.T_yh.Close;
  dm.T_KH.Close;
end;

procedure Tf_gh.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  with dm do
  begin
    if query.RecordCount=0 then
    begin
      b_edit.Enabled:=false;
      b_del.Enabled:=false;
      exit;
    end else
    begin
      b_edit.Enabled:=true;
      b_del.Enabled:=true;
    end;
    b_cancel.OnClick(self);
    t_kh.Filter:='khh='''+query['khh']+'''';
    t_kh.Filtered:=true;
  end;
end;

procedure Tf_gh.cb_khmClick(Sender: TObject);
begin
  inherited;
  if cb_khm.Checked then
     ekhm.Enabled:=true
  else
     ekhm.Enabled:=false;
end;

procedure Tf_gh.cb_lxrClick(Sender: TObject);
begin
  inherited;
  if cb_lxr.Checked then
     elxr.Enabled:=true
  else
     elxr.Enabled:=false;
end;

procedure Tf_gh.cb_telClick(Sender: TObject);
begin
  inherited;
  if cb_tel.Checked then
     etel.Enabled:=true
  else
     etel.Enabled:=false;
end;

procedure Tf_gh.BitBtn2Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    query.SQL.Clear;
    query.SQL.Add('select * from kh_info');
    query.Open;
    cb_khm.Checked:=false;
    cb_lxr.Checked:=false;
    cb_tel.Checked:=false;
    dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
  end;
end;

procedure Tf_gh.BitBtn1Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if (not cb_lxr.Checked)and(not cb_khm.Checked)and(not cb_tel.Checked) then
    begin
      application.MessageBox('请选择查询类别！','查询',mb_ok+mb_iconwarning);
      exit;
    end;
    query.SQL.Clear;
    query.SQL.Add('select * from kh_info where');
    if cb_khm.Checked then
    begin
       query.SQL.Add(' khm like :khm');
       query.Parameters.Paramvalues['khm']:=trim(ekhm.Text)+'%';
    end;
    if cb_lxr.Checked then
    begin
       if cb_khm.Checked then
          query.SQL.Add(' and lxr like :lxr')
       else
          query.SQL.Add(' lxr like :lxr');
       query.Parameters.ParamValues['lxr']:=trim(elxr.Text)+'%';
    end;
    if cb_tel.Checked then
    begin
      if (cb_lxr.Checked)or(cb_khm.Checked) then
         Query.SQL.Add(' and (tel1 like :tel1 or tel2 like :tel2)')
      else
         query.SQL.Add('(tel1 like :tel1 or tel2 like :tel2)');
      query.Parameters.ParamValues['tel1']:=trim(etel.Text)+'%';
      query.Parameters.ParamValues['tel2']:=trim(etel.Text)+'%';
    end;
    query.Open;
    dbgrid1.OnCellClick(dbgrid1.Columns.Items[dbgrid1.SelectedRows.count]);
  end; //with .. end
end;

procedure Tf_gh.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  if sjkh then close;
end;

end.