easygas_bottle.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit EASYGAS_BOTTLE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, EASY_GASMAIN, Grids, DBGridEh, ExtCtrls, StdCtrls,
  DBCtrls, ComCtrls, ActnList, ToolWin, PrnDbgeh, Menus;

type
  TBUTTLEDlg = class(TForm)
    BUTTLE: TADODataSet;
    BUTTLE_MANG: TADODataSet;
    BUTTLE_SOURCE: TDataSource;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    DBG: TDBGridEh;
    Splitter1: TSplitter;
    NSTAB: TADODataSet;
    TGPAGE: TPageControl;
    MANGPAGE: TTabSheet;
    TPAGE: TTabSheet;
    TabSheet3: TTabSheet;
    MANGS: TDataSource;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ActionList1: TActionList;
    BUTTLE_EDIT: TAction;
    NewButtle: TAction;
    TGDBG: TDBGridEh;
    MANGTICK_DO: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ExportGrid: TAction;
    ToolButton4: TToolButton;
    FindData: TAction;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    NSS: TDataSource;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    YJTAB: TADODataSet;
    YJS: TDataSource;
    SetFmt: TAction;
    ToolButton7: TToolButton;
    PDBG: TPrintDBGridEh;
    PRINT: TAction;
    ToolButton8: TToolButton;
    SetPNT: TAction;
    SetDBGPNT: TAction;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    BackTick: TAction;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    SELLPAGE: TTabSheet;
    DBGridEh3: TDBGridEh;
    SELL: TADODataSet;
    SELLS: TDataSource;
    A_SELLTICK: TAction;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BUTTLEAfterScroll(DataSet: TDataSet);
    procedure BUTTLE_EDITExecute(Sender: TObject);
    procedure NewButtleExecute(Sender: TObject);
    procedure BUTTLENewRecord(DataSet: TDataSet);
    procedure BUTTLE_MANGBeforePost(DataSet: TDataSet);
    procedure MANGTICK_DOExecute(Sender: TObject);
    procedure DBGTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure ExportGridExecute(Sender: TObject);
    procedure FindDataExecute(Sender: TObject);
    procedure TGDBGTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SetFmtExecute(Sender: TObject);
    procedure PRINTExecute(Sender: TObject);
    procedure SetPNTExecute(Sender: TObject);
    procedure SetDBGPNTExecute(Sender: TObject);
    procedure BackTickExecute(Sender: TObject);
    procedure A_SELLTICKExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BUTTLEDlg: TBUTTLEDlg;

implementation
uses EASYGAS_BOTTLEEDIT, EASYGAS_MANGTICK, EASYGAS_SELL;
{$R *.dfm}

procedure TBUTTLEDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TBUTTLEDlg.FormCreate(Sender: TObject);
begin
  BUTTLE.Open;
  ReadGrid(DBG,Caption);
end;

procedure TBUTTLEDlg.BUTTLEAfterScroll(DataSet: TDataSet);
begin
  if Dataset.Active then
  Begin
  BUTTLE_MANG.Close;
  BUTTLE_MANG.CommandText:='SELECT GAS_MANAGE.* FROM GAS_MANAGE WHERE (钢瓶编码 = '+Inttostr(dataset.fieldbyname('编码').AsInteger)+') and (归属 ='+#39+'托管'+#39+')';
  BUTTLE_MANG.Open;
  NSTAB.Close;
  NSTAB.CommandText:='SELECT GAS_MANAGE.* FROM GAS_MANAGE WHERE (钢瓶编码 = '+Inttostr(dataset.fieldbyname('编码').AsInteger)+') and (归属 ='+#39+'年审'+#39+')';
  NSTAB.Open;
  YJTAB.Close;
  YJTAB.CommandText:='SELECT GAS_MANAGE.* FROM GAS_MANAGE WHERE (钢瓶编码 = '+Inttostr(dataset.fieldbyname('编码').AsInteger)+') and (归属 ='+#39+'押金'+#39+')';
  YJTAB.Open;
  SELL.Close;
  SELL.CommandText:='SELECT GAS_SELL.* FROM GAS_SELL WHERE (钢瓶编码 = '+Inttostr(dataset.fieldbyname('编码').AsInteger)+')';
  SELL.Open;
  end;
