?? bassmessage_ywy.pas
字號:
unit BASSMESSAGE_YWY;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FRMBASSMESSAGE, DB, DBTables, ImgList, MenuBar, ComCtrls, Grids,
DBGrids, ToolWin, ExtCtrls, StdCtrls,frmmain,myself;
type
TFrm_bassmessage_ywy = class(TFrm_bassmessage)
Query_del: TQuery;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure TB_addClick(Sender: TObject);
procedure TB_EDITClick(Sender: TObject);
procedure TB_DELClick(Sender: TObject);
private
B_create:boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_bassmessage_ywy: TFrm_bassmessage_ywy;
implementation
uses EDIT_YWY;
{$R *.dfm}
procedure TFrm_bassmessage_ywy.FormCreate(Sender: TObject);
begin
inherited;
B_create:=false;
query_del.DatabaseName :=HWSHOPDATA;
self.Caption :='業務員信息設置';
with query_data do
begin
close;
sql.Clear ;
sql.Text :='SELECT * from people';
try
open;
B_create:=true;
except
messagedlg(Errormsg0001+'0008',mtError,[mbok],0);
close;
B_create:=false;
end;
end;
end;
procedure TFrm_bassmessage_ywy.FormPaint(Sender: TObject);
begin
inherited;
if not B_create then
self.Close ;
end;
procedure TFrm_bassmessage_ywy.TB_addClick(Sender: TObject);
begin
inherited;
if not Checkrights(USERRIGHTS,'增加') then
begin
messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
exit;
end;
Application.CreateForm(Tfrm_edit_ywy,frm_edit_ywy);
frm_edit_ywy.Caption :='業務員信息(增加)';
frm_edit_ywy.P_state :=0;
frm_edit_ywy.showmodal;
frm_edit_ywy.free;
tb_refresh.Click ;
query_data.Last ;
end;
procedure TFrm_bassmessage_ywy.TB_EDITClick(Sender: TObject);
begin
inherited;
if not Checkrights(USERRIGHTS,'編輯') then
begin
messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
exit;
end;
Application.CreateForm(Tfrm_edit_ywy,frm_edit_ywy);
frm_edit_ywy.Caption :='業務員信息(編輯)';
frm_edit_ywy.P_state :=1;
with query_data do
begin
frm_edit_ywy.E_name.Text :=fieldbyname('name').asstring;
frm_edit_ywy.E_id.Text :=fieldbyname('id').asstring;
frm_edit_ywy.E_sex.Text :=fieldbyname('sex').asstring;
frm_edit_ywy.E_department.Text :=fieldbyname('depat').asstring;
frm_edit_ywy.E_type.Text :=fieldbyname('usertype').asstring;
frm_edit_ywy.E_memo.Text :=fieldbyname('memo').asstring;
end;
frm_edit_ywy.showmodal;
frm_edit_ywy.free;
tb_refresh.Click ;
end;
procedure TFrm_bassmessage_ywy.TB_DELClick(Sender: TObject);
begin
inherited;
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 people 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;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -