gzcx1.pas

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

unit gzcx1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzButton, SUIComboBox, ExtCtrls, RzPanel, Grids,
  DBGridEh, DB, ADODB, Mask, bsSkinBoxCtrls, bsdbctrls, scExcelExport,
  FR_Class, FR_DSet, FR_DBSet, bsSkinShellCtrls, ActnList, DBActns, Menus;

type
  Tgzcx = class(TForm)
    RzGroupBox2: TRzGroupBox;
    suiComboBox1: TsuiComboBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    RzBitBtn4: TRzBitBtn;
    Label2: TLabel;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    scExcelExport1: TscExcelExport;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    ActionList1: TActionList;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    DataSetDelete1: TDataSetDelete;
    bsSkinEdit1: TEdit;
    procedure RzBitBtn3Click(Sender: TObject);
    procedure suiComboBox1DropDown(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzcx: Tgzcx;

implementation

uses adodm;

{$R *.dfm}

procedure Tgzcx.RzBitBtn3Click(Sender: TObject);
begin
close
end;

procedure Tgzcx.suiComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
suicombobox1.clear;
dm.yg.Active:=false;
dm.yg.Active:=true;
dm.yg.Open;
if (dm.yg.RecordCount>0) then
dm.yg.First;
for i:=0 to dm.yg.RecordCount - 1 do
begin
suicombobox1.Items.add(dm.yg.Fieldbyname('姓名').AsString);
dm.yg.Next;
end;
end;

procedure Tgzcx.RzBitBtn1Click(Sender: TObject);
begin
if (suicombobox1.Text<>'') and (bsskinedit1.text<>'') then
begin
adodataset1.Active:=false;
adodataset1.CommandText:='SELECT 日期,姓名,物料代码,品名,加工类型,送检数量,工废数量,料废数量,工价,加工费,clmoney as 材料费,月份 from gzdata where 姓名='''+trim(suicombobox1.Text)+''' and 月份='''+trim(bsskinedit1.Text)+''' order by 姓名,日期,物料代码';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=80;
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;
dbgrideh1.Columns[8].Width:=60;
dbgrideh1.Columns[9].Width:=60;
dbgrideh1.Columns[10].Width:=60;
dbgrideh1.Columns[11].Width:=60;
end;
if (suicombobox1.Text='') and (bsskinedit1.text='') then
begin
adodataset1.Active:=false;
adodataset1.CommandText:='SELECT 日期,姓名,物料代码,品名,加工类型,送检数量,工废数量,料废数量,工价,加工费,clmoney as 材料费,月份 from gzdata order by 姓名,日期,物料代码';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=80;
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;
dbgrideh1.Columns[8].Width:=60;
dbgrideh1.Columns[9].Width:=60;
dbgrideh1.Columns[10].Width:=60;
dbgrideh1.Columns[11].Width:=60;
end;
if (suicombobox1.Text<>'') and (bsskinedit1.text='') then
begin
adodataset1.Active:=false;
adodataset1.CommandText:='SELECT 日期,姓名,物料代码,品名,加工类型,送检数量,工废数量,料废数量,工价,加工费,clmoney as 材料费,月份 from gzdata where 姓名='''+trim(suicombobox1.Text)+''' order by 姓名,日期,物料代码';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=80;
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;
dbgrideh1.Columns[8].Width:=60;
dbgrideh1.Columns[9].Width:=60;
dbgrideh1.Columns[10].Width:=60;
dbgrideh1.Columns[11].Width:=60;
end;
if (bsskinedit1.text<>'') and (suicombobox1.Text='') then
begin
adodataset1.Active:=false;
adodataset1.CommandText:='SELECT 日期,姓名,物料代码,品名,加工类型,送检数量,工废数量,料废数量,工价,加工费,clmoney as 材料费,月份 from gzdata where 月份='''+trim(bsskinedit1.Text)+''' order by 姓名,日期,物料代码';
adodataset1.Active:=true;
dbgrideh1.Columns[0].Width:=60;
dbgrideh1.Columns[1].Width:=80;
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;
dbgrideh1.Columns[8].Width:=60;
dbgrideh1.Columns[9].Width:=60;
dbgrideh1.Columns[10].Width:=60;
dbgrideh1.Columns[11].Width:=60;
end;
end;
procedure Tgzcx.RzBitBtn2Click(Sender: TObject);
begin
frreport1.LoadFromFile('report\gzcx.frf');
//打印当前数据库
frreport1.ShowReport;
end;

procedure Tgzcx.RzBitBtn4Click(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
  try
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.ExcelVisible:=False;
    scExcelExport1.WorksheetName := 'sheet1';
    scExcelExport1.ExportDataset;
    scExcelExport1.SaveAs(bsskinSaveDialog1.FileName,ffXLS);
  finally
    scExcelExport1.Disconnect;
  showmessage('数据导出成功!'+bsskinSaveDialog1.FileName);
    end;
  end;
  end;
end;

procedure Tgzcx.N2Click(Sender: TObject);
begin
close
end;

end.