ushdasmonth.pas

工廠採購管理系統

unit Ushdasmonth;

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
  Tfrmshdasmonth = class(TForm)
    Panel1: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    RzToolbarButton1: TRzToolbarButton;
    Label4: TLabel;
    Label5: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    RzBitBtn5: TRzBitBtn;
    SaveExeclDialog: TSaveDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure csh;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure RzToolbarButton1Click(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
  frmshdasmonth: Tfrmshdasmonth;

implementation
uses uconst,ufunction,ugyslb,ucx,unit3, udm1;
{$R *.dfm}
procedure tfrmshdasmonth.csh();
begin
strsql:='select * from view_shdasmonth where 年份='+trim(combobox1.Text)+
' and 供应商编码='+''''+trim(label4.Caption)+''''+' order by 物料名称 asc';
adoexect(adoquery1,strsql);
end;
procedure Tfrmshdasmonth.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmshdasmonth.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 Tfrmshdasmonth.ComboBox1Click(Sender: TObject);
begin
csh;
end;

procedure Tfrmshdasmonth.RzToolbarButton1Click(Sender: TObject);
begin
frmgyslb:=tfrmgyslb.Create(self);
frmgyslb.ShowModal;
label4.Caption:=lbname+'     ';
label5.Caption:=title+'       ';
csh;
end;

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

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

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

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

end;

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

procedure Tfrmshdasmonth.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.