D7snShanfengT/山峰贸易管理/U_GDLLManage_Main.pas

unit U_GDLLManage_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
  cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit;

type
  TfrmGDLLManage_Main = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBExport: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    TBDel: TToolButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    TBAdd: TToolButton;
    TBEdit: TToolButton;
    Label4: TLabel;
    Label5: TLabel;
    JDBuWei: TEdit;
    GDName: TEdit;
    Label6: TLabel;
    LQName: TEdit;
    Label3: TLabel;
    FKNote: TEdit;
    Label1: TLabel;
    Label7: TLabel;
    SGDanWei: TEdit;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1LLDate: TcxGridDBColumn;
    v1CRType: TcxGridDBColumn;
    v1SGDanWei: TcxGridDBColumn;
    v1JDBuWei: TcxGridDBColumn;
    v1LQName: TcxGridDBColumn;
    v1YLBuWei: TcxGridDBColumn;
    v1SYBuWei: TcxGridDBColumn;
    v1IFZL: TcxGridDBColumn;
    v1FKNote: TcxGridDBColumn;
    v1Note: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    Label9: TLabel;
    Label10: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ConNoMChange(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure TBAddClick(Sender: TObject);
    procedure TBEditClick(Sender: TObject);
    procedure GDNameKeyPress(Sender: TObject; var Key: Char);
    procedure GDNameChange(Sender: TObject);
    procedure SPSpecChange(Sender: TObject);
    procedure JDBuWeiChange(Sender: TObject);
    procedure TSselClick(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure setstatus();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGDLLManage_Main: TfrmGDLLManage_Main;

implementation
uses
  U_DataLink,U_RTFun,U_SXCKInPut, U_JGSXCKInPut,U_CLXX_Sub, U_ZDYHelp,U_GDZL_Sub;

{$R *.dfm}
procedure TfrmGDLLManage_Main.setstatus();
begin
  
end;

procedure TfrmGDLLManage_Main.FormDestroy(Sender: TObject);
begin
  frmGDLLManage_Main:=nil;
end;

procedure TfrmGDLLManage_Main.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmGDLLManage_Main.FormCreate(Sender: TObject);
begin
  //cxGrid1.Align:=alClient;
  canshu1:=Trim(DParameters1);
  canshu2:=Trim(DParameters2);
  canshu3:=Trim(DParameters3);
end;

procedure TfrmGDLLManage_Main.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select A.* ');
      sql.Add(' from GDZL_Main A');
      SQL.Add(' where A.LLDate>='''+trim(FormatDateTime('yyyy-MM-dd',begdate.date))+'''');
      SQL.Add(' and A.LLDate<'''+trim(FormatDateTime('yyyy-MM-dd',enddate.date+1))+'''');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmGDLLManage_Main.TBRafreshClick(Sender: TObject);
begin
  ToolBar1.SetFocus;
  InitGrid();
end;

procedure TfrmGDLLManage_Main.ConNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  end;
end;

procedure TfrmGDLLManage_Main.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><>ȡ<EFBFBD>б<EFBFBD>FM2',Tv1,'<27><>ȡ<EFBFBD>ֿ<EFBFBD>');
  Close;
end;

procedure TfrmGDLLManage_Main.FormShow(Sender: TObject);
begin
  ReadCxGrid('<27><>ȡ<EFBFBD>б<EFBFBD>FM2',Tv1,'<27><>ȡ<EFBFBD>ֿ<EFBFBD>');
  BegDate.Date:=SGetServerDate(ADOQueryCmd);
  endDate.Date:=BegDate.Date;
  //InitGrid();
end;

procedure TfrmGDLLManage_Main.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then exit;
  TcxGridToExcel('<27><>ȡ<EFBFBD>б<EFBFBD>',cxGrid2);
end;

procedure TfrmGDLLManage_Main.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  end;
end;

procedure TfrmGDLLManage_Main.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,True);
end;

procedure TfrmGDLLManage_Main.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,False);
end;

procedure TfrmGDLLManage_Main.TBDelClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add(' delete from GDZL_Main where ZLID='''+Trim(CDS_Main.fieldbyname('ZLID').AsString)+'''');
      ExecSQL;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    CDS_Main.Delete;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
  end;
end;

procedure TfrmGDLLManage_Main.TBAddClick(Sender: TObject);
begin
  try
    frmGDZL_Sub:=TfrmGDZL_Sub.Create(Application);
    with frmGDZL_Sub do
    begin
      FBCId:='';
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmGDZL_Sub.Free;
  end;
end;

procedure TfrmGDLLManage_Main.TBEditClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  try
    frmGDZL_Sub:=TfrmGDZL_Sub.Create(Application);
    with frmGDZL_Sub do
    begin
      FBCId:=Trim(CDS_Main.fieldbyname('ZLID').AsString);
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmGDZL_Sub.Free;
  end;
end;

procedure TfrmGDLLManage_Main.GDNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    
  end;
end;

procedure TfrmGDLLManage_Main.GDNameChange(Sender: TObject);
begin
  
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.SPSpecChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.JDBuWeiChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.TSselClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then exit;
  Modalresult:=1;
end;

procedure TfrmGDLLManage_Main.cxTabControl1Change(Sender: TObject);
begin
  setstatus();
  InitGrid();
end;

end.