rkdg1.pas

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

unit rkdg1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, RzGroupBar, ExtCtrls, RzPanel, RzSplit, DB,
  ADODB, SUIDBCtrls, SUIForm, SUISideChannel, SUIButton, scExcelExport,
  bsSkinShellCtrls, SUIImagePanel, DBSumLst, RzButton, Menus, SUIPopupMenu;

type
  Trkdcx = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ADOCommand1: TADOCommand;
    scExcelExport1: TscExcelExport;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton2: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton3: TRzToolButton;
    DBGridEh1: TDBGridEh;
    RzSpacer3: TRzSpacer;
    RzToolButton4: TRzToolButton;
    RzSpacer4: TRzSpacer;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzSpacer5: TRzSpacer;
    RzToolButton7: TRzToolButton;
    RzSpacer6: TRzSpacer;
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rkdcx: Trkdcx;

implementation

uses adodm, rkdcx_find1, rk1;

{$R *.dfm}

procedure Trkdcx.RzGroup1Items0Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from rkdata where not (状态=''结案'')';
adodataset1.Active:=true;
end;

procedure Trkdcx.RzGroup1Items1Click(Sender: TObject);
begin
//adoquery1.Active:=false;
//adoquery1.SQL.AddStrings(select * from rkdata);
//adoquery1.active:=true;
end;

procedure Trkdcx.RzGroup1Items2Click(Sender: TObject);
begin
adocommand1.CommandText:='update rkdata set 状态=''结案'' where 单据编号=''wt60''';
adocommand1.Execute;
end;

procedure Trkdcx.suiButton4Click(Sender: TObject);
begin
close
end;

procedure Trkdcx.suiButton1Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from rkdata order by 日期';
adodataset1.Active:=true;
DBGridEh1.Columns[0].Width:=70;
DBGridEh1.Columns[1].Width:=120;
DBGridEh1.Columns[2].Width:=150;
DBGridEh1.Columns[3].Width:=120;
DBGridEh1.Columns[4].Width:=120;
DBGridEh1.Columns[5].Width:=70;
DBGridEh1.Columns[6].Width:=50;
DBGridEh1.Columns[7].Width:=50;
DBGridEh1.Columns[8].Width:=50;
DBGridEh1.Columns[9].Width:=50;
DBGridEh1.Columns[10].Width:=70;
end;

procedure Trkdcx.suiButton3Click(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 Trkdcx.RzToolButton4Click(Sender: TObject);
begin
if messagedlg('您确认要退出吗?',mtinformation,[mbyes,mbno],0)=mryes then
close
end;

procedure Trkdcx.RzToolButton1Click(Sender: TObject);
begin
application.CreateForm(trkdcx_find,rkdcx_find);
rkdcx_find.showmodal;
end;

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

procedure Trkdcx.N1Click(Sender: TObject);
begin
application.CreateForm(trkdcx_find,rkdcx_find);
rkdcx_find.showmodal;
end;

procedure Trkdcx.RzToolButton2Click(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 Trkdcx.N2Click(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 Trkdcx.RzToolButton5Click(Sender: TObject);
var
a:string;
begin
a:=dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
if messagedlg('您确认要删除:'+#13+'单据:'+a,mtwarning,[mbyes,mbno],0)=mryes then
begin
dm.ADODataSet1.Active:=false;
dm.ADODataSet1.CommandText:='select * from kcdata where 物料代码 in (select 物料代码 from rkdata where 单据编号='''+a+''')';
dm.ADODataSet1.Active:=true;
if dm.ADODataSet1.IsEmpty=false then
begin
dm.adock.SQL.Clear;
dm.adock.SQL.Add('update kcdata inner join rkdata on rkdata.物料代码=kcdata.物料代码 and rkdata.库别=kcdata.库别 set kcdata.数量=kcdata.数量-rkdata.数量 where rkdata.单据编号='''+a+'''');
dm.adock.ExecSQL;
end;
adocommand1.CommandText:='delete from rkdata where 单据编号='''+a+'''';
adocommand1.Execute;
adodataset1.Active:=false;
adodataset1.Active:=true;
end;
end;

procedure Trkdcx.RzToolButton6Click(Sender: TObject);
begin
application.CreateForm(trk,rk);
rk.Show;
rk.DateTimePicker1.DateTime:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[0].FieldName];
rk.Edit1.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
rk.Edit2.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[2].FieldName];
rk.ComboBox1.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[3].FieldName];
rk.DBEdit1.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[4].FieldName];
rk.ComboBox2.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[5].FieldName];
rk.Edit3.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[6].FieldName];
rk.DBEdit2.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[7].FieldName];
rk.ComboBox3.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[9].FieldName];
rk.DateTimePicker2.DateTime:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[10].FieldName];
rk.ComboBox4.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[11].FieldName];
rk.Edit4.Text:=rkdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[14].FieldName];
rk.Edit1.Enabled:=false;
rk.Edit2.Enabled:=true;
rk.ComboBox1.Enabled:=true;
rk.ComboBox2.Enabled:=true;
rk.Edit3.Enabled:=true;
rk.ComboBox3.Enabled:=true;
rk.ComboBox4.Enabled:=true;
rk.Edit4.Enabled:=true;
rk.RzToolButton3.Enabled:=true;
end;

procedure Trkdcx.RzToolButton7Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.Active:=true;
end;

end.