ywyinfounit.pas

一个用delphi 开发的商场销售系统 涵盖很多功能

unit YWYInfoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ComCtrls, Grids, DBGrids, ToolWin, ExtCtrls;

type
  TYWYInfoForm = class(TForm)
    PanelBkGnd: TPanel;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_EDIT: TToolButton;
    TB_DEL: TToolButton;
    TB_refresh: TToolButton;
    TB_EXIT: TToolButton;
    DBG_BASSMESS: TDBGrid;
    Query_del: TQuery;
    DataSource: TDataSource;
    Query_data: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure TB_addClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure TB_EXITClick(Sender: TObject);
    procedure TB_refreshClick(Sender: TObject);
  private
    B_create: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWYInfoForm: TYWYInfoForm;

implementation

uses FunctionUnit, MainUnit, YWYEditUnit;
{$R *.dfm}

procedure TYWYInfoForm.FormCreate(Sender: TObject);
begin
  B_create := false;
  query_del.DatabaseName := 'CPXSGL';
  query_data.DatabaseName := 'CPXSGL';
  self.Caption := Application.Title + ' - 业务员信息设置';
  with query_data do
  begin
    close;
    sql.Clear;
    sql.Text := 'SELECT * from YWYData';
    try
      open;
      B_create := true;
    except
      messagedlg(Errormsg0001 + '0008', mtError, [mbok], 0);
      close;
      B_create := false;
    end;
  end;

end;

procedure TYWYInfoForm.FormPaint(Sender: TObject);
begin
  if not B_create then
    self.Close;
end;

procedure TYWYInfoForm.TB_addClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '增加') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  Application.CreateForm(TYWYEditForm, YWYEditForm);
  YWYEditForm.Caption := '业务员信息（增加）';
  YWYEditForm.P_state := 0;
  YWYEditForm.C_type.ItemIndex := 0;
  YWYEditForm.showmodal;
  YWYEditForm.free;
  tb_refresh.Click;
  query_data.Last;
end;

procedure TYWYInfoForm.TB_EDITClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '编辑') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  Application.CreateForm(TYWYEditForm, YWYEditForm);
  YWYEditForm.Caption := '业务员信息（编辑）';
  YWYEditForm.P_state := 1;
  with query_data do
  begin
    YWYEditForm.E_name.Text := fieldbyname('name').asstring;
    YWYEditForm.E_id.Text := fieldbyname('id').asstring;
    YWYEditForm.E_sex.Text := fieldbyname('sex').asstring;
    YWYEditForm.E_department.Text := fieldbyname('depot').asstring;
    if fieldbyname('usertype').asstring = '在职' then
      YWYEditForm.C_type.ItemIndex := 0
    else if fieldbyname('usertype').asstring = '调职' then
      YWYEditForm.C_type.ItemIndex := 1
    else
      YWYEditForm.C_type.ItemIndex := 2;
    YWYEditForm.E_memo.Text := fieldbyname('memo').asstring;
  end;
  YWYEditForm.showmodal;
  YWYEditForm.free;
  tb_refresh.Click;
end;

procedure TYWYInfoForm.TB_DELClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '删除') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  if messagedlg('警告：删除业务员信息数据可能产生严重数据丢失现象，请不要在此删除业务员信息数据' + chr(13) + chr(13)
    + '删除数据操作将不可恢复，确定要删除本记录吗？', mtWarning, [mbyes, mbno], 0) = mryes then
    if messagedlg('再次警告：为了保证数据库内数据信息的完整性，请不要在此删除业务员信息数据' + chr(13) + chr(13)
      + '删除数据操作将不可恢复，确定要删除本记录吗？', mtWarning, [mbyes, mbno], 0) = mryes then
    begin
      with query_del do
      begin
        close;
        sql.Clear;
        sql.Text := 'delete from YWYData where id=''' + query_data.fieldbyname('ID').asstring + '''';
        try
          execsql;
        except
          messagedlg(Errormsg0005 + '0009', mtError, [mbok], 0);
          close;
          exit;
        end;
        messagedlg(Infmsg0002, mtInformation, [mbok], 0);
        close;
        tb_refresh.Click;
      end;
    end;
end;

procedure TYWYInfoForm.TB_EXITClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TYWYInfoForm.TB_refreshClick(Sender: TObject);
var
  I_index: integer;
begin
  I_index := query_data.RecNo;
  QUERY_data.Close;
  QUERY_data.Open;
  if I_index < query_data.RecordCount then
    query_data.RecNo := I_index
  else
    query_data.Last;
end;

end.