unitdictionary.pas

来自「自己做过的工程」· PAS 代码 · 共 118 行

unit unitdictionary;

interface

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

type
  Tformdictionary = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    DataSourcesuptype: TDataSource;
    but_add: TButton;
    but_exit: TButton;
    but_modify: TButton;
    but_delete: TButton;
    procedure but_exitClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure but_addClick(Sender: TObject);
    procedure but_modifyClick(Sender: TObject);
    procedure but_deleteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formdictionary: Tformdictionary;

     addormodify:integer;     //录入还是修改
             SQL:string;

implementation
      uses unitDMHotel,unitsetsuptype_data;
{$R *.dfm}


procedure Tformdictionary.DBGrid1CellClick(Column: TColumn);
begin
    DBGrid1.SetFocus;
end;

//添加字典表记录     （这儿是酒菜类型设定）
procedure Tformdictionary.but_addClick(Sender: TObject);
begin
    //插入状态
    AddorModify:=1;
    //打开录入窗口
    formsetsuptype_data.ShowModal;
    formsetsuptype_data.Caption:='酒菜类型录入';
end;

//修改字典表记录
procedure Tformdictionary.but_modifyClick(Sender: TObject);
begin
    //没有选择纪录
    DMHotel.ds_dictionary_setsuptype.Open;
    if DMHotel.ds_dictionary_setsuptype.FieldByName('dicid').AsString='' then
       begin
         showmessage('请先选择要修改的纪录!');
         exit;
       end;

    //修改状态
    AddorModify:=0;
    //打开录入窗口
    formsetsuptype_data.ShowModal;
    formsetsuptype_data.Caption:='酒菜类型修改';
end;

//删除字典表记录
procedure Tformdictionary.but_deleteClick(Sender: TObject);
var
    ls_dicid:integer;
begin
    //没有选择纪录
    DMHotel.ds_dictionary_setsuptype.Open;
    if DMHotel.ds_dictionary_setsuptype.FieldByName('dicid').AsString='' then
       begin
         showmessage('请先选择要删除的纪录!');
         exit;
       end;

    if   MessageDlg('您确定要删除该记录吗？',mtConfirmation,[mbYes,mbNo],0)= mrNO then
         exit;

    ls_dicid:=DMHotel.ds_dictionary_setsuptype.FieldByName('dicid').AsInteger; //取记录号
    //删除操作
    SQL:='delete from dictionary '+'where dicid='+''''+inttostr(ls_dicid)+'''';
    DMHotel.ADOQuery1.SQL.Text:=SQL;
    try
         DMHotel.ADOQuery1.ExecSQL;
    except
         showmessage('删除失败！');
         exit;
    end;
    DMHotel.ds_dictionary_setsuptype.Requery;
end;

//退出
procedure Tformdictionary.but_exitClick(Sender: TObject);
begin
    close;
end;

procedure Tformdictionary.FormShow(Sender: TObject);
begin
    //确保数据集打开
    DMHotel.ds_dictionary_setsuptype.Open;
end;

end.