?? ywyinfounit.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -