hyda1.pas

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

unit hyda1;

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;

type
  Thydawh = class(TForm)
    DataSource1: TDataSource;
    Table1: TADOTable;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    Table1code: TStringField;
    Table1name: TStringField;
    Table1lxdh: TStringField;
    Table1lxdz: TStringField;
    Table1zcrq: TDateTimeField;
    Table1yxq: TDateTimeField;
    Table1bz: TStringField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Excel1: TMenuItem;
    Text1: TMenuItem;
    Html1: TMenuItem;
    SaveDialog1: TSaveDialog;
    N2: TMenuItem;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2lxdh: TdxDBGridMaskColumn;
    dxDBGrid2lxdz: TdxDBGridMaskColumn;
    dxDBGrid2zcrq: TdxDBGridDateColumn;
    dxDBGrid2yxq: TdxDBGridDateColumn;
    dxDBGrid2bz: 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 dxDBGrid2CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: string;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure Table1AfterCancel(DataSet: TDataSet);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure Table1BeforeEdit(DataSet: TDataSet);
    procedure Excel1Click(Sender: TObject);
    procedure Text1Click(Sender: TObject);
    procedure Html1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hydawh: Thydawh;

implementation

uses MainForm1, edithy1, dyrhya1;

{$R *.DFM}

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

procedure Thydawh.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(Tedithy, edithy);
    edithy.ShowModal;
  finally
    edithy.close;
  end;
end;

procedure Thydawh.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 Thydawh.Table1AfterScroll(DataSet: TDataSet);
begin
  if table1.RecordCount = 0 then
  begin
    BitBtn3.Enabled := false;
  end
  else
  begin
    BitBtn3.Enabled := true;
  end;
end;

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

procedure Thydawh.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
//  Application.CreateForm(Tdyhyda, dyhyda);
//  dyhyda.ShowModal;
end;

procedure Thydawh.dxDBGrid2CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
  ASelected, AFocused, ANewItemRow: Boolean; var AText: string;
  var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
  var ADone: Boolean);
begin
{   if(ANode.Index mod 2 = 0) then begin
     AColor := clTeal;
   end else begin
     if not ANode.Selected then
       AColor := clOlive;
   end;}
end;

procedure Thydawh.Table1AfterCancel(DataSet: TDataSet);
begin
  edithy.wwDBNavigator1Insert.Enabled := true;
  edithy.wwDBNavigator1Post.Enabled := false;
end;

procedure Thydawh.Table1AfterPost(DataSet: TDataSet);
begin
  edithy.wwDBNavigator1Insert.Enabled := true;
  edithy.wwDBNavigator1Post.Enabled := false;
end;

procedure Thydawh.Table1BeforeEdit(DataSet: TDataSet);
begin
  edithy.wwDBNavigator1Insert.Enabled := false;
  edithy.wwDBNavigator1Post.Enabled := true;
end;

procedure Thydawh.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 Thydawh.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 Thydawh.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 Thydawh.N2Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);

end;

end.