fxstorefrm.~pas

相关的销售服务管理行业的一个软件

unit FXStoreFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGridEh, jpeg, ExtCtrls, StdCtrls, Buttons, Db, DBTables, ADODB,
  EHGrids;

type
  TFXStore = class(TForm)
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    btnSave: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FXStore: TFXStore;

implementation

uses Umain, U_DM, EditStoreFrm, import1;

{$R *.DFM}

procedure TFXStore.FormActivate(Sender: TObject);
begin
  frmmain.LTitle.Caption := '分销店管理';
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;

end;

procedure TFXStore.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmmain.LTitle.Caption := '';
  Frmmain.Outlook1.Visible :=true;
  frmmain.Panel1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Label1.Caption:='';

  Action := caFree;
  
end;

procedure TFXStore.FormDestroy(Sender: TObject);
begin
  FXStore := nil;
end;

procedure TFXStore.FormCreate(Sender: TObject);
begin
 { with ADOQuery1 do
  begin
    Close;
    SQL.Add(' SELECT     StoreCode AS 分销店编码, ');
    SQL.Add('            StoreName AS 商店名称,   ');
    SQL.Add('              Address AS 地址,       ');
    SQL.Add('       RelationMethod AS 联系方式,   ');
    SQL.Add('       RelationPerson AS 联系人,     ');
    SQL.Add('                 type AS 类型,       ');
    SQL.Add('                 Memo AS 备注        ');
    SQL.Add(' FROM  xs_store ');
    Open;
  end;}
  dm.FrmFxShop.Open;
end;

procedure TFXStore.BitBtn5Click(Sender: TObject);
begin
  Close;
end;

procedure TFXStore.BitBtn1Click(Sender: TObject);
begin
  if EditStoreForm = nil then EditStoreForm := TEditStoreForm.Create(Application);
  EditStoreForm.FormMode := fmInsert;
  EditStoreForm.ShowModal;
  dm.FrmFxShop .Close;
  dm.FrmFxShop.Open;
end;

procedure TFXStore.BitBtn2Click(Sender: TObject);
begin
  if EditStoreForm = nil then
    EditStoreForm := TEditStoreForm.Create(Application);
  EditStoreForm.FormMode := fmEdit;
  EditStoreForm.EditRecord :=dm.FrmFxShop.fieldbyName('分销店编码').asstring;
  EditStoreForm.DBEdit1.ReadOnly :=true;
  EditStoreForm.ShowModal;

  dm.FrmFxShop.Close;
  dm.FrmFxShop.Open;
end;

procedure TFXStore.BitBtn3Click(Sender: TObject);
begin
  if Application.MessageBox('确认删除该分销店吗？','删除确认',MB_YESNO+MB_ICONQUESTION)=IDYES then
     dm.FrmFxShop.Delete;
end;

procedure TFXStore.btnSaveClick(Sender: TObject);
begin
   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'300',
                  nil,TAdoQuery(DataSource1.DataSet),false)      ;
end;

procedure TFXStore.BitBtn4Click(Sender: TObject);
begin
   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'300',
                  nil,TAdoQuery(DataSource1.DataSet),true)      ;
end;

end.