ushdzlasmonth.pas

工廠採購管理系統

unit Ushdzlasmonth;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, Grids, DBGridEh, Buttons, StdCtrls, DB,
  ADODB, FR_Class,Excel2000, GridsEh,dbgridehimpexp;

type
  Tfrmshdzlasmonth = class(TForm)
    Panel1: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    RzBitBtn5: TRzBitBtn;
    SaveExeclDialog: TSaveDialog;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure csh;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
    procedure RzBitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmshdzlasmonth: Tfrmshdzlasmonth;

implementation
uses uconst,ufunction,ugyslb,ucx,unit3, udm1;
{$R *.dfm}
procedure tfrmshdzlasmonth.csh();
begin
strsql:='select * from view_shdzlasmonth where 年度='+trim(combobox1.Text)+
' order by 供应商编码 asc';
adoexect(adoquery1,strsql);
end;
procedure Tfrmshdzlasmonth.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmshdzlasmonth.FormCreate(Sender: TObject);
var
i:integer;
j:integer;
begin
adoquery1.Connection:=dm1.ADOConnection1;
i:=strtoint(formatDateTime('yyyy',date))-3;
combobox1.Items.Clear;
for j:=i to i+8 do
   begin
       combobox1.Items.Add(inttostr(j));
       next;
   end;
csh;
end;

procedure Tfrmshdzlasmonth.ComboBox1Click(Sender: TObject);
begin
csh;
end;

procedure Tfrmshdzlasmonth.RzBitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrmshdzlasmonth.RzBitBtn1Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
end;

procedure Tfrmshdzlasmonth.RzBitBtn3Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/shdzlasmonth.frf');
frVariables['username']:=username;
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;
end;

procedure Tfrmshdzlasmonth.RzBitBtn2Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/shdzlasmonth.frf');
frVariables['username']:=username;
form3.frReport1.DesignReport;

end;

procedure Tfrmshdzlasmonth.DBGridEh1TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmshdzlasmonth.RzBitBtn5Click(Sender: TObject);
begin
 SaveExeclDialog.Filter := 'EXCEL文件(*.xls)|*.xls';
  if adoquery1.RecordCount > 0 then
  begin
    SaveExeclDialog.DefaultExt := '*.xls';
    if SaveExeclDialog.Execute then
      SaveDBGridEhToExportFile(TDBGridEhExportAsXls, DBGridEh1,
        SaveExeclDialog.FileName, True);
  end
  else
    showmessage('当前没有记录');

end;

end.