yjql1.pas

delphi开发的委托加工管理系统源代码

unit yjql1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, DBGridEh,
  SUIImagePanel, ExtCtrls, SUISideChannel, Mask, bsSkinBoxCtrls, bsdbctrls,
  Menus, RzEdit, RzDBEdit, RzLabel, RzButton, ComCtrls, scExcelExport,
  bsSkinShellCtrls, RzPanel, RzStatus, FR_Class, FR_DSet, FR_DBSet;

type
  Tyjql = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    scExcelExport1: TscExcelExport;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton2: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton3: TRzToolButton;
    RzSpacer3: TRzSpacer;
    RzToolButton4: TRzToolButton;
    RzSpacer4: TRzSpacer;
    RzToolButton5: TRzToolButton;
    RzGroupBox1: TRzGroupBox;
    RzStatusBar1: TRzStatusBar;
    RzClockStatus1: TRzClockStatus;
    RzMarqueeStatus1: TRzMarqueeStatus;
    DBGridEh1: TDBGridEh;
    ADOCommand1: TADOCommand;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yjql: Tyjql;

implementation

uses adodm, yj_find1;

{$R *.dfm}

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

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

procedure Tyjql.RzBitBtn3Click(Sender: TObject);
begin
bsskinSaveDialog1 := TbsskinSaveDialog.Create(nil);
  bsskinSaveDialog1.Filter := 'Execl 文件(*.XLS)|*.XLS|Word 文件(*.doc)|*.doc|HTML 文件(*.HTM)|*.HTM|TXT 文件 (*.txt)|*.TXT';
if bsskinSaveDialog1.Execute then
begin
  try
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.ExcelVisible:=False;
    scExcelExport1.WorksheetName := 'sheet1';
    scExcelExport1.ExportDataset;
    scExcelExport1.SaveAs(bsskinSaveDialog1.FileName,ffXLS);
    //scExcelExport1.SaveAs('c:\ExcelExport.htm',ffHTM);
    //scExcelExport1.SaveAs('c:\ExcelExport.csv',ffCSV);
  finally
    scExcelExport1.Disconnect;
  showmessage('数据导出成功!'+bsskinSaveDialog1.FileName);
    end;
  end;
end;

procedure Tyjql.RzToolButton5Click(Sender: TObject);
begin
close
end;

procedure Tyjql.RzToolButton4Click(Sender: TObject);
begin
if adodataset1.IsEmpty=true then
showmessage('请先查询相应的数据')
else
begin
bsskinSaveDialog1 := TbsskinSaveDialog.Create(nil);
  bsskinSaveDialog1.Filter := 'Execl 文件(*.XLS)|*.XLS|Word 文件(*.doc)|*.doc|HTML 文件(*.HTM)|*.HTM|TXT 文件 (*.txt)|*.TXT';
if bsskinSaveDialog1.Execute then
begin
if fileexists(bsskinSaveDialog1.FileName) then
if application.MessageBox('目标文件已经存在,要覆盖吗?',pchar(application.Title),mb_yesno+mb_iconquestion) <> 6 then exit;
  try
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.ExcelVisible:=False;
    scExcelExport1.WorksheetName := 'sheet1';
    scExcelExport1.ExportDataset;
    scExcelExport1.SaveAs(bsskinSaveDialog1.FileName,ffXLS);
    //scExcelExport1.SaveAs('c:\ExcelExport.htm',ffHTM);
    //scExcelExport1.SaveAs('c:\ExcelExport.csv',ffCSV);
  finally
    scExcelExport1.Disconnect;
  showmessage('数据导出成功!'+bsskinSaveDialog1.FileName);
    end;
  end;
  end;
end;

procedure Tyjql.RzToolButton3Click(Sender: TObject);
begin
frreport1.LoadFromFile('report\yjql.frf');
//打印当前数据库
frreport1.ShowReport;
end;