end;

procedure TBUTTLEDlg.BUTTLE_EDITExecute(Sender: TObject);
begin
  With TButtleEditor.Create(Application) do
  Begin
    try
    DATAS.DataSet:=Self.BUTTLE;
    DATAS.DataSet.Edit; 
    With Datas.DataSet do
    if showmodal=mrok then
    Begin
      Edit;
      Post;
    end else Cancel;
    finally
    free;
    end;
  end;
    BUTTLE.AfterScroll(BUTTLE);  
end;

procedure TBUTTLEDlg.NewButtleExecute(Sender: TObject);
begin
BUTTLE.Append;
BUTTLE_EDIT.Execute;
end;

procedure TBUTTLEDlg.BUTTLENewRecord(DataSet: TDataSet);
begin
  With Dataset do
  Begin
    Edit;
    Fieldbyname('建档员').AsString:=USER.Name;
    Fieldbyname('建档日期').AsDateTime:=Now;
  end;
end;

procedure TBUTTLEDlg.BUTTLE_MANGBeforePost(DataSet: TDataSet);
begin
  With Dataset do
  Begin
    Edit;
    Fieldbyname('操作员').AsString:=USER.Name;
    Fieldbyname('操作日期').AsDateTime:=Now;
  end;
end;

procedure TBUTTLEDlg.MANGTICK_DOExecute(Sender: TObject);
begin
  CTick(BUTTLE.fieldbyname('编码').AsInteger);
  BUTTLE.Refresh;
  BUTTLE.AfterScroll(BUTTLE);
end;

procedure TBUTTLEDlg.DBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  GridTitleClick(DBG,ACol,Column);
end;

procedure TBUTTLEDlg.ExportGridExecute(Sender: TObject);
begin
  GridExport(DBG);
end;

procedure TBUTTLEDlg.FindDataExecute(Sender: TObject);
begin
  GridFind(DBG);
end;

procedure TBUTTLEDlg.TGDBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  GridTitleClick(TGDBG,ACol,Column);
end;

procedure TBUTTLEDlg.ToolButton7Click(Sender: TObject);
begin
  SetPNTFormat(DBG,'测试');
end;

procedure TBUTTLEDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift=[ssCtrl] then
  Case Key of
  49:TGPAGE.ActivePageIndex:=0;
  50:TGPAGE.ActivePageIndex:=1;
  51:TGPAGE.ActivePageIndex:=2;
  end;
end;

procedure TBUTTLEDlg.SetFmtExecute(Sender: TObject);
begin
  SetGrid(DBG,Caption);
end;

procedure TBUTTLEDlg.PRINTExecute(Sender: TObject);
begin
  ReadGrid(DBG,Caption,True);
  LoadPNTFormat(PDBG,Caption);
  PDBG.Preview;
  ReadGrid(DBG,Caption);
end;

procedure TBUTTLEDlg.SetPNTExecute(Sender: TObject);
begin
  SetPNTFormat(DBG,Caption);
end;

procedure TBUTTLEDlg.SetDBGPNTExecute(Sender: TObject);
begin
  SetGrid(DBG,Caption,True);
end;

procedure TBUTTLEDlg.BackTickExecute(Sender: TObject);
begin
  CTick(BUTTLE.fieldbyname('编码').AsInteger,True);
  BUTTLE.Refresh;
  BUTTLE.AfterScroll(BUTTLE);
end;



procedure TBUTTLEDlg.A_SELLTICKExecute(Sender: TObject);
begin
  SellTick(BUTTLE);
  BUTTLE.AfterScroll(BUTTLE);
end;

end.