unit12.~pas

来自「图书馆管理系统」· ~PAS 代码 · 共 65 行

~PAS
65
字号
unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, ADODB, Buttons;

type
  TfrmExportReaderinfo = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    SaveDialog1: TSaveDialog;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExportReaderinfo: TfrmExportReaderinfo;

implementation
uses USaveToExcel;
{$R *.dfm}

procedure TfrmExportReaderinfo.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then   //导出外购计划到Excel
    begin
     SaveDialog1.Filter:='Excel(*.xls)|*.xls';
     SaveToExecl(DBGrid1,'',SaveDialog1.FileName);
    end;
end;

procedure TfrmExportReaderinfo.BitBtn1Click(Sender: TObject);
begin
  ADOTable1.Close;
  close;
end;

procedure TfrmExportReaderinfo.FormCreate(Sender: TObject);
begin
dbgrid1.Columns[0].Title.caption := '读者编号';
dbgrid1.Columns[1].Title.caption := '读者姓名';
dbgrid1.Columns[2].Title.caption := '性别';
dbgrid1.Columns[3].Title.caption := '读者种类';
dbgrid1.Columns[4].Title.caption := '读者单位';
dbgrid1.Columns[5].Title.caption := '联系电话';
dbgrid1.Columns[6].Title.caption := 'email地址';
dbgrid1.Columns[7].Title.caption := '已借阅本数';
dbgrid1.Columns[8].Title.caption := '登记日期';
dbgrid1.Columns[9].Title.caption := '备注';
dbgrid1.Columns[10].Title.caption := '信用等级分数';

end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?