u_store.~pas

1. 在IBConsole中添加两个用户LOGIN和MATER

unit u_store;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, DBCtrls, StdCtrls, ExtCtrls, Buttons, Mask, Grids, DBGrids,
  DBCGrids, TeeProcs, TeEngine, Chart, DBChart, Series;

type
  TF_store = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBCtrlGrid1: TDBCtrlGrid;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    i_contact_id: TMaskEdit;
    Label2: TLabel;
    DBGrid2: TDBGrid;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit4: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit5: TDBEdit;
    SpeedButton2: TSpeedButton;
    DBCtrlGrid2: TDBCtrlGrid;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo2: TDBMemo;
    Label14: TLabel;
    MaskEdit1: TMaskEdit;
    DBGrid3: TDBGrid;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGrid4: TDBGrid;
    Label15: TLabel;
    GroupBox2: TGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit9: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit10: TDBEdit;
    BitBtn1: TBitBtn;
    Label19: TLabel;
    DBGrid5: TDBGrid;
    DBChart1: TDBChart;
    Button1: TButton;
    Button2: TButton;
    Series1: TPieSeries;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure i_contact_idChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_store: TF_store;

implementation

uses u_datamodule;
{$R *.DFM}

procedure TF_store.FormShow(Sender: TObject);
begin
  DM_main.OpenImport;
  DM_main.OpenExport;
  DM_main.OpenStore;
end;

procedure TF_store.SpeedButton2Click(Sender: TObject);
begin
  DM_main.DeleteImportItems;
end;

procedure TF_store.i_contact_idChange(Sender: TObject);
begin
  DM_main.ShowContactItems((Sender As TMaskEdit).Text);
end;

procedure TF_store.SpeedButton1Click(Sender: TObject);
begin
  DM_main.AddContactToImport;
end;

procedure TF_store.SpeedButton3Click(Sender: TObject);
begin
  DM_main.AddContactToExport;
end;

procedure TF_store.SpeedButton4Click(Sender: TObject);
begin
  DM_main.DeleteExportItems;
end;

procedure TF_store.Button1Click(Sender: TObject);
begin
  DBChart1.AutoRefresh:=False;
  DM_main.StoreStat;
  DBChart1.AutoRefresh:=True;
  DBChart1.RefreshData;
end;

procedure TF_store.Button2Click(Sender: TObject);
begin
  DBChart1.Print;
end;

end.