spda1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit spda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB,
  dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, StdCtrls,
  Buttons, ExtCtrls, Menus, RM_Desgn, RM_dset, RM_dbset, RM_GridView,
  RM_class;

type
  Tspdawh = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Excel1: TMenuItem;
    Text1: TMenuItem;
    Html1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    SaveDialog1: TSaveDialog;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    ADOTable3: TADOTable;
    ADOTable3code: TStringField;
    ADOTable3name: TStringField;
    ADOTable3dq: TStringField;
    ADOTable3lxr: TStringField;
    ADOTable3lxdh: TStringField;
    ADOTable3cz: TStringField;
    ADOTable3lxdz: TStringField;
    DataSource3: TDataSource;
    N30: TMenuItem;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2lb: TdxDBGridMaskColumn;
    dxDBGrid2jldw: TdxDBGridMaskColumn;
    dxDBGrid2bzgg: TdxDBGridMaskColumn;
    dxDBGrid2barcode: TdxDBGridMaskColumn;
    dxDBGrid2mainghs: TdxDBGridMaskColumn;
    dxDBGrid2ghsname: TdxDBGridMaskColumn;
    dxDBGrid2jhj: TdxDBGridMaskColumn;
    dxDBGrid2suilu: TdxDBGridMaskColumn;
    dxDBGrid2hsjj: TdxDBGridMaskColumn;
    dxDBGrid2lsj: TdxDBGridMaskColumn;
    dxDBGrid2hyj: TdxDBGridMaskColumn;
    dxDBGrid2pfj: TdxDBGridMaskColumn;
    dxDBGrid2jqj: TdxDBGridMaskColumn;
    dxDBGrid2cxj: TdxDBGridMaskColumn;
    dxDBGrid2cxbz: TdxDBGridCheckColumn;
    dxDBGrid2sybz: TdxDBGridCheckColumn;
    dxDBGrid2zhsp: TdxDBGridCheckColumn;
    dxDBGrid2kcsx: TdxDBGridMaskColumn;
    dxDBGrid2kcxx: TdxDBGridMaskColumn;
    dxDBGrid2bz: TdxDBGridMaskColumn;
    Table1: TADOTable;
    Table1code: TStringField;
    Table1name: TStringField;
    Table1lb: TStringField;
    Table1jldw: TStringField;
    Table1bzgg: TBCDField;
    Table1barcode: TStringField;
    Table1mainghs: TStringField;
    Table1ghsname: TStringField;
    Table1jhj: TBCDField;
    Table1suilu: TBCDField;
    Table1hsjj: TBCDField;
    Table1lsj: TBCDField;
    Table1hyj: TBCDField;
    Table1pfj: TBCDField;
    Table1jqj: TBCDField;
    Table1cxj: TBCDField;
    Table1cxbz: TBooleanField;
    Table1sybz: TBooleanField;
    Table1zhsp: TBooleanField;
    Table1czsp: TBooleanField;
    Table1czspbm: TStringField;
    Table1kcsx: TBCDField;
    Table1kcxx: TBCDField;
    Table1bz: TStringField;
    Table1pybm: TStringField;
    Table1qckc: TBCDField;
    Table1id: TAutoIncField;
    Table1cd: TStringField;
    dxDBGrid2cd: TdxDBGridMaskColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Table1AfterCancel(DataSet: TDataSet);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Excel1Click(Sender: TObject);
    procedure Text1Click(Sender: TObject);
    procedure Html1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  spdawh: Tspdawh;

implementation

uses MainForm1, editsp1, dyspda1;

{$R *.DFM}

procedure Tspdawh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure Tspdawh.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(Teditsp, editsp);
    editsp.ShowModal;
  finally
    editsp.close;
  end;
end;

