vcdgl.pas

一个关于VCD销售的系统

unit vcdgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, Grids, DBGrids, LabelButton, TradeImage, ComCtrls,
  Menus, ToolWin, StdCtrls, ExtCtrls, DBActns, DB, ActnList;

type
  Tfrm_vcdgl = class(TMyForm)
    BStatusBar: TStatusBar;
    DBGrid: TDBGrid;
    BActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetDelete1: TDataSetDelete;
    DataSetInsert1: TDataSetInsert;
    DataSetEdit1: TDataSetEdit;
    Action_Help: TAction;
    palToolbar: TPanel;
    tiHelp: TTradeImg;
    tiPrint: TTradeImg;
    tiLocate: TTradeImg;
    tiLast: TTradeImg;
    tiNext: TTradeImg;
    tiPrior: TTradeImg;
    tiFirst: TTradeImg;
    tiRefresh: TTradeImg;
    tiDelete: TTradeImg;
    tiEdit: TTradeImg;
    tiNew: TTradeImg;
    LabelBtn1: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn3: TLabelBtn;
    LabelBtn11: TLabelBtn;
    LabelBtn4: TLabelBtn;
    LabelBtn5: TLabelBtn;
    LabelBtn6: TLabelBtn;
    LabelBtn7: TLabelBtn;
    LabelBtn8: TLabelBtn;
    LabelBtn9: TLabelBtn;
    LabelBtn10: TLabelBtn;
    DataSource1: TDataSource;
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DBGridTitleClick(Column: TColumn);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tiLocateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_vcdgl: Tfrm_vcdgl;

implementation

uses datam, vcdedit, vcdtmprn, vcddw;

{$R *.dfm}

procedure Tfrm_vcdgl.DataSetInsert1Execute(Sender: TObject);
begin
  inherited;
  dm.ADO_vcd.Append;
  frm_vcdedit:=tfrm_vcdedit.create(application);
  frm_vcdedit.b_ok.tag:=0;
  frm_vcdedit.showmodal;
end;

procedure Tfrm_vcdgl.DBGridTitleClick(Column: TColumn);
begin
  inherited;
   dm.ADO_vcd.Sort:=Column.FieldName;
end;

procedure Tfrm_vcdgl.DataSetEdit1Execute(Sender: TObject);
begin
  inherited;
  frm_vcdedit:=tfrm_vcdedit.create(application);
  frm_vcdedit.b_ok.tag:=1;
  frm_vcdedit.showmodal;
end;

procedure Tfrm_vcdgl.FormCreate(Sender: TObject);
begin
  inherited;
  dm.ADO_vcd.open;
  dm.ADO_vcd.Sort:='编号';
  
end;

procedure Tfrm_vcdgl.FormShow(Sender: TObject);
begin
  inherited;
  dbgrid.SetFocus();
end;

procedure Tfrm_vcdgl.DataSetDelete1Execute(Sender: TObject);
var
 mes,mesdel:string;
begin
  inherited;
  if dm.ADO_vcd.FieldByName('状态').AsString='已租' then
   begin
    mes:='图书(影碟)<'+dm.ADO_vcd.FieldByName('编号').AsString
        +' '+dm.ADO_vcd.FieldByName('名称').AsString
        +'>已租出，不可删除！';
    application.MessageBox(pchar(mes),pchar('提示'),MB_ICONEXCLAMATION);
    exit;
   end;
   mesdel:='是否要删除图书(影碟)<'+dm.ADO_vcd.FieldByName('编号').AsString
        +' '+dm.ADO_vcd.FieldByName('名称').AsString+'>？';
   if application.MessageBox(pchar(mesdel),pchar('等待确认')
     ,MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
      dm.ADO_vcd.delete;
end;

procedure Tfrm_vcdgl.tiPrintClick(Sender: TObject);
begin
  inherited;
  frm_vcdtmprn:=tfrm_vcdtmprn.create(application);
  frm_vcdtmprn.showmodal;
end;

procedure Tfrm_vcdgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.ADOQ_cx.Close;
  dm.ADOQ_cx.SQL.Clear;
  release;
end;

procedure Tfrm_vcdgl.tiLocateClick(Sender: TObject);
begin
  inherited;
  frm_vcddw:=tfrm_vcddw.create(application);
  frm_vcddw.showmodal;
end;

end.