【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-DepotInfoUnit.pas,希望本篇文章对您学习有所帮助。
unit DepotInfoUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, ComCtrls, ToolWin, ExtCtrls;
type
TDepotInfoForm = 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 TB_addClick(Sender: TObject);
procedure TB_EDITClick(Sender: TObject);
procedure TB_DELClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TB_refreshClick(Sender: TObject);
procedure DBG_BASSMESSDblClick(Sender: TObject);
procedure TB_EXITClick(Sender: TObject);
private
B_create: boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
DepotInfoForm: TDepotInfoForm;
implementation
uses DepotEditUnit, MainUnit, FunctionUnit;
{$R *.dfm}
procedure TDepotInfoForm.TB_addClick(Sender: TObject);
begin
inherited;
if not Checkrights(USERRIGHTS, '增加') then
begin
messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
exit;
end;
Application.CreateForm(TDepotEditForm, DepotEditForm);
DepotEditForm.Caption := '商场及仓库信息(增加)';
DepotEditForm.P_state := 0;
DepotEditForm.C_Type.ItemIndex := 1;
DepotEditForm.showmodal;
DepotEditForm.free;
tb_refresh.Click;
query_data.Last;
end;
procedure TDepotInfoForm.TB_EDITClick(Sender: TObject);
begin
inherited;
if not Checkrights(USERRIGHTS, '编辑') then
begin
messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
exit;
end;
Application.CreateForm(TDepotEditForm, DepotEditForm);
DepotEditForm.Caption := '商场及仓库信息(编辑)';
DepotEditForm.P_state := 1;
with query_data do
begin
DepotEditForm.E_name.Text := fieldbyname('name').asstring;
if fieldbyname('type').AsString = '内部' then
DepotEditForm.C_Type.ItemIndex := 0
else if fieldbyname('type').AsString = '暂停' then
DepotEditForm.C_Type.ItemIndex := 2
else
DepotEditForm.C_Type.ItemIndex := 1;
DepotEditForm.E_ID.Text := fieldbyname('ID').asstring;
DepotEditForm.E_memo.Text := fieldbyname('memo').asstring;
end;
DepotEditForm.showmodal;
DepotEditForm.free;
tb_refresh.Click;
end;
procedure TDepotInfoForm.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 depot where id=''' + query_data.fieldbyname('ID').asstring + '''';
try
execsql;
except
messagedlg(Errormsg0005 + '0011', mtError, [mbok], 0);
close;
exit;
end;
messagedlg(Infmsg0002, mtInformation, [mbok], 0);
close;
tb_refresh.Click;
end;
end;
end;
procedure TDepotInfoForm.FormCreate(Sender: TObject);
begin
inherited;
B_create := false;
query_data.DatabaseName := 'CPXSGL';
query_del.DatabaseName := 'CPXSGL';
self.Caption := Application.Title + ' - 商场及仓库信息设置';
with query_data do
begin
close;
sql.Clear;
sql.Text := 'SELECT * from depot';
try
open;
B_create := true;
except
messagedlg(Errormsg0001 + '0008', mtError, [mbok], 0);
close;
B_create := false;
end;
end;
end;
procedure TDepotInfoForm.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;
procedure TDepotInfoForm.DBG_BASSMESSDblClick(Sender: TObject);
begin
TB_edit.Click;
end;
procedure TDepotInfoForm.TB_EXITClick(Sender: TObject);
begin
self.Close;
end;
end.
上一篇:
DyOpenCloseDlg.cpp
下一篇:
让我掉下眼泪的