procedure Tspdawh.BitBtn3Click(Sender: TObject);
begin
  if Application.MessageBox(Pchar('真的要删除仓库档案吗?  代号:' + Table1.Fields[0].asstring + ' 名称:' + Table1.Fields[1].asstring), '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  try
    Table1.Delete;
  except
    Application.MessageBox('某些档案正在使用中,不能删除.', '提示', MB_OK + MB_ICONWARNING);
  end;
  Table1.Close;
  Table1.Open;
end;

procedure Tspdawh.Table1AfterScroll(DataSet: TDataSet);
begin
  if table1.RecordCount = 0 then
  begin
    BitBtn3.Enabled := false;
  end
  else
  begin
    BitBtn3.Enabled := true;
  end;
end;

procedure Tspdawh.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tspdawh.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
//  Application.CreateForm(Tdyspda, dyspda);
//  dyspda.ShowModal;
end;

procedure Tspdawh.Table1AfterCancel(DataSet: TDataSet);
begin
  editsp.wwDBNavigator1Post.Enabled := false;
  editsp.wwDBNavigator1Insert.Enabled := true;
  editsp.wwDBNavigator1Button1.Enabled := true;
end;

procedure Tspdawh.Table1AfterPost(DataSet: TDataSet);
begin
  editsp.wwDBNavigator1Post.Enabled := false;
  editsp.wwDBNavigator1Insert.Enabled := true;
  editsp.wwDBNavigator1Button1.Enabled := true;
end;

procedure Tspdawh.N4Click(Sender: TObject);
begin
  if N4.Checked = true then
  begin
    N4.Checked := false;
    dxDBGrid2code.Visible := false;
  end
  else
  begin
    N4.Checked := true;
    dxDBGrid2code.Visible := true;
  end;
end;

procedure Tspdawh.N5Click(Sender: TObject);
begin
  if N5.Checked = true then
  begin
    N5.Checked := false;
    dxDBGrid2name.Visible := false;
  end
  else
  begin
    N5.Checked := true;
    dxDBGrid2name.Visible := true;
  end;

end;

procedure Tspdawh.N6Click(Sender: TObject);
begin
  if N6.Checked = true then
  begin
    N6.Checked := false;
    dxDBGrid2lb.Visible := false;
  end
  else
  begin
    N6.Checked := true;
    dxDBGrid2lb.Visible := true;
  end;
end;

procedure Tspdawh.N7Click(Sender: TObject);
begin
  if N7.Checked = true then
  begin
    N7.Checked := false;
    dxDBGrid2jldw.Visible := false;
  end
  else
  begin
    N7.Checked := true;
    dxDBGrid2jldw.Visible := true;
  end;
end;

procedure Tspdawh.N8Click(Sender: TObject);
begin
  if N8.Checked = true then
  begin
    N8.Checked := false;
    dxDBGrid2bzgg.Visible := false;
  end
  else
  begin
    N8.Checked := true;
    dxDBGrid2bzgg.Visible := true;
  end;
end;

procedure Tspdawh.N9Click(Sender: TObject);
begin
  if N9.Checked = true then
  begin
    N9.Checked := false;
    dxDBGrid2barcode.Visible := false;
  end
  else
  begin
    N9.Checked := true;
    dxDBGrid2barcode.Visible := true;
  end;
end;

procedure Tspdawh.N10Click(Sender: TObject);
begin
  if N10.Checked = true then
  begin
    N10.Checked := false;
    dxDBGrid2jhj.Visible := false;
  end
  else
  begin
    N10.Checked := true;
    dxDBGrid2jhj.Visible := true;
  end;
end;

procedure Tspdawh.N11Click(Sender: TObject);
begin
  if N11.Checked = true then
  begin
    N11.Checked := false;
    dxDBGrid2lsj.Visible := false;
  end
  else
  begin
    N11.Checked := true;
    dxDBGrid2lsj.Visible := true;
  end;
end;

procedure Tspdawh.N12Click(Sender: TObject);
begin
  if N12.Checked = true then
  begin
    N12.Checked := false;
    dxDBGrid2hyj.Visible := false;
  end
  else
  begin
    N12.Checked := true;
    dxDBGrid2hyj.Visible := true;
  end;
end;

procedure Tspdawh.N13Click(Sender: TObject);
begin
  if N13.Checked = true then
  begin
    N13.Checked := false;
    dxDBGrid2pfj.Visible := false;
  end
  else
  begin
    N13.Checked := true;
    dxDBGrid2pfj.Visible := true;
  end;
end;

procedure Tspdawh.N14Click(Sender: TObject);
begin
  if N14.Checked = true then
  begin
    N14.Checked := false;
    dxDBGrid2jqj.Visible := false;
  end
  else
  begin
    N14.Checked := true;
    dxDBGrid2jqj.Visible := true;
  end;
end;

procedure Tspdawh.N15Click(Sender: TObject);
begin
  if N15.Checked = true then
  begin
    N15.Checked := false;
    dxDBGrid2cxj.Visible := false;
  end
  else
  begin
    N15.Checked := true;
    dxDBGrid2cxj.Visible := true;
  end;
end;

procedure Tspdawh.N22Click(Sender: TObject);
begin
  if N22.Checked = true then
  begin
    N22.Checked := false;
    dxDBGrid2cxbz.Visible := false;
  end
  else
  begin
    N22.Checked := true;
    dxDBGrid2cxbz.Visible := true;
  end;
end;

procedure Tspdawh.N16Click(Sender: TObject);
begin
  if N16.Checked = true then
  begin
    N16.Checked := false;
    dxDBGrid2sybz.Visible := false;
  end
  else
  begin
    N16.Checked := true;
    dxDBGrid2sybz.Visible := true;
  end;
end;

procedure Tspdawh.N17Click(Sender: TObject);
begin
  if N17.Checked = true then
  begin
    N17.Checked := false;
    dxDBGrid2zhsp.Visible := false;
  end
  else
  begin
    N17.Checked := true;
    dxDBGrid2zhsp.Visible := true;
  end;
end;

procedure Tspdawh.N20Click(Sender: TObject);
begin
  if N20.Checked = true then
  begin
    N20.Checked := false;
    dxDBGrid2kcsx.Visible := false;
  end
  else
  begin
    N20.Checked := true;
    dxDBGrid2kcsx.Visible := true;
  end;
end;

procedure Tspdawh.N21Click(Sender: TObject);
begin
  if N21.Checked = true then
  begin
    N21.Checked := false;
    dxDBGrid2kcxx.Visible := false;
  end
  else
  begin
    N21.Checked := true;
    dxDBGrid2kcxx.Visible := true;
  end;
end;

procedure Tspdawh.Excel1Click(Sender: TObject);
begin
  SaveDialog1.Filter := 'Excel表格|*.xls';
  if SaveDialog1.Execute then
  begin
    dxDBGrid2.SaveToXLS(SaveDialog1.FileName, true);
    Application.MessageBox('文件已成功导出.', '提示', MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure Tspdawh.Text1Click(Sender: TObject);
begin
  SaveDialog1.Filter := 'Text文件|*.txt';
  if SaveDialog1.Execute then
  begin
    dxDBGrid2.SaveToText(SaveDialog1.FileName, true, ',', '', '');
    Application.MessageBox('文件已成功导出.', '提示', MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure Tspdawh.Html1Click(Sender: TObject);
begin
  SaveDialog1.Filter := 'Html文件|*.Html';
  if SaveDialog1.Execute then
  begin
    dxDBGrid2.SaveToHTML(SaveDialog1.FileName, true);
    Application.MessageBox('文件已成功导出.', '提示', MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure Tspdawh.N24Click(Sender: TObject);
begin
  dxDBGrid2.FullExpand;
end;

procedure Tspdawh.N25Click(Sender: TObject);
begin
  dxDBGrid2.FullCollapse;
end;

procedure Tspdawh.N26Click(Sender: TObject);
begin
  if N26.Checked = true then
  begin
    N26.Checked := false;
    dxDBGrid2bz.Visible := false;
  end
  else
  begin
    N26.Checked := true;
    dxDBGrid2bz.Visible := true;
  end;
end;

procedure Tspdawh.N27Click(Sender: TObject);
begin
  if N27.Checked = true then
  begin
    N27.Checked := false;
    dxDBGrid2mainghs.Visible := false;
    dxDBGrid2ghsname.Visible := false;
  end
  else
  begin
    N27.Checked := true;
    dxDBGrid2mainghs.Visible := true;
    dxDBGrid2ghsname.Visible := true;
  end;
end;

procedure Tspdawh.N28Click(Sender: TObject);
begin
  if N28.Checked = true then
  begin
    N28.Checked := false;
    dxDBGrid2suilu.Visible := false;
  end
  else
  begin
    N28.Checked := true;
    dxDBGrid2suilu.Visible := true;
  end;
end;

procedure Tspdawh.N29Click(Sender: TObject);
begin
  if N29.Checked = true then
  begin
    N29.Checked := false;
    dxDBGrid2hsjj.Visible := false;
  end
  else
  begin
    N29.Checked := true;
    dxDBGrid2hsjj.Visible := true;
  end;
end;

procedure Tspdawh.N30Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

end.