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.