ghsda1.pas

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

unit ghsda1;

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
  Tghsdawh = class(TForm)
    DataSource1: TDataSource;
    Table1: TADOTable;
    Table1code: TStringField;
    Table1name: TStringField;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    Table1lxr: TStringField;
    Table1lxdh: TStringField;
    Table1cz: TStringField;
    Table1lxdz: TStringField;
    Table1bz: TStringField;
    Table1qc: TBCDField;
    Table1rq: TDateTimeField;
    Table1dq: TStringField;
    Table1ye: TBCDField;
    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;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    SaveDialog1: TSaveDialog;
    N15: TMenuItem;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2dq: TdxDBGridMaskColumn;
    dxDBGrid2lxr: TdxDBGridMaskColumn;
    dxDBGrid2lxdh: TdxDBGridMaskColumn;
    dxDBGrid2cz: TdxDBGridMaskColumn;
    dxDBGrid2lxdz: TdxDBGridMaskColumn;
    dxDBGrid2qc: TdxDBGridMaskColumn;
    dxDBGrid2ye: TdxDBGridMaskColumn;
    dxDBGrid2bz: TdxDBGridMaskColumn;
    dxDBGrid2rq: TdxDBGridDateColumn;
    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 Table1NewRecord(DataSet: TDataSet);
    procedure Excel1Click(Sender: TObject);
    procedure Text1Click(Sender: TObject);
    procedure Html1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    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 N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ghsdawh: Tghsdawh;

implementation

uses MainForm1, editghs1, dyghsda1;

{$R *.DFM}

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

procedure Tghsdawh.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(Teditghs, editghs);
    editghs.ShowModal;
  finally
    editghs.close;
  end;
end;

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

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

procedure Tghsdawh.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
//  Application.CreateForm(Tdyghsda, dyghsda);
//  dyghsda.ShowModal;
end;

procedure Tghsdawh.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 Tghsdawh.Table1AfterCancel(DataSet: TDataSet);
begin
  editghs.wwDBNavigator1Insert.Enabled := true;
  editghs.wwDBNavigator1Post.Enabled := false;
end;

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

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

procedure Tghsdawh.Table1NewRecord(DataSet: TDataSet);
begin
  editghs.dxDBEdit1.SetFocus;
end;

procedure Tghsdawh.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 Tghsdawh.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 Tghsdawh.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 Tghsdawh.N24Click(Sender: TObject);
begin
  dxDBGrid2.FullExpand;
end;

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

procedure Tghsdawh.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 Tghsdawh.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 Tghsdawh.N6Click(Sender: TObject);
begin
  if N6.Checked = true then
  begin
    N6.Checked := false;
    dxDBGrid2dq.Visible := false;
  end
  else
  begin
    N6.Checked := true;
    dxDBGrid2dq.Visible := true;
  end;
end;

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

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

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

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

procedure Tghsdawh.N12Click(Sender: TObject);
begin
  if N13.Checked = true then
  begin
    N13.Checked := false;
    dxDBGrid2qc.Visible := false;
  end
  else
  begin
    N13.Checked := true;
    dxDBGrid2qc.Visible := true;
  end;
end;

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

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

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

procedure Tghsdawh.N15Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);

end;

end.