ckdcx1.pas

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

unit ckdcx1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, SUIImagePanel, ExtCtrls, SUISideChannel,
  SUIButton, SUIDBCtrls, DB, ADODB, scExcelExport, bsSkinShellCtrls,
  ComCtrls, ToolWin, SUIToolBar, RzPanel, RzButton, Menus, SUIPopupMenu,
  bsSkinCtrls;

type
  Tckdcx = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    scExcelExport1: TscExcelExport;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    DBGridEh1: TDBGridEh;
    RzToolbar2: TRzToolbar;
    RzToolButton5: TRzToolButton;
    RzSpacer4: TRzSpacer;
    RzToolButton6: TRzToolButton;
    RzSpacer5: TRzSpacer;
    RzToolButton7: TRzToolButton;
    RzSpacer6: TRzSpacer;
    RzToolButton8: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton1: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton2: TRzToolButton;
    ADOCommand1: TADOCommand;
    RzToolButton3: TRzToolButton;
    RzSpacer3: TRzSpacer;
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure RzToolButton8Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure RzToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckdcx: Tckdcx;

implementation

uses adodm, ckdcx_find1, ck1;

{$R *.dfm}

procedure Tckdcx.suiButton1Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from ckdata order by 日期';
adodataset1.Active:=true;
end;

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

procedure Tckdcx.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 Tckdcx.RzToolButton5Click(Sender: TObject);
begin
application.CreateForm(tckdcx_find,ckdcx_find);
ckdcx_find.showmodal;
end;

procedure Tckdcx.RzToolButton6Click(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);
  finally
    scExcelExport1.Disconnect;
  showmessage('数据导出成功!'+bsskinSaveDialog1.FileName);
    end;
  end;
  end;
end;

procedure Tckdcx.N1Click(Sender: TObject);
begin
rztoolbutton5.Click
end;

procedure Tckdcx.N2Click(Sender: TObject);
begin
rztoolbutton6.Click
end;

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

procedure Tckdcx.RzToolButton1Click(Sender: TObject);
var
a:string;
b:string;
begin
a:=dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
b:=dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[2].FieldName];
if messagedlg('您确认要删除:'+#13+'单据:'+a,mtwarning,[mbyes,mbno],0)=mryes then
begin
dm.ADOCommand1.CommandText:='update rkdata set 状态=''审核'' where 委托单号='''+b+'''';
dm.ADOCommand1.Execute;
dm.ADOCommand1.CommandText:='update ckdata set 状态=''审核'' where 委托单号='''+b+'''';
dm.ADOCommand1.Execute;
dm.adock.SQL.Clear;
dm.adock.SQL.Add('update kcdata inner join ckdata on ckdata.物料代码=kcdata.物料代码 and ckdata.库别=kcdata.库别 set kcdata.数量=kcdata.数量+ckdata.数量 where ckdata.单据编号='''+a+'''');
dm.adock.ExecSQL;
dm.ADOCommand1.CommandText:='delete from ckdata where 单据编号='''+a+'''';
dm.ADOCommand1.Execute;
adodataset1.Active:=false;
adodataset1.Active:=true;
end;
end;

procedure Tckdcx.RzToolButton2Click(Sender: TObject);
begin
if messagedlg('您确定要退出吗?',mtinformation,[mbyes,mbno],0)=mryes then
close
end;

procedure Tckdcx.RzToolButton7Click(Sender: TObject);
begin
application.CreateForm(tck,ck);
ck.Show;
ck.edit1.text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
ck.datetimepicker1.DateTime:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[0].FieldName];
ck.combobox1.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[2].FieldName];
ck.dbedit1.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[3].FieldName];
ck.dbedit2.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[4].FieldName];
ck.dbedit3.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[5].FieldName];
ck.edit2.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[6].FieldName];
ck.suicombobox1.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[9].FieldName];
ck.dbedit5.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[10].FieldName];
ck.dbedit6.Text:=ckdcx.dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[14].FieldName];
ck.ComboBox1.Enabled:=true;
ck.rztoolbutton1.Enabled:=false;
ck.RzToolButton3.Enabled:=true;
ck.DateTimePicker1.Enabled:=true;
ck.ComboBox1.Enabled:=true;
ck.DBEdit1.Enabled:=true;
ck.dbedit2.Enabled:=true;
ck.DBEdit3.Enabled:=true;
ck.Edit2.Enabled:=true;
ck.suiComboBox1.Enabled:=true;
ck.DBEdit5.Enabled:=true;
ck.DBEdit6.Enabled:=true;
end;

procedure Tckdcx.RzToolButton8Click(Sender: TObject);
var
a:string;
begin
a:=dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
if rztoolbutton8.Caption='审核' then
begin
if messagedlg('您确定审核:'+#13+'单据:'+a,mtwarning,[mbyes,mbno],0)=mryes then
begin
dm.ADOCommand1.CommandText:='update ckdata set fclose=''关闭'' where 单据编号='''+a+'''';
dm.ADOCommand1.Execute;
end;
end
else
begin
if messagedlg('您确定反审核:'+#13+'单据:'+a,mtwarning,[mbyes,mbno],0)=mryes then
begin
dm.ADOCommand1.CommandText:='update ckdata set fclose=''未入库'' where 单据编号='''+a+'''';
dm.ADOCommand1.Execute;
end;
end;
adodataset1.Active:=false;
adodataset1.Active:=true;
end;

procedure Tckdcx.DBGridEh1CellClick(Column: TColumnEh);
var
a:string;
b:string;
begin
if dbgrideh1.DataSource.DataSet.IsEmpty=false then
begin
a:=dbgrideh1.DataSource.DataSet.FieldValues[dbgrideh1.Columns[1].FieldName];
dm.ADODataSet1.Active:=false;
dm.ADODataSet1.CommandText:='select fclose from ckdata where 单据编号='''+a+'''';
dm.ADODataSet1.Active:=true;
b:=dm.ADODataSet1.Fields[0].AsString;
if b<>'关闭' then
rztoolbutton8.Caption:='审核'
else
rztoolbutton8.Caption:='反审核';
end;
end;

procedure Tckdcx.RzToolButton3Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.Active:=true;
end;

end.