ryda1.pas

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

unit ryda1;

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
  Tryda = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    Table1: TADOTable;
    Table1code: TStringField;
    Table1name: TStringField;
    Table1bm: TStringField;
    Table1xb: TStringField;
    Table1csrq: TDateTimeField;
    Table1xl: TStringField;
    Table1dh: TStringField;
    Table1sfzhm: TStringField;
    Table1rzrq: TDateTimeField;
    Table1zw: TStringField;
    Table1jbgz: TBCDField;
    Table1ywybz: TBooleanField;
    Table1zzbz: TBooleanField;
    Table1fgzbz: TBooleanField;
    Table1bz: TStringField;
    DataSource1: TDataSource;
    dxDBGrid2: TdxDBGrid;
    Table1zz: TStringField;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2bm: TdxDBGridMaskColumn;
    dxDBGrid2xb: TdxDBGridMaskColumn;
    dxDBGrid2csrq: TdxDBGridDateColumn;
    dxDBGrid2xl: TdxDBGridMaskColumn;
    dxDBGrid2dh: TdxDBGridMaskColumn;
    dxDBGrid2zz: TdxDBGridMaskColumn;
    dxDBGrid2sfzhm: TdxDBGridMaskColumn;
    dxDBGrid2rzrq: TdxDBGridDateColumn;
    dxDBGrid2zw: TdxDBGridMaskColumn;
    dxDBGrid2jbgz: TdxDBGridMaskColumn;
    dxDBGrid2ywybz: TdxDBGridCheckColumn;
    dxDBGrid2zzbz: TdxDBGridCheckColumn;
    dxDBGrid2fgzbz: TdxDBGridCheckColumn;
    dxDBGrid2bz: TdxDBGridMaskColumn;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Excel1: TMenuItem;
    Text1: TMenuItem;
    Html1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: 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;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: 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 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 N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ryda: Tryda;

implementation

uses MainForm1, editry1, dyryda1;

{$R *.DFM}

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

procedure Tryda.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(Teditry, editry);
    editry.ShowModal;
  finally
    editry.close;
  end;
end;

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

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

procedure Tryda.BitBtn4Click(Sender: TObject);
begin
  Application.CreateForm(Tdyryda, dyryda);
  dyryda.ShowModal;
end;

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

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

procedure Tryda.Table1BeforeEdit(DataSet: TDataSet);
begin
  editry.wwDBNavigator1Insert.Enabled := false;
  editry.wwDBNavigator1Button1.Enabled := false;
  editry.wwDBNavigator1Post.Enabled := true;
end;

procedure Tryda.Table1NewRecord(DataSet: TDataSet);
begin
  editry.dxDBEdit1.SetFocus;
  editry.wwDBNavigator1Insert.Enabled := false;
  editry.wwDBNavigator1Button1.Enabled := false;
  editry.wwDBNavigator1Post.Enabled := true;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tryda.N18Click(Sender: TObject);
begin
  if N18.Checked = true then
  begin
    N18.Checked := false;
    dxDBGrid2fgzbz.Visible := false;
  end
  else
  begin
    N18.Checked := true;
    dxDBGrid2fgzbz.Visible := true;
  end;
end;

procedure Tryda.N19Click(Sender: TObject);
begin
  if N19.Checked = true then
  begin
    N19.Checked := false;
    dxDBGrid2bz.Visible := false;
  end
  else
  begin
    N19.Checked := true;
    dxDBGrid2bz.Visible := true;
  end;
end;

procedure Tryda.N20Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);

end;

end.