systemsetunit.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit SystemSetUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, PngImageList, ExtCtrls, RzButton, StdCtrls,
  RzPanel, RzRadGrp, Buttons, RzRadChk, PngSpeedButton,MMSystem, 
  Mask, RzEdit, RzBtnEdt, RzDBEdit, RzDBBnEd,DB, wwdbedit, Grids, Wwdbigrd,
  Wwdbgrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGrid;

type
  TFrmSystemSet = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TreeView1: TTreeView;
    PngImageList1: TPngImageList;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Bevel1: TBevel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    PngImageList2: TPngImageList;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    OpenDialog3: TOpenDialog;
    OpenDialog4: TOpenDialog;
    RzGroupBox6: TRzGroupBox;
    Label11: TLabel;
    Label10: TLabel;
    wwDBEdit1: TwwDBEdit;
    Panel64: TPanel;
    RzBitBtn119: TRzBitBtn;
    RzBitBtn121: TRzBitBtn;
    RzBitBtn213: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Panel1: TPanel;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn7: TRzBitBtn;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridLevel2: TcxGridLevel;
    cxGrid3: TcxGrid;
    cxGridDBTableView3: TcxGridDBTableView;
    cxGridLevel3: TcxGridLevel;
    Panel2: TPanel;
    RzBitBtn8: TRzBitBtn;
    RzBitBtn9: TRzBitBtn;
    RzBitBtn10: TRzBitBtn;
    RzBitBtn11: TRzBitBtn;
    cxGridDBTableView3id: TcxGridDBColumn;
    cxGridDBTableView3Word_Type: TcxGridDBColumn;
    RzBitBtn12: TRzBitBtn;
    cxGridDBTableView1id: TcxGridDBColumn;
    cxGridDBTableView1ClientName: TcxGridDBColumn;
    cxGridDBTableView2id: TcxGridDBColumn;
    cxGridDBTableView2ProductName: TcxGridDBColumn;
    Button1: TButton;
    procedure TreeView1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn12Click(Sender: TObject);
    procedure RzBitBtn119Click(Sender: TObject);
    procedure RzBitBtn121Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn213Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  FrmSystemSet: TFrmSystemSet;



implementation
uses Inifiles,ShellApi,ADODB, MainUnit, DMUnit;
{$R *.dfm}








procedure TFrmSystemSet.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.Text='普通设置' then     PageControl1.ActivePageIndex:=0;
  if TreeView1.Selected.Text='客户名称' then     PageControl1.ActivePageIndex:=1;
  if TreeView1.Selected.Text='产品名称' then     PageControl1.ActivePageIndex:=2;
 // if TreeView1.Selected.Text='工序设置' then     PageControl1.ActivePageIndex:=3;
end;

procedure TFrmSystemSet.RzBitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmSystemSet.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if DM.ADOTableSystemSet.State in[dsEdit,dsInsert] then
  begin
      if Messagebox(handle,'本信息已修改,您确定要放弃修改吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
      Begin
         CanClose:=true;
         DM.ADOTableSystemSet.Cancel;
      end
      else
      CanClose:=false;
   end;
end;

procedure TFrmSystemSet.RzBitBtn1Click(Sender: TObject);
begin
  if DM.ADOTableSystemSet.State in[dsEdit,dsInsert] then
    DM.ADOTableSystemSet.Post;
    
  Close;
end;

procedure TFrmSystemSet.RzBitBtn6Click(Sender: TObject);
begin
 if Messagebox(handle,'您确认要删除本条信息吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
  Begin
    DM.ADOTableProductName.Delete;
  end
end;

procedure TFrmSystemSet.RzBitBtn12Click(Sender: TObject);
begin
  DM.RMGridReportDesigner.LoadFromFile('Report/BillDetail.rls');
  DM.RMGridReportDesigner.DesignReport;
end;

procedure TFrmSystemSet.RzBitBtn119Click(Sender: TObject);
begin
  DM.ADOTableClientName.Append;
end;

procedure TFrmSystemSet.RzBitBtn121Click(Sender: TObject);
begin
  DM.ADOTableClientName.Edit;
end;

procedure TFrmSystemSet.RzBitBtn3Click(Sender: TObject);
begin
  if  DM.ADOTableClientName.State IN [dsInsert,dsEdit] THEN
      DM.ADOTableClientName.Post;
end;

procedure TFrmSystemSet.RzBitBtn213Click(Sender: TObject);
begin
  if Messagebox(handle,'您确认要删除本条信息吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
  Begin
    DM.ADOTableClientName.Delete;
  end
end;

procedure TFrmSystemSet.RzBitBtn4Click(Sender: TObject);
begin
  DM.ADOTableProductName.Append;
end;

procedure TFrmSystemSet.RzBitBtn5Click(Sender: TObject);
begin
  DM.ADOTableProductName.Edit;
end;

procedure TFrmSystemSet.RzBitBtn7Click(Sender: TObject);
begin
  if DM.ADOTableProductName.State in [dsInsert,dsEdit] then
    DM.ADOTableProductName.Post;
end;

procedure TFrmSystemSet.Button1Click(Sender: TObject);
Var
  i,j:Integer;
begin
  for i:=1 to DM.ADOQueryClientPrice.RecordCount DO
  Begin
    for j:=1 to DM.ADOTableProductName.RecordCount DO
    Begin
      if DM.ADOQueryClientPrice.FieldByName('ProductName').AsString=DM.ADOTableProductName.FieldByName('ProductName').AsString then
      Begin
        DM.ADOQueryClientPrice.Edit;
        DM.ADOQueryClientPrice.FieldByName('ProductID').AsString:=DM.ADOTableProductName.FieldByName('ID').AsString;
        DM.ADOQueryClientPrice.Post;
      End;
      DM.ADOTableProductName.Next;
    End;
  DM.ADOQueryClientPrice.Next;
  End;
end;

end.