ckda1.pas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· PAS 代码 · 共 213 行

unit ckda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner, dxPSCore, dxPSdxTLLnk,
  dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB, StdCtrls, Buttons, ExtCtrls,
  Menus;

type
  Tckda = class(TForm)
    DataSource1: TDataSource;
    Table1: TADOTable;
    Table1code: TStringField;
    Table1name: TStringField;
    Table1dz: TStringField;
    Table1dh: TStringField;
    Table1cz: TStringField;
    Table1lxr: TStringField;
    Table1bz: TStringField;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2dz: TdxDBGridMaskColumn;
    dxDBGrid2dh: TdxDBGridMaskColumn;
    dxDBGrid2cz: TdxDBGridMaskColumn;
    dxDBGrid2lxr: TdxDBGridMaskColumn;
    dxDBGrid2bz: TdxDBGridMaskColumn;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Excel1: TMenuItem;
    Text1: TMenuItem;
    Html1: TMenuItem;
    N2: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N3: TMenuItem;
    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 N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckda: Tckda;

implementation

uses MainForm1, editck1, dyckda1;

{$R *.DFM}

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

procedure Tckda.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(Teditck, editck);
    editck.ShowModal;
  finally
    editck.close;
  end;
end;

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

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

procedure Tckda.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
//  Application.CreateForm(Tdyckda, dyckda);
//  dyckda.ShowModal;
end;

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

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

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

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

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

procedure Tckda.N3Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);

end;

end.