procedure Tyjql.RzToolButton1Click(Sender: TObject);
begin
adocommand1.CommandText:='update ckdata set 金额=''0'' where 库别=''不良仓'' and 库别=''不良仓(工废)''';
adocommand1.Execute;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into yjql (ckdate,wtno,wtnumber,wtpm,cksl,ckmoney,nn,jgmoney,mon,kb) select 日期,委托单号,物料代码,品名,数量,金额,单据编号,jgmoney,mon,库别 from ckdata');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql where kb=''辅材仓''');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql where kb=''不良仓（工废）''');
adoquery1.ExecSQL;
adodataset1.Active:=false;
adodataset1.CommandText:='select ckdate as 日期,wtno as 委托单号,wtnumber as 物料代码,wtpm as 品名,cksl as 数量,ckmoney as 金额,jgmoney as 加工金额,mon as 月份 from yjql order by wtnumber,ckdate';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=120;
dbgrideh1.Columns[2].Width:=150;
dbgrideh1.Columns[3].Width:=120;
dbgrideh1.Columns[4].Width:=60;
dbgrideh1.Columns[5].Width:=60;
dbgrideh1.Columns[6].Width:=60;
dbgrideh1.Columns[7].Width:=60;
rztoolbutton2.Enabled:=true;
rztoolbutton3.Enabled:=true;
rztoolbutton4.Enabled:=true;
end;

procedure Tyjql.RzToolButton2Click(Sender: TObject);
begin
application.CreateForm(tyj_find,yj_find);
yj_find.showmodal;
end;

procedure Tyjql.N5Click(Sender: TObject);
begin
close
end;

procedure Tyjql.N4Click(Sender: TObject);
begin
bsskinSaveDialog1 := TbsskinSaveDialog.Create(nil);
  bsskinSaveDialog1.Filter := 'Execl 文件(*.XLS)|*.XLS|Word 文件(*.doc)|*.doc|HTML 文件(*.HTM)|*.HTM|TXT 文件 (*.txt)|*.TXT';
if bsskinSaveDialog1.Execute then
begin
  try
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.ExcelVisible:=False;
    scExcelExport1.WorksheetName := 'sheet1';
    scExcelExport1.ExportDataset;
    scExcelExport1.SaveAs(bsskinSaveDialog1.FileName,ffXLS);
    //scExcelExport1.SaveAs('c:\ExcelExport.htm',ffHTM);
    //scExcelExport1.SaveAs('c:\ExcelExport.csv',ffCSV);
  finally
    scExcelExport1.Disconnect;
  showmessage('数据导出成功!'+bsskinSaveDialog1.FileName);
    end;
  end;
end;

procedure Tyjql.N3Click(Sender: TObject);
begin
frreport1.LoadFromFile('report\yjql.frf');
//打印当前数据库
frreport1.ShowReport;
end;

procedure Tyjql.N2Click(Sender: TObject);
begin
application.CreateForm(tyj_find,yj_find);
yj_find.showmodal;
end;

procedure Tyjql.N1Click(Sender: TObject);
begin
adocommand1.CommandText:='update ckdata set 金额=''0'' where 库别=''不良仓'' and 库别=''不良仓(工废)''';
adocommand1.Execute;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into yjql (ckdate,wtno,wtnumber,wtpm,cksl,ckmoney,nn,jgmoney,mon,kb) select 日期,委托单号,物料代码,品名,数量,金额,单据编号,jgmoney,mon,库别 from ckdata');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql where kb=''辅材仓''');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete * from yjql where kb=''不良仓（工废）''');
adoquery1.ExecSQL;
adodataset1.Active:=false;
adodataset1.CommandText:='select ckdate as 日期,wtno as 委托单号,wtnumber as 物料代码,wtpm as 品名,cksl as 数量,ckmoney as 金额,jgmoney as 加工金额,mon as 月份 from yjql order by wtnumber,ckdate';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=120;
dbgrideh1.Columns[2].Width:=150;
dbgrideh1.Columns[3].Width:=120;
dbgrideh1.Columns[4].Width:=60;
dbgrideh1.Columns[5].Width:=60;
dbgrideh1.Columns[6].Width:=60;
dbgrideh1.Columns[7].Width:=60;
rztoolbutton2.Enabled:=true;
rztoolbutton3.Enabled:=true;
rztoolbutton4.Enabled:=true;
end;

end.